Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4354 r4624 240 240 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 241 241 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 242 CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )243 242 ! 244 243 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark … … 249 248 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 250 249 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 251 WRITE( numond, namctl )252 250 253 251 ! … … 259 257 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 260 258 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 261 WRITE( numond, namcfg )262 259 263 260 ! Force values for AGRIF zoom (cf. agrif_user.F90) … … 279 276 ! !--------------------------------------------! 280 277 ! ! set communicator & select the local node ! 278 ! ! NB: mynode also opens output.namelist.dyn ! 279 ! ! on unit number numond on first proc ! 281 280 ! !--------------------------------------------! 282 281 #if defined key_iomput … … 303 302 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 304 303 304 lwm = (narea == 1) ! control of output namelists 305 305 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 306 307 IF(lwm) THEN 308 ! write merged namelists from earlier to output namelist now that the 309 ! file has been opened in call to mynode. nammpp has already been 310 ! written in mynode (if lk_mpp_mpi) 311 WRITE( numond, namctl ) 312 WRITE( numond, namcfg ) 313 ENDIF 306 314 307 315 ! If dimensions of processor grid weren't specified in the namelist file … … 586 594 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 587 595 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 588 IF( numond/= -1 ) CLOSE( numond ) ! oce output namelist596 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 589 597 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist 590 598 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist 591 IF( numoni/= -1 ) CLOSE( numoni ) ! ice output namelist599 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 592 600 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 593 601 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file
Note: See TracChangeset
for help on using the changeset viewer.