Changeset 2598 for LMDZ5/trunk/libf/dyn3d_common/invert_zoom_x_m.F90

Timestamp:

Jul 22, 2016, 11:28:39 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn serre.h into module serre_mod.F90
EM

File:

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

LMDZ5/trunk/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)