Changeset 5738

Timestamp:

2015-09-14T11:40:42+02:00 (8 years ago)

Author:

dancopsey

Message:

Applied bug fix to sublimation of sea ice.

File:

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

branches/UKMO/dev_r5518_CICE_coupling_GSI7_GSI8/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)