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_R05.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_R05.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 = 05  ,         &  !: resolution of the configuration (degrees) 
    1523 
    … …  
    2028 
    2129#if defined key_antarctic 
    22    INTEGER, PARAMETER ::     & 
    23       ! zoom domain size       !!! * antarctic zoom * 
     30      ! zoom domain size       !!! *  antarctic zoom  *  
     31   INTEGER     & 
     32#if !defined key_AGRIF 
     33      , PARAMETER  & 
     34#endif 
     35      :: & 
    2436      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    2537      jpjglo  = 187   ,      &  !: 2nd     "                 "    --> j  
    … …  
    3446 
    3547#elif defined key_arctic 
    36    INTEGER, PARAMETER ::     & 
     48      ! zoom domain size       !!! *  arctic zoom  * 
     49   INTEGER    & 
     50#if !defined key_AGRIF 
     51      , PARAMETER  & 
     52#endif 
     53      :: & 
    3754      ! zoom domain size       !!! *  arctic zoom  * 
    3855      jpiglo  = 562,         &  !: 1st dimension of global domain --> i 
    … …  
    4865 
    4966#else 
    50    INTEGER, PARAMETER ::     & 
    51       ! global domain size     !!! * full domain * 
     67      ! global domain size     !!! *  global domain  * 
     68   INTEGER    & 
     69#if !defined key_AGRIF 
     70      , PARAMETER  & 
     71#endif 
     72      :: & 
    5273      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    5374      jpjglo  = jpjdta,      &  !: 2nd     "                 "    --> j 
Note: See TracChangeset for help on using the changeset viewer.