Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.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/TRA/tradmp.F90
r6486 r9366 43 43 PUBLIC tra_dmp ! routine called by step.F90 44 44 PUBLIC tra_dmp_init ! routine called by opa.F90 45 PRIVATE dmp_namelist 45 46 46 47 ! !!* Namelist namtra_dmp : T & S newtonian damping * … … 196 197 !!---------------------------------------------------------------------- 197 198 ! 198 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation 199 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 200 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 201 ! 202 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation 203 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 204 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 199 IF(lwm) THEN 200 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation 201 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 202 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwm ) 203 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation 204 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 205 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwm ) 206 ENDIF 207 205 208 IF(lwm) WRITE ( numond, namtra_dmp ) 209 210 call dmp_namelist() 206 211 207 212 IF(lwp) THEN !Namelist print … … 247 252 END SUBROUTINE tra_dmp_init 248 253 254 SUBROUTINE dmp_namelist() 255 !!--------------------------------------------------------------------- 256 !! *** ROUTINE dmp_namelist *** 257 !! 258 !! ** Purpose : Broadcast namelist variables read by procesor lwm 259 !! 260 !! ** Method : use lib_mpp 261 !!---------------------------------------------------------------------- 262 #if defined key_mpp_mpi 263 CALL mpp_bcast(ln_tradmp) 264 CALL mpp_bcast(nn_zdmp) 265 CALL mpp_bcast(cn_resto, 200) 266 #endif 267 END SUBROUTINE dmp_namelist 268 249 269 END MODULE tradmp
Note: See TracChangeset
for help on using the changeset viewer.