| File |
Line number |
Procedure |
Code |
|
./pkg/openad/openad_dumpAdjoint.F |
124 |
OPENAD_DUMPADJOINT |
foo4=qnetd |
|
./pkg/openad/the_model_main.F |
529 |
THE_MODEL_MAIN |
foo2D=qnetd |
|
./pkg/seaice/seaice_fake.F |
58 |
SEAICE_FAKE |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) * fac |
|
./pkg/seaice/seaice_fake.F |
83 |
SEAICE_FAKE |
_EXCH_XY_RS( qnet, myThid ) |
|
./pkg/seaice/seaice_growth.F |
2677 |
SEAICE_GROWTH |
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2 |
|
./pkg/ctrl/ctrl_map_forcing.F |
199 |
CTRL_MAP_FORCING |
qnet(i,j,bi,bj) = qnet(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/ecco/cost_averagesfields.F |
510 |
COST_AVERAGESFIELDS |
& hfluxmeanbar, qnet, xx_hflux_mean_dummy, |