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

Diff of /trunk/dyn3d/advn.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 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 temps1, temps2, temps3
49    REAL ztemps1, ztemps2, ztemps3, ssum    REAL ssum
50    LOGICAL testcpu    LOGICAL testcpu
51    SAVE testcpu    SAVE testcpu
52    SAVE temps1, temps2, temps3    SAVE temps1, temps2, temps3
Legend:
Removed from v.82  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21