| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch