Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/AGE
- Timestamp:
- 2017-12-26T17:32:56+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/AGE/trcnam_age.F90
r9119 r9169 6 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) 7 7 !!---------------------------------------------------------------------- 8 !! trc_nam_age : AGE 8 !! trc_nam_age : AGE tracer initialisation 9 9 !!---------------------------------------------------------------------- 10 10 USE oce_trc ! Ocean variables … … 22 22 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 23 23 !!---------------------------------------------------------------------- 24 25 24 CONTAINS 26 25 … … 33 32 !! ** input : Namelist namage 34 33 !!---------------------------------------------------------------------- 35 INTEGER :: ios ! Local integer output status for namelist read34 INTEGER :: ios ! Local integer 36 35 !! 37 36 NAMELIST/namage/ rn_age_depth, rn_age_kill_rate 38 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 39 47 ! Variable setting 40 48 ctrcnm (jp_age) = 'Age' … … 48 56 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters 49 57 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 50 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 51 58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist', lwp ) 52 59 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters 53 60 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 54 902 IF( ios /= 0 )CALL ctl_nam ( ios , 'namage in configuration namelist', lwp )61 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist', lwp ) 55 62 IF(lwm) WRITE ( numont, namage ) 56 63 ! 57 64 IF(lwp) THEN ! control print 58 WRITE(numout,*) ' ' 59 WRITE(numout,*) ' Sea Age Tracer' 60 WRITE(numout,*) 61 WRITE(numout,*) ' trc_nam_age: Read namage, namelist for Age passive tracer' 62 WRITE(numout,*) ' ~~~~~~~' 63 WRITE(numout,*) ' depth over which age tracer reset to zero rn_age_depth = ', & 64 & rn_age_depth 65 WRITE(numout,*) ' recip of relax. timescale (s) for age tracer shallower than age_depth rn_age_kill_rate = ', & 66 & rn_age_kill_rate 67 WRITE(numout,*) '' 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) ' 68 69 ENDIF 69 70 70 ! 71 71 END SUBROUTINE trc_nam_age
Note: See TracChangeset
for help on using the changeset viewer.