Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
MODULE trcnam_age
!!======================================================================
!! *** MODULE trcnam_age ***
!! TOP : initialisation of some run parameters for Age tracer
!!======================================================================
!! History : 2.0 ! 2007-12 (C. Ethe, G. Madec)
!!----------------------------------------------------------------------
!! trc_nam_age : AGE tracer initialisation
!!----------------------------------------------------------------------
USE oce_trc ! Ocean variables
USE trc ! Ocean variables
USE trcsms_age ! AGE specific variable
IMPLICIT NONE
PRIVATE
PUBLIC trc_nam_age ! called by trcnam.F90 module
!!----------------------------------------------------------------------
!! NEMO/TOP 4.0 , NEMO Consortium (2018)
!! $Id: trcnam_age.F90 14842 2021-05-11 13:17:26Z acc $
!! Software governed by the CeCILL license (see ./LICENSE)
!!----------------------------------------------------------------------
CONTAINS
SUBROUTINE trc_nam_age
!!-------------------------------------------------------------------
!! *** ROUTINE trc_nam_age ***
!!
!! ** Purpose : Definition some run parameter for AGE model
!!
!! ** input : Namelist namage
!!----------------------------------------------------------------------
INTEGER :: ios ! Local integer
!!
NAMELIST/namage/ rn_age_depth, rn_age_kill_rate
!!----------------------------------------------------------------------
!
IF(lwp) THEN
WRITE(numout,*)
WRITE(numout,*) ' Sea Age Tracer'
WRITE(numout,*)
WRITE(numout,*) 'trc_nam_age : Read namage namelist for Age passive tracer'
WRITE(numout,*) '~~~~~~~~~~~'
ENDIF
! Variable setting
ctrcnm (jp_age) = 'Age'
ctrcln (jp_age) = 'Sea water age since surface contact'
ctrcun (jp_age) = 'year'
ln_trc_ini(jp_age) = .false.
ln_trc_sbc(jp_age) = .false.
ln_trc_cbc(jp_age) = .false.
ln_trc_obc(jp_age) = .false.
ln_trc_ais(jp_age) = .false.
!
READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901)
901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' )
READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 )
902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' )
IF(lwm) WRITE ( numont, namage )
!
IF(lwp) THEN ! control print
WRITE(numout,*) ' Namelist : namage'
WRITE(numout,*) ' depth over which age tracer reset to zero rn_age_depth = ', rn_age_depth
WRITE(numout,*) ' recip of relaxation timescale rn_age_kill_rate = ', rn_age_kill_rate, '[s]'
WRITE(numout,*) ' (for age tracer shallower than age_depth) '
ENDIF
!
END SUBROUTINE trc_nam_age
!!======================================================================
END MODULE trcnam_age