/[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 3 by guez, Wed Feb 27 13:16:39 2008 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 )
# Line 76  c Line 75  c
75           DO i = 1, ip1jmp1           DO i = 1, ip1jmp1
76              IF (zx_pump(i).GT.0.0) THEN              IF (zx_pump(i).GT.0.0) THEN
77                 imprim = imprim + 1                 imprim = imprim + 1
 CC               PRINT*,'QMINIMUM:  en ',i,zx_pump(i)  
78              ENDIF              ENDIF
79           ENDDO           ENDDO
80        ENDIF        ENDIF
Legend:
Removed from v.3  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21