source: NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/NST/agrif2model.F90 @ 14579

Last change on this file since 14579 was 10068, checked in by nicolasmartin, 3 years ago

First part of modifications to have a common default header : fix typos and SVN keywords properties

  • Property svn:keywords set to Id
File size: 2.5 KB
Line 
1#if defined key_agrif
2   !!----------------------------------------------------------------------
3   !! NEMO/NST 4.0 , NEMO Consortium (2018)
4   !! $Id$
5   !! Software governed by the CeCILL license (see ./LICENSE)
6   !!----------------------------------------------------------------------
7SUBROUTINE Agrif2Model
8      !!---------------------------------------------
9      !!   *** ROUTINE Agrif2Model ***
10      !!---------------------------------------------
11END SUBROUTINE Agrif2model
12
13SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr)
14      !!---------------------------------------------
15      !!   *** ROUTINE Agrif_Set_numberofcells ***
16      !!---------------------------------------------
17   USE Agrif_Grids
18   IMPLICIT NONE
19
20   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
21
22   IF ( ASSOCIATED(Agrif_Curgrid) )THEN
23#include "SetNumberofcells.h"
24   ENDIF
25
26END SUBROUTINE Agrif_Set_numberofcells
27
28SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr)
29      !!---------------------------------------------
30      !!   *** ROUTINE Agrif_Get_numberofcells ***
31      !!---------------------------------------------
32   USE Agrif_Grids
33   IMPLICIT NONE
34
35   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
36
37   IF ( ASSOCIATED(Agrif_Curgrid) ) THEN
38#include "GetNumberofcells.h"
39   ENDIF
40
41END SUBROUTINE Agrif_Get_numberofcells
42
43SUBROUTINE Agrif_Allocationcalls(Agrif_Gr)
44      !!---------------------------------------------
45      !!   *** ROUTINE Agrif_Allocationscalls ***
46      !!---------------------------------------------
47   USE Agrif_Grids 
48#include "include_use_Alloc_agrif.h"
49   IMPLICIT NONE
50
51   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
52
53#include "allocations_calls_agrif.h"
54
55END SUBROUTINE Agrif_Allocationcalls
56
57SUBROUTINE Agrif_probdim_modtype_def()
58      !!---------------------------------------------
59      !!   *** ROUTINE Agrif_probdim_modtype_def ***
60      !!---------------------------------------------
61   USE Agrif_Types
62   IMPLICIT NONE
63
64#include "modtype_agrif.h"
65#include "probdim_agrif.h"
66#include "keys_agrif.h"
67
68   RETURN
69
70END SUBROUTINE Agrif_probdim_modtype_def
71
72SUBROUTINE Agrif_clustering_def()
73      !!---------------------------------------------
74      !!   *** ROUTINE Agrif_clustering_def ***
75      !!---------------------------------------------
76   IMPLICIT NONE
77
78   RETURN
79
80END SUBROUTINE Agrif_clustering_def
81
82#else
83SUBROUTINE Agrif2Model
84      !!---------------------------------------------
85      !!   *** ROUTINE Agrif2Model ***
86      !!---------------------------------------------
87   WRITE(*,*) 'Impossible to bet here'
88END SUBROUTINE Agrif2model
89#endif
Note: See TracBrowser for help on using the repository browser.