/[lmdze]/trunk/Sources/dyn3d/advn.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/advn.f

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

trunk/dyn3d/advn.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/dyn3d/advn.f revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 36  SUBROUTINE advn(q, masse, w, pbaru, pbar Line 36  SUBROUTINE advn(q, masse, w, pbaru, pbar
36    ! Local    ! Local
37    ! ---------    ! ---------
38    
39    INTEGER i, ij, l, j, ii    INTEGER ij, l
40    INTEGER ijlqmin, iqmin, jqmin, lqmin    REAL zm(ip1jmp1, llm)
   INTEGER ismin  
   
   REAL zm(ip1jmp1, llm), newmasse  
41    REAL mu(ip1jmp1, llm)    REAL mu(ip1jmp1, llm)
42    REAL mv(ip1jm, llm)    REAL mv(ip1jm, llm)
43    REAL mw(ip1jmp1, llm+1)    REAL mw(ip1jmp1, llm+1)
44    REAL zq(ip1jmp1, llm), zz, qpn, qps    REAL zq(ip1jmp1, llm), qpn, qps
45    REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm)    REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm)
46    REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm)    REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm)
47    REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)    REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)
48    REAL temps0, temps1, temps2, temps3    REAL ssum
   REAL ztemps1, ztemps2, ztemps3, ssum  
   LOGICAL testcpu  
   SAVE testcpu  
   SAVE temps1, temps2, temps3  
49    REAL zzpbar, zzw    REAL zzpbar, zzw
50    
   REAL qmin, qmax  
   DATA qmin, qmax/0., 1./  
   DATA testcpu/.FALSE./  
   DATA temps1, temps2, temps3/0., 0., 0./  
   
51    zzpbar = 0.5*pdt    zzpbar = 0.5*pdt
52    zzw = pdt    zzw = pdt
53    
Legend:
Removed from v.82  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21