Ignore:
Timestamp:
2018-08-28T16:09:04+02:00 (3 years ago)
Author:
nicolasmartin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif2model.F90

    r10067 r10068  
    11#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   !!---------------------------------------------------------------------- 
    77SUBROUTINE Agrif2Model 
    8    !!--------------------------------------------- 
    9    !!   *** ROUTINE Agrif2Model *** 
    10    !!---------------------------------------------  
     8      !!--------------------------------------------- 
     9      !!   *** ROUTINE Agrif2Model *** 
     10      !!---------------------------------------------  
    1111END SUBROUTINE Agrif2model 
    1212 
    1313SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 
    14    !!--------------------------------------------- 
    15    !!   *** ROUTINE Agrif_Set_numberofcells *** 
    16    !!---------------------------------------------  
     14      !!--------------------------------------------- 
     15      !!   *** ROUTINE Agrif_Set_numberofcells *** 
     16      !!---------------------------------------------  
    1717   USE Agrif_Grids 
    1818   IMPLICIT NONE 
     
    2727 
    2828SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 
    29    !!--------------------------------------------- 
    30    !!   *** ROUTINE Agrif_Get_numberofcells *** 
    31    !!---------------------------------------------  
     29      !!--------------------------------------------- 
     30      !!   *** ROUTINE Agrif_Get_numberofcells *** 
     31      !!---------------------------------------------  
    3232   USE Agrif_Grids 
    3333   IMPLICIT NONE 
     
    4242 
    4343SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 
    44    !!--------------------------------------------- 
    45    !!   *** ROUTINE Agrif_Allocationscalls *** 
    46    !!---------------------------------------------  
     44      !!--------------------------------------------- 
     45      !!   *** ROUTINE Agrif_Allocationscalls *** 
     46      !!---------------------------------------------  
    4747   USE Agrif_Grids  
    4848#include "include_use_Alloc_agrif.h" 
     
    5656 
    5757SUBROUTINE Agrif_probdim_modtype_def() 
    58    !!--------------------------------------------- 
    59    !!   *** ROUTINE Agrif_probdim_modtype_def *** 
    60    !!---------------------------------------------  
     58      !!--------------------------------------------- 
     59      !!   *** ROUTINE Agrif_probdim_modtype_def *** 
     60      !!---------------------------------------------  
    6161   USE Agrif_Types 
    6262   IMPLICIT NONE 
     
    7171 
    7272SUBROUTINE Agrif_clustering_def() 
    73    !!--------------------------------------------- 
    74    !!   *** ROUTINE Agrif_clustering_def *** 
    75    !!---------------------------------------------  
     73      !!--------------------------------------------- 
     74      !!   *** ROUTINE Agrif_clustering_def *** 
     75      !!---------------------------------------------  
    7676   IMPLICIT NONE 
    7777 
     
    8282#else 
    8383SUBROUTINE Agrif2Model 
    84    !!--------------------------------------------- 
    85    !!   *** ROUTINE Agrif2Model *** 
    86    !!---------------------------------------------  
     84      !!--------------------------------------------- 
     85      !!   *** ROUTINE Agrif2Model *** 
     86      !!---------------------------------------------  
    8787   WRITE(*,*) 'Impossible to bet here' 
    8888END SUBROUTINE Agrif2model 
Note: See TracChangeset for help on using the changeset viewer.