Changeset 1952 for LMDZ5/trunk/libf/dyn3d_common/extrapol.F

Timestamp:

Jan 28, 2014, 2:05:47 PM (11 years ago)

Author:

lguez

Message:

Other files with unneeded differences in dyn3d, dyn3dpar and dyn3dmem.

File:

• LMDZ5/trunk/libf/dyn3d_common/extrapol.F (moved) (moved from LMDZ5/trunk/libf/dyn3d/extrapol.F) (1 diff)

LMDZ5/trunk/libf/dyn3d_common/extrapol.F

@@ -158 +158 @@
                jlat = jy(k)
                pwork(i,j) = pwork(i,j)
-     $                      + pfild(ilon,jlat) * zmask(k)/REAL(inbor)
+     $                      + pfild(ilon,jlat) * zmask(k)/ REAL(inbor)
             ENDDO
          ENDIF