| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1159 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1237 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1396 |
SOLIR |
tauwv=xk(ik)*wh(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 |
823 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |
|
./pkg/fizhi/fizhi_swrad.F |
825 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
859 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |