- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r3764 r4147 51 51 !!---------------------------------------------------------------------- 52 52 INTEGER, INTENT(in) :: kt 53 INTEGER :: ios ! Local integer output status for namelist read 53 54 !! 54 55 NAMELIST/namsol/ nn_solv, nn_sol_arp, nn_nmin, nn_nmax, nn_nmod, rn_eps, rn_resmax, rn_sor … … 62 63 ENDIF 63 64 64 REWIND( numnam ) !* Namelist namsol : elliptic solver / free surface 65 READ ( numnam, namsol ) 65 REWIND( numnam_ref ) ! Namelist namsol in reference namelist : Elliptic solver / free surface 66 READ ( numnam_ref, namsol, IOSTAT = ios, ERR = 901) 67 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in reference namelist', lwp ) 68 69 REWIND( numnam_cfg ) ! Namelist namsol in configuration namelist : Elliptic solver / free surface 70 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 72 WRITE ( numond, namsol ) 66 73 67 74 IF(lwp) THEN !* Control print
Note: See TracChangeset
for help on using the changeset viewer.