| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1153 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1229 |
SOLIR |
_RL rsirbm(m,ndim),rsirdf(m,ndim) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1319 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
660 |
SORAD |
* taual,rsirbm,rsirdf,rsuvbm,rsuvdf,cosz, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
768 |
SORAD |
_RL rsirbm(m,ndim),rsirdf(m,ndim), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
853 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
940 |
SORAD |
x = (1.-rsirdf(i,j))*fdifir(i,j) + (1.-rsirbm(i,j))*fdirir(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1228 |
SOLIR |
_RL rsirbm(m,ndim),rsirdf(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
1317 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
659 |
SORAD |
* taual,rsirbm,rsirdf,rsuvbm,rsuvdf,cosz, |
|
./pkg/fizhi/fizhi_swrad.F |
767 |
SORAD |
_RL rsirbm(m,ndim),rsirdf(m,ndim), |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
939 |
SORAD |
x = (1.-rsirdf(i,j))*fdifir(i,j) + (1.-rsirbm(i,j))*fdirir(i,j) |