Changeset 12043


Ignore:
Timestamp:
2019-12-03T16:53:02+01:00 (8 months ago)
Author:
laurent
Message:

Control consistency of input freq. of "qsr", "ln_dm2dc" when "ln_skin_wl=T".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

    r12040 r12043  
    216216            & CALL ctl_stop( 'sbc_blk_init: Please set "nn_fsbc" to 1 when using cool-skin/warm-layer param.') 
    217217      END IF 
    218  
     218       
     219      IF( ln_skin_wl ) THEN 
     220         !! Check if the frequency of downwelling solar flux input makes sense and if ln_dm2dc=T if it is daily! 
     221         IF( (sn_qsr%freqh  < 0.).OR.(sn_qsr%freqh  > 24.) ) & 
     222            & CALL ctl_stop( 'sbc_blk_init: Warm-layer param. (ln_skin_wl) not compatible with freq. of solar flux > daily' ) 
     223         IF( (sn_qsr%freqh == 24.).AND.(.NOT. ln_dm2dc) ) & 
     224            & CALL ctl_stop( 'sbc_blk_init: Please set ln_dm2dc=T for warm-layer param. (ln_skin_wl) to work properly' ) 
     225      END IF 
     226       
    219227      ioptio = 0 
    220228      IF( ln_humi_sph ) THEN 
Note: See TracChangeset for help on using the changeset viewer.