source: trunk/AGRIF/AGRIF_FILES/modlinktomodel.F @ 1793

Last change on this file since 1793 was 1793, checked in by rblod, 11 years ago

Adaptation to use iomput with AGRIF, see ticket #630

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 8.8 KB
1C     AGRIF (Adaptive Grid Refinement In Fortran)
3C     Copyright (C) 2003 Laurent Debreu (
4C                        Christophe Vouland (   
6C     This program is free software; you can redistribute it and/or modify
7C     it under the terms of the GNU General Public License as published by
8C     the Free Software Foundation; either version 2 of the License, or
9C     (at your option) any later version.
11C     This program is distributed in the hope that it will be useful,
12C     but WITHOUT ANY WARRANTY; without even the implied warranty of
14C     GNU General Public License for more details.
16C     You should have received a copy of the GNU General Public License
17C     along with this program; if not, write to the Free Software
18C     Foundation, Inc., 59 Temple Place -  Suite 330, Boston, MA 02111-1307, USA.
21      Module Agrif_link
23CCC   Description:
24CCC   This module is used to link AGRIF files to the model
26C     Modules used: 
28c        external Agrif_InitValues
29c        external Agrif_InitWorkspace
30c        external Agrif_detect
32        external Agrif_probdim_modtype_def
33        external Agrif_clustering_def
34        external Agrif_comm_def
35C     Interface                       
36      Interface
37         Subroutine Agrif_Set_numberofcells(Agrif_Gr)
38         Use Agrif_Types, Only : Agrif_grid
39         TYPE(Agrif_Grid), Pointer :: Agrif_Gr   ! Pointer on the current grid 
40         End Subroutine Agrif_Set_numberofcells
41      End interface
42      Interface
43         Subroutine Agrif_Get_numberofcells(Agrif_Gr)
44         Use Agrif_Types, Only : Agrif_grid
45         TYPE(Agrif_Grid), Pointer :: Agrif_Gr   ! Pointer on the current grid 
46         End Subroutine Agrif_Get_numberofcells
47      End interface
48      Interface
49         Subroutine Agrif_Allocationcalls(Agrif_Gr)
50         Use Agrif_Types, Only : Agrif_grid
51         TYPE(Agrif_Grid), Pointer :: Agrif_Gr   ! Pointer on the current grid 
52         End Subroutine Agrif_Allocationcalls
53      End interface
55      End Module Agrif_link
56C     **************************************************************************
57CCC   Function Agrif_parent
58C        modify by conv. To use : un_parent = Agrif_Parent(un)
59C     **************************************************************************
60CCC   Function Agrif_Get_Coarse_Grid
61C        modify by conv. To use : un_Mygrid = Agrif_Get_Coarse_grid(un)
62C     **************************************************************************
63CCC   Function Agrif_Rhox
64C        modify by conv. To use : var = Agrif_Rhox()
65C                    REAL(Agrif_Curgrid % spaceref(1))
66C     **************************************************************************
67CCC   Function Agrif_Parent_Rhox
68C        modify by conv. To use : var = Agrif_Parent_Rhox()
69C                    REAL(Agrif_Curgrid % parent % spaceref(1))
70C     **************************************************************************
71CCC   Function Agrif_Irhox
72C        modify by conv. To use : var = Agrif_Parent_IRhox()
73C                    Agrif_Curgrid % spaceref(1)
74C     **************************************************************************
75CCC   Function Agrif_Parent_Irhox
76C        modify by conv. To use : var = Agrif_Parent_IRhox()
77C                    Agrif_Curgrid % parent % spaceref(1)
78C     **************************************************************************
79CCC   Function Agrif_Rhoy
80C        modify by conv. To use : var = Agrif_Rhoy()
81C                    REAL(Agrif_Curgrid % spaceref(2))
82C     **************************************************************************
83CCC   Function Agrif_Parent_Rhoy
84C        modify by conv. To use : var = Agrif_Parent_Rhoy()
85C                    REAL(Agrif_Curgrid % parent % spaceref(2))
86C     **************************************************************************
87CCC   Function Agrif_Irhoy
88C        modify by conv. To use : var = Agrif_Parent_IRhoy()
89C                    Agrif_Curgrid % spaceref(2)
90C     **************************************************************************
91CCC   Function Agrif_Parent_Irhoy
92C        modify by conv. To use : var = Agrif_Parent_IRhoy()
93C                    Agrif_Curgrid % parent % spaceref(2)
94C     **************************************************************************
95CCC   Function Agrif_Rhoz
96C        modify by conv. To use : var = Agrif_Rhoz()
97C                    REAL(Agrif_Curgrid % spaceref(3))
98C     **************************************************************************
99CCC   Function Agrif_Parent_Rhoz
100C        modify by conv. To use : var = Agrif_Parent_Rhoz()
101C                    REAL(Agrif_Curgrid % parent % spaceref(3))
102C     **************************************************************************
103CCC   Function Agrif_Irhoz
104C        modify by conv. To use : var = Agrif_Parent_IRhoz()
105C                    Agrif_Curgrid % spaceref(3)
106C     **************************************************************************
107CCC   Function Agrif_Parent_Irhoz
108C        modify by conv. To use : var = Agrif_Parent_IRhoz()
109C                    Agrif_Curgrid % parent % spaceref(3)
110C     **************************************************************************
111CCC   Function Agrif_NearCommonBorderX
112C        modify by conv. To use : var = Agrif_NearCommonBorderX()
113C                       AGRIF_CURGRID % NearRootBorder(1)
114C     **************************************************************************
115CCC   Function Agrif_NearCommonBorderY
116C        modify by conv. To use : var = Agrif_NearCommonBorderY()
117C                       AGRIF_CURGRID % NearRootBorder(2)
118C     **************************************************************************
119CCC   Function Agrif_NearCommonBorderZ
120C        modify by conv. To use : var = Agrif_NearCommonBorderZ()
121C                       AGRIF_CURGRID % NearRootBorder(3)
122C     **************************************************************************
123CCC   Function Agrif_DistantCommonBorderX
124C        modify by conv. To use : var = Agrif_DistantCommonBorderX()
125C                       AGRIF_CURGRID % DistantRootBorder(1)
126C     **************************************************************************
127CCC   Function Agrif_DistantCommonBorderY
128C        modify by conv. To use : var = Agrif_DistantCommonBorderY()
129C                       AGRIF_CURGRID % DistantRootBorder(2)
130C     **************************************************************************
131CCC   Function Agrif_DistantCommonBorderZ
132C        modify by conv. To use : var = Agrif_DistantCommonBorderZ()
133C                       AGRIF_CURGRID % DistantRootBorder(3)
134C     **************************************************************************
135CCC   Function Agrif_Nb_Step
136C        modify by conv. To use : var = Agrif_Nb_Step()
137C                          AGRIF_CURGRID % ngridstep
138C     **************************************************************************
139CCC   Function Agrif_Nb_Fine_Grids
140C        modify by conv. To use : var = Agrif_Nb_Fine_Grids()
141C                         Agrif_nbfixedgrids 
142C     **************************************************************************
143CCC   Function Agrif_Ix
144C        modify by conv. To use : var = Agrif_Ix()
145C                         Agrif_CURGRID % ix(1) 
146C     **************************************************************************
147CCC   Function Agrif_Parent_Ix
148C        modify by conv. To use : var = Agrif_Parent_Ix()
149C                        Agrif_CURGRID % parent % ix(1) 
150C     **************************************************************************
151CCC   Function Agrif_Iy
152C        modify by conv. To use : var = Agrif_Iy()
153C                        AGRIF_CURGRID % ix(2) 
154C     **************************************************************************
155CCC   Function Agrif_Parent_Iy
156C        modify by conv. To use : var = Agrif_Parent_Iy()
157C                       Agrif_CURGRID % parent % ix(2) 
158C     **************************************************************************
159CCC   Function Agrif_Iz
160C        modify by conv. To use : var = Agrif_Iz()
161C                      AGRIF_CURGRID % ix(3) 
162C     **************************************************************************
163CCC   Function Agrif_Parent_Iz
164C        modify by conv. To use : var = Agrif_Parent_Iz()
165C                     Agrif_CURGRID % parent % ix(3) 
166C     **************************************************************************
167CCC   Function Agrif_Get_grid_id
168C        modify by conv. To use : var = Agrif_Get_grid_id()
169C                    Agrif_CURGRID % grid_id
170C     **************************************************************************
171CCC   Function Agrif_Get_parent_id
172C        modify by conv. To use : var = Agrif_Get_parent_id()
173C                    Agrif_CURGRID % parent % grid_id
174C     **************************************************************************
Note: See TracBrowser for help on using the repository browser.