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

File:
1 edited

Legend:

Unmodified
Added
Removed

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