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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 20 - (hide annotations)
Wed Oct 15 16:19:57 2008 UTC (15 years, 7 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 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

  ViewVC Help
Powered by ViewVC 1.1.21