Changeset 3727 for branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90

Timestamp:

2012-12-10T16:35:39+01:00 (12 years ago)

Author:

cetlod

Message:

dev_r3411_CNRS4_IOCRS: minor corrections

File:

• branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crs_dom.F90 (modified) (1 diff)

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

@@ -28 +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, npiglo      !: jpiglo
-      INTEGER  ::  npjglo_full, npjglo_crs, npjglo      !: jpjglo
+      INTEGER  ::  npiglo_full, npiglo_crs      !: jpiglo
+      INTEGER  ::  npjglo_full, npjglo_crs      !: 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