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

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

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

revision 9 by guez, Mon Mar 31 13:58:05 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 13  contains Line 13  contains
13      ! This procedure evolves the ozone mass fraction through a time      ! This procedure evolves the ozone mass fraction through a time
14      ! step taking only chemistry into account.      ! step taking only chemistry into account.
15    
16      use nrutil, only: assert      use numer_rec, only: assert, pi
17      use dimphy, only: klon      use dimphy, only: klon
18      use dimens_m, only: llm      use dimens_m, only: llm
19      use regr_pr_comb_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm      use regr_pr_comb_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm
20      use orbite_m, only: orbite, zenang      use orbite_m, only: orbite, zenang
     use nrtype, only: pi  
21    
22      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
23      real, intent(in):: gmtime ! heure de la journée en fraction de jour      real, intent(in):: gmtime ! heure de la journée en fraction de jour
# Line 113  contains Line 112  contains
112      ! This function computes the production rate of ozone by chemistry.      ! This function computes the production rate of ozone by chemistry.
113    
114      use regr_pr_comb_coefoz_m, only: a6_mass      use regr_pr_comb_coefoz_m, only: a6_mass
115      use nrutil, only: assert      use numer_rec, only: assert
116      use dimens_m, only: llm      use dimens_m, only: llm
117      use dimphy, only: klon      use dimphy, only: klon
118    
Legend:
Removed from v.9  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21