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 NEMO/branches/UKMO/NEMO_4.0.2_mirror/src/TOP/MY_TRC – NEMO

source: NEMO/branches/UKMO/NEMO_4.0.2_mirror/src/TOP/MY_TRC/trcnam_my_trc.F90 @ 12658

Last change on this file since 12658 was 12658, checked in by cguiavarch, 4 years ago

UKMO/NEMO_4.0.2_mirror : Remove SVN keywords.

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 :      !  2007  (C. Ethe, G. Madec) Original code
7   !!                !  2016  (C. Ethe, T. Lovato) Revised architecture
8   !!----------------------------------------------------------------------
9   !! trc_nam_my_trc      : MY_TRC model initialisation
10   !!----------------------------------------------------------------------
11   USE oce_trc         ! Ocean variables
12   USE par_trc         ! TOP parameters
13   USE trc             ! TOP variables
14
15   IMPLICIT NONE
16   PRIVATE
17
18   PUBLIC   trc_nam_my_trc   ! called by trcnam.F90 module
19
20   !!----------------------------------------------------------------------
21   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
22   !! $Id$
23   !! Software governed by the CeCILL license (see ./LICENSE)
24   !!----------------------------------------------------------------------
25
26CONTAINS
27
28   SUBROUTINE trc_nam_my_trc
29      !!----------------------------------------------------------------------
30      !!                     ***  trc_nam_my_trc  *** 
31      !!
32      !! ** Purpose :   read MY_TRC namelist
33      !!
34      !!----------------------------------------------------------------------
35      !
36      IF(lwp) WRITE(numout,*)
37      IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists'
38      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
39      !
40   END SUBROUTINE trc_nam_my_trc
41   
42   !!======================================================================
43END MODULE trcnam_my_trc
Note: See TracBrowser for help on using the repository browser.