Changeset 5796


Ignore:
Timestamp:
2015-10-15T12:44:50+02:00 (5 years ago)
Author:
dancopsey
Message:

Applied bug fix to sublimation of sea ice.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5663 r5796  
    377377 
    378378! Surface downward latent heat flux (CI_5) 
    379          IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN 
     379         IF (ksbc == jp_flx) THEN 
    380380            DO jl=1,ncat 
    381381               ztmpn(:,:,jl)=qla_ice(:,:,1)*a_i(:,:,jl) 
    382382            ENDDO 
    383          ELSE 
     383         ELSE IF (ksbc == jp_purecpl) THEN  
     384            DO jl=1,ncat  
     385               ztmpn(:,:,jl)=qla_ice(:,:,jl)*a_i(:,:,jl)  
     386            ENDDO  
     387         ELSE  
    384388           !In coupled mode - qla_ice calculated in sbc_cpl for each category 
    385389           ztmpn(:,:,1:ncat)=qla_ice(:,:,1:ncat) 
Note: See TracChangeset for help on using the changeset viewer.