/[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

revision 16 by guez, Fri Jul 25 19:59:34 2008 UTC revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC
# Line 4  module regr_pr_coefoz Line 4  module regr_pr_coefoz
4    
5  contains  contains
6    
7    subroutine regr_pr_av_coefoz(ncid, name, julien, press_in_edg, v3)    subroutine regr_pr_av_coefoz(ncid, name, julien, v3)
8    
9      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging      ! "regr_pr_av_coefoz" stands for "regrid pressure averaging
10      ! coefficient ozone".      ! coefficient ozone".
# Line 21  contains Line 21  contains
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 numer_rec, only: assert      use numer_rec, only: assert
24        use press_coefoz_m, only: press_in_edg
25    
26      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
27      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
28      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
29    
     real, intent(in):: press_in_edg(:)  
     ! (edges of pressure intervals for Mobidic data, in Pa, in  
     ! strictly increasing order)  
   
30      real, intent(out):: v3(:, :) ! (klon, llm)      real, intent(out):: v3(:, :) ! (klon, llm)
31      ! (ozone coefficient from Mobidic on the "physics" grid)      ! (ozone coefficient from Mobidic on the "physics" grid)
32      ! ("v3(i, k)" is at longitude "xlon(i)", latitude      ! ("v3(i, k)" is at longitude "xlon(i)", latitude
# Line 71  contains Line 68  contains
68    
69    !***************************************************************    !***************************************************************
70    
71    subroutine regr_pr_int_coefoz(ncid, name, julien, plev, top_value, v3)    subroutine regr_pr_int_coefoz(ncid, name, julien, top_value, v3)
72    
73      ! This procedure reads a single Mobidic ozone coefficient from      ! This procedure reads a single Mobidic ozone coefficient from
74      !"coefoz_LMDZ.nc", at the current day, regrids this parameter in      !"coefoz_LMDZ.nc", at the current day, regrids this parameter in
# Line 86  contains Line 83  contains
83      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
84      use regr_pr, only: regr_pr_int      use regr_pr, only: regr_pr_int
85      use numer_rec, only: assert      use numer_rec, only: assert
86        use press_coefoz_m, only: plev
87    
88      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
89      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
90      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
91    
     real, intent(in):: plev(:)  
     ! (pressure levels of Mobidic data, in Pa, in strictly increasing order)  
   
92      real, intent(in):: top_value      real, intent(in):: top_value
93      ! (extra value of ozone coefficient at 0 pressure)      ! (extra value of ozone coefficient at 0 pressure)
94    
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.21