diff --git a/modules/moordyn/src/MoorDyn_Types.f90 b/modules/moordyn/src/MoorDyn_Types.f90 index 6d00b2a689..9fec575573 100644 --- a/modules/moordyn/src/MoorDyn_Types.f90 +++ b/modules/moordyn/src/MoorDyn_Types.f90 @@ -108,8 +108,8 @@ MODULE MoorDyn_Types ! ======================= ! ========= MD_Body ======= TYPE, PUBLIC :: MD_Body - INTEGER(IntKi) :: IdNum !< integer identifier of this point [-] - INTEGER(IntKi) :: typeNum !< integer identifying the type. 0=free, 1=fixed, -1=vessel [-] + INTEGER(IntKi) :: IdNum !< integer identifier of this Point [-] + INTEGER(IntKi) :: typeNum !< integer identifying the type. 0=fixed, 1=vessel, 2=point [-] INTEGER(IntKi) , DIMENSION(1:30) :: AttachedC !< list of IdNums of points attached to this body [-] INTEGER(IntKi) , DIMENSION(1:30) :: AttachedR !< list of IdNums of rods attached to this body [-] INTEGER(IntKi) :: nAttachedC = 0 !< number of attached points [-] @@ -119,8 +119,8 @@ MODULE MoorDyn_Types REAL(DbKi) :: bodyM !< [-] REAL(DbKi) :: bodyV !< [-] REAL(DbKi) , DIMENSION(1:3) :: bodyI !< [-] - REAL(DbKi) , DIMENSION(1:6) :: bodyCdA !< product of drag force and frontal area of point [[m^2]] - REAL(DbKi) , DIMENSION(1:6) :: bodyCa !< added mass coefficient o point [-] + REAL(DbKi) , DIMENSION(1:6) :: bodyCdA !< product of drag force and frontal area of point point [[m^2]] + REAL(DbKi) , DIMENSION(1:6) :: bodyCa !< added mass coefficient of point point [-] REAL(DbKi) :: time !< current time [[s]] REAL(DbKi) , DIMENSION(1:6) :: r6 !< position [-] REAL(DbKi) , DIMENSION(1:6) :: v6 !< velocity [-] @@ -138,9 +138,9 @@ MODULE MoorDyn_Types ! ======================= ! ========= MD_Point ======= TYPE, PUBLIC :: MD_Point - INTEGER(IntKi) :: IdNum !< integer identifier of this point [-] + INTEGER(IntKi) :: IdNum !< integer identifier of this Point [-] CHARACTER(10) :: type !< type of Point: fix, vessel, point [-] - INTEGER(IntKi) :: typeNum !< integer identifying the type. 1=fixed, -1=vessel, 0=free [-] + INTEGER(IntKi) :: typeNum !< integer identifying the type. 0=fixed, 1=vessel, 2=point [-] INTEGER(IntKi) , DIMENSION(1:10) :: Attached !< list of IdNums of lines attached to this point node [-] INTEGER(IntKi) , DIMENSION(1:10) :: Top !< list of ints specifying whether each line is attached at 1 = top/fairlead(end B), 0 = bottom/anchor(end A) [-] INTEGER(IntKi) :: nAttached = 0 !< number of attached lines [-] @@ -149,8 +149,8 @@ MODULE MoorDyn_Types REAL(DbKi) :: pointFX !< [-] REAL(DbKi) :: pointFY !< [-] REAL(DbKi) :: pointFZ !< [-] - REAL(DbKi) :: pointCa !< added mass coefficient of point [-] - REAL(DbKi) :: pointCdA !< product of drag force and frontal area of point [[m^2]] + REAL(DbKi) :: pointCa !< added mass coefficient of point point [-] + REAL(DbKi) :: pointCdA !< product of drag force and frontal area of point point [[m^2]] REAL(DbKi) :: time !< current time [[s]] REAL(DbKi) , DIMENSION(1:3) :: r !< position [-] REAL(DbKi) , DIMENSION(1:3) :: rd !< velocity [-] @@ -177,8 +177,8 @@ MODULE MoorDyn_Types INTEGER(IntKi) :: nAttachedB = 0 !< number of attached lines to Rod end B [-] INTEGER(IntKi) , DIMENSION(1:20) :: OutFlagList !< array specifying what line quantities should be output (1 vs 0) [-] INTEGER(IntKi) :: N !< The number of elements in the line [-] - INTEGER(IntKi) :: endTypeA !< type of point at end A: 0=pinned to point, 1=cantilevered to Rod. [-] - INTEGER(IntKi) :: endTypeB !< type of point at end B: 0=pinned to point, 1=cantilevered to Rod. [-] + INTEGER(IntKi) :: endTypeA !< type of point at end A: 0=pinned to Point, 1=cantilevered to Rod. [-] + INTEGER(IntKi) :: endTypeB !< type of point at end B: 0=pinned to Point, 1=cantilevered to Rod. [-] REAL(DbKi) :: UnstrLen !< length of the rod [[m]] REAL(DbKi) :: mass !< mass of the rod [[kg]] REAL(DbKi) :: rho !< density [[kg/m3]] @@ -232,11 +232,11 @@ MODULE MoorDyn_Types INTEGER(IntKi) :: ElasticMod !< Which elasticity model to use: {0 basic, 1 viscoelastic, 2 future SYCOM} [-] INTEGER(IntKi) , DIMENSION(1:20) :: OutFlagList !< array specifying what line quantities should be output (1 vs 0) [-] INTEGER(IntKi) :: CtrlChan = 0 !< index of control channel that will drive line active tensioning (0 for none) [-] - INTEGER(IntKi) :: FairPoint !< IdNum of point at fairlead [-] - INTEGER(IntKi) :: AnchPoint !< IdNum of point at anchor [-] + INTEGER(IntKi) :: FairPoint !< IdNum of Point at fairlead [-] + INTEGER(IntKi) :: AnchPoint !< IdNum of Point at anchor [-] INTEGER(IntKi) :: N !< The number of elements in the line [-] - INTEGER(IntKi) :: endTypeA !< type of point at end A: 0=pinned to point, 1=cantilevered to Rod. [-] - INTEGER(IntKi) :: endTypeB !< type of point at end B: 0=pinned to point, 1=cantilevered to Rod. [-] + INTEGER(IntKi) :: endTypeA !< type of connection at end A: 0=pinned to Point, 1=cantilevered to Rod. [-] + INTEGER(IntKi) :: endTypeB !< type of connection at end B: 0=pinned to Point, 1=cantilevered to Rod. [-] REAL(DbKi) :: UnstrLen !< unstretched length of the line [-] REAL(DbKi) :: rho !< density [[kg/m3]] REAL(DbKi) :: d !< volume-equivalent diameter [[m]] @@ -303,7 +303,7 @@ MODULE MoorDyn_Types CHARACTER(10) :: Units !< units string [-] INTEGER(IntKi) :: QType !< type of quantity - 0=tension, 1=x, 2=y, 3=z... [-] INTEGER(IntKi) :: OType !< type of object - 0=line, 1=point [-] - INTEGER(IntKi) :: NodeID !< node number if OType=0. 0=anchor, -1=Whole Object [-] + INTEGER(IntKi) :: NodeID !< node number if OType=0. 0=anchor, -1=N=Fairlead [-] INTEGER(IntKi) :: ObjID !< number of Point or Line object [-] END TYPE MD_OutParmType ! ======================= @@ -366,8 +366,8 @@ MODULE MoorDyn_Types INTEGER(IntKi) , DIMENSION(:,:), ALLOCATABLE :: CpldBodyIs !< array of coupled body indices in BodyList vector [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: LineStateIs1 !< starting index of each line's states in state vector [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: LineStateIsN !< ending index of each line's states in state vector [] - INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: PointStateIs1 !< starting index of each point's states in state vector [] - INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: PointStateIsN !< ending index of each point's states in state vector [] + INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: PointStateIs1 !< starting index of each line's states in state vector [] + INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: PointStateIsN !< ending index of each line's states in state vector [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: RodStateIs1 !< starting index of each rod's states in state vector [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: RodStateIsN !< ending index of each rod's states in state vector [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: BodyStateIs1 !< starting index of each body's states in state vector [] @@ -390,8 +390,8 @@ MODULE MoorDyn_Types TYPE, PUBLIC :: MD_ParameterType INTEGER(IntKi) :: nLineTypes = 0 !< number of line types [] INTEGER(IntKi) :: nRodTypes = 0 !< number of rod types [] - INTEGER(IntKi) :: nPoints = 0 !< number of point objects [] - INTEGER(IntKi) :: nPointsExtra = 0 !< number of point objects including space for extra ones that could arise from line failures [] + INTEGER(IntKi) :: nPoints = 0 !< number of Point objects [] + INTEGER(IntKi) :: nPointsExtra = 0 !< number of Point objects including space for extra ones that could arise from line failures [] INTEGER(IntKi) :: nBodies = 0 !< number of Body objects [] INTEGER(IntKi) :: nRods = 0 !< number of Rod objects [] INTEGER(IntKi) :: nLines = 0 !< number of Line objects [] @@ -403,8 +403,8 @@ MODULE MoorDyn_Types INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: nCpldBodies !< number of coupled bodies (for FAST.Farm, size>1 with an entry for each turbine) [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: nCpldRods !< number of coupled rods (for FAST.Farm, size>1 with an entry for each turbine) [] INTEGER(IntKi) , DIMENSION(:), ALLOCATABLE :: nCpldPoints !< number of coupled points (for FAST.Farm, size>1 with an entry for each turbine) [] - INTEGER(IntKi) :: NConns = 0 !< number of Connect type Connections - not to be confused with NConnects [] - INTEGER(IntKi) :: NAnchs = 0 !< number of Anchor type points [] + INTEGER(IntKi) :: NConns = 0 !< number of Connect type Points - not to be confused with NPoints [] + INTEGER(IntKi) :: NAnchs = 0 !< number of Anchor type Points [] REAL(DbKi) :: Tmax !< simulation duration [[s]] REAL(DbKi) :: g = 9.81 !< gravitational constant (positive) [[m/s^2]] REAL(DbKi) :: rhoW = 1025 !< density of seawater [[kg/m^3]]