1 |
module pressure_m |
module pressure_var |
2 |
|
|
3 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
4 |
|
|
10 |
! for layer "l") |
! for layer "l") |
11 |
|
|
12 |
REAL p3d(iim + 1, jjm + 1, llm+1) ! pressure at layer interfaces, in Pa |
REAL p3d(iim + 1, jjm + 1, llm+1) ! pressure at layer interfaces, in Pa |
13 |
! "p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", |
! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", |
14 |
! for interface "l") |
! for interface "l") |
15 |
|
|
16 |
private iim, jjm, llm |
private iim, jjm, llm |
17 |
|
|
18 |
end module pressure_m |
end module pressure_var |