Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

Timestamp:

2017-12-26T17:32:56+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

@@ -49 +49 @@
       !!      diagnostic computation.
       !!
-      !! ** Method  :   Write in a file all the arrays generated in routines
-      !!      domhgr, domzgr, and dommsk. Note: the file contain depends on
-      !!      the vertical coord. used (z-coord, partial steps, s-coord)
-      !!            MOD(nn_msh, 3) = 1  :   'mesh_mask.nc' file
-      !!                         = 2  :   'mesh.nc' and mask.nc' files
-      !!                         = 0  :   'mesh_hgr.nc', 'mesh_zgr.nc' and
-      !!                                  'mask.nc' files
-      !!      For huge size domain, use option 2 or 3 depending on your 
-      !!      vertical coordinate.
-      !!
-      !!      if     nn_msh <= 3: write full 3D arrays for e3[tuvw] and gdep[tuvw]
-      !!      if 3 < nn_msh <= 6: write full 3D arrays for e3[tuvw] and 2D arrays 
-      !!                        corresponding to the depth of the bottom t- and w-points
-      !!      if 6 < nn_msh <= 9: write 2D arrays corresponding to the depth and the
-      !!                        thickness (e3[tw]_ps) of the bottom points 
+      !! ** Method  :   create a file with all domain related arrays
       !!
       !! ** output file :   meshmask.nc  : domain size, horizontal grid-point position,
@@ -196 +182 @@
       CALL iom_close( inum )                !        close the files 
       !                                     ! ============================
-      !
    END SUBROUTINE dom_wri