| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1569 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1658 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1786 |
SOLUV |
tauoz=xk(ib)*oh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
789 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
829 |
SORAD |
oh(i,j,k)=1.02*oa(i,j,k)*dp(i,j,k)*466.7 |
|
./pkg/fizhi/fizhi_swrad.F |
864 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |