Changeset 5796

Timestamp:

2015-10-15T12:44:50+02:00 (9 years ago)

Author:

dancopsey

Message:

Applied bug fix to sublimation of sea ice.

File:

• branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -377 +377 @@
 
 ! Surface downward latent heat flux (CI_5)
-         IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN
+         IF (ksbc == jp_flx) THEN
             DO jl=1,ncat
                ztmpn(:,:,jl)=qla_ice(:,:,1)*a_i(:,:,jl)
             ENDDO
-         ELSE
+         ELSE IF (ksbc == jp_purecpl) THEN 
+            DO jl=1,ncat 
+               ztmpn(:,:,jl)=qla_ice(:,:,jl)*a_i(:,:,jl) 
+            ENDDO 
+         ELSE 
            !In coupled mode - qla_ice calculated in sbc_cpl for each category
            ztmpn(:,:,1:ncat)=qla_ice(:,:,1:ncat)