| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1025 |
IRRAD |
* *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1026 |
IRRAD |
* +cb(2,ib))+cb(1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1037 |
IRRAD |
* *(ts(i,j)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1038 |
IRRAD |
* +cb(2,ib))+cb(1,ib) )*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1043 |
IRRAD |
dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1044 |
IRRAD |
* +3.*cb(4,ib))+2.*cb(3,ib))+cb(2,ib))*emiss(i,j,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2566 |
TABLUP |
cb = coef3(ip,iw+1,nn)*(1.-fp)+coef3(ip+1,iw+1,nn)*fp |
|
./pkg/fizhi/fizhi_lwrad.F |
2567 |
TABLUP |
t2 = ca*(1.-fw) + cb*fw |
|
./pkg/fizhi/fizhi_lwrad.F |
584 |
IRRAD |
_RL cb(5,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
627 |
IRRAD |
data cb/ |