Changeset 508 for trunk/NEMO/OPA_SRC/SOL
- Timestamp:
- 2006-10-03T17:58:55+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/solmat.F90
r413 r508 4 4 !! solver : construction of the matrix 5 5 !!====================================================================== 6 !! History : 1.0 ! 88-04 (G. Madec) Original code 7 !! ! 93-03 (M. Guyon) symetrical conditions 8 !! ! 93-06 (M. Guyon) suppress pointers 9 !! ! 96-05 (G. Madec) merge sor and pcg formulations 10 !! ! 96-11 (A. Weaver) correction to preconditioning 11 !! ! 98-02 (M. Guyon) FETI method 12 !! 8.5 ! 02-08 (G. Madec) F90: Free form 13 !! ! 02-11 (C. Talandier, A-M. Treguier) Free surface & Open boundaries 14 !! 9.0 ! 05-09 (R. Benshila) add sol_exd for extra outer halo 15 !! 9.0 ! 05-11 (V. Garnier) Surface pressure gradient organization 16 !! 9.0 ! 06-07 (S. Masson) distributed restart using iom 17 !!---------------------------------------------------------------------- 6 18 7 19 !!---------------------------------------------------------------------- … … 29 41 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 42 !! $Header$ 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt43 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 32 44 !!---------------------------------------------------------------------- 33 45 … … 55 67 !! - gcdmat : preconditioning matrix (diagonal elements) 56 68 !! - gcdprc : inverse of the preconditioning matrix 57 !!58 !! History :59 !! 1.0 ! 88-04 (G. Madec) Original code60 !! ! 91-11 (G. Madec)61 !! ! 93-03 (M. Guyon) symetrical conditions62 !! ! 93-06 (M. Guyon) suppress pointers63 !! ! 96-05 (G. Madec) merge sor and pcg formulations64 !! ! 96-11 (A. Weaver) correction to preconditioning65 !! ! 98-02 (M. Guyon) FETI method66 !! 8.5 ! 02-08 (G. Madec) F90: Free form67 !! ! 02-11 (C. Talandier, A-M. Treguier) Free surface & Open boundaries68 !! 9.0 ! 05-11 (V. Garnier) Surface pressure gradient organization69 69 !!---------------------------------------------------------------------- 70 70 !! * Arguments
Note: See TracChangeset
for help on using the changeset viewer.