Changeset 232 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/calfis.F

Timestamp:

Jun 20, 2001, 3:53:15 PM (23 years ago)

Author:

lmdzadmin

Message:

Merge par rapport a la branche principale
LF

File:

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

LMDZ.3.3/branches/rel-LF/libf/dyn3d/calfis.F

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