Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
- Timestamp:
- 2018-02-28T16:29:13+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r6486 r9366 38 38 PUBLIC zdf_ric ! called by step.F90 39 39 PUBLIC zdf_ric_init ! called by opa.F90 40 PRIVATE ric_namelist 40 41 41 42 LOGICAL, PUBLIC, PARAMETER :: lk_zdfric = .TRUE. !: Richardson vertical mixing flag … … 253 254 !!---------------------------------------------------------------------- 254 255 ! 255 REWIND( numnam_ref ) ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 256 READ ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 257 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 258 259 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 260 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 261 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 256 IF(lwm) THEN 257 REWIND( numnam_ref ) ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 258 READ ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 259 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwm ) 260 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 261 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 262 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwm ) 263 ENDIF 264 262 265 IF(lwm) WRITE ( numond, namzdf_ric ) 263 266 ! 267 CALL ric_namelist() 268 264 269 IF(lwp) THEN ! Control print 265 270 WRITE(numout,*) … … 300 305 END SUBROUTINE zdf_ric_init 301 306 307 SUBROUTINE ric_namelist() 308 !!--------------------------------------------------------------------- 309 !! *** ROUTINE ric_namelist *** 310 !! 311 !! ** Purpose : Broadcast namelist variables read by procesor lwm 312 !! 313 !! ** Method : use lib_mpp 314 !!---------------------------------------------------------------------- 315 #if defined key_mpp_mpi 316 CALL mpp_bcast(rn_avmri) 317 CALL mpp_bcast(rn_alp) 318 CALL mpp_bcast(nn_ric) 319 CALL mpp_bcast(rn_ekmfc) 320 CALL mpp_bcast(rn_mldmin) 321 CALL mpp_bcast(rn_mldmax) 322 CALL mpp_bcast(rn_wtmix) 323 CALL mpp_bcast(rn_wvmix) 324 CALL mpp_bcast(ln_mldw) 325 #endif 326 END SUBROUTINE ric_namelist 302 327 #else 303 328 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.