| File |
Line number |
Procedure |
Code |
|
./model/src/ini_eos.F |
305 |
CHECK_EOS |
INTEGER ncheck, kcheck |
|
./model/src/ini_eos.F |
380 |
CHECK_EOS |
do kcheck = 1,ncheck |
|
./model/src/ini_eos.F |
381 |
CHECK_EOS |
pressure(i,j,k,bi,bj) = ploc(kcheck) |
|
./model/src/ini_eos.F |
383 |
CHECK_EOS |
tFld(i,j,k,bi,bj) = ptloc(kcheck) |
|
./model/src/ini_eos.F |
385 |
CHECK_EOS |
tFld(i,j,k,bi,bj) = tloc(kcheck) |
|
./model/src/ini_eos.F |
387 |
CHECK_EOS |
sFld(i,j,k,bi,bj) = sloc(kcheck) |
|
./model/src/ini_eos.F |
404 |
CHECK_EOS |
& rloc(kcheck), bloc(kcheck) |
|
./model/src/ini_eos.F |
413 |
CHECK_EOS |
call FIND_RHO_SCALAR( tFld(i,j,k,bi,bj), sLoc(kcheck), |
|
./model/src/ini_eos.F |
414 |
CHECK_EOS |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |