| File |
Line number |
Procedure |
Code |
|
./verification/dome/code/obcs_calc.F |
160 |
OBCS_CALC |
Fz=1. |
|
./verification/dome/code/obcs_calc.F |
163 |
OBCS_CALC |
Fz=1. _d 0/Rit*zt/(zt+1. _d 0) + 0.5 _d 0 |
|
./verification/dome/code/obcs_calc.F |
165 |
OBCS_CALC |
Fz=0. |
|
./verification/dome/code/obcs_calc.F |
169 |
OBCS_CALC |
Fz=1. |
|
./verification/dome/code/obcs_calc.F |
176 |
OBCS_CALC |
& *(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
183 |
OBCS_CALC |
IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN |
|
./verification/dome/code/obcs_calc.F |
186 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
194 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
47 |
OBCS_CALC |
_RL Width,x,Xcenter,Fz,zt,Rit |