| File |
Line number |
Procedure |
Code |
|
./model/src/find_rho.F |
939 |
FIND_RHO_SCALAR |
rholoc = rhoNil*( |
|
./pkg/bbl/bbl_calc_rhs.F |
73 |
BBL_CALC_RHS |
_RL rholoc ( 0:sNx+1, 0:sNy+1 ) |
|
./pkg/bbl/bbl_calc_rhs.F |
92 |
BBL_CALC_RHS |
rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
183 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
254 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
256 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
263 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
323 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
326 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
391 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
393 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
458 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
460 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
468 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
83 |
COST_OBCS_AGEOS |
_RL rholoc (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |