| File |
Line number |
Procedure |
Code |
|
./verification/dome/code/obcs_calc.F |
161 |
OBCS_CALC |
Fz=1.0 |
|
./verification/dome/code/obcs_calc.F |
164 |
OBCS_CALC |
Fz=1.0/Rit*zt/(zt+1.0) + 1.0/2.0 |
|
./verification/dome/code/obcs_calc.F |
166 |
OBCS_CALC |
Fz=0 |
|
./verification/dome/code/obcs_calc.F |
174 |
OBCS_CALC |
& *(1-Fz) |
|
./verification/dome/code/obcs_calc.F |
181 |
OBCS_CALC |
if (tRef(K).le. (-dTemp*(1.0 - Fz))) then |
|
./verification/dome/code/obcs_calc.F |
184 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1.0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
192 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1.0*(1.0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
47 |
OBCS_CALC |
_RL Width,d0,d0hat,x,Xcenter,Fz,zt,Rit |