Changeset 5738


Ignore:
Timestamp:
2015-09-14T11:40:42+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_CICE_coupling_GSI7_GSI8/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5663 r5738  
    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.