Changeset 4624 for trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4607 r4624 82 82 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 83 83 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 84 CALL ctl_opn( numoni,'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )84 IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 85 85 86 86 ! ! Open the namelist file … … 134 134 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 135 135 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 136 WRITE ( numoni, namicerun )136 IF(lwm) WRITE ( numoni, namicerun ) 137 137 ! 138 138 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.