1 |
module dimphy |
module dimphy |
2 |
|
|
3 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm |
4 |
|
|
5 |
implicit none |
implicit none |
6 |
|
|
7 |
private iim, jjm, llm, nqmx |
private iim, jjm, llm |
8 |
|
|
9 |
INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2 |
INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2 |
10 |
! (number of distinct scalar grid points) |
! (number of distinct scalar grid points) |
15 |
! klon pour le pole sud) |
! klon pour le pole sud) |
16 |
|
|
17 |
INTEGER, PARAMETER:: KLEV = llm |
INTEGER, PARAMETER:: KLEV = llm |
18 |
INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs |
REAL, save:: zmasq(KLON) ! fraction of land |
|
REAL,save:: zmasq(KLON) ! fraction of land |
|
19 |
|
|
20 |
end module dimphy |
end module dimphy |