Changeset 3235 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Mar 5, 2018, 2:49:00 PM (7 years ago)

Author:

musat

Message:

Correction zhalf

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

@@ -1468 +1468 @@
         DO k = 2, klev
          DO i = 1, klon
-            zx_tmp_fi3d(i,k) = zphi(i,k)/RG + &
+            zx_tmp_fi3d(i,k) = zphi(i,k-1)/RG + &
                           (zphi(i,k)-zphi(i,k-1))/RG * &
-                          (paprs(i,k)-pplay(i,k))/(pplay(i,k)-pplay(i,k-1))
+                          (paprs(i,k)-pplay(i,k-1))/(pplay(i,k)-pplay(i,k-1))
          ENDDO
         ENDDO