Changeset 2669 for LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

Timestamp:

Oct 14, 2016, 2:57:28 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2640:2664 into testing branch

Location:

LMDZ5/branches/testing

Files:

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

LMDZ5/branches/testing/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