Changeset 1102

Timestamp:

2008-06-10T14:31:35+02:00 (16 years ago)

Author:

rblod

Message:

Suppress nrid not used any more, see ticket #193

Location:

trunk/NEMO/OPA_SRC/DOM

Files:

• dom_oce.F90 (modified) (1 diff)
• domain.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -33 +33 @@
    INTEGER, PUBLIC ::           & !!: namdom : space domain (bathymetry, mesh)
       ntopo   =  0 ,            &  !: = 0/1 ,compute/read the bathymetry file
-      ngrid   =  0 ,            &  !: = 0/1, compute/read the horizontal mesh file
       nmsh    =  0                 !: = 1 create a mesh-mask file
 

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -145 +145 @@
          &             nwrite, ln_dimgnnn
 
-      NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, ngrid  , nmsh  ,   &
-         &             nacc  , atfp     , rdt      , rdtmin , rdtmax,   &
-         &             rdth  , rdtbt    , nclosea
+      NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, nmsh   ,   &
+         &             nacc  , atfp     , rdt      , rdtmin ,   &
+         &             rdtmax, rdth     , rdtbt    , nclosea
       NAMELIST/namcla/ n_cla
       !!----------------------------------------------------------------------
@@ -240 +240 @@
          WRITE(numout,*) '           minimum thickness of partial   e3zps_min = ', e3zps_min, ' (m)'
          WRITE(numout,*) '              step level                  e3zps_rat = ', e3zps_rat
-         WRITE(numout,*) '           flag read/compute coordinates  ngrid     = ', ngrid
          WRITE(numout,*) '           flag write mesh/mask file(s)   nmsh      = ', nmsh
          WRITE(numout,*) '                = 0   no file created                 '