--- trunk/libf/phylmd/comgeomphy.f90 2010/12/02 17:11:04 36 +++ 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