source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 2.2 KB
Line 
1MODULE trcnam_my_trc
2   !!======================================================================
3   !!                      ***  MODULE trcnam_my_trc  ***
4   !! TOP :   initialisation of some run parameters for MY_TRC bio-model
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code
7   !!----------------------------------------------------------------------
8#if defined key_my_trc
9   !!----------------------------------------------------------------------
10   !!   'key_my_trc'   :                                       MY_TRC model
11   !!----------------------------------------------------------------------
12   !! trc_nam_my_trc      : MY_TRC model initialisation
13   !!----------------------------------------------------------------------
14   USE oce_trc         ! Ocean variables
15   USE par_trc         ! TOP parameters
16   USE trc             ! TOP variables
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC   trc_nam_my_trc   ! called by trcnam.F90 module
22
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
25   !! $Id$
26   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28
29CONTAINS
30
31   SUBROUTINE trc_nam_my_trc
32      !!----------------------------------------------------------------------
33      !!                     ***  trc_nam_my_trc  *** 
34      !!
35      !! ** Purpose :   read MY_TRC namelist
36      !!
37      !!----------------------------------------------------------------------
38      !
39      IF(lwp) WRITE(numout,*)
40      IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists'
41      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
42      !
43   END SUBROUTINE trc_nam_my_trc
44   
45#else
46   !!----------------------------------------------------------------------
47   !!  Dummy module :                                             No MY_TRC
48   !!----------------------------------------------------------------------
49CONTAINS
50   SUBROUTINE trc_nam_my_trc                      ! Empty routine
51   END  SUBROUTINE  trc_nam_my_trc
52#endif 
53
54   !!======================================================================
55END MODULE trcnam_my_trc
Note: See TracBrowser for help on using the repository browser.