Changeset 10770 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
- Timestamp:
- 2019-03-15T17:03:41+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
r10759 r10770 421 421 IF( ln_rstart .AND. & !* Restart: read in restart file 422 422 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 423 IF(lwp ) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file'423 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 424 424 IF(nn_timing == 2) CALL timing_start('iom_rstget') 425 425 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) … … 448 448 IF( lrst_oce ) THEN ! Write in the ocean restart file ! 449 449 ! ! ---------------------------------------- ! 450 IF(lwp) WRITE(numout,*) 451 IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 450 IF(lwp .AND. nprint > 0) THEN 451 WRITE(numout,*) 452 WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ', & 452 453 & 'at it= ', kt,' date= ', ndastp 453 IF(lwp) WRITE(numout,*) '~~~~' 454 WRITE(numout,*) '~~~~' 455 ENDIF 454 456 IF(nn_timing == 2) CALL timing_start('iom_rstput') 455 457 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau )
Note: See TracChangeset
for help on using the changeset viewer.