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

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

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 9  contains Line 9  contains
9      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging
10      ! coefficient ozone".      ! coefficient ozone".
11      ! This procedure reads a single Mobidic ozone coefficient from      ! This procedure reads a single Mobidic ozone coefficient from
12      !"coefoz_LMDZ.nc", at the current day, regrids this parameter in      ! "coefoz_LMDZ.nc", at the current day, regrids this parameter in
13      ! pressure to the LMDZ vertical grid and packs it to the LMDZ      ! pressure to the LMDZ vertical grid and packs it to the LMDZ
14      ! horizontal "physics" grid.      ! horizontal "physics" grid.
15      ! Regridding in pressure is done by averaging a step function.      ! Regridding in pressure is done by averaging a step function.
# Line 20  contains Line 20  contains
20      use netcdf, only: nf90_get_var      use netcdf, only: nf90_get_var
21      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
22      use regr_pr, only: regr_pr_av      use regr_pr, only: regr_pr_av
23      use nrutil, only: assert      use numer_rec, only: assert
24    
25      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
26      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
# Line 85  contains Line 85  contains
85      use netcdf, only: nf90_get_var      use netcdf, only: nf90_get_var
86      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
87      use regr_pr, only: regr_pr_int      use regr_pr, only: regr_pr_int
88      use nrutil, only: assert      use numer_rec, only: assert
89    
90      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
91      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
Legend:
Removed from v.10  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21