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	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			! (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