| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_load_climatology.F |
56 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 1.0 * 1./(delR(1)*rhonil) |
|
./model/inc/PARAMS.h |
643 |
NO PROCEDURE |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
|
./model/inc/PARAMS.h |
730 |
NO PROCEDURE |
_RL rhonil |
|
./model/src/find_alpha.F |
328 |
FIND_BETA |
betaloc(i,j) = rhonil * sBeta |
|
./model/src/find_alpha.F |
73 |
FIND_ALPHA |
alphaloc(i,j) = -rhonil * tAlpha |
|
./model/src/ini_parms.F |
151 |
INI_PARMS |
& gravity, gBaro, rhonil, tAlpha, sBeta, |
|
./verification/dome/code/obcs_calc.F |
56 |
OBCS_CALC |
dTemp=(2.0/rhonil)/(2.0e-4) |
|
./model/src/config_summary.F |
212 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( rhonil, INDEX_NONE,'rhonil =', |
|
./pkg/ecco/cost_tau_eddy.F |
66 |
COST_TAU_EDDY |
tau2_temp = (rhonil*Eddytaux(i,j,k,bi,bj))**2 |
|
./pkg/ecco/cost_tau_eddy.F |
71 |
COST_TAU_EDDY |
tau2_temp = (rhonil*Eddytauy(i,j,k,bi,bj))**2 |
|
./pkg/ecco/cost_obcs_ageos.F |
259 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
320 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
380 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
439 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |