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

Timestamp:

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

Author:

lmdz

Message:

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

Location:

LMDZ.3.3/trunk/libf/phylmd

Files:

• calcratqs.F (modified) (3 diffs)
• physiq.F (modified) (2 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

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

@@ -520 +520 @@
 
       REAL ratqs(klon,klev)
+      integer flag_ratqs
       real zpt_conv(klon,klev)
 
@@ -1829 +1830 @@
 
 c   RATQS
-      call calcratqs (
+      if (iflag_con.eq.2) then
+          flag_ratqs=0
+      else
+          flag_ratqs=1
+      endif
+      call calcratqs (flag_ratqs ,
      I            paprs,pplay,q_seri,d_t_con,d_t_ajs
      O           ,ratqs,zpt_conv)