source: NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/AGE/trcnam_age.F90 @ 11317

Last change on this file since 11317 was 11317, checked in by smasson, 14 months ago

dev_r10984_HPC-13 : improve error handling, see #2307 and #2285

  • Property svn:keywords set to Id
File size: 3.2 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      REWIND( numnat_ref )              ! Namelist namagedate in reference namelist : AGE parameters
57      READ  ( numnat_ref, namage, IOSTAT = ios, ERR = 901)
58901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namage in reference namelist' )
59      REWIND( numnat_cfg )              ! Namelist namagedate in configuration namelist : AGE parameters
60      READ  ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 )
61902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namage in configuration namelist' )
62      IF(lwm) WRITE ( numont, namage )
63      !
64      IF(lwp) THEN                  ! control print
65         WRITE(numout,*) '   Namelist : namage'
66         WRITE(numout,*) '      depth over which age tracer reset to zero     rn_age_depth      = ', rn_age_depth 
67         WRITE(numout,*) '      recip of relaxation timescale                 rn_age_kill_rate  = ', rn_age_kill_rate, '[s]'
68         WRITE(numout,*) '      (for age tracer shallower than age_depth) '
69      ENDIF
70      !
71   END SUBROUTINE trc_nam_age
72   
73   !!======================================================================
74END MODULE trcnam_age
Note: See TracBrowser for help on using the repository browser.