Symbol Description Uses
tmpsum 7


File Line number Procedure Code
./verification/internal_wave/code/obcs_calc.F 48 OBCS_CALC 
      _RL tmpsum
./verification/internal_wave/code/obcs_calc.F 62 OBCS_CALC 
      tmpsum=0.
./verification/internal_wave/code/obcs_calc.F 65 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./verification/internal_wave/code/obcs_calc.F 67 OBCS_CALC 
      tmpsum=tmpsum/rF(Nr+1)
./verification/internal_wave/code/obcs_calc.F 69 OBCS_CALC 
       vertStructWst(K)=vertStructWst(K)-tmpsum