Changeset 343 for LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d

Timestamp:

Mar 5, 2002, 1:09:28 PM (23 years ago)

Author:

lmdz

Message:

On corrige le double bug sur la vitesse verticale
LF

File:

• LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d/calfis.F (modified) (1 diff)

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

@@ -312 +312 @@
 c
       DO l=1,llm
-        pvervel(1,l)=pw(1,1,l) * g /apoln
+        pvervel(1,l)=pw(1,1,l) /apoln
         ig0=2
        DO j=2,jjm
            DO i = 1, iim
-              pvervel(ig0,l) = pw(i,j,l) * g * unsaire(i,j)
+              pvervel(ig0,l) = pw(i,j,l) * unsaire(i,j)
               ig0 = ig0 + 1
            ENDDO
        ENDDO
-        pvervel(ig0,l)=pw(1,jjp1,l) * g /apols
+        pvervel(ig0,l)=pw(1,jjp1,l) /apols
       ENDDO