Changeset 6639 for branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcnam_idtra.F90
- Timestamp:
- 2016-05-27T14:58:40+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcnam_idtra.F90
r5726 r6639 15 15 USE par_trc ! TOP parameters 16 16 USE trc ! TOP variables 17 USE trcsms_idtra 18 USE i n_out_manager! I/O manager17 USE trcsms_idtra ! IDEAL-TRACER specific variable 18 USE iom ! I/O manager 19 19 20 20 IMPLICIT NONE … … 42 42 !! ** input : Namelist namidtra 43 43 !!---------------------------------------------------------------------- 44 REAL(wp) :: tmp_decay !! Years ; half time decay of our idealize tracer 45 REAL(wp) :: TDECyr, TDEC 46 CHARACTER(LEN=32) :: clname 47 !! 44 INTEGER :: numnatm_ref = -1 ! Logical unit for reference ID-TRA namelist 45 INTEGER :: numnatm_cfg = -1 ! Logical unit for configuration ID-TRA namelist 46 INTEGER :: numonc = -1 ! Logical unit for output namelist 47 INTEGER :: ios ! Local integer output status for namelist read 48 REAL(wp) :: tmp_decay !! Years ; half time decay of our idealize tracer 49 REAL(wp) :: TDECyr, TDEC 50 !! ---------------------------------------------------------------- 48 51 NAMELIST/namidtra/tmp_decay 49 !! #if defined key_trc_diaadd 50 !! ! definition of additional diagnostic as a structure 51 !! INTEGER :: jl, jn 52 !! 53 !! #endif 54 !! 55 56 !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 57 !! Jpalm -- 4-11-2014 58 !! namelist for idealize tracer 59 !! only thing in namelist is the chosen half time decay 60 !! no atmospheric conditions, cause we do impose a surface concentration of 1, 61 !! and no additionnal diagnostics, 62 !! because the only thing we are interested in is the water mass concentration on this tracer. 63 !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 64 65 52 !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 53 !! Jpalm -- 4-11-2014 54 !! namelist for idealize tracer 55 !! only thing in namelist is the chosen half time decay 56 !! no atmospheric conditions, cause we do impose a surface concentration of 1, 57 !! and no additionnal diagnostics, 58 !! because the only thing we are interested in is the water mass concentration on this tracer. 59 !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 66 60 IF(lwp) WRITE(numout,*) 67 clname = 'namelist_idtra'68 61 IF(lwp) WRITE(numout,*) ' trc_nam_idtra: read IDEAL-TRACER namelist' 69 62 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' … … 71 64 !! Open the namelist file : 72 65 !!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 73 CALL ctl_opn( numnatm, TRIM( clname ), 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 74 66 CALL ctl_opn( numnatm_ref, 'namelist_idtra_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 67 CALL ctl_opn( numnatm_cfg, 'namelist_idtra_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 68 IF(lwm) CALL ctl_opn( numonc, 'output.namelist.idtra', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 75 69 !! Read the namelists : 76 70 !!~~~~~~~~~~~~~~~~~~~~~~~ … … 79 73 !! tmp_decay = 1y ; 10y ; 100y or 1000y depending of which water mass you want to track 80 74 !!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 81 READ(numnatm,namidtra) 75 76 REWIND( numnatm_ref ) ! Namelist namidtra in reference namelist : IDTRA parameters 77 READ ( numnatm_ref, namidtra, IOSTAT = ios, ERR = 901) 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namidtra in reference namelist', lwp ) 79 80 REWIND( numnatm_cfg ) ! Namelist namidtra in configuration namelist : IDTRA parameters 81 READ ( numnatm_cfg, namidtra, IOSTAT = ios, ERR = 902 ) 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namidtra in configuration namelist', lwp ) 83 IF(lwm) WRITE ( numonc, namidtra ) 82 84 83 85 IF(lwp) WRITE(numout,*) ' - half time decay of our idealize tracer : ', tmp_decay
Note: See TracChangeset
for help on using the changeset viewer.