- Timestamp:
- 2019-12-12T09:59:50+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC
- Files:
-
- 3 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' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/sbcssm.F90
r11831 r12202 186 186 ENDIF 187 187 ! 188 REWIND( numnam_ref ) ! Namelist namsbc_sas in reference namelist : Input fields189 188 READ ( numnam_ref, namsbc_sas, IOSTAT = ios, ERR = 901) 190 189 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in reference namelist' ) 191 REWIND( numnam_cfg ) ! Namelist namsbc_sas in configuration namelist : Input fields192 190 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 191 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/usrdef_nam.F90
r11930 r12202 60 60 !!---------------------------------------------------------------------- 61 61 ! 62 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)63 62 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 64 63 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.