Changeset 4624 for trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r4319 r4624 155 155 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 156 156 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 157 CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )158 157 ! 159 158 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark … … 164 163 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 165 164 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 166 WRITE( numond, namctl )167 165 168 166 ! … … 174 172 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 175 173 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 176 WRITE( numond, namcfg )177 174 178 175 ! 179 176 ! !--------------------------------------------! 180 177 ! ! set communicator & select the local node ! 178 ! ! NB: mynode also opens output.namelist.dyn ! 179 ! ! on unit number numond on first proc ! 181 180 ! !--------------------------------------------! 182 181 #if defined key_iomput 183 182 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 184 183 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 185 184 #else … … 190 189 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 191 190 191 lwm = (narea == 1) ! control of output namelists 192 192 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 193 194 IF(lwm) THEN 195 ! write merged namelists from earlier to output namelist now that the 196 ! file has been opened in call to mynode. nammpp has already been 197 ! written in mynode (if lk_mpp_mpi) 198 WRITE( numond, namctl ) 199 WRITE( numond, namcfg ) 200 ENDIF 193 201 194 202 ! If dimensions of processor grid weren't specified in the namelist file
Note: See TracChangeset
for help on using the changeset viewer.