Subroutine read_shufflepar
299 :
300 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
301 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
302 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
303 :
304 : subroutine read_shufflepar ()
305 : use vom_sce_mod
306 : implicit none
307 :
308 : INTEGER :: iostat
309 :
310 : ! * Definition of variable parameters
311 :
312 : namelist /shufflepar/ vom_command, i_ncomp_, i_ncompmin, &
313 : & i_resolution, i_patience, i_nsimp, &
314 : & i_focus, i_iter, vom_npar, sce_restart, &
315 : & runtime_limit, n_thread
316 :
317 : ! * Input of variable parameters from the parameter file
318 :
319 : open(kfile_namelist, FILE=sfile_namelist, STATUS='old', &
320 : & FORM='formatted', IOSTAT=iostat)
321 : if (iostat .eq. 0) then
322 : read(kfile_namelist, shufflepar)
323 : endif
324 : close(kfile_namelist)
325 :
326 : if (vom_npar > nparmax) then
327 : write(0,*) "ERROR: Number of parameters in shufflevar larger as nparmax"
328 : write(0,*) "HINT: change the parameter nparmax in the module definitions"
329 : stop
330 : endif
331 :
332 : return
333 : end subroutine read_shufflepar