ecearth3/sources/nemo-3.6/NEMO/NST_SRC/agrif2model.F90

#if defined key_agrif
!!----------------------------------------------------------------------
!! NEMO/NST 3.6 , NEMO Consortium (2010)
!! $Id$
!! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
!!----------------------------------------------------------------------
SUBROUTINE Agrif2Model
   !!---------------------------------------------
   !!   *** ROUTINE Agrif2Model ***
   !!--------------------------------------------- 
END SUBROUTINE Agrif2model

SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr)
   !!---------------------------------------------
   !!   *** ROUTINE Agrif_Set_numberofcells ***
   !!--------------------------------------------- 
   USE Agrif_Grids
   IMPLICIT NONE

   TYPE(Agrif_Grid), POINTER :: Agrif_Gr

   IF ( ASSOCIATED(Agrif_Curgrid) )THEN
#include "SetNumberofcells.h"
   ENDIF

END SUBROUTINE Agrif_Set_numberofcells

SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr)
   !!---------------------------------------------
   !!   *** ROUTINE Agrif_Get_numberofcells ***
   !!--------------------------------------------- 
   USE Agrif_Grids
   IMPLICIT NONE

   TYPE(Agrif_Grid), POINTER :: Agrif_Gr

   IF ( ASSOCIATED(Agrif_Curgrid) ) THEN
#include "GetNumberofcells.h"
   ENDIF

END SUBROUTINE Agrif_Get_numberofcells

SUBROUTINE Agrif_Allocationcalls(Agrif_Gr)
   !!---------------------------------------------
   !!   *** ROUTINE Agrif_Allocationscalls ***
   !!--------------------------------------------- 
   USE Agrif_Grids 
#include "include_use_Alloc_agrif.h"
   IMPLICIT NONE

   TYPE(Agrif_Grid), POINTER :: Agrif_Gr

#include "allocations_calls_agrif.h"

END SUBROUTINE Agrif_Allocationcalls

SUBROUTINE Agrif_probdim_modtype_def()
   !!---------------------------------------------
   !!   *** ROUTINE Agrif_probdim_modtype_def ***
   !!--------------------------------------------- 
   USE Agrif_Types
   IMPLICIT NONE

#include "modtype_agrif.h"
#include "probdim_agrif.h"
#include "keys_agrif.h"

   RETURN

END SUBROUTINE Agrif_probdim_modtype_def

SUBROUTINE Agrif_clustering_def()
   !!---------------------------------------------
   !!   *** ROUTINE Agrif_clustering_def ***
   !!--------------------------------------------- 
   IMPLICIT NONE

   RETURN

END SUBROUTINE Agrif_clustering_def

#else
SUBROUTINE Agrif2Model
   !!---------------------------------------------
   !!   *** ROUTINE Agrif2Model ***
   !!--------------------------------------------- 
   WRITE(*,*) 'Impossible to bet here'
END SUBROUTINE Agrif2model
#endif