|
integer,
|
intent(in) |
|
|
:: |
Npoints |
|
|
integer,
|
intent(in) |
|
|
:: |
Nlevels |
|
|
integer,
|
intent(in) |
|
|
:: |
Ncolumns |
|
|
real(kind=wp),
|
intent(in), |
|
dimension(Npoints,Nlevels)
|
:: |
p |
|
|
real(kind=wp),
|
intent(in), |
|
dimension(Npoints,Nlevels)
|
:: |
T |
|
|
real(kind=wp),
|
intent(in), |
|
dimension(Npoints,Ncolumns,Nlevels)
|
:: |
prec_frac |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
prec_type |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
n_ax |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
n_bx |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
alpha_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
c_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
d_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
g_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
a_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
b_x |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
gamma1 |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
gamma2 |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
gamma3 |
|
|
real(kind=wp),
|
intent(in) |
|
|
:: |
gamma4 |
|
|
real(kind=wp),
|
intent(in), |
|
dimension(Npoints,Nlevels)
|
:: |
flux |
|
|
real(kind=wp),
|
intent(out), |
|
dimension(Npoints,Ncolumns,Nlevels)
|
:: |
mxratio |
|
|
real(kind=wp),
|
intent(inout), |
|
dimension(Npoints,Ncolumns,Nlevels)
|
:: |
reff |
|