| File |
Line number |
Procedure |
Code |
|
./model/inc/EOS.h |
26 |
NO PROCEDURE |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,equationOfState |
|
./model/inc/EOS.h |
27 |
NO PROCEDURE |
_RL tAlpha |
|
./model/src/find_alpha.F |
73 |
FIND_ALPHA |
alphaloc(i,j) = -rhonil * tAlpha |
|
./model/src/ini_eos.F |
67 |
INI_EOS |
if ( tAlpha .eq. UNSET_RL ) tAlpha = 2. _d -4 |
|
./model/src/find_rho.F |
632 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/find_rho.F |
92 |
FIND_RHO |
& -tAlpha*(tFld(i,j,k,bi,bj)-refTemp) ) |
|
./verification/internal_wave/code/obcs_calc.F |
125 |
OBCS_CALC |
& *sqrt(strat/(tAlpha*gravity)) |
|
./verification/internal_wave/code/obcs_calc.F |
50 |
OBCS_CALC |
strat = 1.0 _d -6 / (gravity*tAlpha) |
|
./model/src/ini_parms.F |
151 |
INI_PARMS |
& gravity, gBaro, rhonil, tAlpha, sBeta, |
|
./model/src/ini_parms.F |
381 |
INI_PARMS |
tAlpha = UNSET_RL |
|
./model/src/config_summary.F |
181 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( tAlpha, INDEX_NONE,'tAlpha =', |
|
./model/src/ini_phiref.F |
109 |
INI_PHIREF |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./pkg/opps/opps_calc.F |
528 |
OPPS_CALC |
& - tAlpha*(tLoc-tRef(KREF)) ) + dRho |