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 4015 for branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R2.h90 – NEMO

Ignore:
Timestamp:
2013-09-09T12:13:17+02:00 (11 years ago)
Author:
cetlod
Message:

2013/dev_r3940_CNRS4_IOCRS: 1st step, add new routines for outputs coarsening

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R2.h90

    r2715 r4015  
    99   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    1010   !!---------------------------------------------------------------------- 
    11    CHARACTER (len=16)      & 
    12 #if !defined key_agrif 
    13       , PARAMETER  & 
    14 #endif 
    15       ::    &   
    16       cp_cfg = "orca"           !: name of the configuration  
    17    INTEGER     & 
    18 #if !defined key_agrif 
    19       , PARAMETER  & 
    20 #endif 
    21       :: & 
    22       jp_cfg = 2,            &  !: resolution of the configuration (degrees) 
    23  
     11   CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
     12   INTEGER            :: jp_cfg = 2       !: resolution of the configuration (degrees) 
     13   INTEGER, PARAMETER ::     & 
    2414      ! data size              !!! * size of all input files * 
    2515      jpidta  = 182,         &  !: 1st lateral dimension ( >= jpiglo ) 
    … …  
    2919#if defined key_antarctic 
    3020      ! zoom domain size       !!! *  antarctic zoom  *  
    31    INTEGER     & 
    32 #if !defined key_agrif 
    33       , PARAMETER  & 
    34 #endif 
    35       :: & 
     21   INTEGER  ::   & 
    3622      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3723      jpjglo  = 50,          &  !: 2nd    "                  "    --> j 
    … …  
    4430#elif defined key_arctic 
    4531      ! zoom domain size       !!! *  arctic zoom  * 
    46    INTEGER    & 
    47 #if !defined key_agrif 
    48       , PARAMETER  & 
    49 #endif 
    50       :: & 
     32   INTEGER  ::  & 
    5133      jpiglo  = 142   ,      &  !: 1st dimension of global domain --> i 
    5234      jpjglo  = jpjdta-97+1, &  !: 2nd    "                  "    --> j 
    … …  
    5941#elif defined key_c1d 
    6042      ! global domain size     !!! *  global domain  * 
    61    INTEGER    & 
    62 #if !defined key_agrif 
    63       , PARAMETER  & 
    64 #endif 
    65       :: & 
     43   INTEGER  ::   & 
    6644      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
    6745      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j 
    … …  
    8765#else 
    8866      ! global domain size     !!! *  global domain  * 
    89    INTEGER    & 
    90 #if !defined key_agrif 
    91       , PARAMETER  & 
    92 #endif 
    93       :: & 
     67   INTEGER   ::  & 
    9468      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    9569      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
Note: See TracChangeset for help on using the changeset viewer.