| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
160 |
CTRL_SET_PACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
169 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
220 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
228 |
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 |
169 |
CTRL_SET_UNPACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
178 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
260 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
268 |
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 ) |