1 | #if defined key_agrif |
---|
2 | ! ************************************************************************** |
---|
3 | !!! Subroutine Agrif_Set_numberofcells |
---|
4 | ! ************************************************************************** |
---|
5 | ! |
---|
6 | Subroutine Agrif_Set_numberofcells(Agrif_Gr) |
---|
7 | USE Agrif_Types |
---|
8 | Implicit none |
---|
9 | Type(Agrif_Grid), Pointer :: Agrif_Gr |
---|
10 | if ( associated(Agrif_Curgrid) )then |
---|
11 | #include "SetNumberofcells.h" |
---|
12 | endif |
---|
13 | End Subroutine Agrif_Set_numberofcells |
---|
14 | ! |
---|
15 | ! ************************************************************************** |
---|
16 | !!! Subroutine Agrif_Get_numberofcells |
---|
17 | ! ************************************************************************** |
---|
18 | Subroutine Agrif_Get_numberofcells(Agrif_Gr) |
---|
19 | USE Agrif_Types |
---|
20 | Implicit none |
---|
21 | Type(Agrif_Grid), Pointer :: Agrif_Gr |
---|
22 | #include "GetNumberofcells.h" |
---|
23 | End Subroutine Agrif_Get_numberofcells |
---|
24 | ! |
---|
25 | ! ************************************************************************** |
---|
26 | !!! Subroutine Agrif_Allocationcalls |
---|
27 | ! ************************************************************************** |
---|
28 | Subroutine Agrif_Allocationcalls(Agrif_Gr) |
---|
29 | USE Agrif_Types |
---|
30 | #include "include_use_Alloc_agrif.h" |
---|
31 | Implicit none |
---|
32 | Type(Agrif_Grid), Pointer :: Agrif_Gr |
---|
33 | #include "allocations_calls_agrif.h" |
---|
34 | End Subroutine Agrif_Allocationcalls |
---|
35 | ! |
---|
36 | ! ************************************************************************** |
---|
37 | !!! Subroutine Agrif_probdim_modtype_def |
---|
38 | ! ************************************************************************** |
---|
39 | Subroutine Agrif_probdim_modtype_def() |
---|
40 | Use Agrif_Types |
---|
41 | Implicit none |
---|
42 | #include "modtype_agrif.h" |
---|
43 | #include "probdim_agrif.h" |
---|
44 | #include "keys_agrif.h" |
---|
45 | Return |
---|
46 | End Subroutine Agrif_probdim_modtype_def |
---|
47 | ! |
---|
48 | ! ************************************************************************** |
---|
49 | !!! Subroutine Agrif_clustering_def |
---|
50 | ! ************************************************************************** |
---|
51 | Subroutine Agrif_clustering_def() |
---|
52 | Use Agrif_Types |
---|
53 | Implicit none |
---|
54 | |
---|
55 | Return |
---|
56 | End Subroutine Agrif_clustering_def |
---|
57 | #else |
---|
58 | subroutine Agrif2Model |
---|
59 | write(*,*) 'Impossible to bet here' |
---|
60 | end subroutine Agrif2model |
---|
61 | #endif |
---|