| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
784 |
SORAD |
_RL sdf(m,n),sclr(m,n),csm(m,n),x |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
916 |
SORAD |
sclr(i,j)=1.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
928 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
929 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
931 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
941 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./pkg/fizhi/fizhi_swrad.F |
783 |
SORAD |
_RL sdf(m,n),sclr(m,n),csm(m,n),x |
|
./pkg/fizhi/fizhi_swrad.F |
915 |
SORAD |
sclr(i,j)=1.0 |
|
./pkg/fizhi/fizhi_swrad.F |
927 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
928 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
930 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
940 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |