anchor.diff:                 CALL CleanUp()
                  RETURN
               END IF
  -
  +            
  +         ELSE
  +            
  +            p%WAMIT2%NumOuts = 0  !This doesn't get initialized if we don't call WAMIT2_Init
   
            ENDIF
   
  
positive.code:          ! Additional stiffness, damping forces.  These need to be placed on a point mesh which is located at the WAMIT reference point (WRP).
           ! This mesh will need to get mapped by the glue code for use by either ElastoDyn or SubDyn.
           !-------------------------------------------------------------------
           
           ! Deal with any output from the Waves2 module....
        IF (p%Waves2%WvDiffQTFF .OR. p%Waves2%WvSumQTFF ) THEN
  
  
negative.code: 
           ! The acceleration, velocity, and dynamic pressures will get added to the parts passed to the morrison module later...
  
        ELSE
                 ! these need to be set to zero since we don't have a UseWaves2 flag:
              p%Waves2%NWaveElev  = 0
              p%Waves2%WvDiffQTFF = .FALSE.
              p%Waves2%WvSumQTFF  = .FALSE.
              p%Waves2%NumOuts    = 0
              
        ENDIF
  
  
  