/[lmdze]/trunk/libf/dyn3d/pressure_var.f90
ViewVC logotype

Contents of /trunk/libf/dyn3d/pressure_var.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 20 - (show annotations)
Wed Oct 15 16:19:57 2008 UTC (15 years, 6 months ago) by guez
File size: 461 byte(s)
Deleted argument "presnivs" of "physiq", "ini_histhf", "ini_histhf3d",
"ini_histday", "ini_histins", "ini_histrac", "phytrac". Access it from
"comvert" instead.

Replaced calls to NetCDF Fortran 77 interface by calls to Fortran 90
interface or to NetCDF95.

Procedure "gr_phy_write_3d" now works with a variable of arbitrary
size in the second dimension.

Annotated use statements with "only" clause.

Replaced calls to NetCDF interface version 2 by calls to Fortran 90
interface in "guide.f90" and "read_reanalyse.f".

In "write_histrac", replaced calls to "gr_fi_ecrit" by calls to
"gr_phy_write_2d" and "gr_phy_write_3d".

1 module pressure_var
2
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 ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
14 ! for interface "l")
15
16 private iim, jjm, llm
17
18 end module pressure_var

  ViewVC Help
Powered by ViewVC 1.1.21