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 389 for trunk/NEMO/OPA_SRC/par_ORCA_R2.h90 – NEMO

Ignore:
Timestamp:
2006-03-09T18:22:04+01:00 (18 years ago)
Author:
opalod
Message:

RB:nemo_v1_update_038: first integration of Agrif :

  • configuration parameters are just integer when agrif is used
  • add call to agrif routines with key_agrif
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/par_ORCA_R2.h90

    r359 r389  
    99   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16), PARAMETER ::    &   
     11   CHARACTER (len=16)      & 
     12#if !defined key_AGRIF 
     13      , PARAMETER  & 
     14#endif 
     15      ::    &   
    1216      cp_cfg = "orca"           !: name of the configuration  
    13    INTEGER, PARAMETER ::     & 
     17   INTEGER     & 
     18#if !defined key_AGRIF 
     19      , PARAMETER  & 
     20#endif 
     21      :: & 
    1422      jp_cfg = 2,            &  !: resolution of the configuration (degrees) 
    1523 
    … …  
    2129#if defined key_antarctic 
    2230      ! zoom domain size       !!! *  antarctic zoom  *  
    23    INTEGER, PARAMETER ::     & 
     31   INTEGER     & 
     32#if !defined key_AGRIF 
     33      , PARAMETER  & 
     34#endif 
     35      :: & 
    2436      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    2537      jpjglo  = 50,          &  !: 2nd    "                  "    --> j 
    … …  
    3547#elif defined key_arctic 
    3648      ! zoom domain size       !!! *  arctic zoom  * 
    37    INTEGER, PARAMETER ::     & 
     49   INTEGER    & 
     50#if !defined key_AGRIF 
     51      , PARAMETER  & 
     52#endif 
     53      :: & 
    3854      jpiglo  = 142   ,      &  !: 1st dimension of global domain --> i 
    3955      jpjglo  = jpjdta-97+1, &  !: 2nd    "                  "    --> j 
    … …  
    4965#elif defined key_cfg_1d 
    5066      ! global domain size     !!! *  global domain  * 
    51    INTEGER, PARAMETER ::     & 
     67   INTEGER    & 
     68#if !defined key_AGRIF 
     69      , PARAMETER  & 
     70#endif 
     71      :: & 
    5272      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
    5373      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j 
    … …  
    7494#else 
    7595      ! global domain size     !!! *  global domain  * 
    76    INTEGER, PARAMETER ::     & 
     96   INTEGER    & 
     97#if !defined key_AGRIF 
     98      , PARAMETER  & 
     99#endif 
     100      :: & 
    77101      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    78102      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    … …  
    85109      jpisl   =  18   ,      &  !: number of islands 
    86110      jpnisl  = 800             !: maximum number of points per island 
     111 
    87112#endif 
    88113 
Note: See TracChangeset for help on using the changeset viewer.