Symbol Description Uses
windsum 6


File Line number Procedure Code
./pkg/gridalt/dyn2phys.F 104 DYN2PHYS 
           windsum = 0.
./pkg/gridalt/dyn2phys.F 109 DYN2PHYS 
            windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn
./pkg/gridalt/dyn2phys.F 115 DYN2PHYS 
           if( (flg.eq.1).and.(windsum.ne.0.) )
./pkg/gridalt/dyn2phys.F 116 DYN2PHYS 
     .                weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum
./pkg/gridalt/dyn2phys.F 58 DYN2PHYS 
      _RL dpkedyn, dpkephy, windsum, qd