trunk/phylmd/dimphy.f

module dimphy

  use dimens_m, only: iim, jjm, llm, nqmx

  implicit none

  private iim, jjm, llm, nqmx

  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
  INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
  REAL,save:: zmasq(KLON) ! fraction of land

end module dimphy
1	module dimphy
2
3	use dimens_m, only: iim, jjm, llm, nqmx
4
5	implicit none
6
7	private iim, jjm, llm, nqmx
8
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	! (jjm - 1) * iim pour l'interieur du domaine
15	! klon pour le pole sud)
16
17	INTEGER, PARAMETER:: KLEV = llm
18	INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
19	REAL,save:: zmasq(KLON) ! fraction of land
20
21	end module dimphy