Changeset 303 for LMDZ.3.3/trunk/libf/phylmd/calcratqs.F

Timestamp:

Dec 18, 2001, 5:45:46 PM (22 years ago)

Author:

lmdz

Message:

Probleme de flag_ratqs en cas d'utilisation de KE FH
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/calcratqs.F (modified) (3 diffs)

LMDZ.3.3/trunk/libf/phylmd/calcratqs.F

@@ -1 +1 @@
 c $Header$
-      SUBROUTINE calcratqs (
+      SUBROUTINE calcratqs (flag_ratqs,
      I            paprs,pplay,q_seri,d_t_con,d_t_ajs
      O           ,ratqs,zpt_conv)
@@ -41 +41 @@
       INTEGER i,k
       INTEGER flag_ratqs
-      save ratqsmin,ratqsmax,flag_ratqs,epmax
+      save ratqsmin,ratqsmax,epmax
       save ratqs1,ratqs2,ratqs3,ratqs4
       save ratqsc1,ratqsc2,ratqsc3,ratqsc4
@@ -51 +51 @@
       PARAMETER (zx_max=0.1)
 
-      flag_ratqs=1
-      flag_ratqs=0
 c
 c Appeler le processus de condensation a grande echelle