/[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 108 by guez, Tue Sep 16 14:00:41 2014 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 24  contains Line 24  contains
24      ! teta température potentielle, p pression aux interfaces,      ! teta température potentielle, p pression aux interfaces,
25      ! pk exner au milieu des couches nécessaire pour calculer Qsat      ! pk exner au milieu des couches nécessaire pour calculer Qsat
26    
27      USE dimens_m, ONLY : iim, llm      USE dimensions, ONLY : iim, llm
28      use FCTTRE, only: foeew      use FCTTRE, only: foeew
29      USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, llmp1      USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, llmp1
30      USE comconst, ONLY : cpp      USE comconst, ONLY : cpp
# 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.265
  ViewVC Help
Powered by ViewVC 1.1.21