added hooks for a rotation matrix

Author: danieljvickers

src/common/m_derived_types.fpp

@@ -295,6 +295,7 @@ module m_derived_types
 
         real(wp), dimension(1:3) :: angles
         real(wp), dimension(1:3) :: step_angles
+        real(wp), dimension(3:3) :: rotaiton_matrix !< matrix that converts from IB reference frame to fluid reference frame
 
         real(wp) :: c, p, t, m
 

src/pre_process/m_global_parameters.fpp

@@ -541,9 +541,15 @@ contains
 
             ! Variables to handle moving imersed boundaries, defaulting to no movement
             patch_ib(i)%moving_ibm = 0
-            patch_ib(i)%vel(1) = 0._wp
-            patch_ib(i)%vel(2) = 0._wp
-            patch_ib(i)%vel(3) = 0._wp
+            patch_ib(i)%vel(:) = 0._wp
+            patch_ib(i)%angles(:) = 0._wp
+            patch_ib(i)%angular_vel(:) = 0._wp
+
+            ! sets values of a rotation matrix which can be used when calculating rotaitons
+            patch_ib(i)%rotation_matrix(:) = 0._wp
+            patch_ib(i)%rotation_matrix(1, 1) = 1._wp
+            patch_ib(i)%rotation_matrix(2, 2) = 1._wp
+            patch_ib(i)%rotation_matrix(3, 3) = 1._wp
         end do
 
         ! Fluids physical parameters