16 |
use nrutil, only: assert |
use nrutil, only: assert |
17 |
use dimphy, only: klon |
use dimphy, only: klon |
18 |
use dimens_m, only: llm |
use dimens_m, only: llm |
19 |
use read_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 |
21 |
use nrtype, only: pi |
use nrtype, only: pi |
22 |
|
|
112 |
|
|
113 |
! This function computes the production rate of ozone by chemistry. |
! This function computes the production rate of ozone by chemistry. |
114 |
|
|
115 |
use read_coefoz_m, only: a6_mass |
use regr_pr_comb_coefoz_m, only: a6_mass |
116 |
use nrutil, only: assert |
use nrutil, only: assert |
117 |
use dimens_m, only: llm |
use dimens_m, only: llm |
118 |
use dimphy, only: klon |
use dimphy, only: klon |