Changeset 2970 for LMDZ5/branches/IPSLCM6.0.12/libf

Timestamp:

Jul 26, 2017, 11:06:49 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Integrating bug correction r2969 from trunk into 6.0.12 branch

File:

• LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/fisrtilp.F90 (modified) (1 diff, 1 prop)

LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/fisrtilp.F90

@@ -909 +909 @@
                  endif
                  
-                 if (iflag_t_glace.ge.1) then
+                 if (iflag_t_glace.ge.1.and.zfice(i)>0.) then
                  dzfice(i)= exposant_glace * zfice(i)**(exposant_glace-1) &
           &                    / (t_glace_min - t_glace_max)