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 utils/tools_UKMO_MERGE_2019/DOMAINcfg/src – NEMO

source: utils/tools_UKMO_MERGE_2019/DOMAINcfg/src/agrif2model.F90 @ 12101

Last change on this file since 12101 was 12101, checked in by mathiot, 4 years ago

merge ENHANCE-03_domcfg and ENHANCE-02_ISF_nemo

File size: 2.6 KB
Line 
1#if defined key_agrif
2   !!----------------------------------------------------------------------
3   !! NEMO/NST 4.0 , NEMO Consortium (2018)
4   !! $Id: agrif2model.F90 10068 2018-08-28 14:09:04Z nicolasmartin $
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.