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

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

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

revision 69 by guez, Wed Feb 27 13:16:39 2008 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 32  c   ----------- Line 32  c   -----------
32        logical lnew        logical lnew
33    
34        REAL pgcm(ilon,ilev)        REAL pgcm(ilon,ilev)
35        REAL Qgcm(ilon,ilev)        REAL, intent(in):: Qgcm(ilon,ilev)
36        real pres        real pres
37        REAL Qpres(ilon)        REAL Qpres(ilon)
38    
# Line 111  c======================================= Line 111  c=======================================
111    
112        do i=1,ilon        do i=1,ilon
113           Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i)           Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i)
 cIM      PRINT*,'i,Qgcm,Qpres',i,Qgcm(i,lb(i)),aisb(i),  
 cIM  $   Qgcm(i,lt(i)),aist(i),Qpres(i)  
114        enddo        enddo
115  c  c
116  c Je mets les vents a zero quand je rencontre une montagne  c Je mets les vents a zero quand je rencontre une montagne
Legend:
Removed from v.69  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21