| File |
Line number |
Procedure |
Code |
|
./model/src/ini_eos.F |
367 |
EOS_CHECK |
INTEGER ncheck, kcheck |
|
./model/src/ini_eos.F |
472 |
EOS_CHECK |
DO kcheck = 1,ncheck |
|
./model/src/ini_eos.F |
474 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
476 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
479 |
EOS_CHECK |
tFld(i,j) = ptLoc(kcheck) |
|
./model/src/ini_eos.F |
481 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./model/src/ini_eos.F |
483 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
484 |
EOS_CHECK |
pFld(i,j) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
504 |
EOS_CHECK |
IF ( kcheck .EQ. 1 ) THEN |
|
./model/src/ini_eos.F |
509 |
EOS_CHECK |
ELSEIF ( kcheck .EQ. 2 ) THEN |
|
./model/src/ini_eos.F |
514 |
EOS_CHECK |
ELSEIF ( kcheck .EQ. 6 ) THEN |
|
./model/src/ini_eos.F |
519 |
EOS_CHECK |
ELSEIF ( kcheck .EQ. 14 ) THEN |
|
./model/src/ini_eos.F |
528 |
EOS_CHECK |
& pLoc(kcheck)*SItoBar, ' bar)', |
|
./model/src/ini_eos.F |
529 |
EOS_CHECK |
& ' = ', rLoc(kcheck), bLoc(kcheck) |
|
./model/src/ini_eos.F |
538 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./model/src/ini_eos.F |
539 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |