| 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 |
1234 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1542 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1563 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1656 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1913 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
661 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
773 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
844 |
SORAD |
flc(i,j,k)=0. |
|
./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 |
858 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
904 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1541 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1912 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
660 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
843 |
SORAD |
flc(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
857 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
903 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1684 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1697 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+rflc(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
350 |
IRRAD |
* high,trace,flx,flc,dfdts,st4) |
|
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
|
./pkg/fizhi/fizhi_lwrad.F |
981 |
IRRAD |
flc(i,j,k) = 0.0 |