Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r10770 r10774 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 … … 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 .AND. nprint > 0) 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) … … 453 461 & 'at it= ', kt,' date= ', ndastp 454 462 WRITE(numout,*) '~~~~' 463 IF(lflush) CALL flush(numout) 455 464 ENDIF 456 465 IF(nn_timing == 2) CALL timing_start('iom_rstput')
Note: See TracChangeset
for help on using the changeset viewer.