subroutine, public mo_rtlink::rtlink |
( |
real(r8), dimension(pverp), intent(in) |
z, |
|
|
integer, intent(in) |
nw, |
|
|
real(r8), dimension(nw), intent(in) |
albedo, |
|
|
real(r8), intent(in) |
zen, |
|
|
real(r8), dimension(0:pver,pver), intent(in) |
dsdh, |
|
|
integer, dimension(0:pver), intent(in) |
nid, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtrl, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dto3, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dto2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtcld, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omcld, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gcld, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtcbs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omcbs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gcbs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtcbs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omcbs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gcbs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtocs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omocs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gocs1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtocs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omocs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gocs2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtant, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omant, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gant, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtso4, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omso4, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gso4, |
|
|
real(r8), dimension(pver,nw,4), intent(in) |
dtsal, |
|
|
real(r8), dimension(pver,nw,4), intent(in) |
omsal, |
|
|
real(r8), dimension(pver,nw,4), intent(in) |
gsal, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtds1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omds1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gds1, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtds2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omds2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gds2, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtds3, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omds3, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gds3, |
|
|
real(r8), dimension(pver,nw), intent(in) |
dtds4, |
|
|
real(r8), dimension(pver,nw), intent(in) |
omds4, |
|
|
real(r8), dimension(pver,nw), intent(in) |
gds4, |
|
|
real(r8), dimension(pverp,nw), intent(out) |
radfld |
|
) |
| |