Changeset 1581 for trunk/NEMO/OPA_SRC/SOL/solver.F90
- Timestamp:
- 2009-08-05T16:53:12+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SOL/solver.F90
r1556 r1581 65 65 INTEGER, INTENT(in) :: kt 66 66 67 !! * Local declarations68 CHARACTER(len=80) :: clname69 70 67 NAMELIST/namsol/ nsolv, nsol_arp, nmin, nmax, nmod, eps, resmax, sor, rnu 71 68 !!---------------------------------------------------------------------- 72 69 73 IF(lwp) WRITE(numout,*)74 IF(lwp) WRITE(numout,*) 'solver_init : solver to compute the surface pressure gradient'75 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'76 77 ! open elliptic solver statistics file78 clname = 'solver.stat'79 CALL ctlopn( numsol, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', &80 1, numout, lwp, 1 )70 IF(lwp) THEN 71 WRITE(numout,*) 72 WRITE(numout,*) 'solver_init : solver to compute the surface pressure gradient' 73 WRITE(numout,*) '~~~~~~~~~~~' 74 75 ! open elliptic solver statistics file 76 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 77 ENDIF 81 78 82 79
Note: See TracChangeset
for help on using the changeset viewer.