Changeset 13893 for NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/SBC/sbcblk.F90

Timestamp:

2020-11-26T19:03:34+01:00 (3 years ago)

Author:

laurent

Message:

Improvements and better README for tests/STATION_ASF

File:

• NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/SBC/sbcblk.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/SBC/sbcblk.F90

@@ -64 +64 @@
 
    USE sbc_phy        ! Catalog of functions for physical/meteorological parameters in the marine boundary layer
-
+   USE zdfdrg  , ONLY : ln_drgice_imp  ! to know if we should iom_put wind stress vector (utau,vtau) #laurent
 
    IMPLICIT NONE
@@ -857 +857 @@
 
          CALL iom_put( "taum_oce", taum*tmask(:,:,1) )   ! output wind stress module
-
+         IF ( .NOT. (ln_drgice_imp.OR.ln_isfcav) ) THEN
+            ! #Laurent: because otherwize utau and vtau are saved into dyn_atf() of dynatf.F90
+            CALL iom_put( "utau", utau(:,:) )
+            CALL iom_put( "vtau", vtau(:,:) )
+         END IF
+         
          IF(sn_cfctl%l_prtctl) THEN
             CALL prt_ctl( tab2d_1=pssq   , clinfo1=' blk_oce_1: pssq   : ')