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 NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/AGE – NEMO

source: NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/AGE/trcnam_age.F90 @ 11954

Last change on this file since 11954 was 11671, checked in by acc, 4 years ago

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Final, non-substantive changes to complete this branch. These changes remove all REWIND statements on the old namelist fortran units (now character variables for internal files). These changes have been left until last since they are easily repeated via a script and it may be preferable to use the previous revision for merge purposes and reapply these last changes separately. This branch has been fully SETTE tested.

  • Property svn:keywords set to Id
File size: 3.0 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 4.0 , NEMO Consortium (2018)
21   !! $Id$
22   !! Software governed by the CeCILL license (see ./LICENSE)
23   !!----------------------------------------------------------------------
24CONTAINS
25
26   SUBROUTINE trc_nam_age
27      !!-------------------------------------------------------------------
28      !!                  ***  ROUTINE trc_nam_age  ***
29      !!                 
30      !! ** Purpose :   Definition some run parameter for AGE model
31      !!
32      !! ** input   :   Namelist namage
33      !!----------------------------------------------------------------------
34      INTEGER ::   ios   ! Local integer
35      !!
36      NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 
37      !!----------------------------------------------------------------------
38      !
39      IF(lwp) THEN
40         WRITE(numout,*)
41         WRITE(numout,*) ' Sea Age Tracer'
42         WRITE(numout,*)
43         WRITE(numout,*) 'trc_nam_age : Read namage namelist for Age passive tracer'
44         WRITE(numout,*) '~~~~~~~~~~~'
45      ENDIF
46
47      ! Variable setting
48      ctrcnm    (jp_age) = 'Age'
49      ctrcln    (jp_age) = 'Sea water age since surface contact'
50      ctrcun    (jp_age) = 'year'
51      ln_trc_ini(jp_age) = .false.
52      ln_trc_sbc(jp_age) = .false.
53      ln_trc_cbc(jp_age) = .false.
54      ln_trc_obc(jp_age) = .false.
55      !
56      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901)
57901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namage in reference namelist' )
58      READ  ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 )
59902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namage in configuration namelist' )
60      IF(lwm) WRITE ( numont, namage )
61      !
62      IF(lwp) THEN                  ! control print
63         WRITE(numout,*) '   Namelist : namage'
64         WRITE(numout,*) '      depth over which age tracer reset to zero     rn_age_depth      = ', rn_age_depth 
65         WRITE(numout,*) '      recip of relaxation timescale                 rn_age_kill_rate  = ', rn_age_kill_rate, '[s]'
66         WRITE(numout,*) '      (for age tracer shallower than age_depth) '
67      ENDIF
68      !
69   END SUBROUTINE trc_nam_age
70   
71   !!======================================================================
72END MODULE trcnam_age
Note: See TracBrowser for help on using the repository browser.