- Timestamp:
- 2015-07-20T11:11:11+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_CICE_coupling_GSI7/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r5234 r5612 147 147 148 148 149 ! Call the ice module for tracers 150 ! ------------------------------- 151 CALL trc_nam_ice 152 149 153 ! namelist of SMS 150 154 ! --------------- … … 175 179 !!--------------------------------------------------------------------- 176 180 NAMELIST/namtrc_run/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, ln_top_euler, & 177 & cn_trcrst_in, cn_trcrst_out 181 & cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 182 178 183 179 184 INTEGER :: ios ! Local integer output status for namelist read … … 215 220 END SUBROUTINE trc_nam_run 216 221 222 SUBROUTINE trc_nam_ice 223 !!--------------------------------------------------------------------- 224 !! *** ROUTINE trc_nam_ice *** 225 !! 226 !! ** Purpose : Read the namelist for the ice effect on tracers 227 !! 228 !! ** Method : - 229 !! 230 !!--------------------------------------------------------------------- 231 ! --- Variable declarations --- ! 232 INTEGER :: jn ! dummy loop indices 233 INTEGER :: ios ! Local integer output status for namelist read 234 235 ! --- Namelist declarations --- ! 236 TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 237 NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 238 239 IF(lwp) THEN 240 WRITE(numout,*) 241 WRITE(numout,*) 'trc_nam_ice : Read the namelist for trc_ice' 242 WRITE(numout,*) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 243 ENDIF 244 245 IF( nn_timing == 1 ) CALL timing_start('trc_nam_ice') 246 247 ! 248 REWIND( numnat_ref ) ! Namelist namtrc_ice in reference namelist : Passive tracer input data 249 READ ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 250 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ', lwp ) 251 252 REWIND( numnat_cfg ) ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients 253 READ ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 254 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist', lwp ) 255 256 IF( lwp ) THEN 257 WRITE(numout,*) ' ' 258 WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr 259 WRITE(numout,*) ' ' 260 ENDIF 261 262 ! Assign namelist stuff 263 DO jn = 1, jptra 264 trc_ice_ratio(jn) = sn_tri_tracer(jn)%trc_ratio 265 trc_ice_prescr(jn) = sn_tri_tracer(jn)%trc_prescr 266 cn_trc_o (jn) = sn_tri_tracer(jn)%ctrc_o 267 END DO 268 269 IF( nn_timing == 1 ) CALL timing_stop('trc_nam_ice') 270 ! 271 END SUBROUTINE trc_nam_ice 217 272 218 273 SUBROUTINE trc_nam_trc
Note: See TracChangeset
for help on using the changeset viewer.