Changeset 4142

Timestamp:

May 3, 2022, 10:10:18 AM (2 years ago)

Author:

fhourdin

Message:

Supression de sorties qui faisaient panter avec des compilos recents

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h

@@ -33 +33 @@
 
 
-        print*,'OLDLMDZ1D IOPH'
-      CALL iophys_ecrit('relax_thl',klev,'relax_thl','m/s',relax_thl)
-      CALL iophys_ecrit('d_t_adv',klev,'d_t_adv','m/s',d_t_adv)
-      CALL iophys_ecrit('temp',klev,'temp','m/s',temp)
-      CALL iophys_ecrit('q',klev,'q','m/s',q(:,1))
-      CALL iophys_ecrit('relax_q',klev,'relax_q','m/s',relax_q(:,1))
-      CALL iophys_ecrit('d_q_adv',klev,'d_q_adv','m/s',d_q_adv(:,1))
+      ! print*,'OLDLMDZ1D IOPH'
+      !      CALL iophys_ecrit('relax_thl',klev,'relax_thl','m/s',relax_thl)
+      !      CALL iophys_ecrit('d_t_adv',klev,'d_t_adv','m/s',d_t_adv)
+      !      CALL iophys_ecrit('temp',klev,'temp','m/s',temp)
+      !      CALL iophys_ecrit('q',klev,'q','m/s',q(:,1))
+      !      CALL iophys_ecrit('relax_q',klev,'relax_q','m/s',relax_q(:,1))
+      !      CALL iophys_ecrit('d_q_adv',klev,'d_q_adv','m/s',d_q_adv(:,1))