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

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

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

revision 9 by guez, Mon Mar 31 13:58:05 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 7  module regr_pr_comb_coefoz_m Line 7  module regr_pr_comb_coefoz_m
7    
8    implicit none    implicit none
9    
10      ! The five module variables declared here are on the "physics" grid.
11      ! The value of each variable for index "(i, k)" is at longitude
12      ! "rlon(i)", latitude "rlat(i)" and middle of layer "k".
13    
14    real, save:: c_Mob(klon, llm)    real, save:: c_Mob(klon, llm)
15    ! (sum of Mobidic terms in the net mass production rate of ozone    ! (sum of Mobidic terms in the net mass production rate of ozone
16    ! by chemistry, per unit mass of air, in s-1)    ! by chemistry, per unit mass of air, in s-1)
   ! (On the "physics" grid.  
   ! "c_Mob(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",  
   ! middle of layer "k".)  
17    
18    real, save:: a2(klon, llm)    real, save:: a2(klon, llm)
19    ! (derivative of mass production rate of ozone per unit mass of    ! (derivative of mass production rate of ozone per unit mass of
20    ! air with respect to ozone mass fraction, in s-1)    ! air with respect to ozone mass fraction, in s-1)
   ! (On the "physics" grid.  
   ! "a2(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",  
   ! middle of layer "k".)  
21    
22    real, save:: a4_mass(klon, llm)    real, save:: a4_mass(klon, llm)
23    ! (derivative of mass production rate of ozone per unit mass of    ! (derivative of mass production rate of ozone per unit mass of
24    ! air with respect to temperature, in s-1 K-1)    ! air with respect to temperature, in s-1 K-1)
   ! (On the "physics" grid.  
   ! "a4_mass(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",  
   ! middle of layer "k".)  
25    
26    real, save:: a6_mass(klon, llm)    real, save:: a6_mass(klon, llm)
27    ! (derivative of mass production rate of ozone per unit mass of    ! (derivative of mass production rate of ozone per unit mass of
28    ! air with respect to mass column-density of ozone above, in m2 s-1 kg-1)    ! air with respect to mass column-density of ozone above, in m2 s-1 kg-1)
   ! (On the "physics" grid.  
   ! "a6_mass(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",  
   ! middle of layer "k".)  
29    
30    real, save:: r_het_interm(klon, llm)    real, save:: r_het_interm(klon, llm)
31    ! (net mass production rate by heterogeneous chemistry, per unit    ! (net mass production rate by heterogeneous chemistry, per unit
32    ! mass of ozone, corrected for chlorine content and latitude, but    ! mass of ozone, corrected for chlorine content and latitude, but
33    ! not for temperature and sun direction, in s-1)    ! not for temperature and sun direction, in s-1)
   ! (On the "physics" grid.  
   ! "r_het_interm(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",  
   ! middle of layer "k".)  
34    
35    private klon, llm    private klon, llm
36    
# Line 53  contains Line 42  contains
42      ! coefficients ozone".      ! coefficients ozone".
43    
44      ! This subroutine :      ! This subroutine :
45      ! -- reads from a file all eight parameters for ozone chemistry,      ! -- reads from a file all eight coefficients for ozone chemistry,
46      !    at the current day ;      !    at the current day ;
47      ! -- regrids the parameters in pressure to the LMDZ vertical grid ;      ! -- regrids the coefficients in pressure to the LMDZ vertical grid ;
48      ! -- packs the parameters to the "physics" horizontal grid ;      ! -- packs the coefficients to the "physics" horizontal grid ;
49      ! -- combines the eight parameters to define the five module variables.      ! -- combines the eight coefficients to define the five module variables.
50    
51      ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa      ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa
52      ! and strictly increasing.      ! and strictly increasing.
# Line 104  contains Line 93  contains
93    
94      !------------------------------------      !------------------------------------
95    
96      print *, "Call sequence information: read_coefoz"      print *, "Call sequence information: regr_pr_comb_coefoz"
97    
98      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
99    
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21