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_agrif.h" |
---|
31 | #include "include_use_instance_agrif.h" |
---|
32 | Implicit none |
---|
33 | Type(Agrif_Grid), Pointer :: Agrif_Gr |
---|
34 | #include "allocations_calls_agrif.h" |
---|
35 | End Subroutine Agrif_Allocationcalls |
---|
36 | ! |
---|
37 | ! ************************************************************************** |
---|
38 | !!! Subroutine Agrif_probdim_modtype_def |
---|
39 | ! ************************************************************************** |
---|
40 | Subroutine Agrif_probdim_modtype_def() |
---|
41 | Use Agrif_Types |
---|
42 | Implicit none |
---|
43 | #include "modtype_agrif.h" |
---|
44 | #include "probdim_agrif.h" |
---|
45 | #include "keys_agrif.h" |
---|
46 | Return |
---|
47 | End Subroutine Agrif_probdim_modtype_def |
---|
48 | ! |
---|
49 | ! ************************************************************************** |
---|
50 | !!! Subroutine Agrif_clustering_def |
---|
51 | ! ************************************************************************** |
---|
52 | Subroutine Agrif_clustering_def() |
---|
53 | Use Agrif_Types |
---|
54 | Implicit none |
---|
55 | #include "clustering_agrif.h" |
---|
56 | Return |
---|
57 | End Subroutine Agrif_clustering_def |
---|
58 | #else |
---|
59 | subroutine Agrif2Model |
---|
60 | write(*,*) 'Impossible to bet here' |
---|
61 | end subroutine Agrif2model |
---|
62 | #endif |
---|