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/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/TOP_SRC/C14b – NEMO

source: branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/TOP_SRC/C14b/trcice_c14b.F90 @ 5443

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

Update 2015/dev_r5021_UKMO1_CICE_coupling branch to revision 5442 of the trunk.

File size: 1.8 KB
RevLine 
[5367]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
[5434]18   PUBLIC   trc_ice_ini_c14b       ! called by trcice.F90 module
[5367]19
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
[5443]22   !! $Id$
[5367]23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
24   !!----------------------------------------------------------------------
25CONTAINS
26
[5434]27   SUBROUTINE trc_ice_ini_c14b
[5367]28      !!----------------------------------------------------------------------
29      !!                     ***  trc_ice_c14b  ***
30      !!
31      !!----------------------------------------------------------------------
32      !
33      !
[5434]34   END SUBROUTINE trc_ice_ini_c14b
[5367]35
36
37#else
38   !!----------------------------------------------------------------------
39   !!   Dummy module                                        No MY_TRC model
40   !!----------------------------------------------------------------------
41CONTAINS
[5434]42   SUBROUTINE trc_ice_ini_c14b             ! Empty routine
43   END SUBROUTINE trc_ice_ini_c14b
[5367]44#endif
45
46   !!======================================================================
47END MODULE trcice_c14b
Note: See TracBrowser for help on using the repository browser.