-
Notifications
You must be signed in to change notification settings - Fork 1
/
S3M_Module_Vars_Loader.f90
28 lines (24 loc) · 1.21 KB
/
S3M_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
28
!------------------------------------------------------------------------------------
! File: S3M_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 S3M_Module_Vars_Loader
!------------------------------------------------------------------------------------
! External module(s) and implicit none
implicit none
integer, parameter :: iMaxDomain = 1
!------------------------------------------------------------------------------------
!------------------------------------------------------------------------------------
! Defining global variables type
include "S3M_Type_Vars.inc"
type (S3M_Type_Vars), dimension (iMaxDomain) :: oS3M_Vars
save oS3M_Vars
!------------------------------------------------------------------------------------
end module S3M_Module_Vars_Loader
!------------------------------------------------------------------------------------