| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1334 |
IRRAD |
tcom(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1497 |
IRRAD |
call COMKDIS(ib,m,n,np,k2-1,comexp,tcom,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
2964 |
COMKDIS |
subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2993 |
COMKDIS |
_RL tcom(m,n,2),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3009 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3010 |
COMKDIS |
xc= 0.972025*tcom(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3011 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3012 |
COMKDIS |
xc=xc+0.027975*tcom(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3018 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3019 |
COMKDIS |
xc= 0.961324*tcom(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3020 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3021 |
COMKDIS |
xc=xc+0.038676*tcom(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
598 |
IRRAD |
_RL tn2o(m,n,4),tch4(m,n,4),tcom(m,n,2) |