17 |
! Their shape is "(/klon, llm/)". |
! Their shape is "(/klon, llm/)". |
18 |
! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)". |
! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)". |
19 |
|
|
20 |
use numer_rec, only: assert, pi |
use nr_util, only: assert, pi |
21 |
use dimphy, only: klon |
use dimphy, only: klon |
22 |
use dimens_m, only: llm |
use dimens_m, only: llm |
23 |
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 |
110 |
! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)". |
! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)". |
111 |
|
|
112 |
use regr_pr_comb_coefoz_m, only: a6_mass |
use regr_pr_comb_coefoz_m, only: a6_mass |
113 |
use numer_rec, only: assert |
use nr_util, only: assert |
114 |
use dimens_m, only: llm |
use dimens_m, only: llm |
115 |
use dimphy, only: klon |
use dimphy, only: klon |
116 |
|
|