libf/phylmd/dimphy.f90

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 = nqmx - 2 + 1 / (nqmx-1)
  ! (nombre de vrais traceurs)

  REAL,save:: zmasq(KLON)

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
19	INTEGER, PARAMETER:: nbtr = nqmx - 2 + 1 / (nqmx-1)
20	! (nombre de vrais traceurs)
21
22	REAL,save:: zmasq(KLON)
23
24	end module dimphy