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

Diff of /trunk/dyn3d/qminimum.f

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

revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 12  c  -- Objet : Traiter les valeurs trop p Line 12  c  -- Objet : Traiter les valeurs trop p
12  c             pour l'eau vapeur et l'eau liquide  c             pour l'eau vapeur et l'eau liquide
13  c  c
14  c  c
15        INTEGER nq        INTEGER, intent(in):: nq
16        REAL q(ip1jmp1,llm,nq), deltap(ip1jmp1,llm)        REAL q(ip1jmp1,llm,nq), deltap(ip1jmp1,llm)
17  c  c
18        INTEGER iq_vap, iq_liq        INTEGER iq_vap, iq_liq
# Line 54  c Line 54  c
54        iq = iq_vap        iq = iq_vap
55  c  c
56        DO k = llm, 2, -1        DO k = llm, 2, -1
 ccc      zx_abc = dpres(k) / dpres(k-1)  
57        DO i = 1, ip1jmp1        DO i = 1, ip1jmp1
58           zx_abc = deltap(i,k)/deltap(i,k-1)           zx_abc = deltap(i,k)/deltap(i,k-1)
59           zx_defau    = AMAX1( seuil_vap - q(i,k,iq), 0.0 )           zx_defau    = AMAX1( seuil_vap - q(i,k,iq), 0.0 )
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21