/[lmdze]/trunk/phylmd/ozonecm.f
ViewVC logotype

Diff of /trunk/phylmd/ozonecm.f

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

trunk/libf/phylmd/ozonecm.f90 revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC trunk/phylmd/ozonecm.f revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 23  contains Line 23  contains
23    
24      use dimens_m, only: llm      use dimens_m, only: llm
25      USE dimphy, ONLY : klon      USE dimphy, ONLY : klon
26      use numer_rec, only: assert, pi      use nr_util, only: assert, pi
27      use phyetat0_m, only: rlat      use phyetat0_m, only: rlat
28    
29      REAL, INTENT (IN) :: rjour      REAL, INTENT (IN) :: rjour
# Line 33  contains Line 33  contains
33      ! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is      ! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is
34      ! between interface "k" and interface "k + 1", in kDU.      ! between interface "k" and interface "k + 1", in kDU.
35    
36      ! Variables local to the procedure:      ! Local:
37    
38      REAL tozon, pl      REAL tozon, pl
39      INTEGER i, k      INTEGER i, k
Legend:
Removed from v.22  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21