- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
-
. (modified) (1 prop)
-
src/TOP/trcnam.F90 (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/trcnam.F90
r10425 r13463 23 23 USE trdtrc_oce ! 24 24 USE iom ! I/O manager 25 #if defined key_mpp_mpi26 USE lib_mpp, ONLY: ncom_dttrc27 #endif28 25 29 26 IMPLICIT NONE … … 79 76 ENDIF 80 77 ! 81 rdttrc = rdt * FLOAT( nn_dttrc ) ! passive tracer time-step82 !83 78 IF(lwp) THEN ! control print 84 79 WRITE(numout,*) 85 WRITE(numout,*) ' ==>>> Passive Tracer time step rdttrc = nn_dttrc*rdt = ', rdttrc80 WRITE(numout,*) ' ==>>> Passive Tracer time step = rn_Dt = ', rn_Dt 86 81 ENDIF 87 82 ! … … 100 95 INTEGER :: ios ! Local integer 101 96 !! 102 NAMELIST/namtrc_run/ nn_dttrc,ln_rsttr, nn_rsttr, ln_top_euler, &97 NAMELIST/namtrc_run/ ln_rsttr, nn_rsttr, ln_top_euler, & 103 98 & cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 104 99 !!--------------------------------------------------------------------- … … 108 103 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 109 104 ! 110 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)111 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)105 CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, lwm ) 106 CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, lwm ) 112 107 IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 113 108 ! 114 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables115 109 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist', lwp ) 117 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 110 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 118 111 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)112 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 120 113 IF(lwm) WRITE( numont, namtrc_run ) 121 114 122 nittrc000 = nit000 + nn_dttrc - 1! first time step of tracer model115 nittrc000 = nit000 ! first time step of tracer model 123 116 124 117 IF(lwp) THEN ! control print 125 118 WRITE(numout,*) ' Namelist : namtrc_run' 126 WRITE(numout,*) ' time step freq. for passive tracer nn_dttrc = ', nn_dttrc127 119 WRITE(numout,*) ' restart for passive tracer ln_rsttr = ', ln_rsttr 128 120 WRITE(numout,*) ' control of time step for passive tracer nn_rsttr = ', nn_rsttr … … 131 123 ENDIF 132 124 ! 133 #if defined key_mpp_mpi134 ncom_dttrc = nn_dttrc ! make nn_fsbc available for lib_mpp135 #endif136 !137 125 END SUBROUTINE trc_nam_run 138 126 … … 148 136 !! 149 137 NAMELIST/namtrc/jp_bgc, ln_pisces, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 150 & sn_tracer, ln_trcdta, ln_trc dmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d138 & sn_tracer, ln_trcdta, ln_trcbc, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 151 139 !!--------------------------------------------------------------------- 152 140 ! Dummy settings to fill tracers data structure … … 158 146 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 159 147 160 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables161 148 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist', lwp ) 163 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 149 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 164 150 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)151 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 166 152 IF(lwm) WRITE( numont, namtrc ) 167 153 … … 222 208 WRITE(numout,*) ' Simulating C14 passive tracer ln_c14 = ', ln_c14 223 209 WRITE(numout,*) ' Read inputs data from file (y/n) ln_trcdta = ', ln_trcdta 210 WRITE(numout,*) ' Enable surface, lateral or open boundaries conditions (y/n) ln_trcbc = ', ln_trcbc 224 211 WRITE(numout,*) ' Damping of passive tracer (y/n) ln_trcdmp = ', ln_trcdmp 225 212 WRITE(numout,*) ' Restoring of tracer on closed seas ln_trcdmp_clo = ', ln_trcdmp_clo … … 228 215 IF( ll_cfc .OR. ln_c14 ) THEN 229 216 ! ! Open namelist files 230 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)231 CALL ctl_opn( numtrc_cfg, 'namelist_trc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)217 CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, lwm ) 218 CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, lwm ) 232 219 IF(lwm) CALL ctl_opn( numonr, 'output.namelist.trc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 233 220 ! … … 261 248 ALLOCATE( ln_trdtrc(jptra) ) 262 249 ! 263 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends264 250 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 265 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist', lwp ) 266 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends 251 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 267 252 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 268 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' , lwp)253 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' ) 269 254 IF(lwm) WRITE( numont, namtrc_trd ) 270 255
Note: See TracChangeset
for help on using the changeset viewer.
