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