source: palm/trunk/SCRIPTS/palmrun @ 3775

Last change on this file since 3775 was 3725, checked in by raasch, 6 years ago

modifications to avoid compiler warnings about unused variables, temperton-fft: GOTO statements replaced, file re-formatted corresponding to coding standards, ssh-calls for compilations on remote systems modified to avoid output of login messages on specific systems changed again (palmbuild, reverted as before r3549), error messages for failed restarts extended (palmrun)

  • Property svn:executable set to *
  • Property svn:keywords set to Id Rev
File size: 103.1 KB
Line 
1#!/bin/bash
2
3# palmrun - script for running PALM jobs
4
5#--------------------------------------------------------------------------------#
6# This file is part of the PALM model system.
7#
8# PALM is free software: you can redistribute it and/or modify it under the terms
9# of the GNU General Public License as published by the Free Software Foundation,
10# either version 3 of the License, or (at your option) any later version.
11#
12# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
13# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15#
16# You should have received a copy of the GNU General Public License along with
17# PALM. If not, see <http://www.gnu.org/licenses/>.
18#
19# Copyright 2017-2018  Leibniz Universitaet Hannover
20#--------------------------------------------------------------------------------#
21#
22# Current revisions:
23# ------------------
24#
25#
26# Former revisions:
27# -----------------
28# $Id: palmrun 3725 2019-02-07 10:11:02Z gronemeier $
29# error messages for failed restarts extended
30#
31# 3682 2019-01-18 17:01:54Z knoop
32# ssh-call for submitting batch jobs on remote systems modified again to avoid output
33# of login messages on specific systems
34#
35# 3574 2018-11-28 13:14:39Z raasch
36# syntax-error in last commit fixed
37#
38# 3573 2018-11-28 13:03:44Z raasch
39# bugfixes: don't check the .palm.iofiles in restart runs + wrong cd-command
40# removed,
41# r3570 reverted
42#
43# 3570 2018-11-27 17:44:21Z kanani
44# Rename job-id by run_id
45#
46# 3555 2018-11-22 13:50:37Z raasch
47# sed-command to remove repeated space-characters replaced by tr-command, to
48# guarantee mac compatible
49#
50# 3549 2018-11-21 15:44:44Z raasch
51# ssh-call for submitting batch jobs on remote systems modified to avoid output
52# of login messages on specific systems
53#
54# 3534 2018-11-19 15:35:16Z raasch
55# batch_scp for sending back the job protocol file is called via login-node if
56# a login-node has been set in the config-file
57# ssh-calls rearranged to avoid output of system/user-profile messages
58#
59# 3505 2018-11-08 09:14:30Z raasch
60# job folders are created in case that they do not exist
61#
62# 3455 2018-10-30 14:12:31Z raasch
63# options -h and -d renamed -c and -r, respectively
64#
65# 3402 2018-10-23 11:49:24Z knoop
66# job_id is set for compatibility reasons with older versions of config files
67#
68# 3313 2018-10-06 15:22:48Z knoop
69# more detailed error message for outdated fileconnection file
70#
71# 3236 2018-09-10 09:07:06Z raasch
72# warning issued in case of file connection file version mismatch,
73# host_configuration renamed configuration_identifier,
74# "host identifier" in header output renamed "config. identifier",
75# jobname renamed run_identifier,
76# run_id renamed run_id_number
77# job_id renamed run_id
78# option -r renamed -i
79#
80# 3151 2018-07-19 08:45:38Z raasch
81# removed additional listing of files to be compiled, print PALM code revision
82# in header
83#
84# 3132 2018-07-16 11:44:58Z raasch
85# create consistent error messages in case of failed restarts,
86# check existence of remote job catalog
87#
88# 3043 2018-05-25 10:47:54Z raasch
89# check for setting of fast_io_catalog
90#
91# 3033 2018-05-23 15:26:19Z raasch
92# -T option not required for interactive runs (tasks per node =
93# total number of cores is assumed as default, if option is not given),
94# reformatting of a few messages,
95# bugfix: destination output directory is created if attribute "pe" is set in
96# .palm.iofiles
97#
98# 2718 2018-01-02 08:49:38Z maronga
99# bugfix of r2990
100#
101# 2718 2018-01-02 08:49:38Z maronga
102# bugfix: temporary SOURCES_FOR_RUN_CATALOG now created in base_directory and
103#         not in the working directory from where palmrun is called
104#
105# 2718 2018-01-02 08:49:38Z maronga
106# svfout in the activation string will be replaced now by svfin in case of
107# automatic restarts
108#
109# 2718 2018-01-02 08:49:38Z maronga
110# Introduction of new ENVIRONMENT variables read_svf and write_svf to consider
111# the possible output or input of sky view factors
112#
113# 2718 2018-01-02 08:49:38Z maronga
114# "fname" renamed to "jobname"
115#
116# 2718 2018-01-02 08:49:38Z maronga
117# parameters are allowed in output commands (OC:)
118#
119# 2718 2018-01-02 08:49:38Z maronga
120# bugfix: exit if no queue has been given neither with option -q nor in the
121# configuration file
122#
123# 2718 2018-01-02 08:49:38Z maronga
124# file connection file from trunk/SCRIPTS is taken by default
125#
126# 2718 2018-01-02 08:49:38Z maronga
127# Corrected "Former revisions" section
128#
129# 2696 2017-12-14 17:12:51Z kanani
130# Change in file header (GPL part)
131#
132# 2693 2017-12-13 12:33:49Z raasch
133# replacement of variables given by {{<variable>}} in configuration file is now
134# done in a more general way, variable names are written in small letters
135#
136# 2670 2017-12-06 16:32:19Z raasch
137# test printouts removed
138#
139# 2669 2017-12-06 16:03:27Z raasch
140# file attributes in .palm.iofiles restructured, "loc" attribute completely
141# removed,
142# wildcard (*) allowed in .palm.iofiles as file activation string for output
143# files,
144# informative messages in case of missing optional input files shortened
145# bugfix: variable cycle explicitly interpreted with 10 as the number base
146#
147# 2638 2017-11-23 12:44:23Z raasch
148# use of wildcards in file connection statements enabled
149#
150# 2605 2017-11-09 15:31:46Z raasch
151# in case of remote jobs, input files with "job" or "jobopt" (new) attribute
152# will not be sent with the job file any more, but copied into the
153# SOURCES_FOR_RUN... folder on the remote host, before the job is submitted
154#
155# 2600 2017-11-01 14:11:20Z raasch
156# cycle numbers are made three digits wide
157#
158# 2566 2017-10-20 08:50:47Z raasch
159# execute command for combine_plot_fields added
160# "TEMPDIR" renamed "tempdir"
161# temporary working directory for local batch jobs is created immediately within
162# the user's palmrun call, due to a requirement of the "grid engine" batch
163# system, where the working directory is given with batch directive -wd and must
164# already exist when the job is submitted,
165# informative messages in non-trace mode reduced and partly reformatted
166#
167# 2551 2017-10-18 07:25:11Z raasch
168# TEMPDIR added as replacement string to be used in batch directives
169#
170# 2512 2017-10-04 08:26:59Z raasch
171# bugfix for determining cycle numbers of NetCDF input files
172#
173# 2506 2017-09-29 08:30:37Z raasch
174# option -V added to check for an existing SOURCES_FOR_RUN_... folder
175# host configuration added to SOURCES_FOR_RUN_... folder name
176# host_identifier renamed host_configuration
177# option -W added to allow for job dependencies
178#
179# 2501 2017-09-26 11:41:55Z raasch
180# default value for number of cores (option -X) set to 1
181# bugfix for mechanism which overwrites configuration file settings with values
182# provided by palmrun options
183#
184# 2499 2017-09-22 16:47:58Z kanani
185# option -h named configuration identifier
186#
187# 2480 2017-09-19 06:24:14Z maronga
188# bugfix for last revision
189#
190# 2479 2017-09-19 06:12:16Z raasch
191# option -A (project account number) added
192#
193# 2422 2017-09-08 08:25:41Z raasch
194# initial revision
195#
196#--------------------------------------------------------------------------------#
197# palmrun - script for running PALM jobs on local and remote hosts
198#--------------------------------------------------------------------------------#
199
200
201 
202    # DECLARATION OF VARIABLES AND THEIR DEFAULT VALUES
203
204 set +o allexport    # SUPPRESS EXPORT OF ALL VARIABLES, SINCE IN THE PAST THIS
205                     # LEAD TO PROBLEMS IN ROUTINES CALLED BY PALMRUN
206                     # (TOO MANY ARGUMENTS - PROBLEM)
207 set +o noclobber    # EXISTING FILES ARE ALLOWED TO BE OVERWRITTEN
208
209 typeset -i  ibd=0 ibdt=0 iec=0 iic=0 iin=0 ioc=0 iout=0 nr_of_input_files=0
210 typeset -i  nr_of_output_files=0
211 typeset -x -i  memory=0   # HAS TO BE EXPORTED HERE, OTHERWISE AN UNKNOWN SIDE
212                           # SIDE EFFECT MAY CAUSE DATA LOSS WHEN GETOPTS IS READING THE
213                           # SCRIPT-OPTION ARGUMENTS
214 typeset -i  cores cputime cpu_hours cpu_minutes cpu_seconds i ii iia iii iio
215 typeset -i  icycle inode ival maxcycle mpi_tasks
216 typeset -i  nodes remaining_cores run_number tasks_per_node threads_per_task
217
218 activation_string_list=""
219 AddFilenames=""
220 combine_plot_fields=true
221 compiler_name=""
222 compiler_name_ser=""
223 compiler_options=""
224 configuration_identifier="default"
225 cores=1
226 cores_atmos=0
227 cores_ocean=0
228 coupled_dist=""
229 cpp_options=""
230 cpumax=0
231 create_batch_job=false
232 create_jobfile_only=false
233 create_remote_batch_job=false
234 dashes="  ----------------------------------------------------------------------------"
235 defaultqueue=""
236 delete_temporary_catalog=true
237 do_compile=true
238 do_trace=false
239 executable=""
240 execute_command=""
241 execution_error=false
242 fileconnection_file=trunk/SCRIPTS/.palm.iofiles
243 global_revision=""
244 hostfile=""
245 hp=""
246 keep_data_from_previous_run=false
247 link_local_input=false
248 link_local_output=false
249 linker_options=""
250 local_jobcatalog=""
251 locat=normal
252 makefile=""
253 max_par_io_str=""
254 prc=$0
255 while [[ $(echo $prc | grep -c "/") != 0 ]]
256 do
257    prc=`echo $prc | cut -f2- -d"/"`
258 done
259 module_calls=""
260 palmrun_memory=""
261 palmrun_script_name=$prc
262 openmp=false
263 previous_job=""
264 project_account=""
265 queue=none
266 read_svf=""
267 restart_run=false
268 return_address=""
269 remote_jobcatalog=""
270 remote_username=""
271 running_in_batch_mode=false
272 running_in_test_mode=false
273 run_coupled_model=false
274 run_id=""
275 run_id_number=""
276 run_identifier=test
277 silent=false
278 source_list=""
279 source_path=""
280 tasks_per_node=0
281 threads_per_task=1
282 transfer_problems=false
283 user_source_path=""
284 use_existing_sources_folder=""
285 use_openmp=false
286 version="palmrun  1.0 Rev$Rev: 3725 $"
287 working_directory=`pwd`
288 write_binary=""
289 write_svf=""
290
291
292    # ERROR HANDLING IN CASE OF EXIT
293 trap 'if [[ $locat != normal  &&  $locat != control_c ]]
294       then
295
296              # CARRY OUT ERROR-COMMANDS GIVEN IN THE CONFIGURATION FILE (EC:)
297          (( i = 0 ))
298          while (( i < iec ))
299          do
300             (( i = i + 1 ))
301             printf "\n  *** Execution of ERROR-command:\n"
302             printf "  >>> ${err_command[$i]}\n"
303             eval  ${err_command[$i]}
304          done
305          [[ $delete_temporary_catalog = true ]]  &&  (cd; rm -rf $tempdir)
306          printf "\n\n+++ palmrun crashed \n\n"
307          exit 1
308       elif [[ $locat != normal ]]
309       then
310          [[ $delete_temporary_catalog = true ]]  &&  (cd; rm -rf $tempdir)
311          printf "\n+++ palmrun killed by \"^C\" \n\n"
312          exit 2
313       else
314          printf "\n --> palmrun finished\n\n"
315          exit 0
316       fi' exit
317
318
319    # ACTIONS IN CASE OF TERMINAL-BREAK (CONTROL-C):
320 trap 'locat=control_c
321       exit 1
322      ' 2
323
324
325    # READ SHELLSCRIPT-OPTIONS AND REBUILD THE PALMRUN-COMMAND STRING (prc),
326    # WHICH WILL BE USED TO START RESTART-JOBS
327 while  getopts  :a:A:bBc:CFG:i:jkm:M:O:q:r:R:s:t:T:u:U:vVw:W:xX:yY:zZ option
328 do
329   case  $option  in
330       (a)   activation_string_list=$OPTARG; prc="$prc -a'$OPTARG'";;
331       (A)   project_account=$OPTARG; prc="$prc -A'$OPTARG'";;
332       (b)   create_batch_job=true; prc="$prc -b";;
333       (B)   delete_temporary_catalog=false; prc="$prc -B";;
334       (c)   configuration_identifier=$OPTARG; prc="$prc -c$OPTARG";;
335       (C)   restart_run=true; prc="$prc -C";;
336       (F)   create_jobfile_only=true;;
337       (G)   global_revision=$OPTARG; prc="$prc -G'$OPTARG'";;
338       (i)   run_id_number=$OPTARG;;
339       (j)   running_in_batch_mode=true;;
340       (k)   keep_data_from_previous_run=true; prc="$prc -k";;
341       (m)   palmrun_memory=$OPTARG; prc="$prc -m$OPTARG";;
342       (M)   makefile=$OPTARG; prc="$prc -M$OPTARG";;
343       (O)   use_openmp=true; threads_per_task=$OPTARG; prc="$prc -O$OPTARG";;
344       (q)   queue=$OPTARG; prc="$prc -q$OPTARG";;
345       (r)   run_identifier=$OPTARG; prc="$prc -r$OPTARG";;
346       (R)   return_address=$OPTARG;;
347       (s)   source_list=$OPTARG;;
348       (t)   palmrun_cpumax=$OPTARG; prc="$prc -t$OPTARG";;
349       (T)   palmrun_tasks_per_node=$OPTARG; prc="$prc -T$OPTARG";;
350       (u)   remote_username=$OPTARG; prc="$prc -u$OPTARG";;
351       (U)   return_username=$OPTARG; prc="$prc -U$OPTARG";;
352       (v)   silent=true; prc="$prc -v";;
353       (V)   use_existing_sources_folder="-V";;
354       (w)   max_par_io_str=$OPTARG; prc="$prc -w$OPTARG";;
355       (W)   previous_job=$OPTARG;;
356       (x)   do_trace=true;set -x; prc="$prc -x";;
357       (X)   palmrun_cores=$OPTARG; prc="$prc -X$OPTARG";;
358       (y)   ocean_file_appendix=true; prc="$prc -y";;
359       (Y)   run_coupled_model=true; coupled_dist=$OPTARG; prc="$prc -Y'$OPTARG'";;
360       (z)   running_in_test_mode=true;;
361       (Z)   combine_plot_fields=false; prc="$prc -Z";;
362       (\?)  printf "\n  +++ unknown option $OPTARG \n"
363             printf "\n  --> type \"$0 ?\" for available options \n"
364             locat=parameter;exit;;
365   esac
366 done
367
368
369    # SKIP GIVEN OPTIONS TO READ POSITIONAL PARAMETER, IF GIVEN
370    # CURRENTLY ONLY PARAMETER ? (TO OUTPUT A SHORT COMMAND INFO) IS ALLOWED
371 (( to_shift = $OPTIND - 1 ))
372 shift $to_shift
373
374    # PRINT SHORT DESCRIPTION OF PALMRUN OPTIONS
375 if [[ "$1" = "?" ]]
376 then
377   (printf "\n  *** Description of available palmrun options:\n"
378    printf "\n      Option  Description                              Default-Value"
379    printf "\n        -a    activation string list                   \"\" "
380    printf "\n        -A    project account number                   ---"
381    printf "\n        -b    batch-job on local machine               ---"
382    printf "\n        -B    do not delete temporary directory at end ---"
383    printf "\n        -c    configuration identifier                 \"default\" "
384    printf "\n        -F    create batch job file only               ---"
385    printf "\n        -k    keep data from previous run"
386    printf "\n        -m    memory demand in MB (batch-jobs)         0 MB"
387    printf "\n        -M    Makefile name                            Makefile"
388    printf "\n        -O    threads per openMP task                  ---"
389    printf "\n        -q    queue                                    \"$queue\" "
390    printf "\n        -r    run identifier                           test"
391    printf "\n        -s    filenames of routines to be compiled     \"\" "
392    printf "\n              must end with .f, .f90, .F, or .c !"
393    printf "\n              use \"..\" for more than one file and wildcards"
394    printf "\n              -s LM compiles all locally modified files"
395    printf "\n        -t    allowed cpu-time in seconds (batch)      0"
396    printf "\n        -T    tasks per node                           ---"
397    printf "\n        -u    username on remote machine               \"\" "
398    printf "\n        -v    no prompt for confirmation               ---"
399    printf "\n        -V    check if SOURCES_FOR_RUN_... exists      ---"
400    printf "\n        -w    maximum parallel io streams              as given by -X"
401    printf "\n        -W    name of job to wait for                  ---"
402    printf "\n        -x    tracing of palmrun for debug purposes    ---"
403    printf "\n        -X    # of processors (on parallel machines)   1"
404    printf "\n        -y    add appendix \"_O\" to all local output"
405    printf "\n              files (ocean precursor runs followed by"
406    printf "\n              coupled atmosphere-ocean runs)           ---"
407    printf "\n        -Y    run coupled model, \"#1 #2\" with" 
408    printf "\n              #1 atmosphere and #2 ocean processors    \"#/2 #/2\" depending on -X"
409    printf "\n        -Z    skip combine_plot_fields at the end of      "
410    printf "\n              the simulation                           ---"
411    printf "\n "
412    printf "\n      Possible values of positional parameter <modus>:"
413    printf "\n        \"?\"       -  this outline \n\n") | more
414    exit
415 elif [[ "$1" != "" ]]
416 then
417    printf "\n  +++ positional parameter $1 unknown \n"
418    locat=parameter; exit
419 fi
420
421
422
423    # SHORT STARTING MESSAGE
424 printf "\n*** $version "
425 printf "\n    will be executed.     Please wait ..."
426
427
428    # BUILD THE CONFIGURATION-FILE NAME AND THE SOURCES_FOR_RUN-FOLDER NAME
429 config_file=.palm.config.$configuration_identifier
430 sources_for_run_catalog=SOURCES_FOR_RUN_${configuration_identifier}_$run_identifier
431
432
433    # CHECK, IF CONFIGURATION FILE EXISTS
434 if [[ ! -f $config_file ]]
435 then
436    printf "\n\n  +++ configuration file: "
437    printf "\n           $config_file"
438    printf "\n      does not exist"
439    locat=connect; exit 
440 fi
441
442
443    # CHECK, IF USER PROVIDES OWN FILE CONNECTION FILE
444 if [[ -f .palm.iofiles ]]
445 then
446
447       # CHECK VERSION MISMATCH
448       # RESTART RUNS DON'T REQUIRE A CHECK, BECAUSE THEY USE A COPY OF THAT
449       # FILE WHICH HAS ALREADY BEEN CHECKED WITHIN THE INITAL PALMRUN CALL
450    if [[ $running_in_batch_mode != true  &&  $restart_run != true ]]
451    then
452       if [[ $(head -n1 $fileconnection_file) != $(head -n1 .palm.iofiles) ]]
453       then
454          printf "\n\n  +++ WARNING: A file connection file has been found in your"
455          printf "\n               working directory, but its revision does not match"
456          printf "\n               the revision of the default (trunk) version."
457          printf "\n               You may need to update your connection file"
458          printf "\n               \"${working_directory}/.palm.iofiles\" !"
459       fi
460    fi
461
462    fileconnection_file=.palm.iofiles
463
464 fi
465
466
467    # CHECK, IF FILE CONNECTION FILE EXISTS
468 if [[ ! -f $fileconnection_file ]]
469 then
470    printf "\n\n  +++ file connection file: "
471    printf "\n           $fileconnection_file"
472    printf "\n      does not exist"
473    locat=connect; exit 
474 fi
475
476
477    # CHECK, IF THE ACTIVATION_STRING_LIST HAS BEEN GIVEN
478 if [[ "$activation_string_list" = "" ]]
479 then
480    printf "\n\n  +++ no activation string list given: "
481    printf "\n        please set palmrun option \"-a\" "
482    locat=palmrun_option; exit 
483 fi
484
485
486    # SET VARIABLE TO ACTIVATE PALM BINARY OUTPUT FOR RESTARTS
487 if [[ $(echo $activation_string_list | grep -c "restart") != 0 ]]
488 then
489    write_binary=true
490 else
491    write_binary=false
492 fi
493
494    # SET VARIABLE TO ACTIVATE WRITING OF SVF DATA
495 if [[ $(echo $activation_string_list | grep -c "svfout") != 0 ]]
496 then
497    write_svf=true
498 else
499    write_svf=false
500 fi
501
502    # SET VARIABLE TO ACTIVATE READING OF SVF DATA
503 if [[ $(echo $activation_string_list | grep -c "svfin") != 0 ]]
504 then
505    read_svf=true
506 else
507    read_svf=false
508 fi
509
510
511    # READ AND EVALUATE THE CONFIGURATION-FILE
512 [[ $silent = false ]]  &&  printf "\n\n    Reading the configuration file... "
513
514    # READ VARIABLE SETTINGS FROM CONFIG FILE LINE BY LINE
515 while  read line
516 do
517
518       # FIRST REPLACE ENVIRONMENT-VARIABLES BY THEIR RESPECTIVE VALUES
519    eval  line=\"$line\"
520
521
522       # INTERPRET THE LINE
523    if [[ "$(echo $line)" = "" ]]
524    then
525
526          # EMPTY LINE, NO ACTION
527       continue
528
529    elif [[ "$(echo $line | cut -c1)"  =  "#" ]]
530    then
531
532          # LINE IS A COMMENT LINE
533       continue
534
535    elif [[ "$(echo $line | cut -c1)"  =  "%" ]]
536    then
537
538          # LINE DEFINES AN ENVIRONMENT-VARIABLE
539       var=`echo $line | cut -d" " -s -f1 | cut -c2-`
540       value=`echo $line | cut -d" " -s -f2-`
541
542
543          # VALUE FROM THE CONFIGURATION-FILE IS ASSIGNED TO THE
544          # ENVIRONMENT-VARIABLE, BUT ONLY IF NO VALUE HAS BEEN ALREADY
545          # ASSIGNED WITHIN THIS SCRIPT (E.G. BY SCRIPT-OPTIONS).
546          # NON-ASSIGNED VARIABLES HAVE VALUE "" OR 0 (IN CASE OF INTEGER).
547          # HENCE THE GENERAL RULE IS: SCRIPT-OPTION OVERWRITES THE
548          # CONFIGURATION-FILE.
549       if [[ "$(eval echo \$$var)" = ""  ||  "$(eval echo \$$var)" = "0" ]]
550       then
551          eval  export  $var="\$value"
552
553             # TERMINAL OUTPUT OF ENVIRONMENT-VARIABLES, IF TRACEBACK IS SWITCHED on
554          if [[ $do_trace = true ]]
555          then
556             printf "\n*** ENVIRONMENT-VARIABLE $var = $value"
557          fi
558       fi
559
560    elif [[ "$(echo $line | cut -c1-3)" = "BD:" ]]
561    then
562
563          # LINE DEFINES BATCH-DIRECTIVE
564       (( ibd = ibd + 1 ))
565       line=$(echo $line | cut -c4-)
566       batch_directive[$ibd]="$line"
567
568    elif [[ "$(echo $line | cut -c1-4)" = "BDT:" ]]
569    then
570
571          # LINE DEFINES BATCH-DIRECTIVE FOR SENDING BACK THE JOBFILE FROM A
572          # REMOTE TO A LOCAL HOST
573       (( ibdt = ibdt + 1 ))
574       line=$(echo $line | cut -c5-)
575       batch_directive_transfer[$ibdt]="$line"
576
577    elif [[ "$(echo $line | cut -c1-3)" = "EC:" ]]
578    then
579
580          # LINE DEFINES ERROR-COMMAND
581       (( iec = iec + 1 ))
582       line=$(echo $line | cut -c4-)
583       err_command[$iec]="$line"
584
585    elif [[ "$(echo $line | cut -c1-3)" = "IC:" ]]
586    then
587
588          # LINE DEFINES INPUT-COMMAND
589       (( iic = iic + 1 ))
590       line=$(echo $line | cut -c4-)
591       in_command[$iic]="$line"
592
593    elif [[ "$(echo $line | cut -c1-3)" = "OC:" ]]
594    then
595
596          # LINE DEFINES OUTPUT-COMMAND
597       (( ioc = ioc + 1 ))
598       line=$(echo $line | cut -c4-)
599       out_command[$ioc]="$line"
600
601    else
602
603          # SKIP ALL OTHER LINES
604       continue
605
606    fi
607
608 done < $config_file
609
610
611    # CHECK SETTING OF REQUIRED PARAMETERS
612 if [[ "$fast_io_catalog" = "" ]]
613 then
614    printf "\n  +++ no fast_io_catalog found in $config_file"
615    printf "\n      Please add line \"fast_io_catalog ...\" to that file."
616    locat=config_file; exit
617 fi
618 if [[ "$compiler_name" = "" ]]
619 then
620    printf "\n  +++ no compiler name found in $config_file"
621    printf "\n      Please add line \"compiler_name ...\" to that file."
622    locat=config_file; exit
623 fi
624 if [[ "$compiler_name_ser" = "" ]]
625 then
626    printf "\n  +++ no compiler name for non-paralle compilation found in $config_file"
627    printf "\n      Please add line \"compiler_name_ser ...\" to that file."
628    locat=config_file; exit
629 fi
630 if [[ "$compiler_options" = "" ]]
631 then
632    printf "\n  +++ no compiler options found in $config_file"
633    printf "\n      Please add line \"compiler_options ...\" to that file."
634    locat=config_file; exit
635 fi
636 if [[ "$execute_command" = "" ]]
637 then
638    printf "\n  +++ no execute command found in $config_file"
639    printf "\n      Please add line \"execute_command ...\" to that file."
640    locat=config_file; exit
641 fi
642
643 if [[ "$hostfile" != "" ]]
644 then
645    if [[ $hostfile != auto  &&  ! -f $hostfile ]]
646    then
647       printf "\n  +++ no hostfile \"$hostfile\" found"
648       printf "\n      Please check line \"hostfile ...\" in $config_file"
649       locat=config_file; exit   
650    fi
651 fi
652
653
654    # DETERMINE THE CALL STATUS
655 if [[ "$return_address" != "" ]]
656 then
657 
658       # I AM RUNNING ON A REMOTE HOST, WHICH ALSO MEANS THAT I AM RUNNING IN
659       # BATCH MODE AND ...
660    running_on_remote=true
661 
662 else
663
664       # I HAVE BEEN CALLED INTERACTIVELY ON THIS HOST
665     if [[ "$remote_ip" != "" ]]
666     then
667
668           # I HAVE TO CREATE A BATCH JOB TO RUN PALM ON THE REMOTE HOST
669        create_remote_batch_job=true
670
671           # CHECK THAT THE REMOTE JOBCATALOG HAS BEEN SET
672        if [[ "$remote_jobcatalog" = "" ]]
673        then
674           printf "\n  +++ no remote jobcatalog found in $config_file"
675           printf "\n      Please add line \"remote_jobcatalog ...\" to that file."
676           locat=config_file; exit
677        fi
678 
679
680     fi
681     running_on_remote=false
682 fi
683
684
685
686    # READ AND EVALUATE THE I/O-FILE LIST
687 [[ $silent = false ]]  &&  printf "\n    Reading the I/O files... "
688
689    # READ THE FILE CONNECTION FILE LINE BY LINE
690 while  read line
691 do
692
693       # REPLACE REPEATING SPACES BETWEEN THE COLUMNS BY A SINGLE SPACE
694       # HERE, TR IS USED INSTEAD OF SED TO GUARANTEE MAC COMPATIBILITY
695    line=`echo "$line" | tr -s " "`
696
697       # INTERPRET THE LINE
698    if [[ "$(echo $line)" = "" ]]
699    then
700          # EMPTY LINE, NO ACTION
701       continue
702
703    elif [[ "$(echo $line | cut -c1)"  =  "#" ]]
704    then
705
706          # LINE IS A COMMENT LINE
707       true
708
709    else
710
711          # LINE DEFINES FILE CONNECTION. READ THE FILE ATTRIBUTES.
712          # s2a: in/out - field
713          # s2b: action - field (optional)
714       s1=`echo "$line" | cut -d" " -f1`
715       s2=`echo "$line" | cut -d" " -s -f2`
716       if [[ $(echo $s2 | grep -c ":") = 0 ]]
717       then
718          s2a=$s2
719          s2b=""
720       else
721          s2a=`echo $s2 | cut -d":" -f1`
722          s2b=`echo $s2 | cut -d":" -f2`
723       fi
724       s3=`echo "$line" | cut -d" " -f3 | sed 's/*/wildcard /g'`
725       s4=`echo "$line" | cut -d" " -s -f4`
726       eval s4=\"$s4\"    # REPLACE ENVIRONMENT-VARIABLES IN PATH BY THEIR RESPECTIVE VALUES
727       s5=`echo "$line" | cut -d" " -s -f5`
728       s6=`echo "$line" | cut -d" " -s -f6`
729
730       
731          # STORE FILE CONNECTION, IF ACTIVATED BY ACTIVATION-STRING FROM
732          # INPUT- OR OUTPUT-LIST.
733          # VARIABLE S3 MAY CONTAIN A LIST OF ACTIVATION STRINGS (FIELD-SEPERATOR ":").
734          # IF EXECUTION IS SCHEDULED FOR A REMOTE-MACHINE AND THE FILE IS ONLY
735          # LOCALLY REQUIRED ON THAT MACHINE (I.E. s2b != tr), THE FILE CONNECTION
736          # IS NOT CHECKED AND STORED.
737       IFSALT="$IFS"; IFS="$IFS:"      # ADD ":" AS FIELD SEPARATOR
738       if [[ ( "$s2a" = in  || "$s2a" = inopt )  &&  ! ( $create_remote_batch_job = true  &&  "$s2b" != tr ) ]]
739       then
740          found=false
741          for  actual  in  $activation_string_list
742          do
743             for  formal  in  $s3
744             do
745                [[ $actual = $formal  ||  "$formal" = "-" ]]  &&  found=true
746             done
747          done
748          if [[ $found = true ]]
749          then
750             (( iin = iin + 1 ))
751             localin_pre[$iin]=$s1; actionin_pre[$iin]=$s2b;
752             pathin_pre[$iin]=$s4; endin_pre[$iin]=$s5; extin_pre[$iin]=$s6
753             if [[ "$s2a" = inopt ]]
754             then
755                optin_pre[$iin]=yes
756             else
757                optin_pre[$iin]=no
758             fi 
759
760                # FILES WITH JOB-ATTRIBUTE ARE STORED IN THE SOURCES_FOR_RUN
761                # FOLDER IF THE JOB IS RUNNING ON A REMOTE HOST
762             if [[ $running_on_remote = true  &&  "$s2b" = tr ]]
763             then
764                pathin_pre[$iin]=${fast_io_catalog}/${sources_for_run_catalog}
765             fi
766
767                # CHECK FOR MULTIPLE FILES, SET A RESPECTIVE FLAG AND REMOVE
768                # THE WILDCARD FROM THE ENDING
769             if [[ "${s5: -1}" = "*" ]]
770             then
771                if [[ "$s2b" = "di" ]]
772                then
773                   printf "\n    +++ wildcards (*) not allowed with \"di\" file attribute."
774                   printf "\n        see file \"$fileconnection_file\", line"
775                   printf "\n$line"
776                   locat=iofiles_file; exit
777                fi
778                multin[$iin]=true
779                string=${endin_pre[$iin]}
780                endin_pre[$iin]="${string%?}"
781             else
782                multin[$iin]=false
783             fi
784          fi
785       elif [[ "$s2a" = out  &&  ! ( $create_remote_batch_job = true ) ]]
786       then
787          found=false
788          for  actual  in  $activation_string_list
789          do
790             for  formal  in  $s3 
791             do
792                [[ $actual = $formal  ||  $formal = wildcard  ]]  &&  found=true
793             done
794          done
795          if [[ $found = true ]]
796          then
797             (( iout = iout + 1 ))
798             localout_pre[$iout]=$s1; actionout_pre[$iout]=$s2b
799             pathout_pre[$iout]=$s4; endout_pre[$iout]=$s5; extout_pre[$iout]=$s6
800
801                # CHECK IF WILDCARD IS USED AS ACTIVATION STRING
802                # IN SUCH CASES, NO WARNING WILL LATER BE OUTPUT IF LOCAL FILES DO NOT EXIST
803             if [[ $formal = wildcard  ]]
804             then
805                warnout_pre[$iout]=false
806             else
807                warnout_pre[$iout]=true
808             fi
809
810                # CHECK FOR MULTIPLE FILES, SET A RESPECTIVE FLAG AND REMOVE
811                # THE WILDCARD FROM THE LOCAL FILENAME
812             if [[ "${s1: -1}" = "*" ]]
813             then
814                if [[ "$s2b" = "di" ]]
815                then
816                   printf "\n    +++ wildcards (*) not allowed with \"di\" file attribute."
817                   printf "\n        see file \"$fileconnection_file\", line"
818                   printf "\n$line"
819                   locat=iofiles_file; exit
820                fi
821                multout[$iout]=true
822                string=${localout_pre[$iout]}
823                localout_pre[$iout]="${string%?}"
824             else
825                multout[$iout]=false
826             fi
827          fi
828       elif [[ "$s2a" != in  &&  "$s2a" != inopt  &&  "$s2a" != out ]]
829       then
830          printf "\n  +++ I/O-attribute in file $fileconnection_file has invalid"
831          printf "\n      value \"$s2\". Only \"in\", \"inopt\", and \"out\" are allowed!"
832          locat=connect; exit
833       fi
834       IFS="$IFSALT"
835    fi
836
837 done < $fileconnection_file
838
839
840
841    # VALUES OF PALMRUN-OPTIONS OVERWRITE THOSE FROM THE CONFIGURATION-FILE
842 [[ "$palmrun_memory" != "" ]]  &&  memory=$palmrun_memory
843 [[ "$palmrun_cpumax" != "" ]]  &&  cpumax=$palmrun_cpumax
844 [[ "$palmrun_cores"  != "" ]]  &&  cores=$palmrun_cores
845 [[ "$max_par_io_str" != "" ]]  &&  maximum_parallel_io_streams=$max_par_io_str
846 [[ "$palmrun_tasks_per_node" != "" ]]  &&  tasks_per_node=$palmrun_tasks_per_node
847
848
849
850      # EVALUATE MODEL COUPLING FEATURES (OPTION -Y)
851 if [[ $run_coupled_model = true ]] 
852 then
853
854    cores_atmos=`echo $coupled_dist | cut -d" " -s -f1`
855    cores_ocean=`echo $coupled_dist | cut -d" " -s -f2`
856
857    if (( $cores_ocean + $cores_atmos != $cores ))
858    then
859
860       printf "\n  +++ number of processors does not fit to specification by \"-Y\"."
861       printf "\n      PEs (total)     : $cores"
862       printf "\n      PEs (atmosphere): $cores_atmos"
863       printf "\n      PEs (ocean)     : $cores_ocean"
864       locat=coupling; exit
865
866    fi
867
868 fi
869
870
871    # IF I AM IN BATCH MODE, CHECK IF EXECUTABLE AND OTHER REQUIRED FILES
872    # HAVE BEEN GENERATED BY PALMBUILD AND STORED IN THE SOURCES_FOR_RUN_...
873    # FOLDER
874 if [[ $running_in_batch_mode = true ]]
875 then
876 
877    if [[ ! -d ${fast_io_catalog}/${sources_for_run_catalog} ]]
878    then
879       printf "\n  +++ directory ${fast_io_catalog}/${sources_for_run_catalog} is missing"
880       printf "\n      Please check the output of the palmrun-call"
881       printf "\n      that you did on your local host."
882       locat=SOURCES_FOR_RUN; exit
883    fi
884
885 else
886
887       # CREATE THE SOURCES_FOR_RUN_... FOLDER, BUT NOT IF I AM PART OF AN
888       # AUTOMATIC RESTART RUN
889       # AUTOMATIC RESTART RUNS JUST ACCESS THE DIRECTORY CREATED BY THE INITIAL RUN
890    if [[ $restart_run = false ]]
891    then
892
893          # COLLECT FILES TO BE COMPILED IN THE SOURCES_FOR_RUN_... FOLDER ON
894          # THE LOCAL HOST
895       if [[ ! -d $source_path ]]
896       then
897          printf "\n\n  +++ source path \"$source_path\" on local host"
898          printf "\n      \"$(hostname)\" does not exist"
899          locat=source_path; exit
900       fi
901
902       rm -rf   ${base_directory}/${sources_for_run_catalog}
903       mkdir -p ${base_directory}/${sources_for_run_catalog}
904
905       if [[ "$source_list" = LM ]]
906       then
907
908             # DETERMINE MODIFIED FILES OF THE SVN WORKING COPY
909          source_list=""
910          cd  $source_path
911
912
913             # CHECK, IF TRUNK-DIRECTORY IS UNDER SVN CONTROL
914          if [[ ! -d ../.svn ]]
915          then
916             printf "\n\n  +++ source directory"
917             printf "\n         \"$source_path\" "
918             printf "\n         is not under control of \"subversion\"."
919             printf "\n         Please do not use palmrun-option \"-s LM\"\n"
920          fi
921
922
923             # LIST ALL MODIFIED SOURCE CODE FILES
924          Filenames=""
925          svn status  >  tmp_svnstatus
926          while  read line
927          do
928             firstc=`echo $line | cut -c1`
929             if [[ $firstc = M  ||  $firstc = "?" ]]
930             then
931                Name=`echo "$line" | cut -c8-`
932                extension=`echo $Name | cut -d. -f2`
933                if [[ "$extension" = f90 || "$extension" = F90 || "$extension" = f || "$extension" = F || "$extension" = c ]]
934                then
935                   Filenames="$Filenames "$Name
936                fi
937             fi
938          done < tmp_svnstatus
939          rm -rf  tmp_svnstatus
940
941
942             # COPY FILES TO SOURCES_FOR_RUN_...
943          for  filename  in  $Filenames
944          do
945             cp  $filename  ${base_directory}/${sources_for_run_catalog}
946             source_list=$source_list"$filename "
947          done
948
949          cd -  > /dev/null
950
951
952          # COPY FILES GIVEN BY OPTION -s TO DIRECTORY SOURCES_FOR_RUN_...
953       elif [[ "$source_list" != "" ]]
954       then
955
956          cd  $source_path
957
958          for  filename  in  $source_list
959          do
960
961                # SOURCE CODE FILE IS NOT ALLOWED TO INCLUDE PATH
962             if [[ $(echo $filename | grep -c "/") != 0 ]]
963             then
964                printf "\n  +++ source code file:  $filename"
965                printf "\n      must not contain (\"/\") "
966                locat=source; exit
967             fi
968
969             if [[ ! -f $filename ]]
970             then
971                printf "\n  +++ source code file:  $filename"
972                printf "\n      does not exist"
973                locat=source; exit
974             else
975                cp  $filename  ${base_directory}/${sources_for_run_catalog}
976             fi
977
978          done
979
980          cd -  > /dev/null
981
982       fi
983
984          # CHECK, IF MAKEFILE EXISTS AND COPY IT TO THE SOURCES_FOR_RUN... DIRECTORY
985       [[ "$makefile" = "" ]]  &&  makefile=$source_path/Makefile
986       if [[ ! -f $makefile ]]
987       then
988          printf "\n  +++ file \"$makefile\" does not exist"
989          locat=make; exit
990       else
991          cp  $makefile  ${base_directory}/${sources_for_run_catalog}/Makefile
992       fi
993
994
995          # COPY FILES FROM OPTIONAL SOURCE PATH GIVEN IN THE CONFIGURATION FILE
996       if [[ "$user_source_path" != "" ]]
997       then
998
999             # DOES THE DIRECTORY EXIST?
1000          if [[ ! -d $user_source_path ]]
1001          then
1002
1003             printf "\n\n  *** INFORMATIVE: additional source code directory"
1004             printf "\n      \"$user_source_path\" "
1005             printf "\n      does not exist or is not a directory."
1006             printf "\n      No source code will be used from this directory!\n"
1007             user_source_path=""
1008             if [[ $silent == false ]]
1009             then
1010                sleep 2
1011             fi
1012
1013          else
1014
1015             cd $user_source_path
1016
1017             Names=$(ls -1 *.f90 2>&1)
1018             [[ $(echo $Names | grep -c '*.f90') = 0 ]]  &&  AddFilenames="$Names"
1019             Names=$(ls -1 *.F90 2>&1)
1020             [[ $(echo $Names | grep -c '*.F90') = 0 ]]  &&  AddFilenames="$AddFilenames $Names"
1021             Names=$(ls -1 *.F 2>&1)
1022             [[ $(echo $Names | grep -c '*.F') = 0   ]]  &&  AddFilenames="$AddFilenames $Names"
1023             Names=$(ls -1 *.f 2>&1)
1024             [[ $(echo $Names | grep -c '*.f') = 0   ]]  &&  AddFilenames="$AddFilenames $Names"
1025             Names=$(ls -1 *.c 2>&1)
1026             [[ $(echo $Names | grep -c '*.c') = 0   ]]  &&  AddFilenames="$AddFilenames $Names"
1027
1028             cd -  > /dev/null
1029             cd  ${base_directory}/${sources_for_run_catalog}
1030
1031                # COPY MAKEFILE IF EXISTING
1032             if [[ -f $user_source_path/Makefile ]]
1033             then
1034                printf "\n\n  *** user Makefile from directory"
1035                printf "\n      \"$user_source_path\" is used \n"
1036                if [[ $silent == false ]]
1037                then
1038                   sleep 1
1039                fi
1040                cp  $user_source_path/Makefile  .
1041             fi
1042
1043             for  filename  in  $AddFilenames
1044             do
1045                if [[ -f $filename ]]
1046                then
1047                   printf "\n  +++ source code file \"$filename\" found in additional"
1048                   printf "\n      source code directory \"$user_source_path\" "
1049                   printf "\n      but was also given with option \"-s\" which means that it should be taken"
1050                   printf "\n      from directory \"$source_path\"."
1051                   locat=source; exit
1052                fi
1053
1054                cp  $user_source_path/$filename  .
1055                source_list="$source_list $filename"
1056
1057                   # CHECK IF FILE IS CONTAINED IN MAKEFILE
1058                if [[ $(grep -c $filename Makefile) = 0 ]]
1059                then
1060                   printf "\n\n  +++ user file \"$filename\" "
1061                   printf "\n      is not listed in Makefile \n"
1062                   locat=source; exit
1063                fi
1064             done
1065             cd -  > /dev/null
1066          fi
1067       fi
1068
1069          # COPY CONFIGURATION FILES
1070       cp  $config_file  ${base_directory}/${sources_for_run_catalog}
1071       cp  $fileconnection_file  ${base_directory}/${sources_for_run_catalog}
1072
1073          # COPY SHELLSCRIPTS
1074       cp  ${source_path}/../SCRIPTS/palmrun    ${base_directory}/${sources_for_run_catalog}
1075       cp  ${source_path}/../SCRIPTS/batch_scp  ${base_directory}/${sources_for_run_catalog}
1076
1077    fi
1078
1079 fi
1080
1081
1082    # GET THE GLOBAL REVISION-NUMBER OF THE SVN-REPOSITORY
1083    # (HANDED OVER TO RESTART-RUNS USING OPTION -G)
1084 if [[ "$global_revision" = "" ]]
1085 then
1086    global_revision=`svnversion $source_path  2>/dev/null`
1087    global_revision="Rev: $global_revision"
1088 fi
1089
1090
1091    # IN CASE OF PARALLEL EXECUTION, CHECK SOME SPECIFICATIONS CONCERNING PROCESSOR NUMBERS
1092 if [[ -n $cores ]]
1093 then
1094
1095       # CHECK, IF THE NUMBER OF CORES PER NODE HAS BEEN GIVEN UND IF IT IS AN
1096       # INTEGRAL DIVISOR OF THE TOTAL NUMBER OF CORES GIVEN BY OPTION -X
1097    if [[ $tasks_per_node = 0 ]]
1098    then
1099       if [[ $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1100       then
1101          printf "\n"
1102          printf "\n  +++ option \"-T\" (tasks per node) is missing"
1103          printf "\n      set -T option or define tasks_per_node in the config file"
1104          locat=tasks_per_node; (( iec = 0 )); exit
1105       else
1106             # DEFAULT FOR INTERACTIVE RUN
1107          tasks_per_node=$cores
1108       fi
1109    fi
1110
1111    if (( cores < tasks_per_node ))
1112    then
1113       printf "\n"
1114       printf "\n  +++ tasks per node (-T) cannot exceed total number of cores (-X)"
1115       printf "\n      given values: -T $tasks_per_node  -X $cores"
1116       locat=tasks_per_node; (( iec = 0 )); exit
1117    fi
1118
1119    (( nodes = cores / ( tasks_per_node * threads_per_task ) ))
1120    (( mpi_tasks = cores / threads_per_task ))
1121    [[ $mpi_tasks = 0 ]]  &&  (( mpi_tasks = 1 ))
1122    (( ii = cores / tasks_per_node ))
1123    (( remaining_cores =  cores - ii * tasks_per_node ))
1124    if (( remaining_cores > 0 ))
1125    then
1126       printf "\n"
1127       printf "\n  +++ WARNING: tasks per node (option \"-T\") is not an integral"
1128       printf "\n      divisor of the total number of cores (option \"-X\")"
1129       printf "\n      values of this palmrun-call: \"-T $tasks_per_node\" \"-X $cores\""
1130       printf "\n      One of the nodes is filled with $remaining_cores instead of $tasks_per_node tasks"
1131       (( nodes = nodes + 1 ))
1132    fi
1133
1134 fi
1135
1136
1137    # SET DEFAULT VALUE FOR THE MAXIMUM NUMBER OF PARALLEL IO STREAMS
1138 if [[ "$maximum_parallel_io_streams" = "" ]]
1139 then
1140    maximum_parallel_io_streams=$cores
1141 fi
1142
1143
1144    # SET PORT NUMBER OPTION FOR CALLS OF SSH/SCP AND batch_scp SCRIPT
1145 if [[ "$scp_port" != "" ]]
1146 then
1147    PORTOPT="-P $scp_port"
1148    SSH_PORTOPT="-p $scp_port"
1149 fi
1150
1151
1152    # DETERMINE THE SSH-OPTION IN CASE THAT AN SSH-KEY IS EXPLICITLY GIVEN IN THE
1153    # CONFIG-FILE
1154 if [[ "$ssh_key" != "" ]]
1155 then
1156    ssh_key="-i $HOME/.ssh/$ssh_key"
1157 fi
1158
1159
1160    # SET QUEUE, IF NOT GIVEN
1161 if [[ $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1162 then
1163
1164    if [[ $queue = none  &&  "$defaultqueue" = "" ]]
1165    then
1166       printf "\n"
1167       printf "\n  +++ no default queue given in configuration file and no queue"
1168       printf "\n      given with option -q"
1169       locat=queue; exit
1170    fi
1171    if [[ $queue = none ]]
1172    then
1173       queue=$defaultqueue
1174    fi
1175
1176 fi
1177
1178
1179    # GENERATE FULL FILENAMES OF INPUT-FILES, INCLUDING THEIR PATH
1180    # CHECK, IF INPUT-FILES EXIST, AND DETERMINE HIGHEST CYCLE NUMBER (IF CYCLES EXIST)
1181 (( i = 0 ))
1182 (( nr_of_input_files = 0 ))
1183 while (( i < iin ))
1184 do
1185    (( i = i + 1 ))
1186
1187       # GENERATE PATH AND FULL FILE NAME (then-BRANCH: FIXED FULL NAME IS GIVEN, I.E. THE
1188       # FILE IDENTIFIER IS NOT PART OF THE FILENAME))
1189    if [[ "${actionin_pre[$i]}" = di ]]
1190    then
1191       eval filename=${pathin_pre[$i]}/${endin_pre[$i]}
1192    else
1193       eval filename=${pathin_pre[$i]}/${run_identifier}${endin_pre[$i]}
1194    fi
1195
1196
1197       # CHECK IF FILE EXISTS
1198    if ! ls $filename* 1>/dev/null 2>&1
1199    then
1200
1201          # FILES WITH ATTRIBUTE opt ARE OPTIONAL. NO ABORT, IF THEY DO NOT EXIST.
1202       if [[ "${optin_pre[$i]}" != "yes" ]]
1203       then
1204          printf "\n\n  +++ INPUT-file: "
1205          if [[ "${extin_pre[$i]}" = ""  ||  "${extin_pre[$i]}" = " " ]]
1206          then
1207             printf "\n           $filename"
1208          else
1209             printf "\n           $filename.${extin_pre[$i]}"
1210          fi
1211          printf "\n      does not exist\n"
1212          locat=input; exit
1213       else
1214          (( nr_of_input_files = nr_of_input_files + 1 ))
1215          localin[$nr_of_input_files]="${localin_pre[$i]}"
1216          optin[$nr_of_input_files]="${optin_pre[$i]}"
1217          actionin[$nr_of_input_files]="unavailable"
1218          pathin[$nr_of_input_files]="${pathin_pre[$i]}"
1219          endin[$nr_of_input_files]="${endin_pre[$i]}"
1220          extin[$nr_of_input_files]="${extin_pre[$i]}"
1221       fi
1222
1223    else
1224
1225          # FIRST CHECK FOR MULTIPLE NAMES WITH THE SAME BASENAME
1226          # ($run_identifier) AND CREATE A LIST FOR THE DETECTED BASENAME
1227          # ENDINGS
1228       if [[ "${multin[$i]}" = true ]]
1229       then
1230             # DETERMINE THE EXISTING EXTENSIONS FROM THE LIST OF FILES
1231          ls -1 -d ${filename}    >   filelist  2>/dev/null
1232          ls -1 -d ${filename}.*  >>  filelist  2>/dev/null
1233          ls -1 -d ${filename}_*  >>  filelist  2>/dev/null
1234
1235          endings=""
1236          while  read line
1237          do
1238                 # filename without path (i.e. after the last "/")
1239              basefilename=$(basename ${line})
1240
1241                 # check if there is an extension and remove it
1242              ext=${basefilename##*.}
1243              if [[ "$ext" = "${extin_pre[$i]}" ]]
1244              then
1245                 basefilename=${basefilename%.*}
1246              fi
1247
1248                 # check for an existing cycle number and remove it
1249              cycle=${basefilename##*.}
1250              if [[ $cycle =~ ^-?[0-9]+$ ]]
1251              then
1252                 basefilename=${basefilename%.*}
1253              fi
1254
1255                 # remove the run_identifier from the beginning
1256              length_run_identifier=${#run_identifier}
1257              ending=${basefilename:${length_run_identifier}}
1258
1259                 # remove the ending given in the .iofiles from the beginning
1260              endingstring="${endin_pre[$i]}"
1261              length_ending=${#endingstring}
1262              ending=${ending:${length_ending}}
1263
1264              if [[ "$ending" = "" ]]
1265              then
1266                    # standard ending as given in the .iofiles
1267                 if [[ $(echo $endings | grep -c DEFAULT) = 0 ]]
1268                 then
1269                    endings="$endings DEFAULT"
1270                 fi
1271              else
1272                    # ending must start with "_", otherwise its a different file
1273                 if [[ "${ending:0:1}" = "_" ]]
1274                 then
1275                    if [[ $(echo $endings | grep -c "$ending") = 0 ]]
1276                    then
1277                       endings="$endings $ending"
1278                    fi
1279                 fi
1280              fi
1281 
1282          done <filelist
1283
1284          rm filelist
1285
1286       else
1287
1288             # SINGLE NAME
1289          endings=DEFAULT
1290
1291       fi
1292
1293          # FOR EACH BASENAME ENDING CREATE AN ENTRY IN THE FINAL INPUT FILE LIST
1294       for  ending  in  $endings
1295       do
1296
1297             # DEFAULT MEANS THAT THE ENDING GIVEN IN .iofiles SHALL BE USED
1298          if [[ $ending = DEFAULT ]]
1299          then
1300             ending=""
1301          fi
1302
1303             # NEW ENTRY (ENDING IS ALSO ADDED TO LOCAL FILENAME READ BY PALM!)
1304          (( nr_of_input_files = nr_of_input_files + 1 ))
1305          localin[$nr_of_input_files]="${localin_pre[$i]}"$ending
1306          optin[$nr_of_input_files]="${optin_pre[$i]}"
1307          actionin[$nr_of_input_files]="${actionin_pre[$i]}"
1308          pathin[$nr_of_input_files]="${pathin_pre[$i]}"
1309          endin[$nr_of_input_files]="${endin_pre[$i]}"$ending
1310          extin[$nr_of_input_files]="${extin_pre[$i]}"
1311
1312
1313             # GENERATE PATH AND FULL FILE NAME (then-BRANCH: FIXED FULL NAME IS GIVEN, I.E. THE
1314             # FILE IDENTIFIER IS NOT PART OF THE FILENAME))
1315          if [[ "${actionin[$nr_of_input_files]}" = di ]]
1316          then
1317             eval filename=${pathin[$nr_of_input_files]}/${endin[$nr_of_input_files]}
1318          else
1319             eval filename=${pathin[$nr_of_input_files]}/${run_identifier}${endin[$nr_of_input_files]}
1320          fi
1321
1322             # DETERMINE THE FILE'S CYCLE NUMBER
1323          (( maxcycle = 0 ))
1324          ls -1 -d $filename    >   filelist  2>/dev/null
1325          ls -1 -d $filename.*  >>  filelist  2>/dev/null
1326          while  read line
1327          do
1328                 # filename without path (i.e. after the last "/")
1329              basefilename=$(basename ${line})
1330   
1331                 # check if there is an extension
1332              extension=${basefilename##*.}
1333              if [[ "$extension" = "${extin[$nr_of_input_files]}" ]]
1334              then
1335                 basefilename=${basefilename%.*}
1336              fi
1337   
1338                 # check for an existing cycle number
1339              cycle=${basefilename##*.}
1340              if [[ $cycle =~ ^-?[0-9]+$ ]]
1341              then
1342                    # NUMBERS WITH LEADING ZEROS ARE INTERPRETED AS OCTAL NUMBERS
1343                    # 10# EXPLICITLY SPECIFIES THE NUMBER BASE AS 10
1344                 (( icycle = $((10#$cycle)) ))
1345              else
1346                 (( icycle = 0 ))
1347              fi
1348   
1349              if (( icycle > maxcycle ))
1350              then
1351                 (( maxcycle = icycle ))
1352   
1353                    # FOR COMPATIBILITY REASONS WITH OLDER VERSIONS
1354                    # CHECK IF CYCLE NUMBER CONTAINS LEADING ZEROS
1355                 if [[ $(echo $cycle | cut -c1) = 0 ]]
1356                 then
1357                    leading_zero=true
1358                 else
1359                    leading_zero=false
1360                 fi
1361              fi
1362   
1363          done <filelist
1364          rm filelist
1365   
1366             # MAKE CYCLE NUMBER THREE DIGITS WIDE
1367          if [[ $leading_zero = true ]]
1368          then
1369             cyclestring=`printf "%03d" $maxcycle`
1370          else
1371             cyclestring=$maxcycle
1372          fi
1373   
1374             # APPEND CYCLE NUMBER TO FILENAME
1375          if (( maxcycle > 0 ))
1376          then
1377             if [[ "${extin[$nr_of_input_files]}" != " "  &&   "${extin[$nr_of_input_files]}" != "" ]]
1378             then
1379                filename=${filename}.$cyclestring.${extin[$nr_of_input_files]}
1380             else
1381                filename=${filename}.$cyclestring
1382             fi
1383          else
1384             if [[ "${extin[$nr_of_input_files]}" != " "  &&   "${extin[$nr_of_input_files]}" != "" ]]
1385             then
1386                filename=${filename}.${extin[$nr_of_input_files]}
1387             fi
1388          fi
1389         
1390             # STORE FILENAME WITHOUT PATH BUT WITH CYCLE NUMBER,
1391             # IS LATER USED FOR TRANSFERRING FILES WIHIN THE JOB (SEE END OF FILE)
1392          absnamein[$nr_of_input_files]=$filename
1393          if (( maxcycle > 0 ))
1394          then
1395             if [[ "${actionin[$nr_of_input_files]}" = di ]]
1396             then
1397                frelin[$nr_of_input_files]=${endin[$nr_of_input_files]}.$cyclestring
1398             else
1399                frelin[$nr_of_input_files]=${run_identifier}${endin[$nr_of_input_files]}.$cyclestring
1400             fi
1401          else
1402             if [[ "${actionin[$nr_of_input_files]}" = di ]]
1403             then
1404                frelin[$nr_of_input_files]=${endin[$nr_of_input_files]}
1405             else
1406                frelin[$nr_of_input_files]=${run_identifier}${endin[$nr_of_input_files]}
1407             fi
1408          fi
1409
1410       done
1411
1412    fi
1413
1414 done
1415
1416
1417    # GENERATE FULL FILENAMES OF OUTPUT-FILES (WITHOUT $ OR ~),
1418    # CHECK, IF OUTPUT-FILES EXIST, AND DETERMINE HIGHEST CYCLE NUMBER (IF CYCLES EXIST),
1419    # OR, IN CASE THAT FILE DOES NOT EXIST, CHECK, IF IT CAN BE CREATED 
1420    # THESE ACTIONS ARE NOT CARRIED OUT, IF FILES SHALL BE TRANSFERRED FROM THE REMOTE TO
1421    # THE LOCAL HOST (BECAUSE THEIR IS NO DIRECT ACCESS TO THE LOCAL DIRECTORIES FROM THE
1422    # REMOTE HOST)
1423 (( i = 0 ))
1424 while (( i < iout ))
1425 do
1426    (( i = i + 1 ))
1427    if [[ ! ( $running_on_remote = true  &&  ( "${actionout_pre[$i]}" = tr || "${actionout_pre[$i]}" = tra || "${actionout_pre[$i]}" = trpe ) ) ]]
1428    then
1429       if [[ "${actionout_pre[$i]}" = tr ]]
1430       then
1431          actionout_pre[$i]=""
1432       elif [[ "${actionout_pre[$i]}" = trpe ]]
1433       then
1434          actionout_pre[$i]=pe
1435       elif [[ "${actionout_pre[$i]}" = tra ]]
1436       then
1437          actionout_pre[$i]=a
1438       fi
1439       (( maxcycle = 0 ))
1440       eval filename=${pathout_pre[$i]}/${run_identifier}${endout_pre[$i]}
1441       eval catalogname=${pathout_pre[$i]}
1442       if ! ls $filename* 1>/dev/null 2>&1
1443       then
1444     
1445             # IF OUTPUT-FILE DOES NOT EXIST CHECK, IF IT CAN BE CREATED
1446          if  cat /dev/null > $filename 
1447          then
1448             rm  $filename
1449          else
1450
1451                # CHECK, IF THE DIRECTORY WHERE FILE SHALL BE COPIED TO EXISTS
1452                # IF IT DOES NOT EXIST, TRY TO CREATE IT
1453             if [[ ! -d $catalogname ]]
1454             then
1455                if  mkdir -p  $catalogname
1456                then
1457                   printf "\n\n  *** directory:"
1458                   printf "\n           $catalogname"
1459                   printf "\n      was created\n"
1460                else
1461                   printf "\n\n  +++ OUTPUT-file:"
1462                   printf "\n           $filename"
1463                   printf "\n      cannot be created, because directory does not exist"
1464                   printf "\n      and cannot be created either"
1465                   printf "\n"
1466                   locat=output  ; exit
1467                fi 2>/dev/null
1468             else
1469                printf "\n\n  +++ OUTPUT-file:"
1470                printf "\n           $filename"
1471                printf "\n      cannot be created, although directory exists"
1472                printf "\n"
1473                locat=output  ; exit
1474             fi
1475          fi 2>/dev/null
1476
1477       fi
1478
1479    fi
1480 done
1481
1482
1483    # DETERMINE THE NAME OF PALMRUN'S TEMPORARY WORKING DIRECTORY
1484 if [[ $running_in_batch_mode = false ]]
1485 then
1486    run_id_number=$RANDOM
1487    run_id=${run_identifier}.$run_id_number
1488
1489    tempdir=$fast_io_catalog/$run_id
1490
1491       # FOR COMPATIBILITY REASONS WITH OLDER VERSIONS SET JOB_ID
1492    export job_id=$run_id
1493
1494 fi
1495
1496
1497    # CHECK SETTINGS REQUIRED FOR BATCH JOBS
1498 if [[ $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1499 then
1500
1501       # CHECK, IF JOB DIRECTIVES HAVE BEEN GIVEN IN CONFIGURATION FILE
1502    if [[ $ibd = 0 ]]
1503    then
1504       printf "\n"
1505       printf "\n  +++ no batch directives found in configuration file"
1506       locat=config_file_batch_directives; (( iec = 0 )); exit
1507    fi
1508
1509       # CHECK IF CPUTIME IS GIVEN FOR JOB
1510    done=false
1511    cputime=$cpumax
1512    while [[ $done = false ]]
1513    do
1514       if (( cputime == 0 ))
1515       then
1516          printf "\n  +++ cpu-time is undefined"
1517          printf "\n  >>> Please type CPU-time in seconds as INTEGER:"
1518          printf "\n  >>> "
1519          read  cputime   1>/dev/null  2>&1
1520       else
1521          done=true
1522       fi
1523    done
1524    cpumax=$cputime
1525
1526       # CHECK THE MEMORY DEMAND
1527    done=false
1528    while [[ $done = false ]]
1529    do
1530       if (( memory == 0 ))
1531       then
1532          printf "\n  +++ memory demand is undefined"
1533          printf "\n  >>> Please type memory in  MByte per process  as INTEGER:"
1534          printf "\n  >>> "
1535          read  memory  1>/dev/null  2>&1
1536       else
1537          done=true
1538       fi
1539    done
1540
1541       # IN CASE OF REMOTE-JOBS CHECK, IF A USERNAME FOR THE REMOTE HOST IS GIVEN
1542    if [[ $create_remote_batch_job = true  &&  -z $remote_username ]]
1543    then
1544       while [[ -z $remote_username ]]
1545       do
1546          printf "\n  +++ username on remote host with IP \"$remote_ip\" is undefined"
1547          printf "\n  >>> Please type username:"
1548          printf "\n  >>> "
1549          read  remote_username
1550       done
1551    fi
1552
1553 else
1554
1555    if [[ $running_in_batch_mode = false ]]
1556    then
1557       cputime=10000000  # NO LIMT FOR INTERACTIVE RUNS
1558       cpumax=$cputime
1559    else
1560       cputime=$cpumax
1561    fi
1562
1563 fi
1564
1565
1566    # CALCULATE HOURS/MINUTES/SECONDS, E.G. FOR BATCH-DIRECTIVES
1567 (( cpu_hours  = cputime / 3600 ))
1568 (( resttime = cputime - cpu_hours * 3600 ))
1569 (( cpu_minutes  = resttime / 60 ))
1570 (( cpu_seconds = resttime - cpu_minutes * 60 ))
1571 timestring=${cpu_hours}:${cpu_minutes}:${cpu_seconds}
1572
1573
1574    # OUTPUT OF THE PALMRUN-HEADER
1575 calltime=$(date)
1576 printf "\n"
1577 printf "#------------------------------------------------------------------------# \n"
1578 printf "| %-35s%35s | \n" "$version" "$calltime"
1579 printf "| %-35s%35s | \n" "PALM code    $global_revision" " "
1580 printf "|                                                                        | \n"
1581 column1="called on:"; column2=$(hostname)
1582 printf "| %-25s%-45s | \n" "$column1" "$column2"
1583 if [[ $create_remote_batch_job = true ]]
1584 then
1585    column1="execution on:"; column2="$configuration_identifier (username: $remote_username)"
1586 else
1587    if [[ $running_on_remote = true ]]
1588    then
1589       column1="config. identifier:"; column2="$configuration_identifier (execute on IP: $remote_ip)"
1590    else
1591       column1="config. identifier:"; column2="$configuration_identifier (execute on IP: $local_ip)"
1592    fi
1593 fi
1594 printf "| %-25s%-45s | \n" "$column1" "$column2"
1595
1596 column1="running in:"
1597 if [[ $running_in_batch_mode = true ]]
1598 then
1599    column2="batch job mode"
1600 else
1601    if [[ $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1602    then
1603       column2="job creation mode"
1604    else
1605       column2="interactive run mode"
1606    fi
1607 fi
1608 printf "| %-25s%-45s | \n" "$column1" "$column2"
1609
1610 if  [[ $running_in_batch_mode = true  ||  $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1611 then
1612    if [[ "$project_account" != "" ]]
1613    then
1614       column1="project account number:"
1615       column2="$project_account"
1616       printf "| %-25s%-45s | \n" "$column1" "$column2"
1617    fi
1618 fi
1619
1620 if [[ -n $cores ]]
1621 then
1622    if [[ $run_coupled_model = false ]]
1623    then
1624       column1="number of cores:"; column2=$cores
1625    else
1626       column1="number of cores:"; column2="$cores  (atmosphere: $cores_atmos, ocean: $cores_ocean)"
1627    fi
1628    printf "| %-25s%-45s | \n" "$column1" "$column2"
1629 fi
1630 if [[ -n $tasks_per_node ]]
1631 then
1632    column1="tasks per node:"; column2="$tasks_per_node (number of nodes: $nodes)"
1633    printf "| %-25s%-45s | \n" "$column1" "$column2"
1634    if (( remaining_cores > 0 ))
1635    then
1636       column1=" "; column2="one of the nodes only filled with $remaining_cores tasks"
1637       printf "| %-25s%-45s | \n" "$column1" "$column2"
1638    fi
1639 fi
1640 if [[ $maximum_parallel_io_streams != $cores ]]
1641 then
1642    column1="max par io streams:"; column2="$maximum_parallel_io_streams"
1643    printf "| %-25s%-45s | \n" "$column1" "$column2"
1644 fi
1645 if [[ $use_openmp = true ]]
1646 then
1647    column1="threads per task:"; column2="$threads_per_task"
1648    printf "| %-25s%-45s | \n" "$column1" "$column2"
1649 fi
1650 if [[ $create_batch_job = true  ||  $create_remote_batch_job = true  ||  $running_in_batch_mode = true ]]
1651 then
1652    column1="memory demand / PE":; column2="$memory MB"
1653    printf "| %-25s%-45s | \n" "$column1" "$column2"
1654    column1="job cpu time (h:m:s):"; column2="$timestring"
1655    printf "| %-25s%-45s | \n" "$column1" "$column2"
1656 fi
1657 printf "|                                                                        | \n"
1658 if [[ "$source_list" != "" ]]
1659 then
1660    if [[ "$make_options" != "" ]]
1661    then
1662       column1="make options:"; column2=$(echo "$make_options" | cut -c-45)
1663       printf "| %-25s%-45s | \n" "$column1" "$column2"
1664       line=$(echo "$make_options" | cut -c46-)
1665       while [[ "$line" != "" ]]
1666       do
1667          column1=""
1668          column2=$(echo "$line" | cut -c-45)
1669          printf "| %-25s%-45s | \n" "$column1" "$column2"
1670          line=$(echo "$line" | cut -c46-)
1671       done
1672    fi
1673 fi
1674
1675 column1="cpp directives:"; column2=$(echo "$cpp_options" | cut -c-45)
1676 printf "| %-25s%-45s | \n" "$column1" "$column2"
1677 line=$(echo "$cpp_options" | cut -c46-)
1678 while [[ "$line" != "" ]]
1679 do
1680    column1=""
1681    column2=$(echo "$line" | cut -c-45)
1682    printf "| %-25s%-45s | \n" "$column1" "$column2"
1683    line=$(echo "$line" | cut -c46-)
1684 done
1685
1686 column1="compiler options:"; column2=$(echo "$compiler_options" | cut -c-45)
1687 printf "| %-25s%-45s | \n" "$column1" "$column2"
1688 line=$(echo "$compiler_options" | cut -c46-)
1689 while [[ "$line" != "" ]]
1690 do
1691    column1=""
1692    column2=$(echo "$line" | cut -c-45)
1693    printf "| %-25s%-45s | \n" "$column1" "$column2"
1694    line=$(echo "$line" | cut -c46-)
1695 done
1696
1697 column1="linker options:"; column2=$(echo "$linker_options" | cut -c-45)
1698 printf "| %-25s%-45s | \n" "$column1" "$column2"
1699 line=$(echo "$linker_options" | cut -c46-)
1700 while [[ "$line" != "" ]]
1701 do
1702    column1=""
1703    column2=$(echo "$line" | cut -c-45)
1704    printf "| %-25s%-45s | \n" "$column1" "$column2"
1705    line=$(echo "$line" | cut -c46-)
1706 done
1707
1708 if [[ "$login_init_cmd" != "" ]]
1709 then
1710    column1="login init commands:"; column2=$(echo "$login_init_cmd" | cut -c-45)
1711    printf "| %-25s%-45s | \n" "$column1" "$column2"
1712    line=$(echo "$login_init_cmd" | cut -c46-)
1713    while [[ "$line" != "" ]]
1714    do
1715       column1=""
1716       column2=$(echo "$line" | cut -c-45)
1717       printf "| %-25s%-45s | \n" "$column1" "$column2"
1718       line=$(echo "$line" | cut -c46-)
1719    done
1720 fi
1721
1722 if [[ "$module_commands" != "" ]]
1723 then
1724    column1="module commands:"; column2=$(echo "$module_commands" | cut -c-45)
1725    printf "| %-25s%-45s | \n" "$column1" "$column2"
1726    line=$(echo "$module_commands" | cut -c46-)
1727    while [[ "$line" != "" ]]
1728    do
1729       column1=""
1730       column2=$(echo "$line" | cut -c-45)
1731       printf "| %-25s%-45s | \n" "$column1" "$column2"
1732       line=$(echo "$line" | cut -c46-)
1733    done
1734 fi
1735 printf "|                                                                        | \n"
1736 column1="run identifier:"; column2=$run_identifier
1737 printf "| %-25s%-45s | \n" "$column1" "$column2"
1738 column1="activation string list:"; column2=$(echo $activation_string_list)
1739 printf "| %-25s%-45s | \n" "$column1" "$column2"
1740
1741 if [[ "$ocean_file_appendix" = true ]]
1742 then
1743    printf "| %-35s%-35s | \n" "suffix \"_O\" is added to local files" " "
1744 fi
1745
1746 if [[ "$source_list" != "" ]]
1747 then
1748    printf "|                                                                        | \n"
1749    printf "| Files to be compiled:                                                  | \n"
1750    line=$source_list
1751    while [[ "$line" != "" ]]
1752    do
1753       linestart=$(echo $line | cut -c-70)
1754       printf "| %-70s | \n" "$linestart"
1755       line=$(echo "$line" | cut -c71-)
1756    done
1757 fi
1758 printf "#------------------------------------------------------------------------#"
1759
1760
1761
1762    # OUTPUT OF FILE CONNECTIONS IN CASE OF TRACEBACK
1763 if [[ $do_trace = true ]]
1764 then
1765    (( i = 0 ))
1766    while (( i < nr_of_input_files ))
1767    do
1768       (( i = i + 1 ))
1769       if (( i == 1 ))
1770       then
1771          printf "\n\n >>> INPUT-file assignments:\n"
1772       fi
1773       printf "\n     ${localin[$i]} :  ${absnamein[$i]}"
1774    done
1775    (( i = 0 ))
1776    while (( i < iout ))
1777    do
1778       (( i = i + 1 ))
1779       if (( i == 1 ))
1780       then
1781          printf "\n\n >>> OUTPUT-file assignments:\n"
1782       fi
1783       printf "\n     ${localout[$i]} :  ${pathout[$i]}"
1784    done
1785    (( i = 0 ))
1786    while (( i < iic ))
1787    do
1788       (( i = i + 1 ))
1789       if (( i == 1 ))
1790       then
1791          printf "\n\n >>> INPUT-commands:\n"
1792       fi
1793       printf "\n     ${in_command[$i]}" 
1794    done
1795    (( i = 0 ))
1796    while (( i < ioc ))
1797    do
1798       (( i = i + 1 ))
1799       if (( i == 1 ))
1800       then
1801          printf "\n\n >>> OUTPUT-commands:\n"
1802       fi
1803       printf "\n     ${out_command[$i]}" 
1804    done
1805 fi
1806
1807    # QUERY FOR CONTINUE
1808 if [[ $silent = false  &&  $running_in_batch_mode = false ]]
1809 then
1810    antwort=dummy
1811    printf "\n\n"
1812    printf " >>> everything o.k. (y/n) ?  "
1813    while  read antwort
1814    do
1815       if [[ "$antwort" != y  &&  "$antwort" != Y  &&  "$antwort" != n  &&  "$antwort" != N ]]
1816       then
1817          printf " >>> everything o.k. (y/n) ?  "
1818       else
1819          break
1820       fi
1821    done
1822    if [[ $antwort = n  ||  $antwort = N ]]
1823    then
1824       locat=user_abort; (( iec = 0 )); exit
1825    fi
1826    if [[ $create_batch_job = true  ||  $create_remote_batch_job = true ]]
1827    then
1828       printf "\n ***  batch-job will be created and submitted"
1829    else
1830       printf "\n ***  PALMRUN will now continue to execute on this machine"
1831    fi
1832 fi
1833
1834 
1835
1836    # PROVIDE FILES TO EXECUTE PALM AND CREATE THE EXECUTABLE
1837 if [[ $restart_run = false  &&  $running_in_batch_mode = false ]]
1838 then
1839
1840    if [[ $create_batch_job = true  ||  $create_remote_batch_job  = true ]]
1841    then
1842       printf "\n\n  *** creating executable and other sources for the remote host\n"
1843    else
1844       printf "\n\n  *** creating executable and other sources for the local host\n"
1845    fi
1846
1847       # FIRST CHECK, IF A MAKE DEPOSITORY EXISTS, AND IF NOT, ASK THE USER IF
1848       # IT SHALL BE CREATED
1849    ask_for_make_depository=false
1850    if [[ $create_remote_batch_job = true ]]
1851    then
1852
1853       line=`grep %base_directory $config_file`
1854       make_depository=`echo $line | cut -d" " -s -f2`/MAKE_DEPOSITORY_${configuration_identifier}
1855       ssh  -q  $ssh_key  ${remote_username}@${remote_ip} "[[ ! -d ${make_depository} ]]  &&  echo depository not found" 2>&1  | tee ${configuration_identifier}_last_make_protokoll
1856
1857       if [[ $(grep -c "depository not found" ${configuration_identifier}_last_make_protokoll) != 0 ]]
1858       then
1859          printf "\n\n  +++ make depository \"${make_depository}\""
1860          printf "\n      on remote host not found!"
1861          ask_for_make_depository=true
1862       fi
1863       rm ${configuration_identifier}_last_make_protokoll
1864
1865    else
1866
1867          # CHECK FOR MAKE_DEPOSITORY ON THE LOCAL HOST
1868       make_depository=${base_directory}/MAKE_DEPOSITORY_${configuration_identifier}
1869       if [[ ! -d ${make_depository} ]]
1870       then
1871          printf "\n\n  +++ make depository \"${make_depository}\""
1872          printf "\n      on local host not found!"
1873          ask_for_make_depository=true
1874       fi
1875
1876    fi
1877
1878    if [[ $ask_for_make_depository = true ]]
1879    then
1880
1881       antwort=dummy
1882       printf "\n\n"
1883       printf "  >>> Create a new one (y/n) ?  "
1884       while  read antwort
1885       do
1886          if [[ "$antwort" != y  &&  "$antwort" != Y  &&  "$antwort" != n  &&  "$antwort" != N ]]
1887          then
1888             printf "  >>> Create a new one (y/n) ?  "
1889          else
1890             break
1891          fi
1892       done
1893       if [[ $antwort = n  ||  $antwort = N ]]
1894       then
1895          locat=user_abort; (( iec = 0 )); exit
1896       fi
1897
1898       if [[ $do_trace = true ]]
1899       then
1900          palmbuild  -c $configuration_identifier
1901       else
1902          palmbuild  -v  -c $configuration_identifier
1903       fi
1904
1905       if [[ ${PIPESTATUS[0]} != 0 ]]
1906       then
1907   
1908              # ABORT IN CASE OF COMPILATION PROBLEMS
1909          printf "\n  +++ error while compiling for the MAKE_DEPOSITORY"
1910          locat=make_depository
1911          exit
1912       else
1913          echo "  *** now continue with creating executable and other sources"
1914       fi
1915
1916    fi
1917
1918       # NOW CREATE THE SOURCES_FOR_RUN FOLDER
1919    palmbuild  -v  $use_existing_sources_folder  -c $configuration_identifier  -r $run_identifier
1920
1921    if [[ ${PIPESTATUS[0]} != 0 ]]
1922    then
1923
1924           # ABORT IN CASE OF COMPILATION PROBLEMS
1925       printf "\n  +++ error while creating executable and/or other sources"
1926       locat=execution
1927       rm -rf  ${base_directory}/${sources_for_run_catalog}
1928       exit
1929
1930    else
1931
1932       printf "  *** executable and other sources created\n"
1933       rm -rf  ${base_directory}/${sources_for_run_catalog}
1934
1935    fi
1936
1937 fi
1938
1939
1940    # WHEN CREATING A REMOTE BATCH JOB, THOSE INPUT FILES WITH TRANSFER-ATTRIBUT
1941    # WILL BE COPIED TO THE REMOTE HOST
1942 if [[ $create_remote_batch_job = true ]]
1943 then
1944    (( i = 0 ))
1945    while (( i < nr_of_input_files ))
1946    do
1947       (( i = i + 1 ))
1948       if [[ "${actionin[$i]}" = tr ]]
1949       then
1950          eval inputfile=${pathin[$i]}/${frelin[$i]}
1951          scp  -q $ssh_key  $PORTOPT  $inputfile  ${remote_username}@${remote_ip}:${fast_io_catalog}/${sources_for_run_catalog}/${frelin[$i]}
1952       fi
1953    done
1954    if (( i > 0 ))
1955    then
1956       printf "\n\n  *** input files have been copied to the remote host\n"
1957    fi
1958 fi
1959 
1960
1961    # NOW PERFORM THOSE ACTIONS REQUIRED TO EXECUTE THE PROGRAM (PALM) ON THIS MACHINE
1962    # (COMPILING/LINKING, EXECUTING, COPYING I/O FILES)
1963 if [[ $create_batch_job = false  &&  $create_remote_batch_job = false ]]
1964 then
1965
1966       # CHANGE TO THE TEMPORARY WORKING DIRECTORY
1967    if [[ $running_in_batch_mode = false ]]
1968    then
1969          # CREATE THE DIRECTORY AND COPY FILES FROM SOURCES_FOR_RUN_... TO THAT
1970          # FOLDER
1971       mkdir -p  $tempdir
1972       chmod  go+rx  $tempdir
1973       cd  $tempdir
1974       cp  ${fast_io_catalog}/${sources_for_run_catalog}/{*,.[!.]*}  $tempdir
1975       printf "\n  *** changed to temporary directory: $tempdir"
1976
1977    else
1978
1979          # IN BATCH MODE PALMRUN IS CALLED FROM TEMPDIR
1980       printf "\n  *** running in temporary directory: $tempdir"
1981
1982    fi
1983
1984
1985       # PROVIDE THE INPUT FILES
1986       # LOOP OVER ALL ACTIVATED FILES (LISTED IN THE CONFIGURATION FILE)
1987    optional_files_missing=false
1988    (( i = 0 ))
1989    while (( i < nr_of_input_files ))
1990    do
1991       (( i = i + 1 ))
1992       if (( i == 1 ))
1993       then
1994          printf "\n\n  *** providing INPUT-files:\n$dashes"
1995       fi
1996
1997
1998          # SKIP OPTIONAL FILES, IF THEY DO NOT EXIST
1999       if [[ "${actionin[$i]}" = unavailable ]]
2000       then
2001          optional_files_missing=true
2002          continue
2003       fi
2004
2005          # CHECK FOR SINGLE FILE (SERIAL RUN) OR DIRECTORY (ONE FILE PER CORE FOR PARELLEL EXECUTION)
2006       files_for_cores=false; filetype=file
2007       if [[ "${actionin[$i]}" = pe  &&  -n $cores ]]
2008       then
2009          files_for_cores=true; filetype=files
2010          actionin[$i]=""
2011       elif [[ "${actionin[$i]}" = pe  &&  ! -n $cores ]]
2012       then
2013          actionin[$i]=""
2014       elif [[ "${actionin[$i]}" = lnpe  &&  -n $cores ]]
2015       then
2016          files_for_cores=true; filetype=files
2017          actionin[$i]="ln"
2018       elif [[ "${actionin[$i]}" = lnpe  &&  ! -n $cores ]]
2019       then
2020          actionin[$i]="ln"
2021       fi
2022
2023       if [[ $files_for_cores = true ]]
2024       then
2025          printf "\n  >>> INPUT: ${absnamein[$i]}/....  to  ${localin[$i]}"
2026       else
2027          printf "\n  >>> INPUT: ${absnamein[$i]}  to  ${localin[$i]}"
2028       fi
2029
2030          # INPUT-FILES TO BE LINKED
2031       if [[ "${actionin[$i]}" = ln ]]
2032       then
2033
2034          printf "\n      $filetype will be linked"
2035          if [[ $files_for_cores = false ]]
2036          then
2037             if [[ -f "${absnamein[$i]}" ]]
2038             then
2039                ln  ${absnamein[$i]}  ${localin[$i]}
2040                got_tmp[$i]=true
2041             fi
2042          else
2043             if [[ -d "${absnamein[$i]}" ]]
2044             then
2045                mkdir -p ${localin[$i]}
2046                cd ${absnamein[$i]}
2047                for file in $(ls *)
2048                do
2049                   ln $file $tempdir/${localin[$i]}
2050                done >|/dev/null 2>&1
2051                cd $tempdir
2052             fi
2053
2054                # IF "ln -f" HAS FAILED DO A NORMAL COPY "cp -r"
2055             if [[ ! -f "${localin[$i]}/_000000" ]]
2056             then
2057                printf "\n  --- WARNING: ln failed, using cp instead (might be time consuming...)"
2058                cp -r  ${absnamein[$i]}/*  ${localin[$i]}
2059             fi
2060
2061             got_tmp[$i]=true
2062          fi
2063       fi
2064
2065          # FILE IS STORED IN THE RESPECTIVE DIRECTORY GIVEN IN THE CONFIGURATION FILE
2066       if [[ "${actionin[$i]}" = ""  ||  "${actionin[$i]}" = "di"  ||  "${actionin[$i]}" = "tr"  ||  "${actionin[$i]}" = "npe" ]]
2067       then
2068
2069          if [[ "${actionin[$i]}" = "npe"  &&  -n $cores ]]
2070          then
2071
2072                # FILE COPIES ARE PROVIDED FOR ALL CORES
2073                # EACH FILE GETS A UNIQUE FILENAME WITH A FOUR DIGIT NUMBER
2074             printf "\n      file will be provided for $cores processors"
2075             mkdir -p ${localin[$i]}
2076             ival=$cores
2077             (( ii = 0 ))
2078             while (( ii <= ival-1 ))
2079             do
2080                if (( ii < 10 ))
2081                then
2082                   cp  ${absnamein[$i]}  ${localin[$i]}/_000$ii
2083                elif (( ii < 100 ))
2084                then
2085                   cp  ${absnamein[$i]}  ${localin[$i]}/_00$ii
2086                elif (( ii < 1000 ))
2087                then
2088                   cp  ${absnamein[$i]}  ${localin[$i]}/_0$ii
2089                else
2090                   cp  ${absnamein[$i]}  ${localin[$i]}/_$ii
2091                fi
2092                (( ii = ii + 1 ))
2093             done
2094
2095          else
2096
2097             if [[ $files_for_cores = true ]]
2098             then
2099
2100                   # PROVIDE FILES FOR EACH CORE
2101                   # FIRST CREATE THE LOCAL DIRECTORY, THEN COPY FILES
2102                   # FROM THE PERMANENT DIRECTORY BY LINKING THEM TO THE LOCAL ONE
2103                printf "\n      providing $cores files for the respective cores"
2104                mkdir -p ${localin[$i]}
2105                        if [[ $link_local_input = true ]]
2106                              then
2107                                 printf "      files will be linked\n"
2108                                 cd ${absnamein[$i]}
2109                                 for file in $(ls *)
2110                                 do
2111                                    ln -f $file  ${localin[$i]}
2112                                 done
2113                                 cd $tempdir
2114                              fi
2115
2116                   # IF "ln -f" FAILED OR IF "$link_local_input = false" DO A NORMAL "cp -r"
2117                              if [[ ! -f "${localin[$i]}/_000000" ]]
2118                              then
2119                                 if [[ $link_local_input = true ]]
2120                                        then
2121                                        printf "\n  --- WARNING: ln failed, using cp instead (might be time consuming...)"
2122                                 fi
2123                                 cp -r  ${absnamein[$i]}/*  ${localin[$i]}
2124                              fi
2125
2126             else
2127
2128                   # PROVIDE FILE FOR RUNS ON A SINGLE CORE
2129                        if [[ $link_local_input = true ]]
2130                        then
2131                                 printf "      file will be linked\n"
2132                                 ln -f  ${absnamein[$i]}  ${localin[$i]}
2133                        fi
2134                                # If "ln -f" fails or if "$link_local_input = false" do a normal "cp"
2135                        if [[ ! -f "${localin[$i]}" ]]
2136                then
2137                                 if [[ $link_local_input = true ]]
2138                          then
2139                      printf "\n  --- WARNING: ln failed, using cp instead (might be time consuming...)"
2140                                 fi
2141                   if [[ $running_on_remote = true  &&  "${actionin[$i]}" = tr ]]
2142                   then
2143                      mv  ${absnamein[$i]}  ${localin[$i]}
2144                   else
2145                                 cp  ${absnamein[$i]}  ${localin[$i]}
2146                   fi
2147                fi
2148             fi
2149          fi
2150       fi
2151
2152    done
2153    if (( i != 0 ))
2154    then
2155       if [[ $optional_files_missing = true ]]
2156       then
2157          printf "\n  *** INFORMATIVE: some optional INPUT-files are not present"
2158       fi
2159       printf "\n$dashes\n  *** all INPUT-files provided \n"
2160    fi
2161
2162
2163       # EXECUTE INPUT-COMMANDS GIVEN IN THE CONFIGURATION FILE
2164    (( i = 0 ))
2165    while (( i < iic ))
2166    do
2167       (( i = i + 1 ))
2168       if (( i == 1 ))
2169       then
2170          printf "\n\n  *** execution of INPUT-commands:\n$dashes"
2171       fi
2172       printf "\n  >>> ${in_command[$i]}"
2173       eval  ${in_command[$i]}
2174       if (( i == iic ))
2175       then
2176          printf "\n$dashes\n"
2177       fi
2178    done
2179
2180
2181    # CHECK IF THE PROGRESS BAR NEEDS TO BE DISABLED
2182    if [[ $running_in_batch_mode = true  ||  $running_in_test_mode = true ]]
2183    then
2184       progress_bar_disabled=true
2185    else
2186       progress_bar_disabled=false
2187    fi
2188
2189
2190       # CREATE THE NAMELIST-FILE WITH VALUES OF ENVIRONMENT-VARIABLES REQUIRED BY PALM
2191       # (FILE ENVPAR WILL BE READ BY PALM)
2192    cat  >  ENVPAR  <<  EOF
2193 &envpar  run_identifier = '$run_identifier', host = '$configuration_identifier',
2194          write_svf = .${write_svf}., write_binary = .${write_binary}.,
2195          read_svf = .${read_svf}., tasks_per_node = $tasks_per_node,
2196          maximum_parallel_io_streams = $maximum_parallel_io_streams,
2197          maximum_cpu_time_allowed = ${cpumax}.,
2198          revision = '$global_revision',
2199          progress_bar_disabled = .${progress_bar_disabled}. /
2200
2201EOF
2202
2203
2204       # STARTING THE EXECUTABLE
2205    printf "\n\n  *** execution starts in directory\n      \"`pwd`\"\n$dashes\n"
2206    PATH=$PATH:$tempdir
2207
2208
2209       # REPLACE PARAMETERS IN THE EXECUTION COMMAND WITH REAL VALUES
2210    line=`echo  "${execute_command}" | sed 's/{{/$/g' | sed 's/}}//g'`
2211    line2=`echo  "${execute_command}" | sed 's/{{mpi_tasks}}/1/g' | sed 's/{{tasks_per_node}}/1/g' | sed 's/palm/combine_plot_fields.x/g'`
2212    eval line=\"$line\"
2213    execute_command="$line"
2214
2215
2216       # EXECUTION COMMAND FOR COMBINE_PLOT_FIELDS
2217    if [[ "$execute_command_for_combine" = "" ]]
2218    then
2219       eval line2=\"$line2\"
2220       execute_command_for_combine="$line2"
2221    fi
2222   
2223
2224
2225       # PROVIDE A HOSTFILE, IF REQUIRED
2226    if [[ "$hostfile" != "" ]]
2227    then
2228
2229       if [[ $hostfile = auto ]]
2230       then
2231             # CREATE A NEW HOSTFILE
2232          (( ii = 1 ))
2233          while (( ii <= cores / threads_per_task ))
2234          do
2235             echo  $(hostname)  >>  hostfile
2236             (( ii = ii + 1 ))
2237          done
2238          if (( cores / threads_per_task == 0 ))
2239          then
2240             echo  $(hostname)  >>  hostfile
2241          fi
2242       
2243       else
2244          cp  $hostfile  hostfile
2245       fi
2246       eval line=\"`head -n $ii  hostfile`\"
2247       printf "\n  *** running on: $line"
2248    fi
2249
2250
2251
2252       # SET THE NUMBER OF OPENMP-THREADS
2253    if [[ $use_openmp = true ]]
2254    then
2255       export OMP_NUM_THREADS=$threads_per_task
2256       printf "\n  *** number of OpenMP threads per MPI-task: $OMP_NUM_THREADS"
2257    else
2258       export OMP_NUM_THREADS=1
2259    fi
2260
2261
2262       # PROVIDE DATA FOR ATMOSPHERE OCEAN COUPLING
2263    if [[ $run_coupled_model = false ]]
2264    then
2265       if [[ "$ocean_file_appendix" = true ]]
2266       then
2267          echo "precursor_ocean"  >  coupling_steering
2268       else
2269          echo "precursor_atmos"  >  coupling_steering
2270      fi
2271    else
2272       (( iia = $cores_atmos / $threads_per_task ))
2273       (( iio = $cores_ocean / $threads_per_task ))
2274       printf "\n      coupled run ($iia atmosphere, $iio ocean)"
2275       printf "\n\n"
2276       echo "coupled_run $iia $iio"  >  coupling_steering
2277    fi
2278
2279    printf "\n  *** execute command:"
2280    printf "\n      \"$execute_command\" \n\n"
2281
2282
2283    if [[ $progress_bar_disabled = true ]]
2284    then
2285       $execute_command  <  coupling_steering  &> >(grep -v --line-buffered -e '^STOP 1$' -e '^1$' &> >(tee STDOUT) )
2286       exit_code=${PIPESTATUS[0]}
2287    else
2288       $execute_command  <  coupling_steering  &> >(tee STDOUT)
2289       exit_code=${PIPESTATUS[0]}
2290    fi
2291
2292    if [[ ${exit_code} != 0 ]]
2293    then
2294
2295           # ABORT IN CASE OF RUNTIME ERRORS
2296       printf "\n  +++ runtime error occured"
2297       locat=execution
2298       exit
2299
2300    else
2301
2302       printf "\n$dashes\n  *** execution finished \n"
2303
2304    fi
2305
2306
2307       # CALL OF combine_plot_fields IN ORDER TO MERGE SINGLE FILES WRITTEN
2308       # BY EACH CORE INTO ONE FILE
2309   if [[ ! -f combine_plot_fields.x ]]
2310   then
2311
2312      printf "\n\n\n  +++ WARNING: no combine_plot_fields found"
2313      printf "\n      2d- and/or 3d-data may be incomplete!"
2314      printf "\n      Your previous palmbuild may have failed. Please check.\n"
2315
2316   elif [[ "$combine_plot_fields" == true ]]
2317   then
2318
2319      printf "\n\n\n *** post-processing: now executing \"$execute_command_for_combine\" ..."
2320      $execute_command_for_combine
2321
2322   else
2323
2324         # TEMPORARY SOLUTION TO SKIP combine_plot_fields. THIS IS REQUIRED IN CASE OF HUGE AMOUNT OF
2325         # DATA OUTPUT
2326      printf "\n\n\n *** post-processing: skipping combine_plot_fields (-Z option set) ..."
2327   fi
2328
2329
2330
2331       # EXECUTE OUTPUT-COMMANDS GIVEN IN THE CONFIGURATION FILE
2332    (( i = 0 ))
2333    while (( i < ioc ))
2334    do
2335       (( i = i + 1 ))
2336       if (( i == 1 ))
2337       then
2338          printf "\n\n  *** execution of OUTPUT-commands:\n$dashes"
2339       fi
2340
2341          # REPLACE PARAMETERS IN THE OUTPUT COMMAND WITH REAL VALUES
2342       out_command[$i]=`echo  "${out_command[$i]}" | sed 's/{{/$/g' | sed 's/}}//g'`
2343
2344       printf "\n  >>> ${out_command[$i]}"
2345       eval  ${out_command[$i]}
2346       if (( i == ioc ))
2347       then
2348          printf "\n$dashes\n"
2349       fi
2350    done
2351
2352
2353       # IN A FIRST PASS, ADD ADDITIONAL OUTPUT FILE CONNECTIONS IN CASE OF
2354       # WILDCARDS
2355    (( i = 0 ))
2356    (( nr_of_output_files = 0 ))
2357
2358    while (( i < iout ))
2359    do
2360
2361       (( i = i + 1 ))
2362
2363          # FIRST CHECK FOR MULTIPLE NAMES WITH THE SAME LOCAL NAME AND
2364          # CREATE A LIST FOR THE DETECTED ENDINGS
2365       if [[ "${multout[$i]}" = true ]]
2366       then
2367             # DETERMINE THE EXISTING EXTENSIONS FROM THE LIST OF FILES
2368          ls -1 -d ${localout_pre[$i]}    >   filelist  2>/dev/null
2369          ls -1 -d ${localout_pre[$i]}_*  >>  filelist  2>/dev/null
2370
2371          endings="DEFAULT"
2372          while  read line
2373          do
2374                 # remove the local name from the beginning
2375              localnamestring="${localout_pre[$i]}"
2376              length_localname=${#localnamestring}
2377              ending=${line:${length_localname}}
2378
2379              if [[ "$ending" != "" ]]
2380              then
2381                 endings="$endings $ending"
2382              fi
2383 
2384          done <filelist
2385
2386          rm filelist
2387
2388       else
2389
2390             # SINGLE NAME
2391          endings=DEFAULT
2392
2393       fi
2394
2395          # FOR EACH BASENAME ENDING CREATE AN ENTRY IN THE FINAL OUTPUT FILE LIST
2396       for  ending  in  $endings
2397       do
2398
2399             # DEFAULT MEANS THAT THE ENDING GIVEN IN .iofiles SHALL BE USED
2400          if [[ $ending = DEFAULT ]]
2401          then
2402             ending=""
2403          fi
2404
2405             # NEW ENTRY (ENDING IS ALSO ADDED TO LOCAL FILENAME READ BY PALM!)
2406          (( nr_of_output_files = nr_of_output_files + 1 ))
2407          localout[$nr_of_output_files]="${localout_pre[$i]}"$ending
2408          transout[$nr_of_output_files]="${transout_pre[$i]}"
2409          actionout[$nr_of_output_files]="${actionout_pre[$i]}"
2410          pathout[$nr_of_output_files]="${pathout_pre[$i]}"
2411          endout[$nr_of_output_files]="${endout_pre[$i]}"$ending
2412          extout[$nr_of_output_files]="${extout_pre[$i]}"
2413          warnout[$nr_of_output_files]="${warnout_pre[$i]}"
2414
2415       done
2416
2417    done
2418
2419
2420
2421
2422       # COPY LOCAL OUTPUT-FILES TO THEIR PERMANENT DESTINATIONS
2423    (( i = 0 ))
2424    while (( i < nr_of_output_files ))
2425    do
2426       (( i = i + 1 ))
2427       if (( i == 1 ))
2428       then
2429          printf "\n\n  *** saving OUTPUT-files:"
2430
2431             # GET RUN NUMBER ASSIGNED BY PALM
2432          if [[ -f RUN_NUMBER ]]
2433          then
2434              read  run_number  <  RUN_NUMBER
2435              printf "\n  *** PALM generated run_number = "$run_number" will be used as unified cycle number for all output files"
2436              usecycle_option="-U $run_number"
2437          else
2438              run_number=0
2439              usecycle_option=""
2440          fi
2441          if [[ $running_on_remote = true  &&  "$remote_loginnode" != "" ]]
2442          then
2443             printf "\n  *** in case of SCP transfers to local host"
2444             printf "\n      they will be done via remote login-node \"$remote_loginnode\" "
2445          fi
2446          printf "\n$dashes"
2447       fi
2448
2449       if [[ ! ( $running_on_remote = true  &&  ( "${actionout[$i]}" = tr || "${actionout[$i]}" = tra || "${actionout[$i]}" = trpe ) ) ]]
2450       then
2451
2452          eval filename=${pathout[$i]}/${run_identifier}${endout[$i]}
2453
2454             # DETERMINE THE CYCLE NUMBER
2455          ls -1 -d $filename    >   filelist  2>/dev/null
2456          ls -1 -d $filename.*  >>  filelist  2>/dev/null
2457          while  read line
2458          do
2459   
2460                # filename without path (i.e. after the last "/")
2461             basefilename=$(basename ${line})
2462   
2463                # check if there is an extension
2464             extension=${basefilename##*.}
2465             if [[ "$extension" = "${extout[$i]}" ]]
2466             then
2467                basefilename=${basefilename%.*}
2468             fi
2469   
2470                # check for an existing cycle number
2471             cycle=${basefilename##*.}
2472             if [[ $cycle =~ ^-?[0-9]+$ ]]
2473             then
2474                   # NUMBERS WITH LEADING ZEROS ARE INTERPRETED AS OCTAL NUMBERS
2475                   # 10# EXPLICITLY SPECIFIES THE NUMBER BASE AS 10
2476                (( icycle = $((10#$cycle)) + 1 ))
2477             else
2478                (( icycle = 1 ))
2479             fi
2480   
2481             if (( icycle > maxcycle ))
2482             then
2483                (( maxcycle = icycle ))
2484             fi
2485   
2486          done <filelist
2487          rm filelist
2488
2489   
2490             # SET THE CYCLE NUMBER
2491             # IN CASE OF FILE-APPEND, IT MUST BE THE HIGHEST EXISTING CYCLE NUMBER
2492          if [[ "${actionout[$i]}" = a ]]
2493          then
2494             (( maxcycle = maxcycle - 1 ))
2495          fi
2496         
2497          (( cycnum[$i] = maxcycle ))
2498          pathout[$i]=$filename
2499
2500
2501             # ADD CYCLE NUMBER TO FILENAME
2502             # IN APPEND MODE, FILES KEEP THEIR CURRENT CYCLE NUMBER
2503          if [[ "${actionout[$i]}" != "a" ]]
2504          then
2505                # SET RUN NUMBER AS CYCLE NUMBER, IF THERE IS NOT A CONFLICT
2506                # WITH AN EXISTING CYCLE NUMBER
2507             if (( run_number >= cycnum[$i] ))
2508             then
2509                (( cycnum[$i] = run_number ))
2510             else
2511                if (( run_number > 0 ))
2512                then
2513                   printf "\n  --- INFORMATIVE: The following file cannot get a unified cycle number"
2514                fi
2515             fi
2516          fi
2517          if (( cycnum[$i] > 0 ))
2518          then
2519             cyclestring=`printf "%03d" ${cycnum[$i]}`
2520             pathout[$i]=${pathout[$i]}.$cyclestring
2521          fi
2522       fi           
2523
2524          # CHECK FOR SINGLE FILE (SERIAL RUN) OR DIRECTORY (ONE FILE PER CORE FOR PARELLEL EXECUTION)
2525       files_for_cores=false; filetype=file
2526       link_local_output=false
2527       if [[ "${actionout[$i]}" = pe  &&  -n $cores ]]
2528       then
2529          files_for_cores=true; filetype=directory
2530          actionout[$i]=""
2531       elif [[ "${actionout[$i]}" = pe  &&  ! -n $cores ]]
2532       then
2533          actionout[$i]=""
2534       elif [[ "${actionout[$i]}" = lnpe  &&  -n $cores ]]
2535       then
2536          files_for_cores=true; filetype=directory
2537          link_local_output=true
2538          actionout[$i]=""
2539       elif [[ "${actionout[$i]}" = lnpe  &&  ! -n $cores ]]
2540       then
2541          link_local_output
2542          actionout[$i]=""
2543       elif [[ "${actionout[$i]}" = trpe  &&  -n $cores ]]
2544       then
2545          files_for_cores=true; filetype=directory
2546          actionout[$i]="tr"
2547       elif [[ "${actionout[$i]}" = trpe  &&  ! -n $cores ]]
2548       then
2549          actionout[$i]="tr"
2550       fi
2551
2552       if [[ ! -f ${localout[$i]}  &&  $files_for_cores = false ]]
2553       then
2554          if [[ ${warnout[$i]} = true ]]
2555          then
2556             printf "\n  +++ temporary OUTPUT-file  ${localout[$i]}  does not exist\n"
2557          fi
2558       elif [[ ! -d ${localout[$i]}  &&  $files_for_cores = true ]]
2559       then
2560          if [[ ${warnout[$i]} = true ]]
2561          then
2562             printf "\n  +++ temporary OUTPUT-file  ${localout[$i]}/....  does not exist\n"
2563          fi
2564       else
2565
2566
2567             # COPY VIA SCP TO LOCAL HOST (ALWAYS IN BINARY MODE USING batch_scp option -m)
2568             # IF TARGET DIRECTORY DOES NOT EXISTS, TRY TO CREATE IT
2569          if [[ "${actionout[$i]}" = tr  ||  "${actionout[$i]}" = tra ]]
2570          then
2571             if [[ $running_on_remote = true ]]
2572             then
2573
2574                   # SET OPTIONS FOR TRANSFER
2575                if [[ "${actionout[$i]}" = tr ]]
2576                then
2577                   if [[ $files_for_cores = false ]]
2578                   then
2579                      catalog_option=""
2580                      catalog_string=""
2581                   else
2582                      catalog_option="-c"
2583                      catalog_string="/"
2584                   fi
2585                   append_option=""
2586                   append_string=""
2587                else
2588                   append_option="-A"
2589                   append_string="append"
2590                fi
2591
2592                transfer_failed=false
2593                printf "\n  >>> OUTPUT: ${localout[$i]}$catalog_string  $append_string by SCP to"
2594                printf "\n              ${pathout[$i]}/${configuration_identifier}_${run_identifier}${endout[$i]}$catalog_string\n"
2595
2596                   # TRANSFER VIA SCP
2597                if [[ "$remote_loginnode" != "" ]]
2598                then
2599                   ssh -q $remote_username@$remote_loginnode  "cd $tempdir; ${fast_io_catalog}/${sources_for_run_catalog}/batch_scp $PORTOPT $catalog_option $append_option -b -m $usecycle_option -u $local_username $return_address  ${localout[$i]} \"${pathout[$i]}\" ${configuration_identifier}_${run_identifier}${endout[$i]}  ${extout[$i]}"
2600                else
2601                   batch_scp $PORTOPT $catalog_option $append_option -b -m $usecycle_option -u $local_username $return_address  ${localout[$i]} "${pathout[$i]}" ${configuration_identifier}_${run_identifier}${endout[$i]}  ${extout[$i]}
2602                fi
2603                [[ ${PIPESTATUS[0]} != 0 ]]  &&  transfer_failed=true
2604
2605
2606                   # IF TRANSFER FAILED, CREATE BACKUP COPY ON THIS MACHINE
2607                if [[ $transfer_failed = true ]]
2608                then
2609                   printf "  +++ transfer failed. Trying to save a copy on this host under:\n"
2610                   printf "      ${pathout[$i]}/${configuration_identifier}_${run_identifier}${endout[$i]}_$run_id_number\n"
2611
2612                      # FIRST CHECK, IF DIRECTORY EXISTS, AND CREATE IT, IF NECESSARY
2613                   eval  local_catalog=${pathout[$i]}
2614                   if [[ ! -d $local_catalog ]]
2615                   then
2616                      printf "  *** local directory does not exist. Trying to create:\n"
2617                      printf "      $local_catalog \n"
2618                      mkdir -p  $local_catalog
2619                   fi
2620                   eval  cp  ${localout[$i]}  ${pathout[$i]}/${configuration_identifier}_${run_identifier}${endout[$i]}_$run_id_number
2621                   transfer_problems=true
2622                fi
2623
2624             else
2625
2626                   # UNSET actionout. DUE TO THIS SETTING, FILE WILL LATER JUST
2627                   # BE COPIED OR APPENDED ON THIS MACHINE
2628                if [[ "${actionout[$i]}" = tr ]]
2629                then
2630                   actionout[$i]=""
2631                else
2632                   actionout[$i]="a"
2633                fi
2634             fi
2635          fi
2636
2637
2638             # APPEND ON THIS MACHINE
2639          if [[ "${actionout[$i]}" = "a" ]]
2640          then
2641             if [[ "${extout[$i]}" != " "  &&  "${extout[$i]}" != "" ]]
2642             then
2643                printf "\n  >>> OUTPUT: ${localout[$i]}  append to"
2644                printf "\n              ${pathout[$i]}.${extout[$i]}\n"
2645                cat  ${localout[$i]}  >>  ${pathout[$i]}.${extout[$i]}
2646             else
2647                printf "\n  >>> OUTPUT: ${localout[$i]}  append to"
2648                printf "\n              ${pathout[$i]}\n"
2649                cat  ${localout[$i]}  >>  ${pathout[$i]}
2650             fi
2651          fi
2652
2653             # COPY ON THIS MACHINE
2654             # COPY HAS TO BE USED, BECAUSE MOVE DOES NOT WORK IF FILE-ORIGIN AND TARGET ARE
2655             # ON DIFFERENT FILE-SYSTEMS
2656          if [[ "${actionout[$i]}" = ""  &&  $files_for_cores = false ]]
2657          then
2658
2659                # COPY IN CASE OF RUNS ON SINGLE CORES
2660             if [[ "${extout[$i]}" != " "  &&  "${extout[$i]}" != "" ]]
2661             then
2662                printf "\n  >>> OUTPUT: ${localout[$i]}  to"
2663                printf "\n              ${pathout[$i]}.${extout[$i]}\n"
2664                              if [[ $link_local_output = true ]]
2665                              then
2666                                 printf "      file will be linked\n"
2667                                 ln -f  ${localout[$i]}  ${pathout[$i]}.${extout[$i]}
2668                              fi
2669                                 # If "ln -f" fails of if "$link_local_output = false" do a normal "cp"
2670                              if [[ ! -f "${pathout[$i]}.${extout[$i]}" ]]
2671                then
2672                                 if [[ $link_local_output = true ]]
2673                          then
2674                      printf "  --- WARNING: ln failed, using cp instead (might be time consuming...)\n"
2675                                 fi
2676                                 cp  ${localout[$i]}  ${pathout[$i]}.${extout[$i]}
2677                              else
2678                   printf "+++ no copy because file ${pathout[$i]}.${extout[$i]} exists\n"
2679                fi
2680             else
2681                printf "\n  >>> OUTPUT: ${localout[$i]}  to"
2682                printf "\n              ${pathout[$i]}\n"
2683                              if [[ $link_local_output = true ]]
2684                              then
2685                                 printf "      file will be linked\n"
2686                                 ln -f  ${localout[$i]}  ${pathout[$i]}
2687                              fi
2688                                 # If "ln -f" fails of if "$link_local_output = false" do a normal "cp"
2689                        if [[ ! -f "${pathout[$i]}" ]]
2690                then
2691                                 if [[ $link_local_output = true ]]
2692                          then
2693                      printf "  --- WARNING: ln failed, using cp instead (might be time consuming...)\n"
2694                                 fi
2695                                 cp  ${localout[$i]}  ${pathout[$i]}
2696                              else
2697                                 printf "+++ no copy because file ${pathout[$i]} exists\n"
2698                fi
2699             fi
2700
2701          elif [[ "${actionout[$i]}" = ""  &&  $files_for_cores = true ]]
2702          then
2703
2704                # FILES FROM THE DIFFERENT CORES ARE MOVED WITH ln-COMMAND TO THE PERMANENT DIRECTORY
2705                # AS A FIRST STEP, THE PERMANENT DIRECTORY IS CREATED
2706             printf "\n  >>> OUTPUT: ${localout[$i]}/_....  to"
2707             printf "\n              ${pathout[$i]}\n"
2708                    if [[ $link_local_output = true ]]
2709                    then
2710                              printf "      files will be linked\n"
2711                              mkdir -p ${pathout[$i]}
2712                              cd ${localout[$i]}
2713                              for file in $(ls *)
2714                              do
2715                                 ln -f $file  ${pathout[$i]}
2716                              done >|/dev/null 2>&1
2717                              cd $tempdir
2718                    fi
2719
2720                # IF "ln -f" HAS FAILED OR IF "$link_local_output = false" DO A NORMAL COPY "cp -r"
2721                    if [[ ! -f "${pathout[$i]}/_000000" ]]
2722             then
2723                              if [[ $link_local_output = true ]]
2724                              then
2725                   printf "  --- WARNING: ln failed, using cp instead (might be time consuming...)\n"
2726                              fi
2727                              [[ ! -d "${pathout[$i]}" ]]  &&  mkdir  ${pathout[$i]}
2728                              cp -r  ${localout[$i]}/*  ${pathout[$i]}
2729             fi
2730
2731          fi
2732       fi
2733    done
2734
2735    if (( i != 0 ))
2736    then
2737       if [[ $transfer_problems = true ]]
2738       then
2739          printf "\n$dashes\n  *** OUTPUT-files saved"
2740          printf "\n  +++ WARNING: some data transfers failed! \n"
2741       else
2742          printf "\n$dashes\n  *** all OUTPUT-files saved \n"
2743       fi
2744    fi
2745
2746
2747       # IF REQUIRED, START A RESTART-JOB
2748       # FILE CONTINUE_RUN MUST HAVE BEEN CREATED BY THE EXECUTABLE (PALM)
2749    if [[ -f CONTINUE_RUN ]]
2750    then
2751
2752          # ADD RESTART-OPTIONS TO THE PALMRUN-CALL (IF THEY ARE NOT USED ALREADY):
2753          # -C TELLS PALMRUN THAT IT IS A RESTART-RUN
2754          # -v SILENT MODE WITHOUT INTERACTIVE QUERIES
2755          # -b START A BATCH JOB
2756       [[ $(echo $prc | grep -c "\-C") = 0 ]]  &&  prc="$prc -C"
2757       [[ $(echo $prc | grep -c "\-v") = 0 ]]  &&  prc="$prc -v"
2758       [[ $(echo $prc | grep -c "\-b") = 0 ]]  &&  prc="$prc -b"
2759
2760          # REPLACE SVFOUT IN THE ACTIVATION STRINGS (GIVEN WITH OPTION -a)
2761          # SO THAT RESTARTS USE SVF DATA CREATED BY THE INITIAL RUN
2762       if [[ $(echo $prc | grep -c "svfout") != 0 ]]
2763       then
2764          prc=`echo $prc | sed 's/svfout/svfin/g'`
2765       fi
2766
2767          # REPLACE THE HASH IN THE ACTIVATION STRINGS (GIVEN WITH OPTION -a)
2768          # SO THAT RESTARTS ACCESS DIFFERENT FILES THAN THE INITIAL RUN
2769       if [[ $(echo $prc | grep -c "#") != 0 ]]
2770       then
2771          prc=`echo $prc | sed 's/#/r/g'`
2772       fi
2773
2774
2775          # START THE RESTART-JOB
2776       printf "\n\n  *** initiating restart-run on \"$local_ip\" using command:\n"
2777       echo "      $prc"
2778       printf "\n$dashes\n"
2779       if [[ $running_on_remote = true ]]
2780       then
2781
2782          echo "*** ssh will be used to initiate restart-runs!"
2783          echo "    return_address=\"$return_address\" "
2784          echo "    return_username=\"$local_username\" "
2785
2786          if [[ "$remote_loginnode" != "" ]]
2787          then
2788             ssh -q $remote_username@$remote_loginnode  "ssh -q $SSH_PORTOPT  $local_username@$return_address \" PATH=\\\$PATH:$LOCAL_PALMRUN_PATH; cd $LOCAL_PWD; $prc\" " |  tee palmrun_restart.log
2789          else
2790             ssh -q $SSH_PORTOPT  $local_username@$return_address  " PATH=\\\$PATH:$LOCAL_PALMRUN_PATH; cd $LOCAL_PWD; $prc" |  tee palmrun_restart.log
2791          fi
2792
2793             # WAIT TO ALLOW THE RESTART-JOB TO BE QUEUED, BEFORE THE CURRENT JOB IS FINISHED
2794          sleep 30
2795
2796       else
2797
2798             # START THE RESTART JOB ON THE LOCAL HOST
2799          eval  $prc  |  tee palmrun_restart.log              # THE ' MUST BE EVALUATED
2800
2801       fi
2802
2803          # CHECK, IF RESTART JOB HAS BEEN STARTED
2804       if [[ $( grep -c "+++ palmrun crashed"  palmrun_restart.log ) != 0 ]]
2805       then
2806          printf "\n$dashes\n  +++ creating restart run failed \n"
2807          locat=create_restart
2808          rm  palmrun_restart.log
2809          exit
2810       elif [[ $( grep -c "*** palmrun finished"  palmrun_restart.log ) != 1 ]]
2811       then
2812          printf "\n$dashes\n  +++ creating restart run failed, probably due to network problems\n"
2813          locat=create_restart
2814          rm  palmrun_restart.log
2815          exit       
2816       else
2817          printf "\n$dashes\n  *** restart run initiated \n"
2818          rm  palmrun_restart.log
2819       fi
2820
2821
2822          # DELETE INPUT-(RESTART)FILES, WHICH HAVE BEEN FETCHED FROM THE TEMPORARY DATA
2823          # DIRECTORY, BACAUSE THEY ARE NOT REQUIRED BY THE RESTART-JOB.
2824          # THIS IS DONE IN ORDER TO AVOID EXCEEDING DISC QUOTAS OR DISC SPACE (RESTART-FILES
2825          # MAY BE VERY HUGE)
2826       (( i = 0 ))
2827       while (( i < nr_of_input_files ))
2828       do
2829          (( i = i + 1 ))
2830          if [[ "${got_tmp[$i]}" = true   &&  $keep_data_from_previous_run = false ]]
2831          then
2832             rm -r  ${absnamein[$i]}
2833          fi
2834       done
2835
2836    fi
2837
2838
2839       # ALL ACTIONS FINISHED, TEMPORARY WORKING-DIRECTORY CAN BE DELETED
2840    cd  $HOME
2841    [[ $delete_temporary_catalog = true ]]  &&  rm -rf $tempdir
2842
2843
2844 else
2845
2846
2847       # PREPARING ACTIONS,
2848       # IF A BATCH-JOB IS TO BE GENERATED AND TO BE STARTED ON A LOCAL OR REMOTE-MACHINE
2849
2850       # BUILD THE PALMRUN-COMMAND TO BE CALLED IN THE BATCH-JOB
2851    palmrun_com="$palmrun_script_name -r $run_identifier -c $configuration_identifier -m $memory -t $cpumax -q $queue -i $run_id_number -U $local_username"
2852    [[ "$activation_string_list" != "" ]]  &&  palmrun_com=${palmrun_com}" -a \"$activation_string_list\""
2853    [[ "$global_revision" != "" ]]  &&  palmrun_com=${palmrun_com}" -G \"$global_revision\""
2854    [[ $keep_data_from_previous_run = true ]]  &&  palmrun_com=${palmrun_com}" -k"
2855    [[ $do_trace = true ]]        &&  palmrun_com=${palmrun_com}" -x"
2856    [[ "$cores" != "" ]]       &&  palmrun_com=${palmrun_com}" -X $cores"
2857    [[ $use_openmp = true ]]  &&  palmrun_com=${palmrun_com}" -O $threads_per_task"
2858    [[ $tasks_per_node != 0 ]]  &&  palmrun_com=${palmrun_com}" -T $tasks_per_node"
2859    [[ $delete_temporary_catalog = false ]]  &&  palmrun_com=${palmrun_com}" -B"
2860    [[ "$ocean_file_appendix" = true ]]  &&  palmrun_com=${palmrun_com}" -y"
2861    [[ $run_coupled_model = true ]]  &&  palmrun_com=${palmrun_com}" -Y \"$coupled_dist\""
2862    [[ "$combine_plot_fields" = false ]]  &&  palmrun_com=${palmrun_com}" -Z"
2863    [[ "$max_par_io_str" != "" ]]  &&  palmrun_com=${palmrun_com}" -w $max_par_io_str"
2864    [[ "$project_account" != "" ]]  &&  palmrun_com=${palmrun_com}" -A $project_account"
2865    if [[ $create_remote_batch_job = true ]]
2866    then
2867       palmrun_com=${palmrun_com}" -j -u $remote_username -R $local_ip"
2868       if [[ $do_trace = true ]]
2869       then
2870          printf "\n *** PALMRUN-command on remote host:\n     $palmrun_com \n"
2871       fi
2872    elif [[ $create_batch_job = true ]]
2873    then
2874       palmrun_com=${palmrun_com}" -j"
2875       if [[ $do_trace = true ]]
2876       then
2877          printf "\n *** PALMRUN-command on local host:\n     $palmrun_com \n"
2878       fi
2879    fi
2880
2881
2882       # DETERMINE THE FULL PATHS FOR THE JOB PROTOCOL FILES ON THE LOCAL AND
2883       # REMOTE HOST
2884    job_protocol_file_local=${local_jobcatalog}/${configuration_identifier}_${run_id}
2885    job_protocol_file=$job_protocol_file_local
2886    if [[ $create_remote_batch_job = true ]]
2887    then
2888       job_protocol_file_remote=${remote_jobcatalog}/${configuration_identifier}_${run_id}
2889       job_protocol_file=$job_protocol_file_remote
2890       job_transfer_protocol_file=${remote_jobcatalog}/last_job_transfer_protocol
2891       scpjob_file=${remote_jobcatalog}/scpjob.$run_id_number
2892    fi
2893
2894
2895       # BUILD THE JOB-SCRIPTS ON FILE jobfile
2896    jobfile=jobfile.$run_id_number
2897
2898
2899       # FIRST CREATE THE BATCH DIRECTIVES
2900    (( i = 0 ))
2901    while (( i < ibd ))
2902    do
2903       (( i = i + 1 ))
2904       line=`echo  "${batch_directive[$i]}" | sed 's/{{/$/g' | sed 's/}}//g'`
2905       eval line=\"$line\"
2906       echo  "$line"                               >>  $jobfile
2907    done
2908    echo " "                                       >>  $jobfile
2909
2910
2911       # FOR BATCH JOBS ON REMOTE HOSTS, ADD THE JOBFILE TO SEND BACK THE JOB
2912       # PROTOCOL
2913    if [[ $create_remote_batch_job = true ]]
2914    then
2915       echo "set +vx"                                   >>  $jobfile
2916       echo "trap '"                                    >>  $jobfile
2917       echo "set +vx"                                   >>  $jobfile
2918       echo "cd ${remote_jobcatalog}"                   >>  $jobfile
2919       echo "cat >  scpjob.$run_id_number << %%END%%"   >>  $jobfile
2920
2921          # ADD THE BATCH DIRECTIVES
2922       (( i = 0 ))
2923       while (( i < ibdt ))
2924       do
2925          (( i = i + 1 ))
2926          line=`echo  "${batch_directive_transfer[$i]}" | sed 's/{{/$/g' | sed 's/}}//g'`
2927          eval line=\"$line\"
2928          echo  "$line"                            >>  $jobfile
2929       done
2930       echo " "                                    >>  $jobfile
2931
2932       echo "set -x"                               >>  $jobfile
2933       if [[ "$remote_loginnode" != "" ]]
2934       then
2935          echo "ssh -q $remote_username@$remote_loginnode  \"cd ${remote_jobcatalog}; ${fast_io_catalog}/${sources_for_run_catalog}/batch_scp  $PORTOPT  -d  -w 10  -u $local_username $local_ip  $job_protocol_file_remote \\\"$local_jobcatalog\\\"  ${configuration_identifier}_${run_identifier}\" "  >> $jobfile
2936       else
2937          echo "${fast_io_catalog}/${sources_for_run_catalog}/batch_scp  $PORTOPT  -d  -w 10  -u $local_username $local_ip  $job_protocol_file_remote  \"$local_jobcatalog\"  ${configuration_identifier}_${run_identifier}"  >>  $jobfile
2938       fi
2939       echo "%%END%%"                              >>  $jobfile
2940       echo "echo \" *** submitting job for transfering the job protocol file to $local_ip\" "  >>  $jobfile
2941       echo "$submit_command  $scpjob_file"     >>  $jobfile
2942       echo "rm $scpjob_file"                      >>  $jobfile
2943       echo "rm -rf $job_transfer_protocol_file"   >>  $jobfile
2944       echo "set -x"                               >>  $jobfile
2945       echo "     ' exit"                          >>  $jobfile
2946    fi
2947
2948
2949       # ACTIVATE ERROR-TRACEBACK
2950    if [[ $do_trace = true ]]
2951    then
2952       echo  "set -x"                                    >>  $jobfile
2953    else
2954       echo  "set +vx"                                   >>  $jobfile
2955    fi
2956
2957
2958       # INITIALIZE THE ENVIRONMENT AND LOAD MODULES
2959    if [[ "$login_init_cmd" != "" ]]
2960    then
2961       echo  "$login_init_cmd"        >>  $jobfile
2962    fi
2963    if [[ "$module_commands" != "" ]]
2964    then
2965       echo  "$module_commands"     >>  $jobfile
2966    fi
2967
2968
2969       # CREATE TEMPORARY DIRECTORY AND SWITCH TO IT
2970    if [[ $create_remote_batch_job = true ]]
2971    then
2972       echo  "mkdir  $tempdir"           >>  $jobfile
2973       echo  "chmod  go+rx  $tempdir"    >>  $jobfile
2974    else
2975          # DIRECTORY FOR LOCAL BATCH JOBS IS CREATED NOW, DUE TO A
2976          # REQUIREMENT OF THE GRID ENGINE BATCH SYSTEM (WORKING DIR IS GIVEN IN
2977          # BATCH DIRECTIVE -wd AND MUST ALREADY EXIST WHEN THE JOB IS SUBMITTED)
2978       mkdir  $tempdir
2979       chmod  go+rx  $tempdir
2980    fi
2981    echo  "cd  $tempdir"                 >>  $jobfile
2982    echo  "export tempdir=$tempdir"      >>  $jobfile
2983    echo  "cp  ${fast_io_catalog}/${sources_for_run_catalog}/{*,.[!.]*}  ."  >>  $jobfile
2984    echo  "export PATH=.:\$PATH"         >>  $jobfile
2985    echo  "export execute_palmrun=true"  >>  $jobfile
2986
2987
2988       # PROVIDE NAME OF THE CURRENT WORKING-DIRECTORY ON THE LOCAL MACHINE (FROM WHERE THE JOB IS
2989       # STARTED) BY SETTING AN ENVIRONMENT-VARIABLE. THIS INFORMATION IS USED IN THE JOB BY PALMRUN
2990       # IN CASE THAT RESTART-RUNS HAVE TO BE GENERATED
2991    echo  "LOCAL_PWD=$working_directory"                >>  $jobfile
2992    echo  "export LOCAL_PWD"                            >>  $jobfile
2993
2994
2995       # PROVIDE THE PATH OF THE LOCAL PALMRUN-SCRIPT FOR THE SAME REASON
2996    echo  "LOCAL_PALMRUN_PATH=${source_path}/../SCRIPTS"   >>  $jobfile
2997    echo  "export LOCAL_PALMRUN_PATH"                      >>  $jobfile
2998
2999
3000       # CALL PALMRUN WITHIN THE JOB
3001       # AS FINAL ACTION, REMOVE THE TEMPORARY DIRECTORY CREATED AT THE BEGINNING OF THE JOB
3002    echo  "set -x"                                              >>  $jobfile
3003    echo  "[[ \$execute_palmrun = true ]]  &&  $palmrun_com"    >>  $jobfile
3004
3005
3006       # TRANSFER JOBFILE TO THE TARGET HOST
3007    if [[ $create_jobfile_only = false ]]
3008    then
3009
3010          # CREATE LOCAL JOB FOLDER
3011       eval  local_jobcatalog=$local_jobcatalog
3012       if [[ ! -d $local_jobcatalog ]]
3013       then
3014          echo " "
3015          echo " *** local jobcatalog \"$local_jobcatalog\" does not exist and will be created now"
3016          mkdir  $local_jobcatalog
3017       fi
3018 
3019       if [[ $create_remote_batch_job = true ]]
3020       then
3021
3022          echo " "
3023          echo " *** transfer of job to remote host via scp"
3024
3025             # CREATE REMOTE JOB FOLDER, IF IT DOES NOT EXIST
3026          ssh  -q  $ssh_key $SSH_PORTOPT  ${remote_username}@${remote_ip}  "[[ ! -d $remote_jobcatalog ]]  &&  mkdir $remote_jobcatalog"  2>&1
3027
3028             # COPY THE JOB FILE
3029          if [[ $do_trace = true ]]
3030          then
3031             echo "     scp $ssh_key $PORTOPT $jobfile ${remote_username}@${remote_ip}:${remote_jobcatalog}/${configuration_identifier}_${run_id}"
3032          fi
3033          scp $ssh_key $PORTOPT $jobfile ${remote_username}@${remote_ip}:${remote_jobcatalog}/${configuration_identifier}_${run_id}  >  /dev/null
3034
3035             # SUBMIT THE JOB
3036          printf " *** submit the job (output of submit command, \n"
3037          printf "     e.g. the job-id given by the batch-system, may follow) \n"
3038          if [[ $do_trace = true ]]
3039          then
3040             echo "     ssh  -q  $ssh_key $SSH_PORTOPT  ${remote_username}@${remote_ip} \"cd $remote_jobcatalog; $submit_command ${configuration_identifier}_${run_id}; rm ${configuration_identifier}_${run_id}\" "
3041          fi
3042          ssh  -q  $ssh_key $SSH_PORTOPT  ${remote_username}@${remote_ip} "cd $remote_jobcatalog; $submit_command ${configuration_identifier}_${run_id}; rm ${configuration_identifier}_${run_id}"
3043
3044       elif [[ $create_batch_job = true ]]
3045       then
3046
3047          eval  local_jobcatalog=$local_jobcatalog
3048          cp  $jobfile  ${local_jobcatalog}/${configuration_identifier}_${run_id}
3049          cd $local_jobcatalog
3050          echo " "
3051          echo " *** submit the job"
3052          if [[ $do_trace = true ]]
3053          then
3054             echo "$submit_command ${configuration_identifier}_${run_id}"
3055          fi
3056          $submit_command ${configuration_identifier}_${run_id}
3057          rm ${configuration_identifier}_${run_id}
3058          cd -  > /dev/null
3059
3060       fi
3061
3062       rm -rf  $jobfile
3063
3064    else
3065
3066       printf "\n *** jobfile created under name \"$jobfile\" "
3067       printf "\n     no batch-job has been sent!"
3068
3069    fi
3070
3071 fi  # END OF REMOTE-PART
Note: See TracBrowser for help on using the repository browser.