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 10251 for branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/NST_SRC/agrif2model.F90 – NEMO

Ignore:
Timestamp:
2018-10-29T15:20:26+01:00 (5 years ago)
Author:
kingr
Message:

Rolled back to r10247 - i.e., undid merge of pkg br and 3.6_stable br

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/NST_SRC/agrif2model.F90

    r10248 r10251  
    11#if defined key_agrif 
    2 !!---------------------------------------------------------------------- 
    3 !! NEMO/NST 3.6 , NEMO Consortium (2010) 
    4 !! $Id$ 
    5 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    6 !!---------------------------------------------------------------------- 
    7 SUBROUTINE Agrif2Model 
    8    !!--------------------------------------------- 
    9    !!   *** ROUTINE Agrif2Model *** 
    10    !!---------------------------------------------  
    11 END SUBROUTINE Agrif2model 
     2   !!---------------------------------------------------------------------- 
     3   !! NEMO/NST 3.3 , NEMO Consortium (2010) 
     4   !! $Id$ 
     5   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     6   !!---------------------------------------------------------------------- 
     7   SUBROUTINE Agrif2Model 
     8      !!--------------------------------------------- 
     9      !!   *** ROUTINE Agrif2Model *** 
     10      !!---------------------------------------------  
     11   END SUBROUTINE Agrif2model 
    1212 
    13 SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 
    14    !!--------------------------------------------- 
    15    !!   *** ROUTINE Agrif_Set_numberofcells *** 
    16    !!---------------------------------------------  
    17    USE Agrif_Grids 
    18    IMPLICIT NONE 
     13   SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 
     14      !!--------------------------------------------- 
     15      !!   *** ROUTINE Agrif_Set_numberofcells *** 
     16      !!---------------------------------------------  
     17      USE Agrif_Types 
     18      IMPLICIT NONE 
    1919 
    20    TYPE(Agrif_Grid), POINTER :: Agrif_Gr 
     20      Type(Agrif_Grid), Pointer :: Agrif_Gr 
    2121 
    22    IF ( ASSOCIATED(Agrif_Curgrid) )THEN 
     22      IF ( associated(Agrif_Curgrid) )THEN 
    2323#include "SetNumberofcells.h" 
    24    ENDIF 
     24      ENDIF 
    2525 
    26 END SUBROUTINE Agrif_Set_numberofcells 
     26   END SUBROUTINE Agrif_Set_numberofcells 
    2727 
    28 SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 
    29    !!--------------------------------------------- 
    30    !!   *** ROUTINE Agrif_Get_numberofcells *** 
    31    !!---------------------------------------------  
    32    USE Agrif_Grids 
    33    IMPLICIT NONE 
     28   SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 
     29      !!--------------------------------------------- 
     30      !!   *** ROUTINE Agrif_Get_numberofcells *** 
     31      !!---------------------------------------------  
     32      USE Agrif_Types 
     33      IMPLICIT NONE 
    3434 
    35    TYPE(Agrif_Grid), POINTER :: Agrif_Gr 
     35      Type(Agrif_Grid), Pointer :: Agrif_Gr 
    3636 
    37    IF ( ASSOCIATED(Agrif_Curgrid) ) THEN 
    3837#include "GetNumberofcells.h" 
    39    ENDIF 
    4038 
    41 END SUBROUTINE Agrif_Get_numberofcells 
     39   END SUBROUTINE Agrif_Get_numberofcells 
    4240 
    43 SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 
    44    !!--------------------------------------------- 
    45    !!   *** ROUTINE Agrif_Allocationscalls *** 
    46    !!---------------------------------------------  
    47    USE Agrif_Grids  
     41   SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 
     42      !!--------------------------------------------- 
     43      !!   *** ROUTINE Agrif_Allocationscalls *** 
     44      !!---------------------------------------------  
     45      USE Agrif_Types  
    4846#include "include_use_Alloc_agrif.h" 
    49    IMPLICIT NONE 
     47      IMPLICIT NONE 
    5048 
    51    TYPE(Agrif_Grid), POINTER :: Agrif_Gr 
     49      Type(Agrif_Grid), Pointer :: Agrif_Gr 
    5250 
    5351#include "allocations_calls_agrif.h" 
    5452 
    55 END SUBROUTINE Agrif_Allocationcalls 
     53   END SUBROUTINE Agrif_Allocationcalls 
    5654 
    57 SUBROUTINE Agrif_probdim_modtype_def() 
    58    !!--------------------------------------------- 
    59    !!   *** ROUTINE Agrif_probdim_modtype_def *** 
    60    !!---------------------------------------------  
    61    USE Agrif_Types 
    62    IMPLICIT NONE 
     55   SUBROUTINE Agrif_probdim_modtype_def() 
     56      !!--------------------------------------------- 
     57      !!   *** ROUTINE Agrif_probdim_modtype_def *** 
     58      !!---------------------------------------------  
     59      USE Agrif_Types 
     60      IMPLICIT NONE 
    6361 
    6462#include "modtype_agrif.h" 
    … …  
    6664#include "keys_agrif.h" 
    6765 
    68    RETURN 
     66      Return 
    6967 
    70 END SUBROUTINE Agrif_probdim_modtype_def 
     68   END SUBROUTINE Agrif_probdim_modtype_def 
    7169 
    72 SUBROUTINE Agrif_clustering_def() 
    73    !!--------------------------------------------- 
    74    !!   *** ROUTINE Agrif_clustering_def *** 
    75    !!---------------------------------------------  
    76    IMPLICIT NONE 
     70   SUBROUTINE Agrif_clustering_def() 
     71      !!--------------------------------------------- 
     72      !!   *** ROUTINE Agrif_clustering_def *** 
     73      !!---------------------------------------------  
     74      Use Agrif_Types 
     75      IMPLICIT NONE 
    7776 
    78    RETURN 
     77      Return 
    7978 
    80 END SUBROUTINE Agrif_clustering_def 
     79   END SUBROUTINE Agrif_clustering_def 
    8180 
     81   SUBROUTINE Agrif_comm_def(modelcomm) 
     82 
     83      !!--------------------------------------------- 
     84      !!   *** ROUTINE Agrif_clustering_def *** 
     85      !!---------------------------------------------  
     86      Use Agrif_Types 
     87      Use lib_mpp 
     88 
     89      IMPLICIT NONE 
     90 
     91      INTEGER :: modelcomm 
     92 
     93#if defined key_mpp_mpi 
     94      modelcomm = mpi_comm_opa 
     95#endif 
     96      Return 
     97 
     98   END SUBROUTINE Agrif_comm_def 
    8299#else 
    83 SUBROUTINE Agrif2Model 
    84    !!--------------------------------------------- 
    85    !!   *** ROUTINE Agrif2Model *** 
    86    !!---------------------------------------------  
    87    WRITE(*,*) 'Impossible to bet here' 
    88 END SUBROUTINE Agrif2model 
     100   SUBROUTINE Agrif2Model 
     101      !!--------------------------------------------- 
     102      !!   *** ROUTINE Agrif2Model *** 
     103      !!---------------------------------------------  
     104      WRITE(*,*) 'Impossible to bet here' 
     105   END SUBROUTINE Agrif2model 
    89106#endif 
Note: See TracChangeset for help on using the changeset viewer.