New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15492 for NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2021-11-10T15:16:03+01:00 (8 months ago)
Author:
jcastill
Message:

Fix to coupled runs: solar radiation coupling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r14075_ukmo_shelf/src/OCE/SBC/sbccpl.F90

    r15455 r15492  
    11441144      !   cannot be done in the init phase when we use agrif as cpl_freq requires that oasis_enddef is done 
    11451145         ncpl_qsr_freq = cpl_freq( 'O_QsrOce' ) + cpl_freq( 'O_QsrMix' ) + cpl_freq( 'I_QsrOce' ) + cpl_freq( 'I_QsrMix' ) 
    1146          IF( ln_dm2dc .AND. ncpl_qsr_freq /= 86400 )   & 
     1146         IF( ln_dm2dc .AND. ln_cpl .AND. ncpl_qsr_freq /= 86400 )   & 
    11471147            &   CALL ctl_stop( 'sbc_cpl_rcv: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    1148          ncpl_qsr_freq = 86400 / ncpl_qsr_freq   ! used by top 
     1148         IF( ln_dm2dc .AND. ln_cpl ) ncpl_qsr_freq = 86400 / ncpl_qsr_freq   ! used by top 
    11491149      ENDIF 
    11501150      ! 
Note: See TracChangeset for help on using the changeset viewer.