source: branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/C14b/trcice_c14b.F90 @ 5367

Last change on this file since 5367 was 5367, checked in by cetlod, 5 years ago

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : merge in dev_r5171_CNRS_LIM3_seaicebgc

File size: 1.9 KB
Line 
1MODULE trcice_c14b
2   !!======================================================================
3   !!                         ***  MODULE trcice_c14b  ***
4   !!======================================================================
5#if defined key_c14b
6   !!----------------------------------------------------------------------
7   !!   'key_c14b'                                               CFC tracers
8   !!----------------------------------------------------------------------
9   !! trc_ice_c14b       : MY_TRC model main routine
10   !!----------------------------------------------------------------------
11   USE par_trc         ! TOP parameters
12   USE oce_trc         ! Ocean variables
13   USE trc             ! TOP variables
14
15   IMPLICIT NONE
16   PRIVATE
17
18   PUBLIC   trc_ice_c14b       ! called by trcice.F90 module
19
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
22   !! $Id: trcice_c14b.F90 4990 2014-12-15 16:42:49Z timgraham $
23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
24   !!----------------------------------------------------------------------
25CONTAINS
26
27   SUBROUTINE trc_ice_c14b
28      !!----------------------------------------------------------------------
29      !!                     ***  trc_ice_c14b  ***
30      !!
31      !!----------------------------------------------------------------------
32      !
33      !
34   END SUBROUTINE trc_ice_c14b
35
36
37#else
38   !!----------------------------------------------------------------------
39   !!   Dummy module                                        No MY_TRC model
40   !!----------------------------------------------------------------------
41CONTAINS
42   SUBROUTINE trc_ice_c14b             ! Empty routine
43   END SUBROUTINE trc_ice_c14b
44#endif
45
46   !!======================================================================
47END MODULE trcice_c14b
Note: See TracBrowser for help on using the repository browser.