trunk/phylmd/dimphy.f

module dimphy

  use dimens_m, only: iim, jjm, llm

  implicit none

  private iim, jjm, llm

  INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2
  ! (number of distinct scalar grid points)
  ! (Les points de la physique sont les points scalaires de la dynamique.
  ! Numerotation :
  ! 1 pour le pole nord
  ! (jjm - 1) * iim pour l'interieur du domaine
  ! klon pour le pole sud)

  INTEGER, PARAMETER:: KLEV = llm
  REAL, save:: zmasq(KLON) ! fraction of land

end module dimphy
1	guez	3	module dimphy
2
3	guez	98	use dimens_m, only: iim, jjm, llm
4	guez	3
5			implicit none
6
7	guez	98	private iim, jjm, llm
8	guez	3
9			INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2
10			! (number of distinct scalar grid points)
11			! (Les points de la physique sont les points scalaires de la dynamique.
12			! Numerotation :
13			! 1 pour le pole nord
14	guez	71	! (jjm - 1) * iim pour l'interieur du domaine
15	guez	3	! klon pour le pole sud)
16
17			INTEGER, PARAMETER:: KLEV = llm
18	guez	98	REAL, save:: zmasq(KLON) ! fraction of land
19	guez	3
20			end module dimphy