source: branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/TOP_SRC/CFC/trcice_cfc.F90 @ 5600

Last change on this file since 5600 was 5600, checked in by andrewryan, 5 years ago

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

File size: 2.1 KB
Line 
1MODULE trcice_cfc
2   !!======================================================================
3   !!                         ***  MODULE trcice_cfc  ***
4   !! TOP :   Main module of the MY_TRC tracers
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code
7   !!----------------------------------------------------------------------
8#if defined key_cfc
9   !!----------------------------------------------------------------------
10   !!   'key_cfc'                                               CFC tracers
11   !!----------------------------------------------------------------------
12   !! trc_ice_cfc       : MY_TRC model main routine
13   !!----------------------------------------------------------------------
14   USE par_trc         ! TOP parameters
15   USE oce_trc         ! Ocean variables
16   USE trc             ! TOP variables
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC   trc_ice_ini_cfc       ! called by trcice.F90 module
22
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
25   !! $Id: trcice_cfc.F90 4990 2014-12-15 16:42:49Z timgraham $
26   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28CONTAINS
29
30   SUBROUTINE trc_ice_ini_cfc
31      !!----------------------------------------------------------------------
32      !!                     ***  trc_ice_cfc  ***
33      !!
34      !! ** Purpose :   main routine of MY_TRC model
35      !!
36      !! ** Method  : -
37      !!----------------------------------------------------------------------
38      !
39      !
40   END SUBROUTINE trc_ice_ini_cfc
41
42
43#else
44   !!----------------------------------------------------------------------
45   !!   Dummy module                                        No MY_TRC model
46   !!----------------------------------------------------------------------
47CONTAINS
48   SUBROUTINE trc_ice_ini_cfc             ! Empty routine
49   END SUBROUTINE trc_ice_ini_cfc
50#endif
51
52   !!======================================================================
53END MODULE trcice_cfc
Note: See TracBrowser for help on using the repository browser.