spx_env.f90 Source File


Contents

Source Code


Source Code

!> global environment
module spx_env

    use spx_backup, only: backup_type
    use spx_particle, only: particle_type
    use spx_stat, only: stat_type
    use spx_float_object, only: float_object_type
    use spx_kinds, only: rk
    implicit none

    type(backup_type), save :: backup  !! global backup object
    type(particle_type), save :: rgn_obj  !! global particle object
    type(stat_type), save :: stat  !! global stat object
    type(float_object_type), save, allocatable :: float_obj(:)  !! global float object
    real(rk) :: dt  !! time step, s

end module spx_env