Symbol Description Uses
windsum 6


File Line number Procedure Code
./pkg/gridalt/dyn2phys.F 56 DYN2PHYS 
      _RL dpkedyn, dpkephy, windsum, qd
./pkg/gridalt/dyn2phys.F 81 DYN2PHYS 
           windsum = 0.
./pkg/gridalt/dyn2phys.F 86 DYN2PHYS 
            windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn
./pkg/gridalt/dyn2phys.F 92 DYN2PHYS 
           if( (flg.eq.1).and.(windsum.ne.0.) )
./pkg/gridalt/dyn2phys.F 93 DYN2PHYS 
     .                weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum