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