| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/cai-dat.h |
104 |
NO PROCEDURE |
data ((caib(11,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
14 |
NO PROCEDURE |
data ((caib(2,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
24 |
NO PROCEDURE |
data ((caib(3,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
34 |
NO PROCEDURE |
data ((caib(4,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
44 |
NO PROCEDURE |
data ((caib(5,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
4 |
NO PROCEDURE |
data ((caib(1,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
54 |
NO PROCEDURE |
data ((caib(6,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
64 |
NO PROCEDURE |
data ((caib(7,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
74 |
NO PROCEDURE |
data ((caib(8,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
84 |
NO PROCEDURE |
data ((caib(9,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
94 |
NO PROCEDURE |
data ((caib(10,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/fizhi_swrad.F |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1025 |
CLDSCALE |
save caib,caif |
|
./pkg/fizhi/fizhi_swrad.F |
1120 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1121 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./pkg/fizhi/fizhi_swrad.F |
1123 |
CLDSCALE |
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1124 |
CLDSCALE |
* caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1126 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1127 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1129 |
CLDSCALE |
xai= xai-2.*caib(im,it,ia) |