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 635 for trunk/NEMO/NST_SRC – NEMO

Changeset 635 for trunk/NEMO/NST_SRC


Ignore:
Timestamp:
2007-03-07T14:26:45+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_update_007:RB: add key_mpp_dyndist for dynamic distribution with key_agrif activated

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/NST_SRC/agrif2model.F90

    r533 r635  
    11#if defined key_agrif 
    2 !     **************************************************************************  
    3 !!!   Subroutine   Agrif_Set_numberofcells 
    4 !     **************************************************************************  
    5 !  
    6       Subroutine Agrif_Set_numberofcells(Agrif_Gr) 
     2   SUBROUTINE Agrif_Set_numberofcells(Agrif_Gr) 
     3      !!--------------------------------------------- 
     4      !!   *** ROUTINE Agrif_Set_numberofcells *** 
     5      !!---------------------------------------------  
    76      USE Agrif_Types 
    8       Implicit none 
     7      IMPLICIT NONE 
     8 
    99      Type(Agrif_Grid), Pointer :: Agrif_Gr 
    10       if ( associated(Agrif_Curgrid) )then 
     10 
     11      IF ( associated(Agrif_Curgrid) )THEN 
    1112#include "SetNumberofcells.h" 
    12       endif 
    13       End Subroutine Agrif_Set_numberofcells 
    14 ! 
    15 !     **************************************************************************  
    16 !!!   Subroutine   Agrif_Get_numberofcells 
    17 !     **************************************************************************  
    18       Subroutine Agrif_Get_numberofcells(Agrif_Gr) 
     13      ENDIF 
     14 
     15   END SUBROUTINE Agrif_Set_numberofcells 
     16 
     17   SUBROUTINE Agrif_Get_numberofcells(Agrif_Gr) 
     18      !!--------------------------------------------- 
     19      !!   *** ROUTINE Agrif_Get_numberofcells *** 
     20      !!---------------------------------------------  
    1921      USE Agrif_Types 
    20       Implicit none 
     22      IMPLICIT NONE 
     23 
    2124      Type(Agrif_Grid), Pointer :: Agrif_Gr 
    22 #include "GetNumberofcells.h"      
    23       End Subroutine Agrif_Get_numberofcells 
    24 ! 
    25 !     **************************************************************************  
    26 !!!   Subroutine Agrif_Allocationcalls 
    27 !     **************************************************************************  
    28       Subroutine Agrif_Allocationcalls(Agrif_Gr) 
     25 
     26#include "GetNumberofcells.h" 
     27 
     28   END SUBROUTINE Agrif_Get_numberofcells 
     29 
     30   SUBROUTINE Agrif_Allocationcalls(Agrif_Gr) 
     31      !!--------------------------------------------- 
     32      !!   *** ROUTINE Agrif_Allocationscalls *** 
     33      !!---------------------------------------------  
    2934      USE Agrif_Types  
    3035#include "include_use_Alloc_agrif.h" 
    31       Implicit none 
     36      IMPLICIT NONE 
     37 
    3238      Type(Agrif_Grid), Pointer :: Agrif_Gr 
     39 
    3340#include "allocations_calls_agrif.h" 
    34       End Subroutine Agrif_Allocationcalls 
    35 ! 
    36 !     **************************************************************************   
    37 !!!   Subroutine Agrif_probdim_modtype_def 
    38 !     ************************************************************************** 
    39       Subroutine Agrif_probdim_modtype_def() 
    40       Use Agrif_Types 
    41       Implicit none 
     41 
     42   END SUBROUTINE Agrif_Allocationcalls 
     43 
     44   SUBROUTINE Agrif_probdim_modtype_def() 
     45      !!--------------------------------------------- 
     46      !!   *** ROUTINE Agrif_probdim_modtype_def *** 
     47      !!---------------------------------------------  
     48      USE Agrif_Types 
     49      IMPLICIT NONE 
     50 
    4251#include "modtype_agrif.h" 
    4352#include "probdim_agrif.h" 
    4453#include "keys_agrif.h" 
    45       Return 
    46       End Subroutine Agrif_probdim_modtype_def 
    47 ! 
    48 !     **************************************************************************   
    49 !!!   Subroutine Agrif_clustering_def 
    50 !     **************************************************************************   
    51       Subroutine Agrif_clustering_def() 
    52       Use Agrif_Types 
    53       Implicit none 
    5454 
    5555      Return 
    56       End Subroutine Agrif_clustering_def 
     56 
     57   END SUBROUTINE Agrif_probdim_modtype_def 
     58 
     59   SUBROUTINE Agrif_clustering_def() 
     60      !!--------------------------------------------- 
     61      !!   *** ROUTINE Agrif_clustering_def *** 
     62      !!---------------------------------------------  
     63      Use Agrif_Types 
     64      IMPLICIT NONE 
     65 
     66      Return 
     67 
     68   END SUBROUTINE Agrif_clustering_def 
    5769#else 
    58       subroutine Agrif2Model 
    59          write(*,*) 'Impossible to bet here' 
    60       end subroutine Agrif2model 
     70   SUBROUTINE Agrif2Model 
     71      !!--------------------------------------------- 
     72      !!   *** ROUTINE Agrif2Model *** 
     73      !!---------------------------------------------  
     74      WRITE(*,*) 'Impossible to bet here' 
     75   END SUBROUTINE Agrif2model 
    6176#endif 
Note: See TracChangeset for help on using the changeset viewer.