| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
107 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
119 |
SEAICE_CTRL_MAP_INI |
call ACTIVE_READ_XY( fnamegeneric, tmpfld2d, 1, |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
127 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
139 |
SEAICE_CTRL_MAP_INI |
call ACTIVE_READ_XY( fnamegeneric, tmpfld2d, 1, |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
147 |
SEAICE_CTRL_MAP_INI |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
99 |
SEAICE_CTRL_MAP_INI |
call ACTIVE_READ_XY( fnamegeneric, tmpfld2d, 1, |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
139 |
SHELFICE_COST_SHIFWFLX |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
150 |
SHELFICE_COST_SHIFWFLX |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
90 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
109 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
90 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
101 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
98 |
CTRL_MAP_INI_GENARR |
& + tmpfld2d(i,j,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
87 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
CALL ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/admtlm/admtlm_bypassad.F |
109 |
ADMTLM_BYPASSAD |
& optimcycle,mythid,tmpfld2d ) |
|
./pkg/admtlm/admtlm_bypassad.F |
99 |
ADMTLM_BYPASSAD |
tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl.h |
205 |
NO PROCEDURE |
_RL tmpfld2d |
|
./pkg/ctrl/ctrl_cost_gen.F |
170 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
173 |
CTRL_COST_GEN2D |
CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
187 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
216 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
219 |
CTRL_COST_GEN2D |
CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
228 |
CTRL_COST_GEN2D |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
274 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
277 |
CTRL_COST_GEN2D |
CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
292 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
305 |
CTRL_COST_GEN2D |
tmpx = tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
338 |
CTRL_COST_GEN2D |
& fnamefld, tmpfld2d, irec, doglobalread, |
|
./pkg/ctrl/ctrl_cost_gen.F |
341 |
CTRL_COST_GEN2D |
CALL READ_REC_XY_RL( fnamefld, tmpfld2d, iRec, 1, myThid ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
344 |
CTRL_COST_GEN2D |
_EXCH_XY_RL(tmpfld2d, myThid) |
|
./pkg/ctrl/ctrl_cost_gen.F |
357 |
CTRL_COST_GEN2D |
& ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
359 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
361 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
363 |
CTRL_COST_GEN2D |
& + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) ) |
|
./pkg/ctrl/ctrl_depth_ini.F |
116 |
CTRL_DEPTH_INI |
call ACTIVE_READ_XY( fnamedepth, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_depth_ini.F |
124 |
CTRL_DEPTH_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_depth_ini.F |
96 |
CTRL_DEPTH_INI |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
138 |
CTRL_HFACC_INI |
call ACTIVE_READ_XY( fnamehfacc, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
148 |
CTRL_HFACC_INI |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
116 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnametauu, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
126 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
128 |
CTRL_MAP_FORCING |
fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
141 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnametauv, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
151 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
153 |
CTRL_MAP_FORCING |
fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
166 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnamesflux, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
176 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
178 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
191 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnamehflux, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
201 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
203 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
216 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnamesss, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
223 |
CTRL_MAP_FORCING |
sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
235 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnamesst, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
242 |
CTRL_MAP_FORCING |
sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
254 |
CTRL_MAP_FORCING |
call ACTIVE_READ_XY ( fnamehfluxm, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_forcing.F |
264 |
CTRL_MAP_FORCING |
& tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_forcing.F |
266 |
CTRL_MAP_FORCING |
Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
207 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
216 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
228 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
237 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
383 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
391 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
498 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
510 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
512 |
CTRL_MAP_INI |
& fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
525 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
534 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
546 |
CTRL_MAP_INI |
call ACTIVE_READ_XY ( fnamegeneric, tmpfld2d, 1, |
|
./pkg/ctrl/ctrl_map_ini.F |
555 |
CTRL_MAP_INI |
& + tmpfld2d(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
113 |
CTRL_MAP_INI_ECCO |
tmpfld2d(i,j,bi,bj) = 1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
118 |
CTRL_MAP_INI_ECCO |
_EXCH_XY_RL( tmpfld2d, mythid) |
|
./pkg/dic/dic_set_control.F |
73 |
DIC_SET_CONTROL |
CALL ACTIVE_READ_XY( fnamegen2d, tmpfld2d, 1, |
|
./pkg/dic/dic_set_control.F |
82 |
DIC_SET_CONTROL |
& + fac*tmpfld2d(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
96 |
DIC_SET_CONTROL |
& tmpfld2d(20,10,1,1) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
139 |
ECCO_COST_INIT_BARFILES |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
169 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamepsbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
187 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamebpbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
239 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
257 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesstbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
293 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
365 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauxbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
367 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnametauybar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
384 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamehfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
400 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesfluxmeanbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
414 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnameiestaubar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
450 |
ECCO_COST_INIT_BARFILES |
call ACTIVE_WRITE_XY( adfnamesmrareabar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
479 |
ECCO_COST_INIT_BARFILES |
& call ACTIVE_WRITE_XY( adfname_gencostbar, tmpfld2d, irec, |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
74 |
ECCO_COST_INIT_BARFILES |
_RL tmpfld2d (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |