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

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

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

trunk/libf/phylmd/o3_mob_ph_m.f90 revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC trunk/libf/phylmd/Mobidic/regr_pr_coefoz.f90 revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 7  contains Line 7  contains
7    subroutine regr_pr_av_coefoz(ncid, name, julien, press_in_edg, v3)    subroutine regr_pr_av_coefoz(ncid, name, julien, press_in_edg, v3)
8    
9      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging
10      ! coefficients 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 is by averaging a step function.      ! Regridding in pressure is done by averaging a step function.
16    
17      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
18      use dimphy, only: klon      use dimphy, only: klon
# 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.7  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21