-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathHMC_Module_Vars_Loader.f90
27 lines (23 loc) · 1.2 KB
/
HMC_Module_Vars_Loader.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
!------------------------------------------------------------------------------------
! File: HMC_Module_Vars_Loader.f90
! Author(s): Fabio Delogu, Francesco Silvestro, Simone Gabellani
! Created on March, 4 2015, 9:57 AM
!
! Module to import global variable(s)
!------------------------------------------------------------------------------------
!------------------------------------------------------------------------------------
! Module Header
module HMC_Module_Vars_Loader
!------------------------------------------------------------------------------------
! External module(s) and implicit none
implicit none
integer, parameter :: iMaxDomain = 1
!------------------------------------------------------------------------------------
!------------------------------------------------------------------------------------
! Defining global variables type
include "HMC_Type_Vars.inc"
type (HMC_Type_Vars), dimension (iMaxDomain) :: oHMC_Vars
save oHMC_Vars
!------------------------------------------------------------------------------------
end module HMC_Module_Vars_Loader
!------------------------------------------------------------------------------------