Changeset 120 for trunk/NEMO/OPA_SRC/SOL/sol_oce.F90
- Timestamp:
- 2004-06-29T17:39:08+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/sol_oce.F90
r111 r120 23 23 INTEGER , PUBLIC :: & !!: namsol elliptic solver / island / free surface 24 24 nsolv = 1 , & !: = 1/2/3 type of elliptic solver 25 nsol_arp = 1 , & !: = 1/0absolute/relative precision convergence test26 nmin = 300 , & !: minimum of iterations for the solver27 nmax = 800 , & !: maximum of iterations for the solver28 nmod = 10 , & !: frequency of test for the solver25 nsol_arp = 0 , & !: = 0/1 absolute/relative precision convergence test 26 nmin = 300 , & !: minimum of iterations for the SOR solver 27 nmax = 800 , & !: maximum of iterations for the SOR solver 28 nmod = 10 , & !: frequency of test for the SOR solver 29 29 nmisl = 4000 !: maximum pcg iterations for island 30 30 31 31 REAL(wp), PUBLIC :: & !!: namsol elliptic solver / island / free surface 32 eps = 1.e-6_wp , & !: absolute precision of the solver 33 sor = 1.92_wp , & !: optimal coefficient for sor solver 34 epsisl = 1.e-10_wp, & !: absolute precision on stream function solver 35 rnu = 1.0_wp !: strength of the additional force used in free surface 32 eps = 1.e-6_wp , & !: absolute precision of the solver 33 resmax = 1.e-14_wp , & !: absolute precision for the SOR solver 34 sor = 1.92_wp , & !: optimal coefficient for the SOR solver 35 epsisl = 1.e-10_wp , & !: absolute precision on stream function solver 36 rnu = 1.0_wp !: strength of the additional force used in free surface 36 37 37 38 CHARACTER(len=1), PUBLIC :: & !: 38 39 c_solver_pt = 'T' !: nature of grid-points T (S) for free surface case 39 ! ! F (G) for rigid-lid case40 ! ! F (G) for rigid-lid case 40 41 41 42 INTEGER , PUBLIC :: & !:
Note: See TracChangeset
for help on using the changeset viewer.