Changeset 1102


Ignore:
Timestamp:
2008-06-10T14:31:35+02:00 (12 years ago)
Author:
rblod
Message:

Suppress nrid not used any more, see ticket #193

Location:
trunk/NEMO/OPA_SRC/DOM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

    r782 r1102  
    3333   INTEGER, PUBLIC ::           & !!: namdom : space domain (bathymetry, mesh) 
    3434      ntopo   =  0 ,            &  !: = 0/1 ,compute/read the bathymetry file 
    35       ngrid   =  0 ,            &  !: = 0/1, compute/read the horizontal mesh file 
    3635      nmsh    =  0                 !: = 1 create a mesh-mask file 
    3736 
  • trunk/NEMO/OPA_SRC/DOM/domain.F90

    r888 r1102  
    145145         &             nwrite, ln_dimgnnn 
    146146 
    147       NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, ngrid  , nmsh  ,   & 
    148          &             nacc  , atfp     , rdt      , rdtmin , rdtmax,   & 
    149          &             rdth  , rdtbt    , nclosea 
     147      NAMELIST/namdom/ ntopo , e3zps_min, e3zps_rat, nmsh   ,   & 
     148         &             nacc  , atfp     , rdt      , rdtmin ,   & 
     149         &             rdtmax, rdth     , rdtbt    , nclosea 
    150150      NAMELIST/namcla/ n_cla 
    151151      !!---------------------------------------------------------------------- 
     
    240240         WRITE(numout,*) '           minimum thickness of partial   e3zps_min = ', e3zps_min, ' (m)' 
    241241         WRITE(numout,*) '              step level                  e3zps_rat = ', e3zps_rat 
    242          WRITE(numout,*) '           flag read/compute coordinates  ngrid     = ', ngrid 
    243242         WRITE(numout,*) '           flag write mesh/mask file(s)   nmsh      = ', nmsh 
    244243         WRITE(numout,*) '                = 0   no file created                 ' 
Note: See TracChangeset for help on using the changeset viewer.