| File |
Line number |
Procedure |
Code |
|
./model/src/ini_eos.F |
313 |
EOS_CHECK |
INTEGER ncheck, kcheck |
|
./model/src/ini_eos.F |
396 |
EOS_CHECK |
DO kcheck = 1,ncheck |
|
./model/src/ini_eos.F |
398 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
400 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
403 |
EOS_CHECK |
tFld(i,j) = ptLoc(kcheck) |
|
./model/src/ini_eos.F |
405 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./model/src/ini_eos.F |
407 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
408 |
EOS_CHECK |
pFld(i,j) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
427 |
EOS_CHECK |
IF ( kcheck .EQ. 1 ) THEN |
|
./model/src/ini_eos.F |
432 |
EOS_CHECK |
ELSEIF ( kcheck .EQ. 2 ) THEN |
|
./model/src/ini_eos.F |
437 |
EOS_CHECK |
ELSEIF ( kcheck .EQ. 6 ) THEN |
|
./model/src/ini_eos.F |
446 |
EOS_CHECK |
& pLoc(kcheck)*SItoBar, ' bar)', |
|
./model/src/ini_eos.F |
447 |
EOS_CHECK |
& ' = ', rLoc(kcheck), bLoc(kcheck) |
|
./model/src/ini_eos.F |
456 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./model/src/ini_eos.F |
457 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |