Changeset 2664 for LMDZ5/trunk/libf/phylmd

Timestamp:

Oct 12, 2016, 2:26:14 PM (8 years ago)

Author:

fhourdin

Message:

Gros bug petite modif "min" -> "max"

File:

• LMDZ5/trunk/libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -624 +624 @@
                     zdelta = MAX(0.,SIGN(1.,t_glace_min_old-Tbef(i)))
                     else if (iflag_t_glace.ge.1) then
-                    zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
+                    zdelta = MAX(0.,SIGN(1.,t_glace_max-Tbef(i)))
+! BUG corrige par JYG   zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
                     endif
                  endif