Changeset 5884 for branches

Timestamp:

2015-11-13T10:51:56+01:00 (8 years ago)

Author:

jcastill

Message:

Fix coupling without atmosphere and without diurnal cycle of solar forcing

File:

• branches/UKMO/dev_r5518_rm_um_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_rm_um_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -784 +784 @@
       IF( ln_dm2dc .AND. ln_cpl .AND. ncpl_qsr_freq /= 86400 )   &
          &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' )
-      ncpl_qsr_freq = 86400 / ncpl_qsr_freq
+      IF( ln_dm2dc .AND. ln_cpl ) THEN
+          ncpl_qsr_freq = 86400 / ncpl_qsr_freq
+      ENDIF
 
       CALL wrk_dealloc( jpi,jpj, zacs, zaos )