source: trunk/NEMO/NST_SRC/agrif2model.F90 @ 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 Id
File size: 2.8 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
76   SUBROUTINE Agrif_comm_def(modelcomm)
77
78      !!---------------------------------------------
79      !!   *** ROUTINE Agrif_clustering_def ***
80      !!---------------------------------------------
81      Use Agrif_Types
82      Use lib_mpp
83
84      IMPLICIT NONE
85
86      INTEGER :: modelcomm
87
88#if defined key_mpp_mpi
89      modelcomm = mpi_comm_opa
90#endif
91      Return
92
93   END SUBROUTINE Agrif_comm_def
94#else
95   SUBROUTINE Agrif2Model
96      !!---------------------------------------------
97      !!   *** ROUTINE Agrif2Model ***
98      !!---------------------------------------------
99      WRITE(*,*) 'Impossible to bet here'
100   END SUBROUTINE Agrif2model
101#endif
Note: See TracBrowser for help on using the repository browser.