Changeset 1102 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

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

Author:

rblod

Message:

Suppress nrid not used any more, see ticket #193

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

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                 '