Symbol Description Uses
uVelD D grid zonal velocity 14



File Line number Procedure Code
./model/src/do_fields_blocking_exchanges.F 86 DO_FIELDS_BLOCKING_EXCHANGES
      CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid )
./model/src/dynamics.F 639 DYNAMICS
     U         uVelD(1-OLx,1-OLy,1,bi,bj),
./pkg/cd_code/CD_CODE_VARS.h 12 NO PROCEDURE
      _RL  uVelD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/cd_code/CD_CODE_VARS.h 9 NO PROCEDURE
     &                   uVelD, vVelD,
./pkg/cd_code/cd_code_read_pickup.F 60 CD_CODE_READ_PICKUP
        CALL MNC_CW_RL_R('D',fn,0,0,'uVelD',uVelD, myThid)
./pkg/cd_code/cd_code_read_pickup.F 71 CD_CODE_READ_PICKUP
        CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid )
./pkg/cd_code/cd_code_read_pickup.F 83 CD_CODE_READ_PICKUP
      CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid )
./pkg/cd_code/cd_code_scheme.F 209 CD_CODE_SCHEME
        uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j)
./pkg/cd_code/cd_code_scheme.F 215 CD_CODE_SCHEME
         uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 234 CD_CODE_SCHEME
     &              *uVelD(i,j,k,bi,bj)*cfFacMom
./pkg/cd_code/cd_code_write_pickup.F 64 CD_CODE_WRITE_PICKUP
        CALL MNC_CW_RL_W('D',fn,0,0,'uVelD',uVelD, myThid)
./pkg/cd_code/cd_code_write_pickup.F 78 CD_CODE_WRITE_PICKUP
        CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid )