--- trunk/libf/phylmd/comgeomphy.f90 2008/02/27 13:16:39 3 +++ trunk/libf/phylmd/comgeomphy.f90 2010/12/21 15:45:48 37 @@ -8,7 +8,8 @@ implicit none - real airephy(klon), cuphy(klon), cvphy(klon) + real airephy(klon) + real cuphy(klon), cvphy(klon) ! "cu" and "cv" values on the scalar grid REAL rlatd(klon), rlond(klon) save