Changeset 3727

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

Files:

• CONFIG/ORCA2_LIM_CRS/EXP00/namelist_crs (modified) (1 diff)
• CONFIG/ORCA2_LIM_CRS/MY_SRC/nemogcm.F90 (modified) (2 diffs)
• NEMO/OPA_SRC/CRS/crs_dom.F90 (modified) (1 diff)
• NEMO/OPA_SRC/CRS/crsini.F90 (modified) (2 diffs)

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM_CRS/EXP00/namelist_crs

@@ -1001 +1001 @@
                            !         odd-numbered. Asymmetry with
                            !         even-numbered nn_facty. 
-   nn_fcrs   = 1           !  frequence of coarsening 
-/
+   nn_fcrs     = 1           !  frequence of coarsening 
+   nn_msh_crs  = 1           !  frequence of coarsening 
+/

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/CONFIG/ORCA2_LIM_CRS/MY_SRC/nemogcm.F90

@@ -209 +209 @@
       !!----------------------------------------------------------------------
       !
+      !
       cltxt = ''
       !
@@ -304 +305 @@
       ENDIF
 
+ 
       !
       IF( nn_timing == 1 )  CALL timing_init

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'