| File |
Line number |
Procedure |
Code |
|
./model/src/config_summary.F |
251 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( tAlpha, INDEX_NONE,'tAlpha =', |
|
./model/src/find_alpha.F |
82 |
FIND_ALPHA |
alphaLoc(i,j) = -rhonil * tAlpha |
|
./model/src/find_rho.F |
109 |
FIND_RHO_2D |
& -tAlpha*(tFld(i,j)-refTemp) ) |
|
./model/src/find_rho.F |
941 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/ini_eos.F |
77 |
INI_EOS |
IF ( tAlpha .EQ. UNSET_RL ) tAlpha = 2. _d -4 |
|
./model/src/ini_parms.F |
183 |
INI_PARMS |
& gravity, gBaro, gravityFile, rhonil, tAlpha, sBeta, |
|
./model/src/ini_parms.F |
386 |
INI_PARMS |
tAlpha = UNSET_RL |
|
./verification/dome/code/obcs_calc.F |
62 |
OBCS_CALC |
gp_inflow=tAlpha*gravity*dTemp |
|
./verification/internal_wave/code/obcs_calc.F |
136 |
OBCS_CALC |
& *sqrt(strat/(tAlpha*gravity)) |
|
./verification/internal_wave/code/obcs_calc.F |
59 |
OBCS_CALC |
strat = 1.0 _d -6 / (gravity*tAlpha) |
|
./model/src/set_parms.F |
225 |
SET_PARMS |
IF ( tAlpha.EQ.0. ) tempIsActiveTr = .FALSE. |
|
./model/src/set_ref_state.F |
203 |
SET_REF_STATE |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/inc/EOS.h |
26 |
NO PROCEDURE |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,equationOfState |
|
./model/inc/EOS.h |
27 |
NO PROCEDURE |
_RL tAlpha |