Changeset 12162 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

Timestamp:

2019-12-10T17:11:51+01:00 (4 years ago)

Author:

laurent

Message:

Catching up with "dev_r12072_MERGE_OPTION2_2019"

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

@@ -202 +202 @@
       ENDIF
       IF( ioptio /= 1 )   CALL ctl_stop( 'sbc_blk_init: Choose one and only one bulk algorithm' )
-
-
-
 
       !                             !** initialization of the cool-skin / warm-layer parametrization
@@ -374 +371 @@
       ! Sanity/consistence test on humidity at first time step to detect potential screw-up:
       IF( kt == nit000 ) THEN
-         WRITE(numout,*) ''
+         IF(lwp) WRITE(numout,*) ''
 #if defined key_agrif
-         WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ==='
+         IF(lwp) WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ==='
 #else
          ztmp = SUM(tmask(:,:,1)) ! number of ocean points on local proc domain
@@ -397 +394 @@
             END IF
          END IF
-         WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ==='
+         IF(lwp) WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ==='
 #endif
-         WRITE(numout,*) ''
+         IF(lwp) WRITE(numout,*) ''
       END IF !IF( kt == nit000 )
       !                                            ! compute the surface ocean fluxes using bulk formulea