| 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) |
| 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 |
|
REAL, save:: zmasq(KLON) ! fraction of land |
|
INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) |
|
|
! (nombre de vrais traceurs) |
|
|
|
|
|
REAL,save:: zmasq(KLON) ! fraction of land |
|
| 19 |
|
|
| 20 |
end module dimphy |
end module dimphy |
Parent Directory
| 
Revision Log
| 
Patch