Changeset 10110 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS

Timestamp:

2018-09-10T10:37:14+02:00 (6 years ago)

Author:

cbricaud

Message:

remove from namelist coarsening factors in NEMO_3.6 coarsening branch; only a factor of 3 in x and y direction is available

Location:

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM

Files:

• CONFIG/SHARED/namelist_ref (modified) (1 diff)
• NEMO/OPA_SRC/CRS/crsini.F90 (modified) (3 diffs)

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/CONFIG/SHARED/namelist_ref

@@ -178 +178 @@
                !   passive tracer coarsened online simulations
 !-----------------------------------------------------------------------
-   nn_factx    = 3         !  Reduction factor of x-direction
-   nn_facty    = 3         !  Reduction factor of y-direction
    nn_msh_crs  = 1         !  create (=1) a mesh file or not (=0)
    nn_crs_kz   = 0         ! 0, MEAN of volume boxes

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

@@ -74 +74 @@
       REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w
 
-      NAMELIST/namcrs/ nn_factx, nn_facty, nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top
+      NAMELIST/namcrs/ nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top
       !!----------------------------------------------------------------------
       !
@@ -103 +103 @@
         WRITE(numout,*)
         WRITE(numout,*) 'crs_init: Namelist namcrs '
-        WRITE(numout,*) '   coarsening factor in i-direction      nn_factx   = ', nn_factx
-        WRITE(numout,*) '   coarsening factor in j-direction      nn_facty   = ', nn_facty
         WRITE(numout,*) '   create (=1) a mesh file or not (=0)   nn_msh_crs = ', nn_msh_crs
         WRITE(numout,*) '   type of Kz coarsening (0,1,2)         nn_crs_kz  = ', nn_crs_kz
@@ -126 +124 @@
            CASE ( 3 ) ; WRITE(numout,*) '   coarsene KZ with MEANLOG(KZ)'
            CASE ( 4 ) ; WRITE(numout,*) '   coarsene KZ with MEDIANE(KZ)'
-       END SELECT
-
+        END SELECT
+
+        WRITE(numout,*) ' '
+        WRITE(numout,*) 'Coarsening factor in i-direction and j-direction: '
+        WRITE(numout,*) 'Be carefull: only nn_factx=nn_facty=3 available'
      ENDIF
+
               
      rfactx_r = 1. / nn_factx