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

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

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC
# Line 25  Line 25 
25  !   ----------  !   ----------
26        REAL masse(ip1jmp1,llm),pente_max        REAL masse(ip1jmp1,llm),pente_max
27        REAL masse_adv_v( ip1jm,llm)        REAL masse_adv_v( ip1jm,llm)
28        REAL q(ip1jmp1,llm), dq( ip1jmp1,llm)        REAL q(ip1jmp1,llm)
29  !  !
30  !      Local  !      Local
31  !   ---------  !   ---------
# Line 33  Line 33 
33        INTEGER i,ij,l        INTEGER i,ij,l
34  !  !
35        REAL airej2,airejjm,airescb(iim),airesch(iim)        REAL airej2,airejjm,airescb(iim),airesch(iim)
36        REAL dyq(ip1jmp1,llm),dyqv(ip1jm),zdvm(ip1jmp1,llm)        REAL dyq(ip1jmp1,llm),dyqv(ip1jm)
37        REAL adyqv(ip1jm),dyqmax(ip1jmp1)        REAL adyqv(ip1jm),dyqmax(ip1jmp1)
38        REAL qbyv(ip1jm,llm)        REAL qbyv(ip1jm,llm)
39    
40        REAL qpns,qpsn,apn,aps,dyn1,dys1,dyn2,dys2,newmasse,fn,fs        REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
41  !     REAL newq,oldmasse  !     REAL newq,oldmasse
42        Logical extremum,first,testcpu        Logical first,testcpu
43        REAL temps0,temps1,temps2,temps3,temps4,temps5,second        REAL temps0,temps1,temps2,temps3,temps4,temps5
44        SAVE temps0,temps1,temps2,temps3,temps4,temps5        SAVE temps0,temps1,temps2,temps3,temps4,temps5
45        SAVE first,testcpu        SAVE first,testcpu
46    
Legend:
Removed from v.139  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21