| File |
Line number |
Procedure |
Code |
|
./model/src/find_alpha.F |
412 |
FIND_BETA |
betaLoc(i,j) = rhonil * sBeta |
|
./model/src/find_alpha.F |
82 |
FIND_ALPHA |
alphaLoc(i,j) = -rhonil * tAlpha |
|
./model/src/ini_parms.F |
174 |
INI_PARMS |
& gravity, gBaro, rhonil, tAlpha, sBeta, |
|
./verification/dome/code/obcs_calc.F |
61 |
OBCS_CALC |
dTemp=(2. _d 0/rhonil)/(2. _d -4) |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 1.0 * 1./(delR(1)*rhonil) |
|
./pkg/ecco/cost_obcs_ageos.F |
265 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
336 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
404 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
471 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |
|
./pkg/ecco/cost_tau_eddy.F |
234 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
240 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj) |