| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1013 |
CLDSCALE |
_RL fm,ft,fa,xai,taux |
|
./pkg/fizhi/fizhi_swrad.F |
1096 |
CLDSCALE |
fm=cosz(i,j)/dm |
|
./pkg/fizhi/fizhi_swrad.F |
1100 |
CLDSCALE |
im=int(fm+1.5) |
|
./pkg/fizhi/fizhi_swrad.F |
1112 |
CLDSCALE |
fm=fm-float(im-1) |
|
./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/flt/flt_mapping.F |
207 |
FLT_MAP_IJLOCAL2XY |
_RL fm |
|
./pkg/flt/flt_mapping.F |
217 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
218 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
45 |
FLT_MAP_XY2IJLOCAL |
_RL fm, dist |
|
./pkg/flt/flt_mapping.F |
62 |
FLT_MAP_XY2IJLOCAL |
fm = ( xx - xG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
73 |
FLT_MAP_XY2IJLOCAL |
fm = ( yy - yG(i,j,bi,bj) ) / dist |
|
./pkg/flt/flt_mapping.F |
74 |
FLT_MAP_XY2IJLOCAL |
jy = DFLOAT(j)+fm-0.5 _d 0 |