source: trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90 @ 5385

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

merge 2015/dev_r5204_CNRS_PISCES_dcy branch into the trunk, see ticket #1532

File size: 1.9 KB
Line 
1MODULE trcice_my_trc
2   !!======================================================================
3   !!                         ***  MODULE trcice_my_trc  ***
4   !!----------------------------------------------------------------------
5#if defined key_my_trc
6   !!----------------------------------------------------------------------
7   !!   'key_my_trc'                                               CFC tracers
8   !!----------------------------------------------------------------------
9   !! trc_ice_my_trc       : 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_my_trc       ! called by trcice.F90 module
19
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
22   !! $Id: trcice_my_trc.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_my_trc
28      !!----------------------------------------------------------------------
29      !!                     ***  trc_ice_my_trc  ***
30      !!
31      !!----------------------------------------------------------------------
32      !
33      !
34   END SUBROUTINE trc_ice_my_trc
35
36#else
37   !!----------------------------------------------------------------------
38   !!   Dummy module                                        No MY_TRC model
39   !!----------------------------------------------------------------------
40CONTAINS
41   SUBROUTINE trc_ice_my_trc             ! Empty routine
42   END SUBROUTINE trc_ice_my_trc
43#endif
44
45   !!======================================================================
46END MODULE trcice_my_trc
Note: See TracBrowser for help on using the repository browser.