| File |
Line number |
Procedure |
Code |
|
./pkg/openad/openad_dumpAdjoint.F |
125 |
OPENAD_DUMPADJOINT |
foo4=empmrd |
|
./pkg/openad/the_model_main.F |
526 |
THE_MODEL_MAIN |
foo2D=empmrd |
|
./pkg/seaice/seaice_budget_ocean.F |
149 |
SEAICE_BUDGET_OCEAN |
empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_fake.F |
85 |
SEAICE_FAKE |
_EXCH_XY_RS( empmr, myThid ) |
|
./pkg/seaice/seaice_growth.F |
2599 |
SEAICE_GROWTH |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
150 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + |
|
./pkg/ctrl/ctrl_map_forcing.F |
154 |
CTRL_MAP_FORCING |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
510 |
COST_AVERAGESFIELDS |
& sfluxmeanbar, empmr, xx_sflux_mean_dummy, |
|
./pkg/ecco/cost_gencost_customize.F |
65 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,1) = empmr(i,j,bi,bj) |