Symbol Description Uses
vertStructWst 7


File Line number Procedure Code
./verification/internal_wave/code/obcs_calc.F 106 OBCS_CALC 
     &       *vertStructWst(K)
./verification/internal_wave/code/obcs_calc.F 116 OBCS_CALC 
     &       *vertStructWst(K)
./verification/internal_wave/code/obcs_calc.F 43 OBCS_CALC 
      _RL vertStructWst(Nr)
./verification/internal_wave/code/obcs_calc.F 55 OBCS_CALC 
       vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) )
./verification/internal_wave/code/obcs_calc.F 56 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./verification/internal_wave/code/obcs_calc.F 60 OBCS_CALC 
       vertStructWst(K)=vertStructWst(K)-tmpsum