49 |
! pdtrad radiative tendencies \ both input |
! pdtrad radiative tendencies \ both input |
50 |
! pfluxrad radiative fluxes / and output |
! pfluxrad radiative fluxes / and output |
51 |
|
|
52 |
use comconst, only: kappa, cpp, dtphys, g, pi |
use comconst, only: kappa, cpp, dtphys, g |
53 |
use comvert, only: preff |
use comvert, only: preff |
54 |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
55 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
56 |
use dimphy, only: klon |
use dimphy, only: klon |
57 |
use grid_change, only: dyn_phy, gr_fi_dyn |
use grid_change, only: dyn_phy, gr_fi_dyn |
58 |
use iniadvtrac_m, only: niadv |
use iniadvtrac_m, only: niadv |
59 |
|
use nr_util, only: pi |
60 |
use physiq_m, only: physiq |
use physiq_m, only: physiq |
61 |
use pressure_var, only: p3d, pls |
use pressure_var, only: p3d, pls |
62 |
|
|