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

Timestamp:

Oct 7, 2019, 11:48:33 AM (5 years ago)

Author:

fhourdin

Message:

Correction suite a la detections de problemes en 1D avec le mode
debug sur jean-zay.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -976 +976 @@
           IF (iflag_pbl > 1) THEN
              CALL histwrite_phy(o_tke_srf(nsrf),  pbl_tke(:,1:klev,nsrf))
-             CALL histwrite_phy(o_l_mix(nsrf),  l_mix(:,1:klev,nsrf))
+             !CALL histwrite_phy(o_l_mix(nsrf),  l_mix(:,1:klev,nsrf))
              CALL histwrite_phy(o_l_mixmin(nsrf),  l_mixmin(:,1:klev,nsrf))
              CALL histwrite_phy(o_tke_max_srf(nsrf),  pbl_tke(:,1:klev,nsrf))