Changeset 5884


Ignore:
Timestamp:
2015-11-13T10:51:56+01:00 (5 years ago)
Author:
jcastill
Message:

Fix coupling without atmosphere and without diurnal cycle of solar forcing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_rm_um_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r5856 r5884  
    784784      IF( ln_dm2dc .AND. ln_cpl .AND. ncpl_qsr_freq /= 86400 )   & 
    785785         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    786       ncpl_qsr_freq = 86400 / ncpl_qsr_freq 
     786      IF( ln_dm2dc .AND. ln_cpl ) THEN 
     787          ncpl_qsr_freq = 86400 / ncpl_qsr_freq 
     788      ENDIF 
    787789 
    788790      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
Note: See TracChangeset for help on using the changeset viewer.