Home Explore Help
Sign In
pbarriat
/
ecearth3
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 937295dc99
Branches Tags
ecearth3
/
sources
/
nemo-3.6
/
NEMO
/
TOP_SRC
/
C14b
/
trcice_c14b.F90

trcice_c14b.F90 1.9 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 
  1. MODULE trcice_c14b
    2. 

  2.    !!======================================================================
    3. 

  3.    !!                         ***  MODULE trcice_c14b  ***
    4. 

  4.    !!======================================================================
    5. 

  5. #if defined key_c14b
    6. 

  6.    !!----------------------------------------------------------------------
    7. 

  7.    !!   'key_c14b'                                               CFC tracers
    8. 

  8.    !!----------------------------------------------------------------------
    9. 

  9.    !! trc_ice_c14b       : MY_TRC model main routine
    10. 

  10.    !!----------------------------------------------------------------------
    11. 

  11.    USE par_trc         ! TOP parameters
    12. 

  12.    USE oce_trc         ! Ocean variables
    13. 

  13.    USE trc             ! TOP variables
    14. 

  14. 

  15.    IMPLICIT NONE
    16. 

  16.    PRIVATE
    17. 

  17. 

  18.    PUBLIC   trc_ice_ini_c14b       ! called by trcice.F90 module
    19. 

  19. 

  20.    !!----------------------------------------------------------------------
    21. 

  21.    !! NEMO/TOP 3.3 , NEMO Consortium (2010)
    22. 

  22.    !! $Id: trcice_c14b.F90 4990 2014-12-15 16:42:49Z timgraham $
    23. 

  23.    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    24. 

  24.    !!----------------------------------------------------------------------
    25. 

  25. CONTAINS
    26. 

  26. 

  27.    SUBROUTINE trc_ice_ini_c14b
    28. 

  28.       !!----------------------------------------------------------------------
    29. 

  29.       !!                     ***  trc_ice_c14b  ***
    30. 

  30.       !!
    31. 

  31.       !!----------------------------------------------------------------------
    32. 

  32.       !
    33. 

  33.       !
    34. 

  34.    END SUBROUTINE trc_ice_ini_c14b
    35. 

  35. 

  36. 

  37. #else
    38. 

  38.    !!----------------------------------------------------------------------
    39. 

  39.    !!   Dummy module                                        No MY_TRC model
    40. 

  40.    !!----------------------------------------------------------------------
    41. 

  41. CONTAINS
    42. 

  42.    SUBROUTINE trc_ice_ini_c14b             ! Empty routine
    43. 

  43.    END SUBROUTINE trc_ice_ini_c14b
    44. 

  44. #endif
    45. 

  45. 

  46.    !!======================================================================
    47. 

  47. END MODULE trcice_c14b
    48.