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	guez	3	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	guez	37	real airephy(klon)
12			real cuphy(klon), cvphy(klon) ! "cu" and "cv" values on the scalar grid
13	guez	3	REAL rlatd(klon), rlond(klon)
14
15			save
16
17			private klon
18
19			end module comgeomphy