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

Timestamp:

2019-12-06T17:13:18+01:00 (4 years ago)

Author:

laurent

Message:

Tiny fix for AGRIF to compile...

File:

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

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

@@ -375 +375 @@
       IF( kt == nit000 ) THEN
          WRITE(numout,*) ''
+#if defined key_agrif
+         WRITE(numout,*) ' === AGRIF => Sanity/consistence test on air humidity SKIPPED! :( ==='
+#else
          ztmp = SUM(tmask(:,:,1)) ! number of ocean points on local proc domain
          IF( ztmp > 8._wp ) THEN ! test only on proc domains with at least 8 ocean points!
@@ -395 +398 @@
          END IF
          WRITE(numout,*) ' === Sanity/consistence test on air humidity sucessfuly passed! ==='
+#endif
          WRITE(numout,*) ''
       END IF !IF( kt == nit000 )
-
       !                                            ! compute the surface ocean fluxes using bulk formulea
       IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m )