| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
252 |
CTRL_MAP_INI_GEN2D |
_RL wFld2d(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
300 |
CTRL_MAP_INI_GEN2D |
call MDSREADFIELD(wFileCur,ctrlprec,'RL',1,wFld2d,1,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
301 |
CTRL_MAP_INI_GEN2D |
_EXCH_XY_RL( wFld2d, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
318 |
CTRL_MAP_INI_GEN2D |
& (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
319 |
CTRL_MAP_INI_GEN2D |
tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
368 |
CTRL_MAP_INI_GEN2D |
& .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
370 |
CTRL_MAP_INI_GEN2D |
& /sqrt( wFld2d(i,j,bi,bj) ) |