--- trunk/Sources/phylmd/comgeomphy.f	2015/08/24 16:30:33	167
+++ trunk/Sources/phylmd/comgeomphy.f	2015/09/09 10:41:47	168
@@ -8,11 +8,7 @@
 
   implicit none
 
-  real airephy(klon)
-  real cuphy(klon), cvphy(klon) ! "cu" and "cv" values on the scalar grid
-  REAL rlatd(klon), rlond(klon)
-
-  save
+  real, save:: airephy(klon)
 
   private klon