Symbol Description Uses
dragy 4



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 178 GWDRAG
      call PASTIT( dragys,dragy,istrip,im*jm,im*jm,1 ,n )
./pkg/fizhi/fizhi_gwdrag.F 243 GWDRAG
       call DIAGNOSTICS_FILL(dragy,'GWDVS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 286 GWDRAG
        tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 64 GWDRAG
      _RL dragx(im,jm), dragy(im,jm)