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_R05.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_R05.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 = 05  ,         &  !: resolution of the configuration (degrees) 
    23  
    24       ! data size              !!! * size of all the input files * 
     11   CHARACTER (len=16) :: cp_cfg = "orca"  !: name of the configuration 
     12   INTEGER            :: jp_cfg = 05       !: resolution of the configuration (degrees) 
     13   INTEGER, PARAMETER ::     & 
     14      ! data size              !!! * size of all input files * 
    2515      jpidta  = 722,         &  !: 1st lateral dimension > or = to jpiglo 
    2616      jpjdta  = 511,         &  !: 2nd   "         "     > or = to jpjglo 
    … …  
    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  = 187   ,      &  !: 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      ! zoom domain size       !!! *  arctic zoom  * 
    5234      jpiglo  = 562,         &  !: 1st dimension of global domain --> i 
    … …  
    6042#else 
    6143      ! global domain size     !!! *  global domain  * 
    62    INTEGER    & 
    63 #if !defined key_agrif 
    64       , PARAMETER  & 
    65 #endif 
    66       :: & 
     44   INTEGER    ::  & 
    6745      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    6846      jpjglo  = jpjdta,      &  !: 2nd     "                 "    --> j 
Note: See TracChangeset for help on using the changeset viewer.