| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1012 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1018 |
CLDSCALE |
save caib,caif |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1113 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1114 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1116 |
CLDSCALE |
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1117 |
CLDSCALE |
* caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1119 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1120 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1122 |
CLDSCALE |
xai= xai-2.*caib(im,it,ia) |
|
./pkg/fizhi/fizhi_swrad.F |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1017 |
CLDSCALE |
save caib,caif |
|
./pkg/fizhi/fizhi_swrad.F |
1112 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1113 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./pkg/fizhi/fizhi_swrad.F |
1115 |
CLDSCALE |
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1116 |
CLDSCALE |
* caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1118 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1119 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1121 |
CLDSCALE |
xai= xai-2.*caib(im,it,ia) |
|
./pkg/fizhi/cai-dat.h |
101 |
NO PROCEDURE |
data ((caib(11,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
11 |
NO PROCEDURE |
data ((caib(2,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
1 |
NO PROCEDURE |
data ((caib(1,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
21 |
NO PROCEDURE |
data ((caib(3,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
31 |
NO PROCEDURE |
data ((caib(4,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
41 |
NO PROCEDURE |
data ((caib(5,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
51 |
NO PROCEDURE |
data ((caib(6,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
61 |
NO PROCEDURE |
data ((caib(7,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
71 |
NO PROCEDURE |
data ((caib(8,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
81 |
NO PROCEDURE |
data ((caib(9,i,j),j=1,11),i=1,9)/ |
|
./pkg/fizhi/cai-dat.h |
91 |
NO PROCEDURE |
data ((caib(10,i,j),j=1,11),i=1,9)/ |