Symbol Description Uses
vertStructWst 7


File Line number Procedure Code
./verification/internal_wave/code/obcs_calc.F 117 OBCS_CALC 
     &       *vertStructWst(K)
./verification/internal_wave/code/obcs_calc.F 127 OBCS_CALC 
     &       *vertStructWst(K)
./verification/internal_wave/code/obcs_calc.F 46 OBCS_CALC 
      _RL vertStructWst(Nr)
./verification/internal_wave/code/obcs_calc.F 64 OBCS_CALC 
       vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) )
./verification/internal_wave/code/obcs_calc.F 65 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./verification/internal_wave/code/obcs_calc.F 69 OBCS_CALC 
       vertStructWst(K)=vertStructWst(K)-tmpsum