Changeset 3594 for LMDZ6/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h

Timestamp:

Oct 29, 2019, 7:32:03 AM (5 years ago)

Author:

fhourdin

Message:

Improvement for SCM standard format

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))
+