New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10770 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2019-03-15T17:03:41+01:00 (5 years ago)
Author:
andmirek
Message:

GMED 450 changes for writing to numout

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r10759 r10770  
    421421         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    422422            & 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' 
    424424            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    425425            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b )   ! before i-stress  (U-point) 
     
    448448      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    449449         !                                             ! ---------------------------------------- ! 
    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 ',   & 
    452453            &                    'at it= ', kt,' date= ', ndastp 
    453          IF(lwp) WRITE(numout,*) '~~~~' 
     454            WRITE(numout,*) '~~~~' 
     455         ENDIF 
    454456         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    455457         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
Note: See TracChangeset for help on using the changeset viewer.