subroutine, public mo_photoin::photoin |
( |
integer, intent(in) |
idate, |
|
|
real(r8), intent(in) |
alat, |
|
|
real(r8), intent(in) |
along, |
|
|
real(r8), intent(in) |
ut, |
|
|
real(r8), intent(in) |
esfact, |
|
|
real(r8), intent(in) |
o3top, |
|
|
real(r8), intent(in) |
o2top, |
|
|
real(r8), dimension(kw), intent(in) |
albedo, |
|
|
real(r8), dimension(pverp), intent(in) |
z, |
|
|
real(r8), dimension(pverp), intent(in) |
tlev, |
|
|
real(r8), dimension(pver), intent(in) |
tlay, |
|
|
real(r8), dimension(pverp), intent(in) |
xlwc, |
|
|
real(r8), dimension(pverp), intent(in) |
xfrc, |
|
|
real(r8), dimension(pverp), intent(in) |
airlev, |
|
|
real(r8), dimension(pverp), intent(in) |
aocs1, |
|
|
real(r8), dimension(pverp), intent(in) |
aocs2, |
|
|
real(r8), dimension(pverp), intent(in) |
acbs1, |
|
|
real(r8), dimension(pverp), intent(in) |
acbs2, |
|
|
real(r8), dimension(pverp), intent(in) |
asoa, |
|
|
real(r8), dimension(pverp), intent(in) |
aant, |
|
|
real(r8), dimension(pverp), intent(in) |
aso4, |
|
|
real(r8), dimension(pverp,4), intent(in) |
asal, |
|
|
real(r8), dimension(4,pverp), intent(in) |
ads, |
|
|
real(r8), dimension(pverp), intent(inout) |
o3, |
|
|
real(r8), dimension(pverp), intent(in) |
rh, |
|
|
real(r8), dimension(pverp,nlng), intent(out) |
prate, |
|
|
real(r8), intent(in) |
zen, |
|
|
integer, intent(in) |
nw, |
|
|
real(r8), dimension(:), intent(out) |
dt_xdiag |
|
) |
| |