| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/cai-dat.h |
115 |
NO PROCEDURE |
data ((caif(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 |
1138 |
CLDSCALE |
xai= (-caif(it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1139 |
CLDSCALE |
* caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1141 |
CLDSCALE |
xai=xai+(-caif(it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1142 |
CLDSCALE |
* caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1144 |
CLDSCALE |
xai= xai-caif(it,ia) |