Changeset 3234 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Mar 5, 2018, 2:36:29 PM (6 years ago)

Author:

musat

Message:

Correction zhalf

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1480 +1480 @@
         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