Changeset 10738

Timestamp:

2019-03-06T16:14:12+01:00 (6 years ago)

Author:

dancopsey

Message:

Multiply snow and sublimation by ice fractions.

File:

• branches/UKMO/dev_r5518_GO6_fix_zemp_ice_8615/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_fix_zemp_ice_8615/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1758 +1758 @@
          IF ( TRIM(sn_rcv_emp%clcat) == 'yes' ) THEN
             ! zemp_ice is the sum of frcv(jpr_ievp)%z3(:,:,1) over all layers - snow
-            zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1)
+            zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) * zicefr(:,:)
             DO jl=1,jpl
-               zemp_ice(:,:   ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl)
+               zemp_ice(:,:   ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) * a_i(:,:,jl)
             ENDDO
             ! latent heat coupled for each category in CICE