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

Diff of /trunk/dyn3d/vlspltqs.f90

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

trunk/Sources/dyn3d/vlspltqs.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/vlspltqs.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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 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.328
  ViewVC Help
Powered by ViewVC 1.1.21