Changeset 15613 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcflx.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/sbcflx.F90 (modified) (2 diffs)

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

@@ -15 +15 @@
    USE dom_oce         ! ocean space and time domain
    USE sbc_oce         ! surface boundary condition: ocean fields
+   USE trc_oce         ! share SMS/Ocean variables
    USE sbcdcy          ! surface boundary condition: diurnal cycle on qsr
    USE phycst          ! physical constants
@@ -132 +133 @@
          ELSE                  ;   qsr(:,:) =          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(:,:) = 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         
          DO jj = 1, jpj                                           ! set the ocean fluxes from read fields
             DO ji = 1, jpi