source:
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/TOP_SRC/C14b/trcice_c14b.F90
@
5833
Last change on this file since 5833 was 5833, checked in by timgraham, 9 years ago | |
---|---|
File size: 1.8 KB |
Line | |
---|---|
1 | MODULE 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$ |
23 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
24 | !!---------------------------------------------------------------------- |
25 | CONTAINS |
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 | !!---------------------------------------------------------------------- |
41 | CONTAINS |
42 | SUBROUTINE trc_ice_ini_c14b ! Empty routine |
43 | END SUBROUTINE trc_ice_ini_c14b |
44 | #endif |
45 | |
46 | !!====================================================================== |
47 | END MODULE trcice_c14b |
Note: See TracBrowser
for help on using the repository browser.