Changeset 14735 for NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/OCE

Timestamp:

2021-04-20T18:41:39+02:00 (3 years ago)

Author:

dancopsey

Message:

Allow deposition alongside sublimation

File:

• NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/OCE/SBC/sbccpl.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_penetrating_solar/src/OCE/SBC/sbccpl.F90

@@ -1964 +1964 @@
          zqevap_ice(:,:,jl) = -zevap_ice(:,:,jl) * ( ( rt0 - t1_ice(:,:,jl) ) * rcpi + rLfus )
 
-         ! This enthalpy change should always be negative as only positive sublimation is used (energy loss from the ice).
-         WHERE( zqevap_ice(:,:,jl) > 0._wp ) zqevap_ice(:,:,jl) = 0._wp
       END DO