Changeset 3626 for branches

Timestamp:

2012-11-21T16:24:19+01:00 (11 years ago)

Author:

cetlod

Message:

branch 2013/dev_r3411_CNRS4_IOCRS minor correction

File:

• branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90 (modified) (2 diffs)

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90

@@ -12 +12 @@
 
    IMPLICIT NONE
+   PUBLIC
 
    PUBLIC crs_dom_alloc  ! Called from crsini.F90
@@ -27 +28 @@
       INTEGER  ::  nperio_full, nperio_crs      !: jperio of parent and coarse grids
       INTEGER  ::  npolj_full, npolj_crs        !: north fold mark
-      INTEGER  ::  npiglo_full, npiglo_crs      !: jpiglo
-      INTEGER  ::  npjglo_full, npjglo_crs      !: jpjglo
+      INTEGER  ::  npiglo_full, npiglo_crs, npiglo      !: jpiglo
+      INTEGER  ::  npjglo_full, npjglo_crs, npjglo      !: jpjglo
       INTEGER  ::  nlci_full, nlcj_full         !: i-, j-dimension of local or sub domain on parent grid
       INTEGER  ::  nldi_full, nldj_full         !: starting indices of internal sub-domain on parent grid