| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1152 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1230 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1389 |
SOLIR |
tauwv=xk(ik)*wh(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
782 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
816 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
818 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
852 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1151 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1229 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1388 |
SOLIR |
tauwv=xk(ik)*wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
781 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
815 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |
|
./pkg/fizhi/fizhi_swrad.F |
817 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
851 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |