Changeset 9383 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
- Timestamp:
- 2018-03-08T10:22:55+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/trabbl.F90
r9366 r9383 512 512 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 513 513 READ ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 514 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwm ) 514 901 CONTINUE 515 ENDIF 516 call mpp_bcast(ios) 517 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwp ) 518 IF(lwm) THEN 515 519 REWIND( numnam_cfg ) ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 516 520 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 517 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwm ) 518 ENDIF 521 902 CONTINUE 522 ENDIF 523 call mpp_bcast(ios) 524 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 519 525 520 526 IF(lwm) WRITE ( numond, nambbl )
Note: See TracChangeset
for help on using the changeset viewer.