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_c14b.F90 in branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/TOP_SRC/C14b – NEMO

source: branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/TOP_SRC/C14b/trcice_c14b.F90 @ 5447

Last change on this file since 5447 was 5447, checked in by davestorkey, 9 years ago

Update UKMO/dev_r5107_mld_zint branch to revision 5442 of the trunk.

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