Changeset 14806 for NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/ICE/icethd_dh.F90

Timestamp:

2021-05-07T13:44:43+02:00 (3 years ago)

Author:

hadcv

Message:

#2600: Merge in trunk changes to r14778

File:

• NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/ICE/icethd_dh.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14273_HPC-02_Daley_Tiling/src/ICE/icethd_dh.F90

@@ -224 +224 @@
       zevap_rema(1:npti) = 0._wp
       DO ji = 1, npti
-         IF( evap_ice_1d(ji) > 0._wp ) THEN
-            zdeltah   (ji) = MAX( - evap_ice_1d(ji) * r1_rhos * rDt_ice, - h_s_1d(ji) )   ! amount of snw that sublimates, < 0
-            zevap_rema(ji) = MAX( 0._wp, evap_ice_1d(ji) * rDt_ice + zdeltah(ji) * rhos ) ! remaining evap in kg.m-2 (used for ice sublimation later on)
-         ENDIF
+         zdeltah   (ji) = MAX( - evap_ice_1d(ji) * r1_rhos * rDt_ice, - h_s_1d(ji) )   ! amount of snw that sublimates, < 0
+         zevap_rema(ji) = evap_ice_1d(ji) * rDt_ice + zdeltah(ji) * rhos               ! remaining evap in kg.m-2 (used for ice sublimation later on)
       END DO