| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_gen.F |
16 |
EXF_SET_GEN |
& genfld, gen0, gen1, genmask, |
|
./pkg/exf/exf_set_gen.F |
178 |
EXF_SET_GEN |
CALL EXF_FILTER_RL( gen1, genmask, myThid ) |
|
./pkg/exf/exf_set_gen.F |
216 |
EXF_SET_GEN |
CALL EXF_FILTER_RL( gen1, genmask, myThid ) |
|
./pkg/exf/exf_set_gen.F |
245 |
EXF_INIT_GEN |
& genfile, genperiod, exf_inscal_gen, genmask, |
|
./pkg/exf/exf_set_gen.F |
278 |
EXF_INIT_GEN |
CHARACTER*1 genmask |
|
./pkg/exf/exf_set_gen.F |
349 |
EXF_INIT_GEN |
CALL EXF_FILTER_RL( genfld, genmask, myThid ) |
|
./pkg/exf/exf_set_gen.F |
60 |
EXF_SET_GEN |
CHARACTER*1 genmask |
|
./pkg/ctrl/ctrl_get_gen.F |
129 |
CTRL_GET_GEN |
& call CTRL_SMOOTH(xx_gen1,genmask,myThid) |
|
./pkg/ctrl/ctrl_get_gen.F |
135 |
CTRL_GET_GEN |
call SMOOTH_CORREL2D(xx_gen1,genmask,1,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
136 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
144 |
CTRL_GET_GEN |
if (useSMOOTH) call SMOOTH2D(xx_gen1,genmask,1,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
169 |
CTRL_GET_GEN |
& call CTRL_SMOOTH(xx_gen1,genmask,myThid) |
|
./pkg/ctrl/ctrl_get_gen.F |
175 |
CTRL_GET_GEN |
call SMOOTH_CORREL2D(xx_gen1,genmask,1,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
176 |
CTRL_GET_GEN |
call SMOOTH_CORREL2DW(xx_gen1,genmask,xx_gen_file,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
184 |
CTRL_GET_GEN |
if (useSMOOTH) call SMOOTH2D(xx_gen1,genmask,1,mythid) |
|
./pkg/ctrl/ctrl_get_gen.F |
253 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
47 |
CTRL_GET_GEN |
_RS genmask(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_get_gen.F |
9 |
CTRL_GET_GEN |
I genmask, genfld, xx_gen0, xx_gen1, xx_gen_dummy, |
|
./pkg/ecco/cost_forcing_gen.F |
183 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
214 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
24 |
COST_FORCING_GEN |
I genmask, |
|
./pkg/ecco/cost_forcing_gen.F |
264 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
70 |
COST_FORCING_GEN |
_RS genmask(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy) |