anchor.diff:     INTEGER(IntKi)                                     :: UnHD_Out              ! Output file identifier
      REAL(ReKi), ALLOCATABLE                            :: WAMITin(:,:)          ! Variable for storing time, forces, and body velocities, in m/s or rad/s for WAMIT
      REAL(ReKi), ALLOCATABLE                            :: Morisonin(:,:)        ! Variable for storing time, forces, and body velocities, in m/s or rad/s for Morison elements
  -   
  +
  +   TYPE(MeshType)                                     :: PMesh                 ! Point mesh that we will use to map to Morison and u(1)%Mesh
  +   TYPE(MeshMapType)                                  :: Map_P_to_MorisonDist
  +   TYPE(MeshMapType)                                  :: Map_P_to_MorisonLumped
  +
      INTEGER(IntKi)                                     :: I                    ! Generic loop counter
      INTEGER(IntKi)                                     :: J                    ! Generic loop counter
      INTEGER(IntKi)                                     :: n                    ! Loop counter (for time step)
  
positive.code:    ENDIF
  
  
  
           ! Initialize the module
     Interval = drvrInitInp%TimeInterval
  
negative.code:          
        END IF
     END IF
  
     ! Setup mesh mapping for Morison motion
     IF ( drvrInitInp%MorisonInputsMod == 2 ) THEN
        IF ( u(1)%Morison%DistribMesh%Initialized ) THEN
           ! create mapping from PMesh (used for WAMIT mesh among others) to Morison.  This will be used to map the motions for Morison timeseries inputs
           CALL MeshMapCreate( PMesh, u(1)%Morison%DistribMesh, Map_P_to_MorisonDist, ErrStat, ErrMsg )
           if (errStat >= AbortErrLev) call HD_DvrCleanup()
        ENDIF
        IF ( u(1)%Morison%LumpedMesh%Initialized ) THEN
           ! create mapping from PMesh (used for WAMIT mesh among others) to Morison.  This will be used to map the motions for Morison timeseries inputs
           CALL MeshMapCreate( PMesh, u(1)%Morison%LumpedMesh, Map_P_to_MorisonLumped, ErrStat, ErrMsg )
           if (errStat >= AbortErrLev) call HD_DvrCleanup()
        ENDIF
     ENDIF
        
     !...............................................................................................................................
     ! Routines called in loose coupling -- the glue code may implement this in various ways
  