11 |
! (Les points de la physique sont les points scalaires de la dynamique. |
! (Les points de la physique sont les points scalaires de la dynamique. |
12 |
! Numerotation : |
! Numerotation : |
13 |
! 1 pour le pole nord |
! 1 pour le pole nord |
14 |
! (jjm-1)*iim pour l'interieur du domaine |
! (jjm - 1) * iim pour l'interieur du domaine |
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 |
19 |
INTEGER, PARAMETER:: nbtr = nqmx - 2 + 1 / (nqmx-1) |
REAL,save:: zmasq(KLON) ! fraction of land |
|
! (nombre de vrais traceurs) |
|
|
|
|
|
REAL,save:: zmasq(KLON) |
|
20 |
|
|
21 |
end module dimphy |
end module dimphy |