--- trunk/phylmd/comgeomphy.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/comgeomphy.f90	2019/06/13 14:40:06	328
@@ -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