Skip to content

Commit

Permalink
Update MD_Types.f90 (only comments changed)
Browse files Browse the repository at this point in the history
  • Loading branch information
@andrew-platt
andrew-platt committed Oct 12, 2023
1 parent 34c4518 commit 15cb7bc
Showing 1 changed file with 21 additions and 21 deletions.
42 changes: 21 additions & 21 deletions modules/moordyn/src/MoorDyn_Types.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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 [-]
Expand All @@ -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 [-]
Expand All @@ -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 [-]
Expand All @@ -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 [-]
Expand All @@ -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]]
Expand Down Expand Up @@ -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]]
Expand Down Expand Up @@ -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
! =======================
Expand Down Expand Up @@ -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 []
Expand All @@ -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 []
Expand All @@ -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]]
Expand Down

0 comments on commit 15cb7bc

Please sign in to comment.