| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2270 |
CFCEXPS |
subroutine CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2298 |
CFCEXPS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2318 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2321 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3033 |
CFCKDIS |
subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3057 |
CFCKDIS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
3068 |
CFCKDIS |
tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k) |