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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.