Changeset 2969 for LMDZ5/trunk/libf/phylmd/fisrtilp.F90

Timestamp:

Jul 25, 2017, 7:22:52 PM (7 years ago)

Author:

fhourdin

Message:

Petit bug dans iflag_t_glace>=1 vu uniquement en debug en 1D quand
exposant < 1. C'est bien de l'avoir quand même dans les sources
au cas où.

File:

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

LMDZ5/trunk/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)