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

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

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

trunk/libf/phylmd/Mobidic/press_coefoz.f90 revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC trunk/phylmd/Mobidic/press_coefoz.f revision 82 by guez, Wed Mar 5 14:57:53 2014 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.82
  ViewVC Help
Powered by ViewVC 1.1.21