Changeset 15613 for NEMO/releases/r4.0/r4.0-HEAD/src/OFF/dtadyn.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/OFF/dtadyn.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OFF/dtadyn.F90

@@ -410 +410 @@
       IF(lwp) WRITE(numout,*) ' max depht of runoff : ', hrnf_max,'    max level  : ', nkrnf_max
       IF(lwp) WRITE(numout,*) ' '
+      !
+      ncpl_qsr_freq = sf_dyn(jf_qsr)%freqh  * 3600   !  Get qsr frequency ( needed if diurnal cycle in TOP )
       !
       CALL dta_dyn( nit000 )