source: NEMO/trunk/src/NST/agrif2model.F90 @ 11463

Last change on this file since 11463 was 10068, checked in by nicolasmartin, 3 years ago

First part of modifications to have a common default header : fix typos and SVN keywords properties

  • Property svn:keywords set to Id
File size: 2.5 KB
RevLine 
[393]1#if defined key_agrif
[10068]2   !!----------------------------------------------------------------------
3   !! NEMO/NST 4.0 , NEMO Consortium (2018)
4   !! $Id$
5   !! Software governed by the CeCILL license (see ./LICENSE)
6   !!----------------------------------------------------------------------
[5656]7SUBROUTINE Agrif2Model
[10068]8      !!---------------------------------------------
9      !!   *** ROUTINE Agrif2Model ***
10      !!---------------------------------------------
[5656]11END SUBROUTINE Agrif2model
[1156]12
[5656]13SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr)
[10068]14      !!---------------------------------------------
15      !!   *** ROUTINE Agrif_Set_numberofcells ***
16      !!---------------------------------------------
[5656]17   USE Agrif_Grids
18   IMPLICIT NONE
[635]19
[5656]20   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
[635]21
[5656]22   IF ( ASSOCIATED(Agrif_Curgrid) )THEN
[390]23#include "SetNumberofcells.h"
[5656]24   ENDIF
[635]25
[5656]26END SUBROUTINE Agrif_Set_numberofcells
[635]27
[5656]28SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr)
[10068]29      !!---------------------------------------------
30      !!   *** ROUTINE Agrif_Get_numberofcells ***
31      !!---------------------------------------------
[5656]32   USE Agrif_Grids
33   IMPLICIT NONE
[635]34
[5656]35   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
[635]36
[5656]37   IF ( ASSOCIATED(Agrif_Curgrid) ) THEN
[635]38#include "GetNumberofcells.h"
[5656]39   ENDIF
[635]40
[5656]41END SUBROUTINE Agrif_Get_numberofcells
[635]42
[5656]43SUBROUTINE Agrif_Allocationcalls(Agrif_Gr)
[10068]44      !!---------------------------------------------
45      !!   *** ROUTINE Agrif_Allocationscalls ***
46      !!---------------------------------------------
[5656]47   USE Agrif_Grids 
[533]48#include "include_use_Alloc_agrif.h"
[5656]49   IMPLICIT NONE
[635]50
[5656]51   TYPE(Agrif_Grid), POINTER :: Agrif_Gr
[635]52
[390]53#include "allocations_calls_agrif.h"
[635]54
[5656]55END SUBROUTINE Agrif_Allocationcalls
[635]56
[5656]57SUBROUTINE Agrif_probdim_modtype_def()
[10068]58      !!---------------------------------------------
59      !!   *** ROUTINE Agrif_probdim_modtype_def ***
60      !!---------------------------------------------
[5656]61   USE Agrif_Types
62   IMPLICIT NONE
[635]63
[390]64#include "modtype_agrif.h"
65#include "probdim_agrif.h"
66#include "keys_agrif.h"
[635]67
[5656]68   RETURN
[635]69
[5656]70END SUBROUTINE Agrif_probdim_modtype_def
[635]71
[5656]72SUBROUTINE Agrif_clustering_def()
[10068]73      !!---------------------------------------------
74      !!   *** ROUTINE Agrif_clustering_def ***
75      !!---------------------------------------------
[5656]76   IMPLICIT NONE
[533]77
[5656]78   RETURN
[635]79
[5656]80END SUBROUTINE Agrif_clustering_def
[1793]81
[390]82#else
[5656]83SUBROUTINE Agrif2Model
[10068]84      !!---------------------------------------------
85      !!   *** ROUTINE Agrif2Model ***
86      !!---------------------------------------------
[5656]87   WRITE(*,*) 'Impossible to bet here'
88END SUBROUTINE Agrif2model
[390]89#endif
Note: See TracBrowser for help on using the repository browser.