Changeset 389 for trunk/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/SOL/solver.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SOL/solver.F90

@@ -79 +79 @@
       !! * Local declarations
       INTEGER :: ji, jj   ! dummy loop indices
+      CHARACTER(len=80) :: clname
 
       NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, resmax, sor, epsisl, nmisl, rnu
@@ -88 +89 @@
 
       ! open elliptic solver statistics file
-      CALL ctlopn( numsol, 'solver.stat', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+      clname = 'solver.stat'
+      CALL ctlopn( numsol, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
                    1, numout, lwp, 1 )