Changeset 304


Ignore:
Timestamp:
Dec 18, 2001, 5:46:09 PM (23 years ago)
Author:
lmdzadmin
Message:

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

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/calcratqs.F

    r290 r304  
    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
    5553        zpt_conv=0.
    5654c

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r301 r304  
    537537
    538538      REAL ratqs(klon,klev)
     539      integer flag_ratqs
    539540      real zpt_conv(klon,klev)
    540541
    … …  
    20732074
    20742075c   RATQS
    2075       call calcratqs (
     2076      if (iflag_con.eq.2) then
     2077          flag_ratqs=0
     2078      else
     2079          flag_ratqs=1
     2080      endif
     2081      call calcratqs (flag_ratqs,
    20762082     I            paprs,pplay,q_seri,d_t_con,d_t_ajs
    20772083     O           ,ratqs,zpt_conv)
Note: See TracChangeset for help on using the changeset viewer.