| File |
Line number |
Procedure |
Code |
|
./model/src/ini_eos.F |
389 |
CHECK_EOS |
rholoc(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
394 |
CHECK_EOS |
& tFld, sFld, rholoc, myThid ) |
|
./model/src/ini_eos.F |
410 |
CHECK_EOS |
& ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_eos.F |
419 |
CHECK_EOS |
& ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/find_rho.F |
128 |
FIND_RHO |
rholoc(i,j)=sigRef+deltaSig |
|
./model/src/find_rho.F |
13 |
FIND_RHO |
O rholoc, |
|
./model/src/find_rho.F |
163 |
FIND_RHO |
rholoc(i,j) = rhoP0(i,j) |
|
./model/src/find_rho.F |
191 |
FIND_RHO |
rholoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
47 |
FIND_RHO |
_RL rholoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/find_rho.F |
630 |
FIND_RHO_SCALAR |
rholoc = rhoNil*( |
|
./model/src/find_rho.F |
65 |
FIND_RHO |
rholoc(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
90 |
FIND_RHO |
rholoc(i,j)=rhoNil*( |
|
./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) |
|
./pkg/ecco/cost_obcs_ageos.F |
173 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
237 |
COST_OBCS_AGEOS |
& tbar,sbar,rholoc,mythid) |
|
./pkg/ecco/cost_obcs_ageos.F |
238 |
COST_OBCS_AGEOS |
_EXCH_XY_R8(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
244 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
297 |
COST_OBCS_AGEOS |
& tbar,sbar,rholoc,mythid) |
|
./pkg/ecco/cost_obcs_ageos.F |
298 |
COST_OBCS_AGEOS |
_EXCH_XY_R8(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
304 |
COST_OBCS_AGEOS |
& (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
& tbar,sbar,rholoc,mythid) |
|
./pkg/ecco/cost_obcs_ageos.F |
357 |
COST_OBCS_AGEOS |
_EXCH_XY_R8(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
364 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
415 |
COST_OBCS_AGEOS |
& tbar,sbar,rholoc,mythid) |
|
./pkg/ecco/cost_obcs_ageos.F |
416 |
COST_OBCS_AGEOS |
_EXCH_XY_R8(rholoc , myThid) |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
& (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
73 |
COST_OBCS_AGEOS |
_RL rholoc (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |