/[lmdze]/trunk/Sources/phylmd/Mobidic/press_coefoz.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Mobidic/press_coefoz.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 19  contains Line 19  contains
19      ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa      ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa
20      ! and strictly increasing.      ! and strictly increasing.
21    
22      use netcdf95, only: nf95_open, nf95_close, nf95_get_coord      use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, nf95_gw_var
23      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
24    
25      ! Variables local to the procedure:      ! Variables local to the procedure:
26      integer ncid ! for NetCDF      integer ncid, varid ! for NetCDF
27      integer n_plev ! number of pressure levels in the input data      integer n_plev ! number of pressure levels in the input data
28      integer k      integer k
29    
# Line 33  contains Line 33  contains
33    
34      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
35    
36      call nf95_get_coord(ncid, "plev", plev)      call nf95_inq_varid(ncid, "plev", varid)
37        call nf95_gw_var(ncid, varid, plev)
38      ! Convert from hPa to Pa because "regr_pr_av" and "regr_pr_int"      ! Convert from hPa to Pa because "regr_pr_av" and "regr_pr_int"
39      ! require so:      ! require so:
40      plev = plev * 100.      plev = plev * 100.
Legend:
Removed from v.17  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21