source: modipsl/trunk/util/ins_job @ 747

Last change on this file since 747 was 747, checked in by mmaipsl, 15 years ago

MM: Correct executable permissions on scripts touched by ins_job (error in rev 199).

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 5.2 KB
Line 
1#!/bin/ksh
2# $Id$
3#---------------------------------------------------------------------
4#- Installation of jobs according to an environment
5#---------------------------------------------------------------------
6function ins_job_Usage
7{
8print - "
9ins_job installs the jobs in the directories
10which contain a file config.card
11
12ins_job must be launched on the host
13on which the job will be submitted
14
15Usage :
16  ${b_n} [-h] [-v]
17
18Options :
19  -h   : help
20  -v   : verbose mode
21"
22}
23function ins_job_Warning
24{
25   print - "\n############### WARNING ###############";
26   print - "File ${n_f} already exists\nin directory ${j}";
27   print - "You must delete this file to update !";
28}
29#-
30#     dirname     and      basename
31#-
32d_n=$(dirname ${0}); b_n=$(basename ${0});
33#-
34# Retrieving and validation of the options
35#-
36x_v='silencious';
37while getopts :hv V
38  do
39   case $V in
40    (h)  ins_job_Usage; exit 0;;
41    (v)  x_v='verbose';;
42    (:)  echo ${b_n}" : -"${OPTARG}" option : missing value" 1>&2;
43         exit 2;;
44    (\?) echo ${b_n}" : -"${OPTARG}" option : not supported" 1>&2;
45         exit 2;;
46    esac
47  done
48shift $(($OPTIND-1));
49#-
50# Define working files
51#-
52F_MOD=$(cd ${d_n}'/..';/bin/pwd;)
53# [[ ${F_MOD##*/} != 'modipsl' ]] && \
54#  { print - "directory 'modipsl' unreachable"; exit 3; }
55W_W=${d_n}'/../libIGCM'
56[[ ! -d ${W_W} ]] && { print - "${W_W} unreachable"; exit 3; }
57libIGCM=$(cd ${W_W};/bin/pwd;)
58F_JOB=${libIGCM}'/AA_job';
59[[ ! -f ${F_JOB} ]] && { print - "${F_JOB} unreachable"; exit 3; }
60F_RCI=${libIGCM}'/run.card.init';
61[[ ! -f ${F_RCI} ]] && { print - "${F_RCI} unreachable"; exit 3; }
62#-
63# Host Name
64#-
65x_t=$(${d_n}/w_i_h) 2>/dev/null;
66{ [[ ${?} != 0 ]] && \
67   { print - "\nw_i_h or uname unreachable\n" 1>&2; exit 1; }; } || \
68  [[ ${x_t} = "Unknown" ]] && \
69   { print - "\nLocal_Host not supported\n" 1>&2; exit 1; };
70#-
71W_W=$(sed -n -e "s/^#-Q-  *\([^ ]*\).*$/\1/p" ${F_JOB} | \
72       sort -u | sed -e "/${x_t}/!d");
73[[ '\?'"${W_W}" != '\?'${x_t} ]] && \
74  {
75   print - "\nHost  "${x_t}"  not supported" 1>&2;
76   print - "'default' will be used" 1>&2;
77   x_t='default'
78  }
79#-
80[[ ${x_v} = 'verbose' ]] && \
81 {
82  print - "";
83  print - '--- Host        : '${x_t};
84  print - '--- modipsl     : '${F_MOD};
85  print - '--- libIGCM     : '${libIGCM};
86  print - '--- basic job   : '${F_JOB};
87  print - '--- basic card  : '${F_RCI};
88 }
89#-
90print - "\nInstallation of jobs for '${x_t}'";
91#-
92# Accessing to functions (without stack)
93#-
94DEBUG_debug=false
95. ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh
96. ${libIGCM}/libIGCM_card/libIGCM_card.ksh
97#-
98# Define the pattern string to substitute
99#-
100W_P='#-Q- '; W_W=${W_P}${x_t};
101#-
102# Extract list of 'config.card' files
103# and create jobs with AA_job
104#-
105F_CFG='config.card';
106for i in $(find ${d_n}/.. -name ${F_CFG} -print)
107do
108 j=$(cd ${i%/*};/bin/pwd;)
109 n_f=${F_RCI##*/};
110 [[ -f ${j}'/'${n_f} ]] && { ins_job_Warning; } || \
111  {
112   print - "\nCopying file ${F_RCI}\nin directory ${j}";
113   \cp ${F_RCI} ${j};
114  }
115 # We keep explicitly JobName because it is not optionnal.
116 RESOL_ATM_3D=this_is_a_test_string
117 RESOL=this_is_another_test_string
118 IGCM_card_DefineVariableFromOption ${j}'/'${F_CFG} UserChoices JobName
119 if [ ! X$( echo ${config_UserChoices_JobName} | grep ${RESOL_ATM_3D} ) = X ] ; then
120    TRUERESOL=$( find ../ -name ".resol" -exec tail -1 {} \; | awk "-F=" '{print $2}' )
121    config_UserChoices_JobName=$( echo ${config_UserChoices_JobName} | sed -e "s/${RESOL_ATM_3D}/${TRUERESOL}/" )
122    IGCM_card_WriteOption ${j}'/'${F_CFG} UserChoices JobName ${config_UserChoices_JobName}
123 else
124    if [ ! X$( echo ${config_UserChoices_JobName} | grep ${RESOL} ) = X ] ; then
125            TRUERESOL=$( find ../ -name ".resol" -exec head -1 {} \; )
126            config_UserChoices_JobName=$( echo ${config_UserChoices_JobName} | sed -e "s/${RESOL}/${TRUERESOL}/" )
127            IGCM_card_WriteOption ${j}'/'${F_CFG} UserChoices JobName ${config_UserChoices_JobName}
128    fi
129 fi
130 
131 # Other options are not always needed
132 IGCM_card_DefineArrayFromSection ${j}'/'${F_CFG} UserChoices
133 # Default values
134 config_UserChoices_JobClass=mono
135 config_UserChoices_JobNumProcTot=1
136 # config.card optionnal values
137 typeset option
138 for option in ${config_UserChoices[*]} ; do
139     IGCM_card_DefineVariableFromOption ${j}'/'${F_CFG} UserChoices ${option}
140 done
141 # File name for Job
142 n_f='Job_'${config_UserChoices_JobName};
143 [[ -f ${j}'/'${n_f} ]] && { ins_job_Warning; continue; }
144 print - "\nWorking with file ${F_CFG}\nin directory ${j}\nfor ${n_f}";
145 sed -e "/^${W_W} */ s///" \
146     -e "/^${W_P}/d"       \
147     -e "s%::modipsl::%${F_MOD}%" \
148     -e "s/::Jobname::/${config_UserChoices_JobName}/" \
149     -e "s/::JobClass::/${config_UserChoices_JobClass}/" \
150     -e "s/::JobNumProcTot::/${config_UserChoices_JobNumProcTot}/" \
151     ${F_JOB} > ${j}'/'${n_f}
152done
153#-
154# Extract list of AA_* files in libIGCM
155# and create jobs (for all except AA_job)
156#-
157for i in $(find ${libIGCM} -name "AA_*" -print | grep -v .svn )
158do
159 i_f=${i##*/};
160 [[ ${i_f} = 'AA_job' ]] && { continue; }
161 j=${i%/*}; n_f=${i_f#AA_}'.job';
162 [[ -f ${j}'/'${n_f} ]] && { ins_job_Warning; continue; }
163 print - "\nIn directory ${j}\n${i_f} -> ${n_f}"
164 sed -e "/^${W_W} */ s///" \
165     -e "/^${W_P}/d"       \
166     ${i} > ${j}'/'${n_f}
167 chmod u+x ${j}'/'${n_f}
168done
169#-
170print - "";
171#-
172# That's all folks
173#-
174exit 0;
Note: See TracBrowser for help on using the repository browser.