/[lmdze]/trunk/dyn3d/Vlsplt/vlz.f
ViewVC logotype

Diff of /trunk/dyn3d/Vlsplt/vlz.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 21  Line 21 
21  !  !
22  !   Arguments:  !   Arguments:
23  !   ----------  !   ----------
24        REAL masse(ip1jmp1,llm),pente_max        REAL masse(ip1jmp1,llm)
25          real, intent(in):: pente_max
26        REAL q(ip1jmp1,llm)        REAL q(ip1jmp1,llm)
27        REAL w(ip1jmp1,llm+1)        REAL w(ip1jmp1,llm+1)
28  !  !
29  !      Local  !      Local
30  !   ---------  !   ---------
31  !  !
32        INTEGER i,ij,l,j,ii        INTEGER ij,l
33  !  !
34        REAL wq(ip1jmp1,llm+1),newmasse        REAL wq(ip1jmp1,llm+1),newmasse
35    
36        REAL dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm),dzqmax        REAL dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm),dzqmax
37        REAL sigw        REAL sigw
38    
       LOGICAL testcpu  
       SAVE testcpu  
   
       REAL temps0,temps1,temps2,temps3,temps4,temps5,second  
       SAVE temps0,temps1,temps2,temps3,temps4,temps5  
       REAL      SSUM  
   
       DATA testcpu/.false./  
       DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./  
   
39  !    On oriente tout dans le sens de la pression c'est a dire dans le  !    On oriente tout dans le sens de la pression c'est a dire dans le
40  !    sens de W  !    sens de W
41    
Legend:
Removed from v.134  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21