| File |
Line number |
Procedure |
Code |
|
./model/src/find_alpha.F |
223 |
FIND_ALPHA |
& locPres, theta, salt, rhoLoc, myThid ) |
|
./model/src/find_alpha.F |
258 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
315 |
FIND_BETA |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/find_alpha.F |
462 |
FIND_BETA |
& locPres, theta, salt, rhoLoc, myThid ) |
|
./model/src/find_alpha.F |
490 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
60 |
FIND_ALPHA |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/ini_eos.F |
302 |
CHECK_EOS |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/ini_eos.F |
415 |
CHECK_EOS |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
|
./model/src/find_rho.F |
565 |
FIND_RHO_SCALAR |
O rhoLoc, |
|
./model/src/find_rho.F |
586 |
FIND_RHO_SCALAR |
_RL rhoLoc |
|
./model/src/find_rho.F |
601 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
648 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
727 |
FIND_RHO_SCALAR |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst |
|
./model/src/find_rho.F |
759 |
FIND_RHO_SCALAR |
rhoLoc = rhoNum*rhoDen - rhoConst |
|
./model/src/grad_sigma.F |
48 |
GRAD_SIGMA |
_RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/grad_sigma.F |
54 |
GRAD_SIGMA |
rhoLoc(i,j) = rhoK(i,j) |
|
./model/src/grad_sigma.F |
61 |
GRAD_SIGMA |
CALL FILL_CS_CORNER_TR_RL( .TRUE., rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
68 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i-1,j)) |
|
./model/src/grad_sigma.F |
75 |
GRAD_SIGMA |
CALL FILL_CS_CORNER_TR_RL( .FALSE., rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
82 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i,j-1)) |
|
./model/src/ini_linear_phisurf.F |
113 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
rhoLoc = rhoLoc + rhoConst |
|
./model/src/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
if ( rhoLoc .eq. 0. _d 0 ) then |
|
./model/src/ini_linear_phisurf.F |
118 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1./rhoLoc |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
49 |
INI_LINEAR_PHISURF |
_RL pLoc, rhoLoc |
|
./model/src/calc_buoyancy.F |
30 |
CALC_BUOYANCY |
_RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/calc_buoyancy.F |
7 |
CALC_BUOYANCY |
I bi, bj, iMin, iMax, jMin, jMax, k, rhoLoc, |
|
./pkg/opps/opps_calc.F |
470 |
OPPS_CALC |
_RL rhoLoc, dRho |
|
./pkg/opps/opps_calc.F |
504 |
OPPS_CALC |
rhoLoc = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
526 |
OPPS_CALC |
rhoLoc=rhoNil* ( |
|
./pkg/opps/opps_calc.F |
538 |
OPPS_CALC |
rhoLoc = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
617 |
OPPS_CALC |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst |
|
./pkg/opps/opps_calc.F |
649 |
OPPS_CALC |
rhoLoc = rhoNum*rhoDen - rhoConst |
|
./pkg/opps/opps_calc.F |
661 |
OPPS_CALC |
state1 = rhoLoc + rhoConst |