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_1d_bugfixes_tocommit/NEMOGCM/NEMO/NST_SRC – NEMO

source: branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/NST_SRC/agrif2model.F90 @ 13354

Last change on this file since 13354 was 6487, checked in by davestorkey, 8 years ago

Changes from nemo_v3_6_STABLE_copy branch.
Custom merge into /branches/UKMO/dev_r5518_GO6_package/NEMOGCM: r6237 cf. r5781 of /branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM@6486

File size: 2.4 KB
Line 
1#if defined key_agrif
2!!----------------------------------------------------------------------
3!! NEMO/NST 3.6 , NEMO Consortium (2010)
4!! $Id$
5!! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
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.