Symbol Description Uses
dptry_accum 5



File Line number Procedure Code
./pkg/gridalt/make_phys_grid.F 115 MAKE_PHYS_GRID
       dptry_accum(1) = dptry(1)
./pkg/gridalt/make_phys_grid.F 117 MAKE_PHYS_GRID
        dptry_accum(Lnew) = dptry_accum(Lnew-1) + dptry(Lnew)
./pkg/gridalt/make_phys_grid.F 130 MAKE_PHYS_GRID
     & (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/gridalt/make_phys_grid.F 64 MAKE_PHYS_GRID
       _RL dptry_accum(15)