Set max_jobs limit 400 as discussed

Author: marinak-ebi

Late adults stats pipeline/DRrequiredAgeing/DRrequiredAgeingPackage/R/sideFunctions.R

@@ -4554,7 +4554,7 @@ waitTillCommandFinish = function(checkcommand = 'squeue --format="%A %.30j"',
 
 submit_limit_jobs = function(bch_file,
                              job_id_logfile,
-                             max_jobs=1500) {
+                             max_jobs=400) {
   message0("Start submit_limit_jobs")
   system(paste("echo > ", job_id_logfile))
   file <- file(bch_file, "r")