New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
agrif2model.F90 in branches/UKMO/dev_r5107_hadgem3_mct/NEMOGCM/NEMO/NST_SRC – NEMO

source: branches/UKMO/dev_r5107_hadgem3_mct/NEMOGCM/NEMO/NST_SRC/agrif2model.F90 @ 5279

Last change on this file since 5279 was 5279, checked in by dancopsey, 9 years ago

Removed SVN keywords.

File size: 3.0 KB
Line 
1#if defined key_agrif
2   !!----------------------------------------------------------------------
3   !! NEMO/NST 3.3 , NEMO Consortium (2010)
4   !! $Id$
5   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
6   !!----------------------------------------------------------------------
7   SUBROUTINE Agrif2Model
8      !!---------------------------------------------
9      !!   *** ROUTINE Agrif2Model ***
10      !!---------------------------------------------
11   END SUBROUTINE Agrif2model
12
13   SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr)
14      !!---------------------------------------------
15      !!   *** ROUTINE Agrif_Set_numberofcells ***
16      !!---------------------------------------------
17      USE Agrif_Types
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
26   END SUBROUTINE Agrif_Set_numberofcells
27
28   SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr)
29      !!---------------------------------------------
30      !!   *** ROUTINE Agrif_Get_numberofcells ***
31      !!---------------------------------------------
32      USE Agrif_Types
33      IMPLICIT NONE
34
35      Type(Agrif_Grid), Pointer :: Agrif_Gr
36
37#include "GetNumberofcells.h"
38
39   END SUBROUTINE Agrif_Get_numberofcells
40
41   SUBROUTINE Agrif_Allocationcalls(Agrif_Gr)
42      !!---------------------------------------------
43      !!   *** ROUTINE Agrif_Allocationscalls ***
44      !!---------------------------------------------
45      USE Agrif_Types 
46#include "include_use_Alloc_agrif.h"
47      IMPLICIT NONE
48
49      Type(Agrif_Grid), Pointer :: Agrif_Gr
50
51#include "allocations_calls_agrif.h"
52
53   END SUBROUTINE Agrif_Allocationcalls
54
55   SUBROUTINE Agrif_probdim_modtype_def()
56      !!---------------------------------------------
57      !!   *** ROUTINE Agrif_probdim_modtype_def ***
58      !!---------------------------------------------
59      USE Agrif_Types
60      IMPLICIT NONE
61
62#include "modtype_agrif.h"
63#include "probdim_agrif.h"
64#include "keys_agrif.h"
65
66      Return
67
68   END SUBROUTINE Agrif_probdim_modtype_def
69
70   SUBROUTINE Agrif_clustering_def()
71      !!---------------------------------------------
72      !!   *** ROUTINE Agrif_clustering_def ***
73      !!---------------------------------------------
74      Use Agrif_Types
75      IMPLICIT NONE
76
77      Return
78
79   END SUBROUTINE Agrif_clustering_def
80
81   SUBROUTINE Agrif_comm_def(modelcomm)
82
83      !!---------------------------------------------
84      !!   *** ROUTINE Agrif_clustering_def ***
85      !!---------------------------------------------
86      Use Agrif_Types
87      Use lib_mpp
88
89      IMPLICIT NONE
90
91      INTEGER :: modelcomm
92
93#if defined key_mpp_mpi
94      modelcomm = mpi_comm_opa
95#endif
96      Return
97
98   END SUBROUTINE Agrif_comm_def
99#else
100   SUBROUTINE Agrif2Model
101      !!---------------------------------------------
102      !!   *** ROUTINE Agrif2Model ***
103      !!---------------------------------------------
104      WRITE(*,*) 'Impossible to bet here'
105   END SUBROUTINE Agrif2model
106#endif
Note: See TracBrowser for help on using the repository browser.