| 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 |
1235 |
SOLIR |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1316 |
SOLIR |
fdirir(i,j)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1549 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
457 |
SWRIO |
. flux,fluxclr,fdirir,fdifir,dirpar,difpar, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
489 |
SWRIO |
. ( fdirir(i)+fdifir(i)+dirpar(i)+difpar(i) + fdiruv(i)+fdifuv(i) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
661 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
774 |
SORAD |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
79 |
SWRIO |
_RL fdirir(istrip),fdifir(istrip) |
|
./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) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
942 |
SORAD |
fdirir(i,j)=fdirir(i,j)*(1.+x) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1234 |
SOLIR |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
1315 |
SOLIR |
fdirir(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1548 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
456 |
SWRIO |
. flux,fluxclr,fdirir,fdifir,dirpar,difpar, |
|
./pkg/fizhi/fizhi_swrad.F |
488 |
SWRIO |
. ( fdirir(i)+fdifir(i)+dirpar(i)+difpar(i) + fdiruv(i)+fdifuv(i) ) |
|
./pkg/fizhi/fizhi_swrad.F |
660 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./pkg/fizhi/fizhi_swrad.F |
773 |
SORAD |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
79 |
SWRIO |
_RL fdirir(istrip),fdifir(istrip) |
|
./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) |
|
./pkg/fizhi/fizhi_swrad.F |
941 |
SORAD |
fdirir(i,j)=fdirir(i,j)*(1.+x) |