| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
164 |
CTRL_SET_PACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
232 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
68 |
CTRL_SET_PACK_XYZ |
_RL weightfld3d( snx,nsx,npx,sny,nsy,npy,nr ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
173 |
CTRL_SET_UNPACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
182 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
264 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
272 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
68 |
CTRL_SET_UNPACK_XYZ |
_RL weightfld3d( snx,nsx,npx,sny,nsy,npy,nr ) |