17 |
|
|
18 |
use nr_util, 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 dimensions, 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 |
use orbite_m, only: orbite |
23 |
use zenang_m, only: zenang |
use zenang_m, only: zenang |
110 |
|
|
111 |
use regr_pr_comb_coefoz_m, only: a6_mass |
use regr_pr_comb_coefoz_m, only: a6_mass |
112 |
use nr_util, only: assert |
use nr_util, only: assert |
113 |
use dimens_m, only: llm |
use dimensions, only: llm |
114 |
use dimphy, only: klon |
use dimphy, only: klon |
115 |
|
|
116 |
real, intent(in):: q(:, :) ! mass fraction of ozone |
real, intent(in):: q(:, :) ! mass fraction of ozone |