/[lmdze]/trunk/libf/phylmd/calltherm.f
ViewVC logotype

Diff of /trunk/libf/phylmd/calltherm.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 17  Line 17 
17        REAL u_seri(klon,klev),v_seri(klon,klev)        REAL u_seri(klon,klev),v_seri(klon,klev)
18        REAL t_seri(klon,klev),q_seri(klon,klev)        REAL t_seri(klon,klev),q_seri(klon,klev)
19        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
20        REAL pplay(klon,klev)        REAL, intent(in):: pplay(klon,klev)
21        REAL pphi(klon,klev)        REAL pphi(klon,klev)
22    
23  CFH Update Thermiques  CFH Update Thermiques
# Line 61  c   tests sur les valeurs negatives de l Line 61  c   tests sur les valeurs negatives de l
61           zdt=dtime/float(nsplit_thermals)           zdt=dtime/float(nsplit_thermals)
62           do isplit=1,nsplit_thermals           do isplit=1,nsplit_thermals
63    
 cym            CALL thermcell(klon,klev,zdt  
 cym     s      ,pplay,paprs,pphi  
 cym     s      ,u_seri,v_seri,t_seri,q_seri  
 cym     s      ,d_u_the,d_v_the,d_t_the,d_q_the  
 cym     s      ,zfm_therm,zentr_therm  
 cym     s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  
 cym     s      ,tho_thermals,3)  
   
64              CALL thermcell(klon,klev,zdt              CALL thermcell(klon,klev,zdt
65       s      ,pplay,paprs,pphi       s      ,pplay,paprs,pphi
66       s      ,u_seri,v_seri,t_seri,q_seri       s      ,u_seri,v_seri,t_seri,q_seri
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21