typedef.f90

!============================================!
!                                            !
!              Type definitions              !
!                  for the                   !
!     Direct Numerical Simulation (DNS)      !
!        of a turbulent channel flow         !
!                                            !
!============================================!
!
! Author: M.Sc. Davide Gatti
! Date  : 28/Jul/2015
!

MODULE typedef

  USE, intrinsic :: iso_c_binding
  IMPLICIT NONE

  TYPE :: REFINEMENT
    integer(C_INT) :: n
    real(C_DOUBLE) :: y
  END TYPE REFINEMENT

  TYPE :: RHSTYPE
    complex(C_DOUBLE_COMPLEX) :: eta,d2v
  END TYPE RHSTYPE

  TYPE :: Di
    real(C_DOUBLE), dimension(-2:2) :: d0,d1,d2,d4
  END TYPE Di

  TYPE :: BCOND
    complex(C_DOUBLE_COMPLEX) :: u,v,w,vy,eta
  END TYPE BCOND

  TYPE :: VETA 
    complex(C_DOUBLE_COMPLEX) :: v,eta
  END TYPE VETA

END MODULE typedef