ip as derived type (#828)

Author: mohdsaid497566

.vscode/settings.json

@@ -16,8 +16,8 @@
     "python.defaultInterpreterPath": "${workspaceFolder}/build/venv/bin/python3",
 
     "files.associations": {
-        "*.f90": "FortranFreeForm",
-        "*.fpp": "FortranFreeForm",
+        "*.f90": "fortran-modern",
+        "*.fpp": "fortran-modern"
     },
 
     "fortran.preferredCase":       "lowercase",

src/common/m_derived_types.fpp

@@ -391,6 +391,22 @@ module m_derived_types
         real(wp), dimension(:, :), allocatable :: xyz_to_r_ratios !< List of [xyz]/r for mom source term vector
     end type source_spatial_type
 
+    !> @brief Type for storing point data
+    type :: point_data
+    real(wp), dimension(:), allocatable :: alpha_rho  !< Partial densities
+    real(wp), dimension(:), allocatable :: alpha      !< Volume fractions
+    real(wp) :: pressure                              !< Pressure
+    real(wp), dimension(3) :: vel                     !< Velocity
+    real(wp) :: c                                     !< Color function (for surface tension)
+    real(wp), dimension(:), allocatable :: r          !< Bubble radii
+    real(wp), dimension(:), allocatable :: v          !< Bubble radial velocities
+    real(wp), dimension(:), allocatable :: pb         !< Bubble pressures
+    real(wp), dimension(:), allocatable :: mv         !< Mass of vapor
+    real(wp), dimension(:), allocatable :: nmom       !< Moments for QBMM
+    real(wp), dimension(:), allocatable :: presb      !< Node pressures for bubbles
+    real(wp), dimension(:), allocatable :: massv      !< Node masses for bubbles
+    end type point_data
+
     !> Ghost Point for Immersed Boundaries
     type ghost_point
         integer, dimension(3) :: loc !< Physical location of the ghost point
@@ -400,6 +416,7 @@ module m_derived_types
         integer :: ib_patch_id !< ID of the IB Patch the ghost point is part of
         logical :: slip
         integer, dimension(3) :: DB
+        type(point_data) :: ip
     end type ghost_point
 
     !> Species parameters