File |
Line number |
Procedure |
Code |
./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 |
141 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
./pkg/ctrl/ctrl_map_ini_gen.F |
142 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
./pkg/ctrl/ctrl_map_ini_gen.F |
265 |
CTRL_MAP_INI_GEN2D |
_RL boundsVec(5),tmpMax,xxDummyCur |
./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 |
352 |
CTRL_MAP_INI_GEN2D |
if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then |
./pkg/ctrl/ctrl_map_ini_gen.F |
353 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj)) |
./pkg/ctrl/ctrl_map_ini_gen.F |
51 |
CTRL_MAP_INI_GEN3D |
_RL boundsVec(5),tmpMax,xxDummyCur |
./pkg/diagnostics/diagstats_global.F |
118 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(1,k)/qtmp1(0,k) |
./pkg/diagnostics/diagstats_global.F |
119 |
DIAGSTATS_GLOBAL |
tmpmin = -tmpMax |
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
./pkg/diagnostics/diagstats_global.F |
125 |
DIAGSTATS_GLOBAL |
_GLOBAL_MAX_RL(tmpMax,myThid) |
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
./pkg/diagnostics/diagstats_global.F |
51 |
DIAGSTATS_GLOBAL |
_RL tmpMin, tmpMax, tmpVol |