Changeset 12552

Timestamp:

2020-03-13T15:51:19+01:00 (5 years ago)

Author:

mathiot

Message:

ticket #2396: add discussed fix

Location:

NEMO/branches/2020/ticket2396/src

Files:

• OCE/SBC/sbccpl.F90 (modified) (1 diff)
• TOP/trcstp.F90 (modified) (1 diff)

NEMO/branches/2020/ticket2396/src/OCE/SBC/sbccpl.F90

@@ -1115 +1115 @@
          IF( ln_dm2dc .AND. ncpl_qsr_freq /= 86400 )   &
             &   CALL ctl_stop( 'sbc_cpl_rcv: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' )
-         ncpl_qsr_freq = 86400 / ncpl_qsr_freq   ! used by top
+
+         IF( ncpl_qsr_freq /= 0) ncpl_qsr_freq = 86400 / ncpl_qsr_freq ! used by top
+         
       ENDIF
       !

NEMO/branches/2020/ticket2396/src/TOP/trcstp.F90

@@ -142 +142 @@
       !
       ! Define logical parameter ton control dirunal cycle in TOP
-      l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 )
-      l_trcdm2dc = l_trcdm2dc  .AND. .NOT. l_offline
+      l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 .AND. ncpl_qsr_freq /= 0 )
+      l_trcdm2dc = l_trcdm2dc .AND. .NOT. l_offline
+      !
       IF( l_trcdm2dc .AND. lwp )   CALL ctl_warn( 'Coupling with passive tracers and used of diurnal cycle.',   &
          &                           'Computation of a daily mean shortwave for some biogeochemical models ' )