source: trunk/NEMO/NST_SRC/agrif2model.F90 @ 1156

Last change on this file since 1156 was 1156, checked in by rblod, 13 years ago

Update Id and licence information, see ticket #210

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.4 KB
Line 
1#if defined key_agrif
2   !!----------------------------------------------------------------------
3   !!   OPA 9.0 , LOCEAN-IPSL (2006)
4   !! $Id$
5   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
6   !!----------------------------------------------------------------------
7
8   SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr)
9      !!---------------------------------------------
10      !!   *** ROUTINE Agrif_Set_numberofcells ***
11      !!---------------------------------------------
12      USE Agrif_Types
13      IMPLICIT NONE
14
15      Type(Agrif_Grid), Pointer :: Agrif_Gr
16
17      IF ( associated(Agrif_Curgrid) )THEN
18#include "SetNumberofcells.h"
19      ENDIF
20
21   END SUBROUTINE Agrif_Set_numberofcells
22
23   SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr)
24      !!---------------------------------------------
25      !!   *** ROUTINE Agrif_Get_numberofcells ***
26      !!---------------------------------------------
27      USE Agrif_Types
28      IMPLICIT NONE
29
30      Type(Agrif_Grid), Pointer :: Agrif_Gr
31
32#include "GetNumberofcells.h"
33
34   END SUBROUTINE Agrif_Get_numberofcells
35
36   SUBROUTINE Agrif_Allocationcalls(Agrif_Gr)
37      !!---------------------------------------------
38      !!   *** ROUTINE Agrif_Allocationscalls ***
39      !!---------------------------------------------
40      USE Agrif_Types 
41#include "include_use_Alloc_agrif.h"
42      IMPLICIT NONE
43
44      Type(Agrif_Grid), Pointer :: Agrif_Gr
45
46#include "allocations_calls_agrif.h"
47
48   END SUBROUTINE Agrif_Allocationcalls
49
50   SUBROUTINE Agrif_probdim_modtype_def()
51      !!---------------------------------------------
52      !!   *** ROUTINE Agrif_probdim_modtype_def ***
53      !!---------------------------------------------
54      USE Agrif_Types
55      IMPLICIT NONE
56
57#include "modtype_agrif.h"
58#include "probdim_agrif.h"
59#include "keys_agrif.h"
60
61      Return
62
63   END SUBROUTINE Agrif_probdim_modtype_def
64
65   SUBROUTINE Agrif_clustering_def()
66      !!---------------------------------------------
67      !!   *** ROUTINE Agrif_clustering_def ***
68      !!---------------------------------------------
69      Use Agrif_Types
70      IMPLICIT NONE
71
72      Return
73
74   END SUBROUTINE Agrif_clustering_def
75#else
76   SUBROUTINE Agrif2Model
77      !!---------------------------------------------
78      !!   *** ROUTINE Agrif2Model ***
79      !!---------------------------------------------
80      WRITE(*,*) 'Impossible to bet here'
81   END SUBROUTINE Agrif2model
82#endif
Note: See TracBrowser for help on using the repository browser.