trunk/dyn3d/pressure_var.f

module pressure_var

  use dimens_m, only: iim, jjm, llm

  implicit none

  real pls(iim + 1, jjm + 1, llm)
  ! (pressure at mid-layer of LMDZ grid, in Pa)
  ! "pls(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
  ! for layer "l")

  REAL p3d(iim + 1, jjm + 1, llm+1) ! pressure at layer interfaces, in Pa
  ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
  ! for interface "l")

  private iim, jjm, llm

end module pressure_var
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