Changeset 303 for LMDZ.3.3/trunk/libf


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/calcratqs.F

    r207 r303  
    11c $Header$
    2       SUBROUTINE calcratqs (
     2      SUBROUTINE calcratqs (flag_ratqs,
    33     I            paprs,pplay,q_seri,d_t_con,d_t_ajs
    44     O           ,ratqs,zpt_conv)
     
    4141      INTEGER i,k
    4242      INTEGER flag_ratqs
    43       save ratqsmin,ratqsmax,flag_ratqs,epmax
     43      save ratqsmin,ratqsmax,epmax
    4444      save ratqs1,ratqs2,ratqs3,ratqs4
    4545      save ratqsc1,ratqsc2,ratqsc3,ratqsc4
     
    5151      PARAMETER (zx_max=0.1)
    5252
    53       flag_ratqs=1
    54       flag_ratqs=0
    5553c
    5654c Appeler le processus de condensation a grande echelle
  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r302 r303  
    520520
    521521      REAL ratqs(klon,klev)
     522      integer flag_ratqs
    522523      real zpt_conv(klon,klev)
    523524
     
    18291830
    18301831c   RATQS
    1831       call calcratqs (
     1832      if (iflag_con.eq.2) then
     1833          flag_ratqs=0
     1834      else
     1835          flag_ratqs=1
     1836      endif
     1837      call calcratqs (flag_ratqs ,
    18321838     I            paprs,pplay,q_seri,d_t_con,d_t_ajs
    18331839     O           ,ratqs,zpt_conv)
Note: See TracChangeset for help on using the changeset viewer.