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

Diff of /trunk/dyn3d/vlspltqs.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 51  contains Line 51  contains
51      REAL mv(ip1jm, llm)      REAL mv(ip1jm, llm)
52      REAL mw(ip1jmp1, llm+1)      REAL mw(ip1jmp1, llm+1)
53      REAL zq(ip1jmp1, llm)      REAL zq(ip1jmp1, llm)
     REAL temps1, temps2, temps3  
54      REAL zzpbar, zzw      REAL zzpbar, zzw
     LOGICAL testcpu  
     SAVE testcpu  
     SAVE temps1, temps2, temps3  
   
     REAL qmin, qmax  
     DATA qmin, qmax/0., 1.e33/  
     DATA testcpu/.false./  
     DATA temps1, temps2, temps3/0., 0., 0./  
55    
56      !--pour rapport de melange saturant--      !--pour rapport de melange saturant--
57    
Legend:
Removed from v.134  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21