Changeset 12202 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/nemogcm.F90
- Timestamp:
- 2019-12-12T09:59:50+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/nemogcm.F90
r11831 r12202 188 188 ! 189 189 ! open ocean.output as soon as possible to get all output prints (including errors messages) 190 IF( lwm ) CALL ctl_opn( numout,'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )190 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 191 191 ! open reference and configuration namelist files 192 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)193 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)194 IF( lwm ) CALL ctl_opn( numond,'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )192 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 193 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 194 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 195 195 ! open /dev/null file to be able to supress output write easily 196 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )196 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 197 197 ! 198 198 ! !--------------------! … … 200 200 ! !--------------------! 201 201 ! 202 REWIND( numnam_ref ) ! Namelist namctl in reference namelist 202 203 203 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 204 204 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 205 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist206 205 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 207 206 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 258 257 ! !------------------------------------! 259 258 ! 260 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist261 259 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 262 260 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 263 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist264 261 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 265 262 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.