Changeset 502 for LMDZ.3.3

Timestamp:

Mar 23, 2004, 5:53:12 PM (20 years ago)

Author:

lmdzadmin

Message:

IM: modification valeur manquante a 1.E+20 selon val. par defaut ferret

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/plevel.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/plevel.F

@@ -106 +106 @@
       do i = 1, klon
          if (pgcm(i,1).LT.pres) THEN
-            Qpres(i)=1e33
+c           Qpres(i)=1e33
+            Qpres(i)=1e+20
          endif
       enddo