Changeset 5524 for LMDZ6/trunk/libf/phylmd

Timestamp:

Feb 5, 2025, 7:22:46 PM (29 hours ago)

Author:

fhourdin

Message:

Bug fix for slab

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1709 +1709 @@
             ENDIF
           ENDIF
-          IF (slab_ekman.GT.0) THEN
-            IF (nslay.EQ.1) THEN
-                IF (vars_defined) zx_tmp_fi2d(:)=dt_ekman(:,1)
-                CALL histwrite_phy(o_slab_ekman, zx_tmp_fi2d)
-            ELSE
-                CALL histwrite_phy(o_slab_ekman, dt_ekman(:,1:nslay))
-            ENDIF
-          ENDIF
+          !IF (slab_ekman.GT.0) THEN
+          !  IF (nslay.EQ.1) THEN
+          !      IF (vars_defined) zx_tmp_fi2d(:)=dt_ekman(:,1)
+          !      CALL histwrite_phy(o_slab_ekman, zx_tmp_fi2d)
+          !  ELSE
+          !      CALL histwrite_phy(o_slab_ekman, dt_ekman(:,1:nslay))
+          !  ENDIF
+          !ENDIF
        ENDIF !type_ocean == force/slab
        CALL histwrite_phy(o_weakinv, weak_inversion)