| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
268 |
CTRL_MAP_INI_GEN2D |
_RL xxFld2d(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
320 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
335 |
CTRL_MAP_INI_GEN2D |
call ACTIVE_READ_XY( fnamegeneric, xxFld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
338 |
CTRL_MAP_INI_GEN2D |
CALL READ_REC_XY_RL( fnamegeneric, xxFld2d, 1, 1, myThid ) |
|
./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 |
355 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
366 |
CTRL_MAP_INI_GEN2D |
if (useSMOOTH) call SMOOTH2D(xxFld2d,maskFld3d,paramSmooth,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
370 |
CTRL_MAP_INI_GEN2D |
& 'RL',1,1,1,xxFld2d,dummyRS,1,optimcycle,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
379 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
390 |
CTRL_MAP_INI_GEN2D |
call SMOOTH_CORREL2D(xxFld2d,maskFld3d,paramSmooth,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
401 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
404 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
407 |
CTRL_MAP_INI_GEN2D |
& + xxFld2d(i,j,bi,bj) |