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

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

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