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 111 for trunk/NEMO/OPA_SRC/SOL/solver.F90 – NEMO

Ignore:
Timestamp:
2004-06-28T15:22:55+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

    r79 r111  
    7979      INTEGER :: ji, jj   ! dummy loop indices 
    8080 
    81       NAMELIST/namsol/ nsolv, nmax, eps, sor, epsisl, nmisl, rnu 
     81      NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, sor, epsisl, nmisl, rnu 
    8282      !!---------------------------------------------------------------------- 
    8383 
    … …  
    110110 
    111111      IF(lwp) THEN 
    112          WRITE(numout,*) '             type of elliptic solver        nsolv  = ', nsolv 
    113          WRITE(numout,*) '             maximum iterations for solver  nmax   = ', nmax 
    114          WRITE(numout,*) '             absolute precision of solver   eps    = ', eps 
    115          WRITE(numout,*) '             optimal coefficient of sor     sor    = ', sor 
    116          IF(lk_isl) WRITE(numout,*) '             absolute precision stream fct  epsisl = ', epsisl 
    117          IF(lk_isl) WRITE(numout,*) '             maximum pcg iterations island  nmisl  = ', nmisl 
     112         WRITE(numout,*) '             type of elliptic solver            nsolv    = ', nsolv 
     113         WRITE(numout,*) '             absolute/relative (1/0) precision  nsol_arp = ', nsol_arp 
     114         WRITE(numout,*) '             minimum iterations for solver      nmin     = ', nmin 
     115         WRITE(numout,*) '             maximum iterations for solver      nmax     = ', nmax 
     116         WRITE(numout,*) '             frequency for test                 nmod     = ', nmod 
     117         WRITE(numout,*) '             absolute precision of solver       eps      = ', eps 
     118         WRITE(numout,*) '             optimal coefficient of sor         sor      = ', sor 
     119         IF(lk_isl) WRITE(numout,*) '             absolute precision stream fct    epsisl   = ', epsisl 
     120         IF(lk_isl) WRITE(numout,*) '             maximum pcg iterations island    nmisl    = ', nmisl 
    118121         WRITE(numout,*) '             free surface parameter         rnu    = ', rnu 
    119122         WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.