Rocstar
1.0
Rocstar multiphysics simulation application
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
RFLO_NewGrid.F90
Go to the documentation of this file.
1
! *********************************************************************
2
! * Rocstar Simulation Suite *
3
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved. *
4
! * *
5
! * Illinois Rocstar LLC *
6
! * Champaign, IL *
7
! * www.illinoisrocstar.com *
8
! * sales@illinoisrocstar.com *
9
! * *
10
! * License: See LICENSE file in top level of distribution package or *
11
! * http://opensource.org/licenses/NCSA *
12
! *********************************************************************
13
! *********************************************************************
14
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, *
15
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES *
16
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND *
17
! * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR *
18
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER *
19
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, *
20
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE *
21
! * USE OR OTHER DEALINGS WITH THE SOFTWARE. *
22
! *********************************************************************
23
!******************************************************************************
24
!
25
! Purpose: generate/get a new grid, reallocate data structures and
26
! interpolate the solution onto the new grid.
27
!
28
! Description: none.
29
!
30
! Input: regions = data of all grid regions.
31
!
32
! Output: regions = new grid and solution.
33
!
34
! Notes: none.
35
!
36
!******************************************************************************
37
!
38
! $Id: RFLO_NewGrid.F90,v 1.3 2008/12/06 08:44:27 mtcampbe Exp $
39
!
40
! Copyright: (c) 2001 by the University of Illinois
41
!
42
!******************************************************************************
43
44
SUBROUTINE
rflo_newgrid
( regions )
45
46
USE
moddatatypes
47
USE
moddatastruct
, ONLY
: t_region
48
USE
modglobal
, ONLY
:
t_global
49
USE
modinterfaces
, ONLY
:
50
USE
moderror
51
IMPLICIT NONE
52
53
! ... parameters
54
TYPE(
t_region
)
,
POINTER
:: regions(:)
55
56
! ... loop variables
57
58
59
! ... local variables
60
TYPE(
t_global
)
,
POINTER
:: global
61
62
!******************************************************************************
63
64
global => regions(1)%global
65
66
CALL
registerfunction
( global,
'RFLO_NewGrid'
,&
67
'RFLO_NewGrid.F90'
)
68
69
70
71
CALL
deregisterfunction
( global )
72
73
END SUBROUTINE
rflo_newgrid
74
75
!******************************************************************************
76
!
77
! RCS Revision history:
78
!
79
! $Log: RFLO_NewGrid.F90,v $
80
! Revision 1.3 2008/12/06 08:44:27 mtcampbe
81
! Updated license.
82
!
83
! Revision 1.2 2008/11/19 22:17:38 mtcampbe
84
! Added Illinois Open Source License/Copyright
85
!
86
! Revision 1.1 2004/11/29 20:51:39 wasistho
87
! lower to upper case
88
!
89
! Revision 1.8 2003/11/20 16:40:40 mdbrandy
90
! Backing out RocfluidMP changes from 11-17-03
91
!
92
! Revision 1.4 2003/05/15 02:57:04 jblazek
93
! Inlined index function.
94
!
95
! Revision 1.3 2002/09/05 17:40:21 jblazek
96
! Variable global moved into regions().
97
!
98
! Revision 1.2 2002/02/21 23:25:06 jblazek
99
! Blocks renamed as regions.
100
!
101
! Revision 1.1 2002/01/31 20:56:30 jblazek
102
! Added basic boundary conditions.
103
!
104
!******************************************************************************
105
106
107
108
109
110
111
modglobal
Definition:
ModGlobal.F90:39
moderror::registerfunction
subroutine registerfunction(global, funName, fileName)
Definition:
ModError.F90:449
rflo_newgrid
subroutine rflo_newgrid(regions)
Definition:
RFLO_NewGrid.F90:44
modinterfaces
Definition:
ModInterfaces.F90:39
moddatastruct
Definition:
ModDataStruct.F90:40
modglobal::t_global
Definition:
ModGlobal.F90:50
moderror::deregisterfunction
subroutine deregisterfunction(global)
Definition:
ModError.F90:469
moddatatypes
Definition:
ModDataTypes.F90:40
moderror
Definition:
ModError.F90:39
RocfluidMP
rocflo
RFLO_NewGrid.F90
Generated on Wed Nov 30 2016 16:56:14 for Rocstar by
1.8.5