Changeset 1443 for trunk/LMDZ.COMMON/libf/dyn3d_common/invert_zoom_x_m.F90

Timestamp:

Jun 5, 2015, 3:05:35 PM (9 years ago)

Author:

emillour

Message:

Titan and Venus GCMs:
Follow-up to the changes in dynamics/physics interface: ener.h, logic.h, serre.h and temps.h are now modules.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/invert_zoom_x_m.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/invert_zoom_x_m.F90

@@ -11 +11 @@
     use coefpoly_m, only: coefpoly
     use nrtype, only: pi, pi_d, twopi_d, k8
+    use serre_mod, only: clon
 
     include "dimensions.h"
     ! for iim
-
-    include "serre.h"
-    ! for clon
 
     REAL(K8), intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)