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