MoM implementation.

bgin · Dec 20, 2024 · ae5689d · ae5689d
1 parent 324522a
commit ae5689d
Show file tree

Hide file tree

Showing 10 changed files with 9,902 additions and 0 deletions.
diff --git a/MoM/PMCHW_RWG_mod.f90 b/MoM/PMCHW_RWG_mod.f90
diff --git a/MoM/RWG_basis_mod.f90 b/MoM/RWG_basis_mod.f90
diff --git a/MoM/constants_mod.f90 b/MoM/constants_mod.f90
@@ -0,0 +1,64 @@
+module constants_mod
+!!==============================================================================
+! This module defines various mathematical constants
+!  
+!  
+! Last edited: November 27th 2020.
+!!==============================================================================
+
+  !!==============!!
+  ! Use statements !
+  !================!============================================================
+  use working_precision, only: wp
+
+  implicit none
+
+
+  !!=================================!!
+  ! Public types/procedures/constants !
+  !===================================!=========================================
+
+  ! Constants
+  complex(wp), parameter, public :: I_IMAG = cmplx(0._wp, 1._wp)
+  complex(wp), parameter, public :: ZERO_CMPLX = cmplx(0._wp, 0._wp)
+  real(wp)   , parameter, public :: PERMEABILITY_VACUUM = 1.25663706212e-6_wp
+  real(wp)   , parameter, public :: PERMITIVITY_VACUUM = 8.8541878128e-12_wp
+  real(wp)   , parameter, public :: LIGHTSPEED_VACUUM = 299792458._wp
+  real(wp)   , parameter, public :: PI = 4._wp*atan(1._wp)
+  real(wp)   , parameter, public :: PI4_INV = 1._wp/(4._wp*PI)
+  real(wp)   , parameter, public :: ZERO = 0._wp
+  real(wp)   , parameter, public :: UNITY = 1._wp
+
+  !!==================================!!
+  ! Private types/procedures/constants !
+  !====================================!========================================
+  private
+
+  !!------------------------!!
+  ! Derived type definitions !
+  !--------------------------!--------------------------------------------------
+
+
+  !=======!=========================!==========================================!
+contains  ! /\/\/\/\/\/\/\/\/\/\/\/\!/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\!
+  !=======!=========================!==========================================!
+
+
+  !!=================!!
+  ! Public procedures !
+  !===================!=========================================================
+
+
+  !!------------!!
+  ! Constructors !
+  !--------------!--------------------------------------------------------------
+
+
+  !!==================================!!
+  ! RWG_basis_type internal procedures !
+  !====================================!========================================
+  !!------------!!
+  ! Initialisers !
+  !--------------!--------------------------------------------------------------
+
+end module constants_mod