- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r9321 r11101 99 99 WRITE(numout,*) 'sbc_init : surface boundary condition setting' 100 100 WRITE(numout,*) '~~~~~~~~ ' 101 IF(lflush) CALL flush(numout) 101 102 ENDIF 102 103 … … 108 109 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 109 110 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 110 IF(lwm ) WRITE ( numond, namsbc )111 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc ) 111 112 112 113 ! ! overwrite namelist parameter using CPP key information … … 160 161 END SELECT 161 162 ! 163 IF(lwp .AND. lflush) CALL flush(numout) 164 ! 162 165 IF ( nn_components /= jp_iam_nemo .AND. .NOT. lk_oasis ) & 163 166 & CALL ctl_stop( 'STOP', 'sbc_init : OPA-SAS coupled via OASIS, but key_oasis3 disabled' ) … … 264 267 IF( nn_components/= jp_iam_nemo ) & 265 268 & WRITE(numout,*) ' + OASIS coupled SAS' 269 IF(lflush) CALL flush(numout) 266 270 ENDIF 267 271 ! … … 283 287 WRITE(numout,*)" OPA-SAS coupled via OASIS : nn_fsbc re-defined from OASIS namcouple ", nn_fsbc 284 288 WRITE(numout,*) 289 IF(lflush) CALL flush(numout) 285 290 ENDIF 286 291 ENDIF … … 421 426 IF( ln_rstart .AND. & !* Restart: read in restart file 422 427 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 423 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 428 IF(lwp .AND. nprint > 0) THEN 429 WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 430 IF(lflush) CALL flush(numout) 431 ENDIF 424 432 IF(nn_timing == 2) CALL timing_start('iom_rstget') 425 433 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) … … 448 456 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 449 457 ! ! ---------------------------------------- ! 450 IF(lwp) WRITE(numout,*) 451 IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 458 IF(lwp .AND. nprint > 0) THEN 459 WRITE(numout,*) 460 WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 452 461 & 'at it= ', kt,' date= ', ndastp 453 IF(lwp) WRITE(numout,*) '~~~~' 462 WRITE(numout,*) '~~~~' 463 IF(lflush) CALL flush(numout) 464 ENDIF 454 465 IF(nn_timing == 2) CALL timing_start('iom_rstput') 455 466 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau )
Note: See TracChangeset
for help on using the changeset viewer.