- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3769 r3875 151 151 !!---------------------------------------------------------------------- 152 152 INTEGER :: ji ! dummy loop indices 153 INTEGER :: ios 153 154 INTEGER :: ilocal_comm ! local integer 154 155 CHARACTER(len=80), DIMENSION(16) :: cltxt … … 161 162 cltxt = '' 162 163 ! 163 ! ! open Namelist file 164 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 165 ! 166 READ( numnam, namctl ) ! Namelist namctl : Control prints & Benchmark 164 ! ! Open reference namelist and configuration namelist files 165 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 166 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 167 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 168 ! 169 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 170 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 171 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp ) 172 173 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 174 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 167 176 ! 168 177 ! !--------------------------------------------! … … 173 182 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 174 183 ENDIF 175 narea = mynode( cltxt, numnam , nstop, ilocal_comm ) ! Nodes selection184 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 176 185 #else 177 186 ilocal_comm = 0 178 narea = mynode( cltxt, numnam , nstop )! Nodes selection (control print return in cltxt)187 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 179 188 #endif 180 189 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) … … 361 370 CALL iom_close ! close all input/output files managed by iom_* 362 371 ! 363 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 364 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 365 IF( numnam_ice /= -1 ) CLOSE( numnam_ice ) ! ice namelist 366 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 367 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 372 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 373 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 374 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 375 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist 376 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist 377 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 378 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 368 379 ! 369 380 numout = 6 ! redefine numout in case it is used after this point...
Note: See TracChangeset
for help on using the changeset viewer.