Changeset 5221 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

Timestamp:

Sep 23, 2024, 4:12:29 PM (4 weeks ago)

Author:

abarral

Message:

Merge r5196, r5199
Nb: skipping r5197 r5198 as they revert one-another

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_landice_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

@@ -457 +457 @@
         DO j = 1, knon
           i=knindex(j)
-          print*, "tempsmoothlic", tempsmoothlic(i)
+
           tempsmoothlic(i) = temp_air(j) * coef_tempsmooth + tempsmoothlic(i) * (1. - coef_tempsmooth)
           IF (tempsmoothlic(i) < ta1) THEN