Symbol Description Uses
xzgrdrho 8



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 167 COST_OBCS_AGEOS
              xzgrdrho(i,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 262 COST_OBCS_AGEOS
                  xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 277 COST_OBCS_AGEOS
                 xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 278 COST_OBCS_AGEOS
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 332 COST_OBCS_AGEOS
                 xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 348 COST_OBCS_AGEOS
                 xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 349 COST_OBCS_AGEOS
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 84 COST_OBCS_AGEOS
      _RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy)