Changeset 726 for LMDZ4/branches/V3_test/libf/dyn3d/leapfrog.F

Timestamp:

Nov 6, 2006, 4:51:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour rendre INCA plus independant de LMDZ ACo
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3d/leapfrog.F (modified) (3 diffs)

LMDZ4/branches/V3_test/libf/dyn3d/leapfrog.F

@@ -7 +7 @@
      &                    time_0)
 
-#ifdef INCA
-      USE transport_controls, ONLY : hadv_flg, mmt_adj
-#endif
 
 cIM : pour sortir les param. du modele dans un fis. netcdf 110106
@@ -61 +58 @@
 #include "com_io_dyn.h"
 #include "iniprint.h"
-
+#include "advtrac.h"
 c#include "tracstoke.h"
 
@@ -297 +294 @@
      *                      p, masse, dq,  teta,
      .             flxw,
-     .             pk,
-     .             mmt_adj,
-     .             hadv_flg)
+     .             pk)
 #else
              CALL caladvtrac(q,pbaru,pbarv,