| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
107 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
123 |
CTRL_MAP_INI_GEN3D |
call ACTIVE_READ_XYZ( fnamegeneric, xxFld3d, 1, |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
126 |
CTRL_MAP_INI_GEN3D |
CALL READ_REC_XYZ_RL( fnamegeneric, xxFld3d, 1, 1, myThid ) |
|
./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 |
144 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
156 |
CTRL_MAP_INI_GEN3D |
if (useSMOOTH) call SMOOTH3D(xxFld3d,paramSmooth,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
160 |
CTRL_MAP_INI_GEN3D |
& 'RL',nr,1,nr,xxFld3d,dummyRS,1,optimcycle,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
170 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
182 |
CTRL_MAP_INI_GEN3D |
call SMOOTH_CORREL3D(xxFld3d,paramSmooth,mythid) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
194 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
197 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
200 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
54 |
CTRL_MAP_INI_GEN3D |
_RL xxFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |