Symbol Description Uses
zt 6



File Line number Procedure Code
./verification/dome/code/obcs_calc.F 158 OBCS_CALC
            zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax)
./verification/dome/code/obcs_calc.F 159 OBCS_CALC
            IF (zt.GE.(Rit/(2. _d 0 -Rit))) THEN
./verification/dome/code/obcs_calc.F 162 OBCS_CALC
             IF (zt.GE.(-Rit/(2.+Rit))) THEN
./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 47 OBCS_CALC
      _RL Width,x,Xcenter,Fz,zt,Rit