Changeset 4290 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
- Timestamp:
- 2013-11-20T16:33:46+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r4232 r4290 163 163 & jpizoom, jpjzoom, jperio 164 164 !!---------------------------------------------------------------------- 165 !166 cltxt = ''!165 cltxt = '' 166 ! 167 167 ! ! Open reference namelist and configuration namelist files 168 168 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 169 169 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 170 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )170 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 171 171 ! 172 172 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 173 173 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 174 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp)174 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 175 175 176 176 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 177 177 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 178 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp)178 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 179 179 WRITE( numond, namctl ) 180 180 181 ! 181 182 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints & Benchmark 182 183 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 183 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp)184 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 184 185 185 186 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 186 187 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 187 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp)188 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 188 189 WRITE( numond, namcfg ) 190 189 191 ! !--------------------------------------------! 190 192 ! ! set communicator & select the local node !
Note: See TracChangeset
for help on using the changeset viewer.