Changeset 5536 for LMDZ6/branches/contrails/libf/phylmd/yamada_c.F90

Timestamp:

Feb 12, 2025, 10:08:35 AM (7 days ago)

Author:

aborella

Message:

Revert merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/yamada_c.F90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/yamada_c.F90

@@ -138 +138 @@
         CALL getin_p('iflag_tke_diff',iflag_tke_diff)
         allocate(l0(klon))
+#define IOPHYS
+#ifdef IOPHYS
+!        call iophys_ini(timestep)
+#endif
         firstcall=.false.
       endif
 
    IF (ngrid<=0) RETURN ! Bizarre : on n a pas ce probeleme pour coef_diff_turb
+
+#ifdef IOPHYS
+if (okiophys) then
+call iophys_ecrit('q2i',klev,'q2 debut my','m2/s2',q2(:,1:klev))
+call iophys_ecrit('kmi',klev,'Kz debut my','m/s2',km(:,1:klev))
+endif
+#endif
 
       nlay=klev