Symbol Description Uses
xzgrdrho 8



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 157 COST_OBCS_AGEOS
              xzgrdrho(i,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 243 COST_OBCS_AGEOS
                  xzgrdrho(i,k,bi,bj) = 
./pkg/ecco/cost_obcs_ageos.F 257 COST_OBCS_AGEOS
                 xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 258 COST_OBCS_AGEOS
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 303 COST_OBCS_AGEOS
                 xzgrdrho(i,k,bi,bj) = 
./pkg/ecco/cost_obcs_ageos.F 318 COST_OBCS_AGEOS
                 xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 319 COST_OBCS_AGEOS
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 74 COST_OBCS_AGEOS
      _RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy)