Symbol Description Uses
yzgrdrho 8



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 173 COST_OBCS_AGEOS
              yzgrdrho(j,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 400 COST_OBCS_AGEOS
                yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 416 COST_OBCS_AGEOS
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 417 COST_OBCS_AGEOS
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 467 COST_OBCS_AGEOS
                yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 483 COST_OBCS_AGEOS
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 484 COST_OBCS_AGEOS
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 85 COST_OBCS_AGEOS
      _RL yzgrdrho(1-oly:sny+oly,Nr,nsx,nsy)