Changeset 11624 for NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OFF/nemogcm.F90
- Timestamp:
- 2019-10-01T15:07:45+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OFF/nemogcm.F90
r11536 r11624 192 192 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 193 193 ! open reference and configuration namelist files 194 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1,-1, .FALSE. )195 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1,-1, .FALSE. )194 CALL load_nml( numnam_ref, 'namelist_ref', -1, .FALSE. ) 195 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, .FALSE. ) 196 196 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 197 197 ! open /dev/null file to be able to supress output write easily … … 202 202 ! !--------------------! 203 203 ! 204 REWIND( numnam_ref ) ! Namelist namctl in reference namelist205 204 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 206 205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 207 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist208 206 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 209 207 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 260 258 ! !------------------------------------! 261 259 ! 262 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist263 260 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 264 261 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 265 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist266 262 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 267 263 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 446 442 ! 447 443 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 448 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist449 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist450 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file451 444 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 452 445 !
Note: See TracChangeset
for help on using the changeset viewer.