Changeset 343


Ignore:
Timestamp:
Mar 5, 2002, 1:09:28 PM (23 years ago)
Author:
lmdz
Message:

On corrige le double bug sur la vitesse verticale
LF

Location:
LMDZ.3.3
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d/calfis.F

    r253 r343  
    312312c
    313313      DO l=1,llm
    314         pvervel(1,l)=pw(1,1,l) * g /apoln
     314        pvervel(1,l)=pw(1,1,l) /apoln
    315315        ig0=2
    316316       DO j=2,jjm
    317317           DO i = 1, iim
    318               pvervel(ig0,l) = pw(i,j,l) * g * unsaire(i,j)
     318              pvervel(ig0,l) = pw(i,j,l) * unsaire(i,j)
    319319              ig0 = ig0 + 1
    320320           ENDDO
    321321       ENDDO
    322         pvervel(ig0,l)=pw(1,jjp1,l) * g /apols
     322        pvervel(ig0,l)=pw(1,jjp1,l) /apols
    323323      ENDDO
    324324

  • LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/conflx.F

    r335 r343  
    833833            pqu(i,k+1) = pqen(i,k)
    834834            plu(i,k+1) = 0.0
    835 c--modif Olivier 12/2000
    836 c            zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
    837835            zzzmb = MAX(CMFCMIN, -pvervel(i,k))
    838836            zmfmax = (paph(i,k)-paph(i,k-1))/(RG*pdtime)

  • LMDZ.3.3/trunk/libf/dyn3d/calfis.F

    r221 r343  
    312312c
    313313      DO l=1,llm
    314         pvervel(1,l)=pw(1,1,l) * g /apoln
     314        pvervel(1,l)=pw(1,1,l) /apoln
    315315        ig0=2
    316316       DO j=2,jjm
    317317           DO i = 1, iim
    318               pvervel(ig0,l) = pw(i,j,l) * g * unsaire(i,j)
     318              pvervel(ig0,l) = pw(i,j,l) * unsaire(i,j)
    319319              ig0 = ig0 + 1
    320320           ENDDO
    321321       ENDDO
    322         pvervel(ig0,l)=pw(1,jjp1,l) * g /apols
     322        pvervel(ig0,l)=pw(1,jjp1,l) /apols
    323323      ENDDO
    324324

  • LMDZ.3.3/trunk/libf/phylmd/conflx.F

    r286 r343  
    833833            pqu(i,k+1) = pqen(i,k)
    834834            plu(i,k+1) = 0.0
    835 c--modif Olivier 12/2000
    836 c            zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
    837835            zzzmb = MAX(CMFCMIN, -pvervel(i,k))
    838836            zmfmax = (paph(i,k)-paph(i,k-1))/(RG*pdtime)
Note: See TracChangeset for help on using the changeset viewer.