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.
Changeset 10321 for NEMO/branches/UKMO/NEMO4_beta_mirror/src/NST/agrif2model.F90 – NEMO

Ignore:
Timestamp:
2018-11-16T15:59:30+01:00 (5 years ago)
Author:
davestorkey
Message:

UKMO/NEMO4_beta_mirror: Update to version 10279 of the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO4_beta_mirror/src/NST/agrif2model.F90

    r9950 r10321  
    11#if defined key_agrif 
    2 !!---------------------------------------------------------------------- 
    3 !! NEMO/NST 3.6 , 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.