Changeset 12155


Ignore:
Timestamp:
2019-12-10T15:56:14+01:00 (8 months ago)
Author:
laurent
Message:

LB: less verbose in the humidity sanity/consistence test…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcblk.F90

    r12154 r12155  
    401401      ! Sanity/consistence test on humidity at first time step to detect potential screw-up: 
    402402      IF( kt == nit000 ) THEN 
    403          WRITE(numout,*) '' 
     403         IF(lwp) WRITE(numout,*) '' 
    404404#if defined key_agrif 
    405          WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ===' 
     405         IF(lwp) WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ===' 
    406406#else 
    407407         ztmp = SUM(tmask(:,:,1)) ! number of ocean points on local proc domain 
     
    424424            END IF 
    425425         END IF 
    426          WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ===' 
     426         IF(lwp) WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ===' 
    427427#endif 
    428          WRITE(numout,*) '' 
     428         IF(lwp) WRITE(numout,*) '' 
    429429      END IF !IF( kt == nit000 ) 
    430430      !                                            ! compute the surface ocean fluxes using bulk formulea 
Note: See TracChangeset for help on using the changeset viewer.