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

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90 @ 7068

Last change on this file since 7068 was 7068, checked in by cetlod, 7 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File size: 3.3 KB
Line 
1MODULE trcnam_age
2   !!======================================================================
3   !!                         ***  MODULE trcnam_age  ***
4   !! TOP :   initialisation of some run parameters for Age tracer
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)
7   !!----------------------------------------------------------------------
8   !! trc_nam_age      : AGE  tracer initialisation
9   !!----------------------------------------------------------------------
10   USE oce_trc         ! Ocean variables
11   USE trc         ! Ocean variables
12   USE trcsms_age      ! AGE specific variable
13
14   IMPLICIT NONE
15   PRIVATE
16
17   PUBLIC   trc_nam_age   ! 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_age
28      !!-------------------------------------------------------------------
29      !!                  ***  ROUTINE trc_nam_age  ***
30      !!                 
31      !! ** Purpose :   Definition some run parameter for AGE model
32      !!
33      !! ** input   :   Namelist namage
34      !!----------------------------------------------------------------------
35      INTEGER :: ios                 ! Local integer output status for namelist read
36      !!
37      NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 
38      !!----------------------------------------------------------------------
39
40      ctrcnm    (jp_age) = 'Age'
41      ctrcln    (jp_age) = 'Sea water age since surface contact'
42      ctrcun    (jp_age) = 'year'
43      ln_trc_ini(jp_age) = .false. 
44      !
45      ln_trc_sbc(jp_age) =  ''
46      ln_trc_cbc(jp_age) =  ''
47      ln_trc_obc(jp_age) =  ''
48      !
49
50      REWIND( numtrc_ref )              ! Namelist namagedate in reference namelist : AGE parameters
51      READ  ( numtrc_ref, namage, IOSTAT = ios, ERR = 901)
52901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp )
53
54      REWIND( numtrc_cfg )              ! Namelist namagedate in configuration namelist : AGE parameters
55      READ  ( numtrc_cfg, namage, IOSTAT = ios, ERR = 902 )
56902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp )
57      IF(lwm) WRITE ( numonr, namage )
58
59      IF(lwp) THEN                  ! control print
60         WRITE(numout,*) ' '
61         WRITE(numout,*) ' Sea Age Tracer'
62         WRITE(numout,*) '  tracer nb : ', jp_age, '    short name : ', TRIM( ctrcnm(jp_age) )
63         WRITE(numout,*)
64         WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer'
65         WRITE(numout,*) ' ~~~~~~~'
66         WRITE(numout,*) '  depth over which age tracer reset to zero                              rn_age_depth      = ', rn_age_depth 
67         WRITE(numout,*) '  recip of relax. timescale (s) for age tracer shallower than age_depth  rn_age_kill_rate  = ', rn_age_kill_rate 
68         WRITE(numout,*) ''
69      ENDIF
70
71      IF(lwm) CALL FLUSH ( numonr )     ! flush output namelist
72
73   END SUBROUTINE trc_nam_age
74   
75   !!======================================================================
76END MODULE trcnam_age
Note: See TracBrowser for help on using the repository browser.