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

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

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

trunk/dyn3d/vlspltqs.f revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC trunk/Sources/dyn3d/vlspltqs.f revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC
# Line 43  contains Line 43  contains
43    
44      ! Local      ! Local
45    
46      INTEGER i, ij, l, j, ii      INTEGER ij, l
47    
48      REAL qsat(ip1jmp1, llm)      REAL qsat(ip1jmp1, llm)
49      REAL zm(ip1jmp1, llm)      REAL zm(ip1jmp1, llm)
# 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.108  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21