48 |
! pfluxrad radiative fluxes / input and output |
! pfluxrad radiative fluxes / input and output |
49 |
|
|
50 |
use comconst, only: kappa, cpp, dtphys, g |
use comconst, only: kappa, cpp, dtphys, g |
51 |
use comvert, only: preff |
use disvert_m, only: preff |
52 |
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 |
53 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
54 |
use dimphy, only: klon |
use dimphy, only: klon |
71 |
REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx) |
REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx) |
72 |
! (mass fractions of advected fields) |
! (mass fractions of advected fields) |
73 |
|
|
74 |
REAL phis(iim + 1, jjm + 1) |
REAL, intent(in):: phis(iim + 1, jjm + 1) |
75 |
REAL, intent(in):: phi(iim + 1, jjm + 1, llm) |
REAL, intent(in):: phi(iim + 1, jjm + 1, llm) |
76 |
|
|
77 |
REAL dv(iim + 1, jjm, llm) |
REAL dv(iim + 1, jjm, llm) |