Changeset 2598 for LMDZ5/trunk/libf/dyn3d_common/serre_mod.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/serre_mod.F90 (moved) (moved from LMDZ5/trunk/libf/dyn3d_common/serre.h) (1 diff)

LMDZ5/trunk/libf/dyn3d_common/serre_mod.F90

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
-!c
-!c
-!c..include serre.h
-!c
-       REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo,              &
-     &  grossismx, grossismy, dzoomx, dzoomy,taux,tauy
-       COMMON/serre/clon,clat,transx,transy,alphax,alphay,pxo,pyo ,     &
-     &  grossismx, grossismy, dzoomx, dzoomy,taux,tauy
+MODULE serre_mod
+
+IMPLICIT NONE  
+
+      REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo,              &
+        grossismx, grossismy, dzoomx, dzoomy,taux,tauy
+
+END MODULE serre_mod