Changeset 3727 for branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO

Timestamp:

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

Author:

cetlod

Message:

dev_r3411_CNRS4_IOCRS: minor corrections

Location:

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS

Files:

• crs_dom.F90 (modified) (1 diff)
• crsini.F90 (modified) (2 diffs)

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

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

@@ -93 +93 @@
          WRITE(numout,*) '          cn_binref = ', cn_binref
          WRITE(numout,*) '          nn_fcrs   = ', nn_fcrs
-         WRITE(numout,*) '         nn_msh_crs = ', nn_msh_crs
+         WRITE(numout,*) '          nn_msh_crs = ', nn_msh_crs
       ENDIF
 
@@ -493 +493 @@
      !---------------------------------------------------------
      
-!     IF ( nn_msh_crs > 0 ) CALL crs_dom_wri
+     IF ( nn_msh_crs > 0 ) CALL crs_dom_wri
 
         WRITE(numout,*) 'crs_init done'