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

trunk/libf/phylmd/Mobidic/o3_chem.f90 revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC trunk/phylmd/Mobidic/o3_chem.f revision 98 by guez, Tue May 13 17:23:16 2014 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
22      use orbite_m, only: orbite, zenang      use orbite_m, only: orbite
23        use zenang_m, only: zenang
24    
25      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360      integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
26      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 110  contains Line 109  contains
109      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".      ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
110    
111      use regr_pr_comb_coefoz_m, only: a6_mass      use regr_pr_comb_coefoz_m, only: a6_mass
112      use numer_rec, only: assert      use nr_util, only: assert
113      use dimens_m, only: llm      use dimens_m, only: llm
114      use dimphy, only: klon      use dimphy, only: klon
115    
Legend:
Removed from v.18  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21