Changeset 15492

Timestamp:

2021-11-10T15:16:03+01:00 (2 years ago)

Author:

jcastill

Message:

Fix to coupled runs: solar radiation coupling

File:

• NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/SBC/sbccpl.F90

@@ -1144 +1144 @@
       !   cannot be done in the init phase when we use agrif as cpl_freq requires that oasis_enddef is done
          ncpl_qsr_freq = cpl_freq( 'O_QsrOce' ) + cpl_freq( 'O_QsrMix' ) + cpl_freq( 'I_QsrOce' ) + cpl_freq( 'I_QsrMix' )
-         IF( ln_dm2dc .AND. ncpl_qsr_freq /= 86400 )   &
+         IF( ln_dm2dc .AND. ln_cpl .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( ln_dm2dc .AND. ln_cpl ) ncpl_qsr_freq = 86400 / ncpl_qsr_freq   ! used by top
       ENDIF
       !