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

Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (13 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R2.h90

    r2528 r2715  
    3636      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    3737      jpjglo  = 50,          &  !: 2nd    "                  "    --> j 
    38       jpk     = jpkdta,      &  !: number of vertical levels 
    3938      ! zoom starting position 
    4039      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 
     
    5251      jpiglo  = 142   ,      &  !: 1st dimension of global domain --> i 
    5352      jpjglo  = jpjdta-97+1, &  !: 2nd    "                  "    --> j 
    54       jpk     = jpkdta,      &  !: number of vertical levels 
    5553      ! zoom starting position  
    5654      jpizoom =  21   ,      &  !: left bottom (i,j) indices of the zoom 
     
    6866      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i 
    6967      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j 
    70       jpk     = jpkdta,      &  !: number of vertical levels 
    7168      ! starting position of the zoom  
    7269      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom 
     
    9794      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i 
    9895      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j 
    99       jpk     = jpkdta,      &  !: number of vertical levels 
    10096      ! starting position of the zoom  
    10197      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom 
Note: See TracChangeset for help on using the changeset viewer.