Changeset 10068 for NEMO/trunk/src/NST/agrif2model.F90
- Timestamp:
- 2018-08-28T16:09:04+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif2model.F90
r10067 r10068 1 1 #if defined key_agrif 2 !!----------------------------------------------------------------------3 !! NEMO/NST 4.0 , NEMO Consortium (2018)4 !! $Id$5 !! Software governed by the CeCILL licence (./LICENSE)6 !!----------------------------------------------------------------------2 !!---------------------------------------------------------------------- 3 !! NEMO/NST 4.0 , NEMO Consortium (2018) 4 !! $Id$ 5 !! Software governed by the CeCILL license (see ./LICENSE) 6 !!---------------------------------------------------------------------- 7 7 SUBROUTINE Agrif2Model 8 !!---------------------------------------------9 !! *** ROUTINE Agrif2Model ***10 !!---------------------------------------------8 !!--------------------------------------------- 9 !! *** ROUTINE Agrif2Model *** 10 !!--------------------------------------------- 11 11 END SUBROUTINE Agrif2model 12 12 13 13 SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 14 !!---------------------------------------------15 !! *** ROUTINE Agrif_Set_numberofcells ***16 !!---------------------------------------------14 !!--------------------------------------------- 15 !! *** ROUTINE Agrif_Set_numberofcells *** 16 !!--------------------------------------------- 17 17 USE Agrif_Grids 18 18 IMPLICIT NONE … … 27 27 28 28 SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 29 !!---------------------------------------------30 !! *** ROUTINE Agrif_Get_numberofcells ***31 !!---------------------------------------------29 !!--------------------------------------------- 30 !! *** ROUTINE Agrif_Get_numberofcells *** 31 !!--------------------------------------------- 32 32 USE Agrif_Grids 33 33 IMPLICIT NONE … … 42 42 43 43 SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 44 !!---------------------------------------------45 !! *** ROUTINE Agrif_Allocationscalls ***46 !!---------------------------------------------44 !!--------------------------------------------- 45 !! *** ROUTINE Agrif_Allocationscalls *** 46 !!--------------------------------------------- 47 47 USE Agrif_Grids 48 48 #include "include_use_Alloc_agrif.h" … … 56 56 57 57 SUBROUTINE Agrif_probdim_modtype_def() 58 !!---------------------------------------------59 !! *** ROUTINE Agrif_probdim_modtype_def ***60 !!---------------------------------------------58 !!--------------------------------------------- 59 !! *** ROUTINE Agrif_probdim_modtype_def *** 60 !!--------------------------------------------- 61 61 USE Agrif_Types 62 62 IMPLICIT NONE … … 71 71 72 72 SUBROUTINE Agrif_clustering_def() 73 !!---------------------------------------------74 !! *** ROUTINE Agrif_clustering_def ***75 !!---------------------------------------------73 !!--------------------------------------------- 74 !! *** ROUTINE Agrif_clustering_def *** 75 !!--------------------------------------------- 76 76 IMPLICIT NONE 77 77 … … 82 82 #else 83 83 SUBROUTINE Agrif2Model 84 !!---------------------------------------------85 !! *** ROUTINE Agrif2Model ***86 !!---------------------------------------------84 !!--------------------------------------------- 85 !! *** ROUTINE Agrif2Model *** 86 !!--------------------------------------------- 87 87 WRITE(*,*) 'Impossible to bet here' 88 88 END SUBROUTINE Agrif2model
Note: See TracChangeset
for help on using the changeset viewer.