| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1264 |
SOLIR |
_RL rr2t(m,n),tt2t(m,n),td2t(m,n),rs2t(m,n),ts2t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1437 |
SOLIR |
rs2t(i,j)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1457 |
SOLIR |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1510 |
SOLIR |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1684 |
SOLUV |
_RL rr2t(m,n),tt2t(m,n),td2t(m,n),rs2t(m,n),ts2t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1814 |
SOLUV |
rs2t(i,j)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1832 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1882 |
SOLUV |
rs(i,j,k,2)=rs2t(i,j) |