/[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 52 by guez, Fri Sep 23 12:28:01 2011 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 nr_util, only: assert
31      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
32      use regr1_step_av_m, only: regr1_step_av      use numer_rec, only: regr1_step_av
33      use pressure_var, only: p3d      use pressure_var, only: p3d
34    
35      real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)      real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)
# 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.52
  ViewVC Help
Powered by ViewVC 1.1.21