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.
trcnam_my_trc.F90 in branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90 @ 7073

Last change on this file since 7073 was 7073, checked in by cetlod, 8 years ago

New top interface : Update my_trc module

  • Property svn:keywords set to Id
File size: 1.7 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   !! trc_nam_my_trc      : MY_TRC model initialisation
9   !!----------------------------------------------------------------------
10   USE oce_trc         ! Ocean variables
11   USE par_trc         ! TOP parameters
12   USE trc             ! TOP variables
13
14   IMPLICIT NONE
15   PRIVATE
16
17   PUBLIC   trc_nam_my_trc   ! called by trcnam.F90 module
18
19   !!----------------------------------------------------------------------
20   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
21   !! $Id$
22   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
23   !!----------------------------------------------------------------------
24
25CONTAINS
26
27   SUBROUTINE trc_nam_my_trc
28      !!----------------------------------------------------------------------
29      !!                     ***  trc_nam_my_trc  *** 
30      !!
31      !! ** Purpose :   read MY_TRC namelist
32      !!
33      !!----------------------------------------------------------------------
34      !
35      IF(lwp) WRITE(numout,*)
36      IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists'
37      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
38      !
39   END SUBROUTINE trc_nam_my_trc
40   
41
42   !!======================================================================
43END MODULE trcnam_my_trc
Note: See TracBrowser for help on using the repository browser.