Changeset 15613 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90

Timestamp:

2021-12-22T10:35:54+01:00 (2 years ago)

Author:

cetlod

Message:

r4.0-HEAD : bugfix to better manage the diurnal cycle in TOP, see ticket #2739

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90

@@ -40 +40 @@
    USE fldread        ! read input fields
    USE sbc_oce        ! Surface boundary condition: ocean fields
+   USE trc_oce         ! share SMS/Ocean variables
    USE cyclone        ! Cyclone 10m wind form trac of cyclone centres
    USE sbcdcy         ! surface boundary condition: diurnal cycle
@@ -441 +442 @@
       ELSE                  ;   qsr(:,:) = zztmp *          sf(jp_qsr)%fnow(:,:,1)   * tmask(:,:,1)
       ENDIF
+
+#if defined key_top
+      IF( ln_trcdc2dm )  THEN      !  diurnal cycle in TOP
+         IF( ln_dm2dc )  THEN  ;  qsr_mean(:,:) = zztmp * sf(jp_qsr)%fnow(:,:,1)  * tmask(:,:,1)
+         ELSE                  ;  ncpl_qsr_freq = sf(jp_qsr)%freqh * 3600 !   qsr_mean will be computed in TOP
+         ENDIF
+      ENDIF
+#endif
 
       zqlw(:,:) = (  sf(jp_qlw)%fnow(:,:,1) - Stef * zst(:,:)*zst(:,:)*zst(:,:)*zst(:,:)  ) * tmask(:,:,1)   ! Long  Wave