Changeset 3626


Ignore:
Timestamp:
2012-11-21T16:24:19+01:00 (8 years ago)
Author:
cetlod
Message:

branch 2013/dev_r3411_CNRS4_IOCRS minor correction

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90

    r3622 r3626  
    1212 
    1313   IMPLICIT NONE 
     14   PUBLIC 
    1415 
    1516   PUBLIC crs_dom_alloc  ! Called from crsini.F90 
     
    2728      INTEGER  ::  nperio_full, nperio_crs      !: jperio of parent and coarse grids 
    2829      INTEGER  ::  npolj_full, npolj_crs        !: north fold mark 
    29       INTEGER  ::  npiglo_full, npiglo_crs      !: jpiglo 
    30       INTEGER  ::  npjglo_full, npjglo_crs      !: jpjglo 
     30      INTEGER  ::  npiglo_full, npiglo_crs, npiglo      !: jpiglo 
     31      INTEGER  ::  npjglo_full, npjglo_crs, npjglo      !: jpjglo 
    3132      INTEGER  ::  nlci_full, nlcj_full         !: i-, j-dimension of local or sub domain on parent grid 
    3233      INTEGER  ::  nldi_full, nldj_full         !: starting indices of internal sub-domain on parent grid 
Note: See TracChangeset for help on using the changeset viewer.