/[lmdze]/trunk/libf/phylmd/Mobidic/regr_pr_o3.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Mobidic/regr_pr_o3.f90

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

revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 25  contains Line 25  contains
25      use conf_gcm_m, only: dayref      use conf_gcm_m, only: dayref
26      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
27      use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, &      use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, &
28           nf95_get_coord           nf95_gw_var
29      use netcdf, only:  nf90_nowrite, nf90_get_var      use netcdf, only:  nf90_nowrite, nf90_get_var
30      use numer_rec, only: assert      use numer_rec, only: assert
31      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
# Line 61  contains Line 61  contains
61    
62      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
63    
64      call nf95_get_coord(ncid, "plev", plev)      call nf95_inq_varid(ncid, "plev", varid)
65        call nf95_gw_var(ncid, varid, plev)
66      ! Convert from hPa to Pa because "regr_pr_av" requires so:      ! Convert from hPa to Pa because "regr_pr_av" requires so:
67      plev = plev * 100.      plev = plev * 100.
68      n_plev = size(plev)      n_plev = size(plev)
Legend:
Removed from v.20  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21