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

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

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

revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 1  Line 1 
1  module o3_chem_m  module o3_chem_m
2    
   ! This module is clean: no C preprocessor directive, no include line.  
   
3    IMPLICIT none    IMPLICIT none
4    
5    private o3_prod    private o3_prod
# Line 17  contains Line 15  contains
15      ! Their shape is "(/klon, llm/)".      ! Their shape is "(/klon, llm/)".
16      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
17    
18      use numer_rec, only: assert, pi      use nr_util, only: assert, pi
19      use dimphy, only: klon      use dimphy, only: klon
20      use dimens_m, only: llm      use dimens_m, only: llm
21      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
# Line 110  contains Line 108  contains
108      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
109    
110      use regr_pr_comb_coefoz_m, only: a6_mass      use regr_pr_comb_coefoz_m, only: a6_mass
111      use numer_rec, only: assert      use nr_util, only: assert
112      use dimens_m, only: llm      use dimens_m, only: llm
113      use dimphy, only: klon      use dimphy, only: klon
114    
Legend:
Removed from v.18  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21