| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
108 |
CTRL_MAP_INI_GEN3D |
wFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
116 |
CTRL_MAP_INI_GEN3D |
& nR,1,nR,wFld3d,dummyRS,1,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
117 |
CTRL_MAP_INI_GEN3D |
_EXCH_XYZ_RL( wFld3d, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
139 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
140 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
193 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
195 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
53 |
CTRL_MAP_INI_GEN3D |
_RL wFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |