section.f90

Go to the documentation of this file.

module section
!
!       This module contains the definition of the derived data type
!       sectionType, which stores the information of a section of the
!       grid. It also contains the array to store the info of all the
!       sections.
!
    use constants, only: inttype, realtype
    implicit none
    save
!
!       The definition of the derived data type sectionType.
!
    type sectiontype
 
        ! periodic:       Whether or not the section is periodic.
        ! rotating:       Whether or not the section is rotating.
        ! nSlices:        Number of periodic slices to obtain
        !                 a full rotation.
        ! timePeriod:     The physical time of one period.
        ! rotCenter(3):   Cartesian coordinates of the rotation center.
        ! rotMatrix(3,3): Rotation matrix of the periodic
        !                 transformation.
        ! translation(3): Translation vector of the periodic
        !                 transformation.
        ! rotAxis(3):     The rotation axis.
        ! rotRate(3):     The rotation rate of the section.
 
        logical :: periodic, rotating
 
        integer(kind=intType) :: nslices
 
        real(kind=realtype) :: timeperiod
 
        real(kind=realtype), dimension(3) :: rotcenter, translation
        real(kind=realtype), dimension(3) :: rotaxis, rotrate
        real(kind=realtype), dimension(3, 3) :: rotmatrix
 
    end type sectiontype
 
    ! nSections:           Number of different sections in the grid.
    ! sections(nSections): The info of the corresponding sections.
 
    integer(kind=intType) :: nsections
 
    type(sectiontype), dimension(:), allocatable :: sections
 
end module section