/[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 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 45  SUBROUTINE advn(q, masse, w, pbaru, pbar Line 45  SUBROUTINE advn(q, masse, w, pbaru, pbar
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)
   REAL temps1, temps2, temps3  
48    REAL ssum    REAL 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.134  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21