1 |
guez |
10 |
module pressure_var |
2 |
guez |
3 |
|
3 |
|
|
use dimens_m, only: iim, jjm, llm |
4 |
|
|
|
5 |
|
|
implicit none |
6 |
|
|
|
7 |
|
|
real pls(iim + 1, jjm + 1, llm) |
8 |
|
|
! (pressure at mid-layer of LMDZ grid, in Pa) |
9 |
|
|
! "pls(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", |
10 |
|
|
! for layer "l") |
11 |
|
|
|
12 |
|
|
REAL p3d(iim + 1, jjm + 1, llm+1) ! pressure at layer interfaces, in Pa |
13 |
guez |
20 |
! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", |
14 |
guez |
3 |
! for interface "l") |
15 |
|
|
|
16 |
|
|
private iim, jjm, llm |
17 |
|
|
|
18 |
guez |
10 |
end module pressure_var |