Changeset 7217 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

Timestamp:

2016-11-09T21:27:33+01:00 (7 years ago)

Author:

cbricaud

Message:

CRS branch: code cleaning

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90 (modified) (6 diffs)

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

@@ -73 +73 @@
       REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w
 
-      NAMELIST/namcrs/ nn_factx, nn_facty, nn_binref, nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top
+      NAMELIST/namcrs/ nn_factx, nn_facty, nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top
       !!----------------------------------------------------------------------
       !
@@ -102 +102 @@
         WRITE(numout,*) '   coarsening factor in i-direction      nn_factx   = ', nn_factx
         WRITE(numout,*) '   coarsening factor in j-direction      nn_facty   = ', nn_facty
-        WRITE(numout,*) '   bin centering preference              nn_binref  = ', nn_binref
         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
@@ -113 +112 @@
            CASE ( 3 ) ; WRITE(numout,*) '   coarsene KZ with MEANLOG(KZ)'
            CASE ( 4 ) ; WRITE(numout,*) '   coarsene KZ with MEDIANE(KZ)'
-           CASE ( 5 ) ; WRITE(numout,*) '   coarsene KZ with TKE coarsening'
        END SELECT
      ENDIF
@@ -129 +127 @@
      ! 3. Mask and Mesh
      !---------------------------------------------------------
-
-     !     Set up the masks and meshes     
 
      !  3.a. Get the masks   
@@ -201 +197 @@
      CALL crs_dom_sfc( vmask, 'V', e1e3v_crs, e1e3v_msk, p_e1=e1v, p_e3=zfse3v )
 
-     !cbr utile ????????????????????????????????
      DO jk=1,jpk
         DO ji=1,jpi_crs
@@ -259 +254 @@
      ENDDO
 
-!cbr utile ???????? on le fait ds crsfld, nan ?
 #if defined key_vvl
      e3t_b_crs(:,:,:) = e3t_0_crs(:,:,:)