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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SOL/sol_oce.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SOL/sol_oce.F90

    r2715 r3901  
    2020   PUBLIC   sol_oce_alloc   ! routine called in solver.F90 
    2121 
    22    !                                             !!* Namelist namsol : elliptic solver * 
    23    INTEGER , PUBLIC ::   nn_solv    =    1        !: = 1/2 type of elliptic solver 
    24    INTEGER , PUBLIC ::   nn_sol_arp =    0        !: = 0/1 absolute/relative precision convergence test 
    25    INTEGER , PUBLIC ::   nn_nmin    =  300        !: minimum of iterations for the SOR solver 
    26    INTEGER , PUBLIC ::   nn_nmax    =  800        !: maximum of iterations for the SOR solver 
    27    INTEGER , PUBLIC ::   nn_nmod    =   10        !: frequency of test for the SOR solver 
    28    REAL(wp), PUBLIC ::   rn_eps     =  1.e-6_wp   !: absolute precision of the solver 
    29    REAL(wp), PUBLIC ::   rn_resmax  = 1.e-14_wp   !: absolute precision for the SOR solver 
    30    REAL(wp), PUBLIC ::   rn_sor     =   1.92_wp   !: optimal coefficient for the SOR solver 
    31    REAL(wp), PUBLIC ::   rn_nu      =    1.0_wp   !: strength of the additional force used in free surface 
     22   !                                 !!* Namelist namsol : elliptic solver * 
     23   INTEGER , PUBLIC ::   nn_solv      !: = 1/2 type of elliptic solver 
     24   INTEGER , PUBLIC ::   nn_sol_arp   !: = 0/1 absolute/relative precision convergence test 
     25   INTEGER , PUBLIC ::   nn_nmin      !: minimum of iterations for the SOR solver 
     26   INTEGER , PUBLIC ::   nn_nmax      !: maximum of iterations for the SOR solver 
     27   INTEGER , PUBLIC ::   nn_nmod      !: frequency of test for the SOR solver 
     28   REAL(wp), PUBLIC ::   rn_eps       !: absolute precision of the solver 
     29   REAL(wp), PUBLIC ::   rn_resmax    !: absolute precision for the SOR solver 
     30   REAL(wp), PUBLIC ::   rn_sor       !: optimal coefficient for the SOR solver 
     31   REAL(wp), PUBLIC ::   rn_nu        !: strength of the additional force used in free surface 
    3232 
    3333   CHARACTER(len=1), PUBLIC ::   c_solver_pt = 'T'   !: nature of grid-points T (S) for free surface case 
Note: See TracChangeset for help on using the changeset viewer.