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	guez	3	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	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	62	INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
19	guez	15	REAL,save:: zmasq(KLON) ! fraction of land
20	guez	3
21			end module dimphy