trunk/phylmd/comgeomphy.f

module comgeomphy

  ! From phylmd/comgeomphy.h,v 1.1.1.1 2004/05/19 12:53:09

  ! Passage de la geometrie de la dynamique a la physique

  use dimphy, only: klon

  implicit none

  real airephy(klon)
  real cuphy(klon), cvphy(klon) ! "cu" and "cv" values on the scalar grid
  REAL rlatd(klon), rlond(klon)

  save

  private klon

end module comgeomphy
1	module comgeomphy
2
3	! From phylmd/comgeomphy.h,v 1.1.1.1 2004/05/19 12:53:09
4
5	! Passage de la geometrie de la dynamique a la physique
6
7	use dimphy, only: klon
8
9	implicit none
10
11	real airephy(klon)
12	real cuphy(klon), cvphy(klon) ! "cu" and "cv" values on the scalar grid
13	REAL rlatd(klon), rlond(klon)
14
15	save
16
17	private klon
18
19	end module comgeomphy