Symbol Description Uses
yzgrdrho 8



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 163 COST_OBCS_AGEOS
              yzgrdrho(j,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 363 COST_OBCS_AGEOS
                yzgrdrho(j,k,bi,bj) = 
./pkg/ecco/cost_obcs_ageos.F 378 COST_OBCS_AGEOS
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 379 COST_OBCS_AGEOS
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 422 COST_OBCS_AGEOS
                yzgrdrho(j,k,bi,bj) = 
./pkg/ecco/cost_obcs_ageos.F 437 COST_OBCS_AGEOS
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 438 COST_OBCS_AGEOS
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 75 COST_OBCS_AGEOS
      _RL yzgrdrho(1-oly:sny+oly,Nr,nsx,nsy)