| File |
Line number |
Procedure |
Code |
|
./pkg/openad/openad_dumpAdjoint.F |
120 |
OPENAD_DUMPADJOINT |
foo5=diffkrd |
|
./pkg/openad/the_model_main.F |
506 |
THE_MODEL_MAIN |
foo=diffkrd |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
178 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( diffkr, myThid ) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
178 |
CTRL_MAP_INI_GENARR |
_EXCH_XYZ_RL( diffkr, myThid ) |
|
./pkg/ctrl/ctrl_map_ini.F |
258 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
141 |
CTRL_MAP_INI_GENARR |
& call CTRL_MAP_GENARR3D(diffkr,igen_diffkr,myThid) |
|
./pkg/ecco/cost_gencost_customize.F |
265 |
COST_GENCOST_CUSTOMIZE |
& diffkr(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |