New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 120 for trunk/NEMO/OPA_SRC/SOL/solver.F90 – NEMO

Ignore:
Timestamp:
2004-06-29T17:39:08+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE070 : Optimisation of the Red-Black SOR algorithm convergence

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SOL/solver.F90

    r111 r120  
    7979      INTEGER :: ji, jj   ! dummy loop indices 
    8080 
    81       NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, sor, epsisl, nmisl, rnu 
     81      NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, resmax, sor, epsisl, nmisl, rnu 
    8282      !!---------------------------------------------------------------------- 
    8383 
     
    111111      IF(lwp) THEN 
    112112         WRITE(numout,*) '             type of elliptic solver            nsolv    = ', nsolv 
    113          WRITE(numout,*) '             absolute/relative (1/0) precision  nsol_arp = ', nsol_arp 
     113         WRITE(numout,*) '             absolute/relative (0/1) precision  nsol_arp = ', nsol_arp 
    114114         WRITE(numout,*) '             minimum iterations for solver      nmin     = ', nmin 
    115115         WRITE(numout,*) '             maximum iterations for solver      nmax     = ', nmax 
    116116         WRITE(numout,*) '             frequency for test                 nmod     = ', nmod 
    117117         WRITE(numout,*) '             absolute precision of solver       eps      = ', eps 
     118         WRITE(numout,*) '             absolute precision for SOR solver  resmax   = ', resmax 
    118119         WRITE(numout,*) '             optimal coefficient of sor         sor      = ', sor 
    119120         IF(lk_isl) WRITE(numout,*) '             absolute precision stream fct    epsisl   = ', epsisl 
Note: See TracChangeset for help on using the changeset viewer.