| File |
Line number |
Procedure |
Code |
|
./model/src/calc_buoyancy.F |
49 |
CALC_BUOYANCY |
buoy(i,j)=-gravity*recip_rhoConst*rholoc(i,j) |
|
./model/src/calc_buoyancy.F |
57 |
CALC_BUOYANCY |
if ( rholoc(i,j) .ne. 0. ) then |
|
./model/src/calc_buoyancy.F |
58 |
CALC_BUOYANCY |
rholoc(i,j) = 1./rholoc(i,j) |
|
./model/src/calc_buoyancy.F |
59 |
CALC_BUOYANCY |
buoy(i,j)=rholoc(i,j) |
|
./model/src/find_rho.F |
632 |
FIND_RHO_SCALAR |
rholoc = rhoNil*( |
|
./pkg/ecco/cost_obcs_ageos.F |
174 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
245 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
247 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
253 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
309 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
312 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
318 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
373 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
382 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
436 |
COST_OBCS_AGEOS |
O rholoc, |
|
./pkg/ecco/cost_obcs_ageos.F |
438 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
74 |
COST_OBCS_AGEOS |
_RL rholoc (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |