| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
267 |
CTRL_MAP_INI_GEN2D |
_RL wFld2d(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
321 |
CTRL_MAP_INI_GEN2D |
wFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
328 |
CTRL_MAP_INI_GEN2D |
& 1,1,1,wFld2d,dummyRS,1,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
329 |
CTRL_MAP_INI_GEN2D |
_EXCH_XY_RL( wFld2d, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
350 |
CTRL_MAP_INI_GEN2D |
& (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
351 |
CTRL_MAP_INI_GEN2D |
tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
400 |
CTRL_MAP_INI_GEN2D |
& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
402 |
CTRL_MAP_INI_GEN2D |
& /sqrt( wFld2d(i,j,bi,bj) ) |