| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1095 |
IRRAD |
clr(i,j,k) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
1548 |
IRRAD |
clrhi(i,j)=min(clr(i,j,k2-1),clrhi(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1550 |
IRRAD |
clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1552 |
IRRAD |
clrlw(i,j)=min(clr(i,j,k2-1),clrlw(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
603 |
IRRAD |
_RL clr(m,n,0:np+1),fclr(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
967 |
IRRAD |
clr(i,j,0) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
968 |
IRRAD |
clr(i,j,np+1) = 0.0 |