New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcice_my_trc.F90 in branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90 @ 5630

Last change on this file since 5630 was 5630, checked in by dancopsey, 9 years ago

Merged in revision 5518 of the trunk.

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_ini_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_ini_my_trc
28      !!----------------------------------------------------------------------
29      !!                     ***  trc_ice_my_trc  ***
30      !!
31      !!----------------------------------------------------------------------
32      !
33      !
34   END SUBROUTINE trc_ice_ini_my_trc
35
36#else
37   !!----------------------------------------------------------------------
38   !!   Dummy module                                        No MY_TRC model
39   !!----------------------------------------------------------------------
40CONTAINS
41   SUBROUTINE trc_ice_ini_my_trc             ! Empty routine
42   END SUBROUTINE trc_ice_ini_my_trc
43#endif
44
45   !!======================================================================
46END MODULE trcice_my_trc
Note: See TracBrowser for help on using the repository browser.