Changeset 2598 for LMDZ5/trunk/libf/dyn3d_common/inigeom.F

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/inigeom.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/inigeom.F

@@ -19 +19 @@
       use fyhyp_m, only: fyhyp
       USE comconst_mod, ONLY: pi, g, omeg, rad
+      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
+     &          alphax,alphay,taux,tauy,transx,transy,pxo,pyo
       IMPLICIT NONE
 c
@@ -24 +26 @@
       include "paramet.h"
       include "comgeom2.h"
-      include "serre.h"
       include "logic.h"
       include "comdissnew.h"