Changeset 7142


Ignore:
Timestamp:
2016-10-27T16:10:01+02:00 (4 years ago)
Author:
jcastill
Message:

Changes as in branch UKMO/dev_r5518_rm_um_cpl@5884

File:
1 edited

Legend:

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

    r7141 r7142  
    307307      !  
    308308      ! Vectors: change of sign at north fold ONLY if on the local grid 
     309      IF( TRIM( sn_rcv_tau%cldes ) == 'oce only' .OR. TRIM( sn_rcv_tau%cldes ) == 'oce and ice') THEN 
    309310      IF( TRIM( sn_rcv_tau%clvor ) == 'local grid' )   srcv(jpr_otx1:jpr_itz2)%nsgn = -1. 
    310311       
     
    374375         srcv(jpr_ity1)%clgrid = 'V'                  ! i.e. it is always at U- & V-points for i- & j-comp. resp. 
    375376      ENDIF 
     377      ENDIF 
    376378        
    377379      !                                                      ! ------------------------- ! 
     
    783785      IF( ln_dm2dc .AND. ln_cpl .AND. ncpl_qsr_freq /= 86400 )   & 
    784786         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    785       ncpl_qsr_freq = 86400 / ncpl_qsr_freq 
     787      IF( ln_dm2dc .AND. ln_cpl ) ncpl_qsr_freq = 86400 / ncpl_qsr_freq  
    786788 
    787789      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
Note: See TracChangeset for help on using the changeset viewer.