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

Ignore:
Timestamp:
2005-08-30T15:26:11+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_001 : Add the 1D configuration possibility

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/par_ORCA_R2.h90

    r247 r253  
    4545      jpnisl  = 400             !: maximum number of points per island 
    4646 
     47#elif defined key_cfg_1d 
     48      ! global domain size     !!! *  global domain  * 
     49      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
     50      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j 
     51      jpk     = jpkdta,      &  !: number of vertical levels 
     52      ! starting position of the zoom  
     53      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     54      ! jpjzoom =   133  ,    &  !: in data domain indices (160W,75N) 
     55      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     56      ! jpjzoom =   110  ,    &  !: in data domain indices (160W,50N) 
     57      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     58      ! jpjzoom =   97   ,    &  !: in data domain indices (160W,30N) 
     59      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     60      ! jpjzoom =   86   ,    &  !: in data domain indices (160W,10N) 
     61      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     62      ! jpjzoom =   49   ,    &  !: in data domain indices (160W,30S) 
     63      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     64      ! jpjzoom =   27   ,    &  !: in data domain indices (160W,60S) 
     65      jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     66      jpjzoom =    7   ,    &  !: in data domain indices (160W,75S) 
     67      ! Domain characteristics 
     68      jperio  =   0   ,      &  !: lateral cond. type (between 0 and 6) 
     69      jpisl   =  18   ,      &  !: number of islands 
     70      jpnisl  = 800             !: maximum number of points per island 
    4771#else 
    4872      ! global domain size     !!! *  global domain  * 
    … …  
    5781      jpisl   =  18   ,      &  !: number of islands 
    5882      jpnisl  = 800             !: maximum number of points per island 
    59  
    6083#endif 
    6184 
Note: See TracChangeset for help on using the changeset viewer.