source: trunk/libIGCM/libIGCM_sys/libIGCM_sys_default.ksh @ 1484

Last change on this file since 1484 was 1484, checked in by jgipsl, 5 years ago

Change submission at default host for case when launching only 1proc. Now done as at obelix in commit [1480].
  • Property licence set to
    The following licence information concerns ONLY the libIGCM tools
    ==================================================================

    Copyright © Centre National de la Recherche Scientifique CNRS
    Commissariat à l'Énergie Atomique CEA

    libIGCM : Library for Portable Models Computation of IGCM Group.

    IGCM Group is the french IPSL Global Climate Model Group.

    This library is a set of shell scripts and functions whose purpose is
    the management of the initialization, the launch, the transfer of
    output files, the post-processing and the monitoring of datas produce
    by any numerical program on any plateforme.

    This software is governed by the CeCILL license under French law and
    abiding by the rules of distribution of free software. You can use,
    modify and/ or redistribute the software under the terms of the CeCILL
    license as circulated by CEA, CNRS and INRIA at the following URL
    "http://www.cecill.info".

    As a counterpart to the access to the source code and rights to copy,
    modify and redistribute granted by the license, users are provided only
    with a limited warranty and the software's author, the holder of the
    economic rights, and the successive licensors have only limited
    liability.

    In this respect, the user's attention is drawn to the risks associated
    with loading, using, modifying and/or developing or reproducing the
    software by the user in light of its specific status of free software,
    that may mean that it is complicated to manipulate, and that also
    therefore means that it is reserved for developers and experienced
    professionals having in-depth computer knowledge. Users are therefore
    encouraged to load and test the software's suitability as regards their
    requirements in conditions enabling the security of their systems and/or
    data to be ensured and, more generally, to use and operate it in the
    same conditions as regards security.

    The fact that you are presently reading this means that you have had
    knowledge of the CeCILL license and that you accept its terms.
  • Property svn:keywords set to Revision Author Date
File size: 38.1 KB
Line 
1#!/bin/ksh
2
3#**************************************************************
4# Author: Sebastien Denvil, Martial Mancip
5# Contact: Martial.Mancip__at__ipsl.jussieu.fr
6# $Revision::                                          $ Revision of last commit
7# $Author::                                            $ Author of last commit
8# $Date::                                              $ Date of last commit
9# IPSL (2006)
10#  This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC
11#
12#**************************************************************
13
14#=========================================================
15# The documentation of this file can be automatically generated
16# if you use the prefix #D- for comments to be extracted.
17# Extract with command: cat lib* | grep "^#D-" | cut -c "4-"
18#=========================================================
19
20#D-#==================================================
21#D-LibIGCM_sys Default host
22#D-#==================================================
23#D-
24#D- This ksh library if a layer under some usefull
25#D-environment variables and shell commands.
26#D-All those definitions depend on host particularities.
27#D-It manages a stack mechanism and test validity of operations.
28#D-All function described bellow must be prefixed by IGCM_sys.
29
30#====================================================
31# libIGCM_sys PARAMETERS
32#====================================================
33
34#====================================================
35# set DEBUG_sys to true to output calls of function
36typeset -r DEBUG_sys=${DEBUG_sys:=true}
37
38#====================================================
39# Turn in dry run mode ? (sys_Put_Rest, sys_Put_Out, sys_Get)
40typeset -r DRYRUN=${DRYRUN:=0}
41
42# YOU MUST COMPILE YOUR EXE FILES FOR DRYRUN MODE !
43# -------------------------------------------------------------------------------------
44# | DRYRUN=  |  Date computations, | sys_Get    |  Exe    | sys_Put_Out; sys_Put_Rest |
45# |          |  Cp/Exe/param/files |            |         |                           |
46# |          |  Chmod Qsub         |            |         |                           |
47# -------------------------------------------------------------------------------------
48# |    0     |       yes           |    yes     |  yes    |      yes                  |
49# -------------------------------------------------------------------------------------
50# |    1     |       yes           |    yes     |  yes    |      no                   |
51# -------------------------------------------------------------------------------------
52# |    2     |       yes           |    yes     |  no     |      no                   |
53# -------------------------------------------------------------------------------------
54# |    3     |       yes           |    no      |  no     |      no                   |
55# -------------------------------------------------------------------------------------
56
57#=====================================================
58# Global Variables :
59#=====================================================
60# Language : "fr" or "en"
61typeset -r MYLANG="fr"
62
63#=====================================================
64# Host user names project maxCpuTime
65# $hostname ou hostname
66typeset HOST=${HOST:=$( hostname )}
67# $username ou whoami
68typeset LOGIN=${LOGIN:=$( whoami )}
69# $hostname of the MASTER job
70typeset MASTER=${MASTER:=$( hostname )}
71# project name
72typeset PROJECT=NONE
73# jobWarningDelay in seconds
74typeset jobWarningDelay=NONE
75
76#D-
77#D-#==================================================
78#D-Program used in libIGCM
79#D-#==================================================
80
81# Submit command
82typeset SUBMIT=${SUBMIT:=qsub}
83# rsync with path
84typeset -r RSYNC=/usr/bin/rsync
85# RSYNC_opt args to rsync
86typeset -r RSYNC_opt="-va"
87# ie storage filesystem
88typeset -r STOREHOST=${MASTER}
89
90#====================================================
91# Set environment tools (ferret, nco, cdo, rebuild, ...)
92#====================================================
93#. /home/${LOGIN}/.atlas_env_${HOST}_ksh
94#export PATH=${PATH}:/home/${LOGIN}/rebuild/bin/
95
96#====================================================
97# Host specific DIRECTORIES
98#====================================================
99
100#====================================================
101#- MirrorlibIGCM for frontend
102typeset -r MirrorlibIGCM=${MirrorlibIGCM:=false}
103
104#====================================================
105#- libIGCM_POST for frontend
106typeset -r libIGCM_POST=${libIGCM}
107
108#====================================================
109#- R_EXE   (==> BIN_DIR = ${MODIPSL}/bin )
110typeset -r R_EXE="${MODIPSL}/bin"
111
112#====================================================
113#- SUBMIT_DIR : submission dir
114typeset -x SUBMIT_DIR=${SUBMIT_DIR:=${PWD}}
115
116#====================================================
117#- IN
118typeset -r R_IN=${R_IN:=/home_local/${LOGIN}/IGCM}
119
120#====================================================
121#- RUN_DIR_PATH : Temporary working directory (=> TMP)
122typeset -r RUN_DIR_PATH=${RUN_DIR_PATH:=/home_local/${LOGIN}/RUN_DIR/tmp$$}
123
124#====================================================
125#- OUTCOMMAND_PATH : tmp place to store command lines standard error and outputs
126typeset -r OUTCOMMAND_PATH=/tmp
127
128#====================================================
129#- HOST_MPIRUN_COMMAND
130typeset -r HOST_MPIRUN_COMMAND=${HOST_MPIRUN_COMMAND:="time mpirun"}
131
132#====================================================
133#- Max number of arguments passed to nco operator or demigration command
134UNIX_MAX_LIMIT=360
135
136#====================================================
137#- set PackDefault to false on the default machine
138PackDefault=false
139
140#====================================================
141#- Default number of MPI task for IPSL coupled model
142#- required for backward compatibility
143#-
144DEFAULT_NUM_PROC_OCE=5
145DEFAULT_NUM_PROC_CPL=1
146(( DEFAULT_NUM_PROC_ATM = BATCH_NUM_PROC_TOT - DEFAULT_NUM_PROC_OCE - DEFAULT_NUM_PROC_CPL ))
147
148#D-#==================================================
149#D-function IGCM_sys_defineArchives
150#D-* Purpose:
151#D-* Define ARCHIVE : Dedicated to large files
152#D-* Define STORAGE : Dedicated to small/medium files
153#D-* Define R_OUT   : Output tree located on ARCHIVE
154#D-* Define R_FIG   : Output tree located on STORAGE hosting figures (monitoring and atlas, and/or small files)
155#D-* Define R_BUF   : Output tree located on STORAGE hosting files waiting for rebuild or pack processes
156#D-* if SpaceName=TEST nothing special will hapen
157#D-* Examples:
158#D-
159function IGCM_sys_defineArchives {
160  IGCM_debug_PushStack "IGCM_sys_defineArchives"
161
162  if [ ! X${config_UserChoices_ARCHIVE} = X ]; then
163    #====================================================
164    #- ARCHIVE (dedicated to large files)
165    ARCHIVE=${config_UserChoices_ARCHIVE}
166  else
167    #====================================================
168    #- ARCHIVE (dedicated to large files)
169    ARCHIVE=${ARCHIVE:=/home_local/${LOGIN}}
170  fi
171
172  if [ ! X${config_UserChoices_STORAGE} = X ]; then
173    #====================================================
174    #- STORAGE (dedicated to small/medium files)
175    STORAGE=${config_UserChoices_STORAGE}
176  else
177    #====================================================
178    #- STORAGE (dedicated to small/medium files)
179    STORAGE=${ARCHIVE}
180  fi
181
182  # ON DEFAULT MACHINE NO SPECIAL CASE WHEN X${config_UserChoices_SpaceName} = XTEST
183
184  #====================================================
185  #- R_OUT
186  R_OUT=${ARCHIVE}/IGCM_OUT
187
188  #====================================================
189  #- R_FIG (hosting figures : monitoring and atlas, and/or small files)
190  R_FIG=${STORAGE}/IGCM_OUT
191
192  #====================================================
193  #- CMIP6 (hosting CMIP6 files produced by XIOS2 and configured by dr2xml)
194  CMIP6_BUF=${STORAGE}/IGCM_OUT
195
196  #====================================================
197  #- R_BUF (ONLY FOR double copy an scratch)
198  R_BUF=${STORAGE}/IGCM_OUT
199
200  IGCM_debug_Print 1 "R_OUT has been defined = ${R_OUT}"
201  IGCM_debug_Print 1 "R_BUF has been defined = ${R_BUF}"
202  IGCM_debug_Print 1 "R_FIG has been defined = ${R_FIG}"
203
204  IGCM_debug_PopStack "IGCM_sys_defineArchives"
205}
206
207#D-#==================================================
208#D-function IGCM_sys_RshArchive
209#D-* Purpose: Archive rsh command
210#D-* Examples:
211#D-
212function IGCM_sys_RshArchive {
213  IGCM_debug_PushStack "IGCM_sys_RshArchive" $@
214  /bin/ksh <<-EOF
215    ${@}
216EOF
217  status=$?
218  if [ ${status} -gt 0 ] ; then
219    IGCM_debug_Print 2 "IGCM_sys_RshArchive : command failed error code ${status}"
220    IGCM_debug_Exit "IGCM_sys_RshArchive"
221  fi
222  IGCM_debug_PopStack "IGCM_sys_RshArchive"
223}
224
225#D-#==================================================
226#D-function IGCM_sys_RshArchive_NoError
227#D-* Purpose: Archive rsh command, without error
228#D-*          used only in monitoring.job
229#D-* Examples:
230#D-
231function IGCM_sys_RshArchive_NoError {
232  IGCM_debug_PushStack "IGCM_sys_RshArchive_NoError" $@
233  /bin/ksh <<-EOF
234    ${@} 2> /dev/null
235EOF
236  IGCM_debug_PopStack "IGCM_sys_RshArchive_NoError"
237}
238
239#D-#==================================================
240#D-function IGCM_sys_MkdirArchive
241#D-* Purpose: Mkdir on Archive
242#D-* Examples:
243#D-
244function IGCM_sys_MkdirArchive {
245  IGCM_debug_PushStack "IGCM_sys_MkdirArchive" $@
246  if ( $DEBUG_sys ) ; then
247    echo "IGCM_sys_MkdirArchive :" $@
248  fi
249  #- creation de repertoire sur le serveur fichier
250  if [ ! -d ${1} ]; then
251    \mkdir -p $1
252    status=$?
253
254    if [ ${status} -gt 0 ] ; then
255      IGCM_debug_Print 2 "IGCM_sys_MkdirArchive : mkdir failed error code ${status}"
256      IGCM_debug_Exit "IGCM_sys_MkdirArchive"
257    fi
258  fi
259  IGCM_debug_PopStack "IGCM_sys_MkdirArchive"
260}
261
262#D-#==================================================
263#D-function IGCM_sys_TestDirArchive
264#D-* Purpose: Test Directory that must exists on Archive
265#D-* Examples:
266#D-
267function IGCM_sys_TestDirArchive {
268  IGCM_debug_PushStack "IGCM_sys_TestDirArchive" $@
269  if ( $DEBUG_sys ) ; then
270    echo "IGCM_sys_TestDirArchive :" $@
271  fi
272  typeset ExistFlag
273  ExistFlag=$( [ -d $1 ] && echo 0 || echo 1 )
274  IGCM_debug_PopStack "IGCM_sys_TestDirArchive"
275  return ${ExistFlag}
276}
277
278#D-#==================================================
279#D-function IGCM_sys_IsFileArchived
280#D-* Purpose: Test file that must NOT EXISTS on Archive based on filename only
281#D-* Examples:
282#D-
283function IGCM_sys_IsFileArchived {
284  IGCM_debug_PushStack "IGCM_sys_IsFileArchived" $@
285  if ( $DEBUG_sys ) ; then
286    echo "IGCM_sys_IsFileArchived :" $@
287  fi
288  typeset IsArchivedFlag
289  # Never archived for this system
290  IsArchivedFlag=1
291  IGCM_debug_PopStack "IGCM_sys_IsFileArchived"
292
293  return ${IsArchivedFlag}
294}
295
296#D-#==================================================
297#D-function IGCM_sys_TestFileArchive
298#D-* Purpose: Test file that must NOT EXISTS on Archive
299#D-* Examples:
300#D-
301function IGCM_sys_TestFileArchive {
302  IGCM_debug_PushStack "IGCM_sys_TestFileArchive" $@
303  typeset ExistFlag
304  ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 )
305  IGCM_debug_PopStack "IGCM_sys_TestFileArchive"
306
307  return ${ExistFlag}
308}
309
310#D-#==================================================
311#D-function IGCM_sys_CountFileArchive
312#D-* Purpose: Count files on Archive filesystem
313#D-* Examples:
314#D-
315function IGCM_sys_CountFileArchive {
316  IGCM_debug_PushStack "IGCM_sys_CountFileArchive" $@
317  ls ${@} 2>/dev/null | wc -l
318  if [ $? -gt 0 ] ; then
319    echo "IGCM_sys_CountFileArchive : erreur."
320  fi
321  IGCM_debug_PopStack "IGCM_sys_CountFileArchive"
322}
323
324#D-#==================================================
325#D-function IGCM_sys_Tree
326#D-* Purpose: Tree directories with files on ${ARCHIVE}
327#D-* Examples: IGCM_sys_Tree ${R_IN} ${R_OUT}
328#D-
329function IGCM_sys_Tree {
330  IGCM_debug_PushStack "IGCM_sys_Tree" $@
331  if ( $DEBUG_sys ) ; then
332    echo "IGCM_sys_Tree :" $@
333  fi
334
335  \ls -lR ${@}
336
337  IGCM_debug_PopStack "IGCM_sys_Tree"
338}
339
340#D-#==================================================
341#D-function IGCM_sys_Qsub
342#D-* Purpose: Qsub new job
343#D-* Examples:
344#D-
345function IGCM_sys_Qsub {
346  IGCM_debug_PushStack "IGCM_sys_Qsub" $@
347  if ( $DEBUG_sys ) ; then
348    echo "IGCM_sys_Qsub :" $@
349  fi
350  echo "${@} > ${SUBMIT_DIR}/${Script_Output} 2>&1 &"
351  ${@} > ${SUBMIT_DIR}/${Script_Output} 2>&1 &
352  if [ $? -gt 0 ] ; then
353    echo "IGCM_sys_Qsub : erreur ${options} $1"
354    IGCM_debug_Exit "IGCM_sys_Qsub"
355  fi
356  IGCM_debug_PopStack "IGCM_sys_Qsub"
357}
358
359#D-#==================================================
360#D-function IGCM_sys_QsubPost
361#D-* Purpose: Qsub new job on scalaire
362#D-* Examples:
363#D-
364function IGCM_sys_QsubPost {
365  IGCM_debug_PushStack "IGCM_sys_QsubPost" $@
366  if ( $DEBUG_sys ) ; then
367    echo "IGCM_sys_QsubPost :" $@
368  fi
369  echo "${libIGCM_POST}/$1.job > ${POST_DIR}/$1.${PeriodDateEnd}.out 2>&1 &"
370  ${libIGCM_POST}/$1.job > ${POST_DIR}/${Script_Post_Output}.out 2>&1 &
371  if [ $? -gt 0 ] ; then
372    echo "IGCM_sys_QsubPost : erreur " $@
373    IGCM_debug_Exit "IGCM_sys_QsubPost"
374  fi
375  IGCM_debug_PopStack "IGCM_sys_QsubPost"
376}
377
378#D-*************************
379#D- File transfer functions
380#D-*************************
381#D-
382
383#D-#==================================================
384#D-function IGCM_sys_RmRunDir
385#D-* Purpose: rm tmpdir (dummy function most of the time batch
386#D-                      scheduler will do the job)
387#D-* Examples:
388#D-
389function IGCM_sys_RmRunDir {
390  IGCM_debug_PushStack "IGCM_sys_RmRunDir" $@
391  if ( $DEBUG_sys ) ; then
392    echo "IGCM_sys_RmRunDir :" $@
393    IGCM_debug_Print 1 "Dummy call, let the user do that."
394  fi
395  IGCM_debug_PopStack "IGCM_sys_RmRunDir"
396}
397
398#D-#==================================================
399#D-function IGCM_sys_Put_Dir
400#D-* Purpose: Copy a complete directory on $(ARCHIVE)
401#D-* Examples:
402#D-
403function IGCM_sys_Put_Dir {
404  IGCM_debug_PushStack "IGCM_sys_Put_Dir" $@
405  if ( $DEBUG_sys ) ; then
406    echo "IGCM_sys_Put_Dir :" $@
407  fi
408  if [ $DRYRUN = 0 ]; then
409    if [ ! -d ${1} ] ; then
410      echo "WARNING : IGCM_sys_Put_Dir ${1} DOES NOT EXIST ."
411      IGCM_debug_PopStack "IGCM_sys_Put_Dir"
412      return
413    fi
414
415    typeset status
416
417    # Only if we use rsync
418    #IGCM_sys_TestDirArchive $( dirname $2 )
419    #
420    #USUAL WAY
421    \cp -r $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
422    status=$?
423
424    if [ ${status} -gt 0 ] ; then
425      IGCM_debug_Print 2 "IGCM_sys_Put_Dir : cp failed error code ${status}"
426      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
427      IGCM_debug_Exit "IGCM_sys_Put_Dir"
428    else
429      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
430    fi
431  fi
432  IGCM_debug_PopStack "IGCM_sys_Put_Dir"
433}
434
435#D-#==================================================
436#D-function IGCM_sys_Get_Dir
437#D-* Purpose: Copy a complete directory from ${ARCHIVE}
438#D-* Examples:
439#D-
440function IGCM_sys_Get_Dir {
441  IGCM_debug_PushStack "IGCM_sys_Get_Dir" $@
442  if ( $DEBUG_sys ) ; then
443    echo "IGCM_sys_Get_Dir :" $@
444  fi
445  if [ $DRYRUN = 0 ]; then
446    typeset NB_ESSAI DELAI status i
447    # number of tentative
448    NB_ESSAI=3
449    # time delay between tentative
450    DELAI=2
451
452    #
453    # USUAL WAY
454    i=0
455    while [ $i -lt $NB_ESSAI ] ; do
456      \cp -ur $1 $2 >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
457      status=$?
458      if [ ${status} -gt 0 ] ; then
459        IGCM_debug_Print 2 "IGCM_sys_Get_Dir : cp failed error code ${status} ${i}/${NB_ESSAI}"
460        IGCM_debug_Print 2 "IGCM_sys_Get_Dir : sleep ${DELAI} seconds and try again."
461        sleep $DELAI
462      else
463        break
464      fi
465      (( i = i + 1 ))
466    done
467
468    if [ ${status} -gt 0 ] ; then
469      IGCM_debug_Print 2 "IGCM_sys_Get_Dir : cp failed error code ${status}"
470      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
471      IGCM_debug_Exit "IGCM_sys_Get_Dir"
472    else
473      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
474    fi
475  fi
476  IGCM_debug_PopStack "IGCM_sys_Get_Dir"
477}
478
479#D-#==================================================
480#D-function IGCM_sys_Put_Rest
481#D-* Purpose: Put computied restarts on ${ARCHIVE}.
482#D-           File and target directory must exist.
483#D-* Examples:
484#D-
485function IGCM_sys_Put_Rest {
486  IGCM_debug_PushStack "IGCM_sys_Put_Rest" $@
487  if ( $DEBUG_sys ) ; then
488    echo "IGCM_sys_Put_Rest :" $@
489  fi
490  if [ $DRYRUN = 0 ]; then
491    if [ ! -f ${1} ] ; then
492      echo "ERROR : IGCM_sys_Put_Rest ${1} DOES NOT EXIST ."
493      IGCM_debug_Exit "IGCM_sys_Put_Rest"
494    fi
495
496    typeset status
497    #
498    # USUAL WAY
499    \cp $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
500    status=$?
501
502#       #RSYNC WITH NETWORK SSH CALL
503#       echo ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
504#       ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
505
506#       #RSYNC WITH NFS USE
507#       echo ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
508#       ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
509
510#       status=$?
511#       IGCM_sys_Rsync_out $status
512
513#       ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
514#       (( status=status+$? ))
515
516    if [ ${status} -gt 0 ] ; then
517      IGCM_debug_Print 2 "IGCM_sys_Put_Rest : cp failed error code ${status}"
518      [ -f ${1} ] && ls -l ${1}
519      [ -f ${2} ] && ls -l ${2}
520      [ -f ${2}/${1} ] && ls -l ${2}/${1}
521      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
522      IGCM_debug_Exit "IGCM_sys_Put_Rest"
523    else
524
525      if [ X${JobType} = XRUN ] ; then
526        [ -f ${2} ] && IGCM_sys_Chmod 444 ${2}
527        [ -f ${2}/${1} ] && IGCM_sys_Chmod 444 ${2}/${1}
528      fi
529
530      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
531    fi
532  fi
533  IGCM_debug_PopStack "IGCM_sys_Put_Rest"
534}
535
536#D-#==================================================
537#D-function IGCM_sys_Put_Out
538#D-* Purpose: Copy a file on ${ARCHIVE} after having chmod it in readonly
539#D-* Examples:
540#D-
541function IGCM_sys_Put_Out {
542  IGCM_debug_PushStack "IGCM_sys_Put_Out" $@
543  if ( $DEBUG_sys ) ; then
544    echo "IGCM_sys_Put_Out :" $@
545  fi
546
547  typeset status
548
549  if [ $DRYRUN = 0 ]; then
550    if [ ! -f ${1} ] ; then
551      echo "WARNING : IGCM_sys_Put_Out ${1} DOES NOT EXIST ."
552      IGCM_debug_PopStack "IGCM_sys_Put_Out"
553      return 1
554    fi
555    #
556    IGCM_sys_MkdirArchive $( dirname $2 )
557    #
558    if [ X${JobType} = XRUN ] ; then
559      if [ X${3} = X ] ; then
560        IGCM_sys_Chmod 444 ${1}
561      fi
562    fi
563    #
564
565    echo ${RSYNC} ${RSYNC_opt} $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
566    ${RSYNC} ${RSYNC_opt} $1 $2 >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
567    status=$?
568    IGCM_sys_Rsync_out $status
569
570    ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
571    (( status=status+$? ))
572
573    if [ ${status} -gt 0 ] ; then
574      IGCM_debug_Print 2 "IGCM_sys_Put_Out : rsync failed error code ${status}"
575      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
576      IGCM_debug_Exit "IGCM_sys_Put_Out"
577    else
578      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
579    fi
580  fi
581  IGCM_debug_PopStack "IGCM_sys_Put_Out"
582  return 0
583}
584
585#D-#==================================================
586#D-function IGCM_sys_Get
587#D-* Purpose: Get a file from ${ARCHIVE}
588#D-* Examples: IGCM_sys_Get myfile /destpath/myfile_with_PREFIX
589#D-            IGCM_sys_Get /l Array_contain_myfiles /destpath/
590function IGCM_sys_Get {
591  IGCM_debug_PushStack "IGCM_sys_Get" $@
592
593  typeset DEST status dm_liste
594
595  if ( $DEBUG_sys ) ; then
596    echo "IGCM_sys_Get :" $@
597  fi
598  if [ $DRYRUN -le 2 ]; then
599    if [ X${1} = X'/l' ] ; then
600      eval set +A dm_liste \${${2}}
601    else
602      dm_liste=${1}
603    fi
604    eval DEST=\${${#}}
605
606    # test if the (first) file is present in the old computation :
607    IGCM_sys_TestFileArchive ${dm_liste[0]}
608    status=$?
609    if [ ${status} -gt 0 ] ; then
610      echo "IGCM_sys_Get, ERROR : regular file ${dm_liste[0]} DOES NOT EXIST ."
611      IGCM_debug_Exit "IGCM_sys_Get"
612      return
613    fi
614
615    #USUAL WAY
616    \cp ${dm_liste[*]} ${DEST} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
617    status=$?
618
619    if [ ${status} -gt 0 ] ; then
620      IGCM_debug_Print 2 "IGCM_sys_Get : cp failed error code ${status}"
621      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
622      IGCM_debug_Exit "IGCM_sys_Get"
623    else
624      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
625    fi
626  fi
627  IGCM_debug_PopStack "IGCM_sys_Get"
628}
629
630#D-#==================================================
631#D-function IGCM_sys_GetDate_Monitoring
632#D-* Purpose: get the last year for which the monitoring has been computed
633#D-* Examples:
634#D-
635function IGCM_sys_GetDate_Monitoring {
636  IGCM_debug_PushStack "IGCM_sys_GetDate_Monitoring" $@
637  if ( $DEBUG_sys ) ; then
638    echo "IGCM_sys_GetDate_Monitoring :" $@
639  fi
640
641  eval ${2}=$( cdo showyear ${1} 2> /dev/null | gawk '{ print $NF }' )
642
643  IGCM_debug_PopStack "IGCM_sys_GetDate_Monitoring"
644}
645
646#D-#==================================================
647#D-function IGCM_sys_Dods_Rm
648#D-* Purpose: DO NOTHING ! Put ${ARCHIVE} files on DODS internet protocole.
649#D-* Examples:
650#D-
651function IGCM_sys_Dods_Rm {
652  if ( $DEBUG_sys ) ; then
653    echo "IGCM_sys_Dods_Rm :" $@
654  fi
655  return 0
656}
657
658#D-#==================================================
659#D-function IGCM_sys_Dods_Cp
660#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole.
661#D-* Examples:
662#D-
663function IGCM_sys_Dods_Cp {
664  if ( $DEBUG_sys ) ; then
665    echo "IGCM_sys_Dods_Cp :" $@
666  fi
667  return 0
668}
669
670#D-#==================================================
671#D-function IGCM_sys_Put_Dods
672#D-* Purpose: Put ${ARCHIVE} files on DODS internet protocole. Dummy function here
673#D-* Examples:
674#D-
675function IGCM_sys_Put_Dods {
676  IGCM_debug_PushStack "IGCM_sys_Put_Dods" $@
677  if ( $DEBUG_sys ) ; then
678    echo "IGCM_sys_Put_Dods :" $@
679  fi
680  IGCM_debug_PopStack "IGCM_sys_Put_Dods"
681}
682
683##############################################################
684# REBUILD OPERATOR
685
686#D-#==================================================
687#D-function IGCM_sys_sync
688#D-* Purpose: flush buffer on disk (dummy function on Default machine)
689#D-* Examples:
690#D-
691function IGCM_sys_sync {
692  IGCM_debug_PushStack "IGCM_sys_sync" $@
693  if ( $DEBUG_sys ) ; then
694    echo "IGCM_sys_sync :" $@
695    echo "Dummy call, let the system do that."
696  fi
697  IGCM_debug_PopStack "IGCM_sys_sync"
698}
699
700############################################################
701# Activate Running Environnment Variables
702
703#D-#==================================================
704#D-function IGCM_sys_activ_variables
705#D-* Purpose: set environement variables prior to execution
706#D-* Examples:
707#D-
708function IGCM_sys_activ_variables {
709  IGCM_debug_PushStack "IGCM_sys_activ_variables"
710  if ( $DEBUG_sys ) ; then
711    echo "IGCM_sys_activ_variables"
712  fi
713
714# --------------------------------------------------------------------
715#D- MPI specifications
716# --------------------------------------------------------------------
717
718# --------------------------------------------------------------------
719#D- Other specifications
720# --------------------------------------------------------------------
721
722  ulimit -s unlimited
723
724  IGCM_debug_PopStack "IGCM_sys_activ_variables"
725}
726
727############################################################
728# Desactivate Running Environnment Variables
729
730#D-#==================================================
731#D-function IGCM_sys_desactiv_variables
732#D-* Purpose: unset environement variables after execution
733#D-* Examples:
734#D-
735function IGCM_sys_desactiv_variables {
736  IGCM_debug_PushStack "IGCM_sys_desactiv_variables"
737  if ( $DEBUG_sys ) ; then
738    echo "IGCM_sys_desactiv_variables"
739  fi
740# --------------------------------------------------------------------
741#D- MPI specifications
742# --------------------------------------------------------------------
743
744# --------------------------------------------------------------------
745#D- Other specifications
746# --------------------------------------------------------------------
747
748  IGCM_debug_PopStack "IGCM_sys_desactiv_variables"
749}
750
751############################################################
752# Update job headers to be used by the scheduler
753
754#D-#==================================================
755#D-function IGCM_sys_updateHeaders
756#D-* Purpose: Update job headers to be used by the scheduler
757#D-* Examples: IGCM_sys_updateHeaders /path/to/Job_MYEXP
758#D-
759function IGCM_sys_updateHeaders {
760  IGCM_debug_PushStack "IGCM_sys_updateHeaders"
761  if ( $DEBUG_sys ) ; then
762    echo "IGCM_sys_updateHeaders"
763  fi
764  typeset file
765  file=$1
766
767  if [ ${executionType} -eq 1 ] ; then
768    # MPMD + MPI
769    sed -e "/::openMPthreads::/d"                  \
770        -e "s/::JobNumProcTot::/${coreNumber}/"    \
771      ${file} > ${file}.tmp
772
773  elif [ ${executionType} -eq 2 ] ; then
774    # MPMD + MPI + OMP
775    sed -e "s/::openMPthreads::/${openMPthreads}/" \
776        -e "s/::JobNumProcTot::/${coreNumber}/"    \
777      ${file} > ${file}.tmp
778
779  elif [ ${executionType} -eq 3 ] ; then
780    # SPMD + MPI/OMP
781    sed -e "s/::openMPthreads::/${openMPthreads}/" \
782        -e "s/::JobNumProcTot::/${mpiTasks}/"      \
783      ${file} > ${file}.tmp
784
785  elif [ ${executionType} -eq 4 ] ; then
786    # SPMD + MPI only
787    sed -e "s/::JobNumProcTot::/${mpiTasks}/"      \
788        -e "/::openMPthreads::/d"                  \
789      ${file} > ${file}.tmp
790
791  elif [ ${executionType} -eq 5 ] ; then
792    # SPMD + OMP only
793    sed -e "s/::openMPthreads::/${openMPthreads}/" \
794        -e "/::JobNumProcTot::/d"                  \
795      ${file} > ${file}.tmp
796
797  elif [ ${executionType} -eq 6 ] ; then
798    # SEQUENTIAL THEN
799    sed -e "s/::JobNumProcTot::/1/"                \
800        -e "/::openMPthreads::/d"                  \
801      ${file} > ${file}.tmp
802
803  fi
804
805  IGCM_sys_Mv ${file}.tmp ${file}
806
807  IGCM_debug_PopStack "IGCM_sys_updateHeaders"
808}
809
810############################################################
811# Build MPI/OMP scripts run file (dummy function)
812
813#D-#==================================================
814#D-function IGCM_sys_build_run_file
815#D-* Purpose: build run file (deprecated)
816#D-* Examples:
817#D-
818function IGCM_sys_build_run_file {
819  IGCM_debug_Print 3 " dummy function : IGCM_sys_build_run_file "
820}
821
822############################################################
823# Build MPI/OMP scripts
824
825#D-#==================================================
826#D-function IGCM_sys_build_execution_scripts
827#D-* Purpose: build execution scripts to be launch by ${HOST_MPIRUN_COMMAND}
828#D-* Examples:
829#D-
830function IGCM_sys_build_execution_scripts
831{
832  IGCM_debug_PushStack "IGCM_sys_build_execution_scripts" $@
833  if ( $DEBUG_sys ) ; then
834    echo "IGCM_sys_build_execution_scripts " $@
835  fi
836
837  EXECUTION=${HOST_MPIRUN_COMMAND}
838
839  # MPMD mode
840  if ( ${OK_PARA_MPMD} ) ; then
841
842    # Only MPI (MPMD)
843    if  ( ! ${OK_PARA_OMP} ) ; then
844
845      if [ -f run_file ] ; then
846        IGCM_sys_Rm -f run_file
847      fi
848      touch run_file
849
850      # Build run_file
851
852      # First loop on the components for the coupler ie oasis (only if oasis3)
853      # the coupler ie oasis3 must be the first one
854      for comp in ${config_ListOfComponents[*]} ; do
855
856        eval ExeNameIn=\${config_Executable_${comp}[0]}
857        eval ExeNameOut=\${config_Executable_${comp}[1]}
858
859        # for CPL component only
860        if [ "X${comp}" = "XCPL" ]  && [ "X${ExeNameOut}" != X\"\" ] ; then
861          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
862          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
863          echo "-np ${comp_proc_mpi_loc} ./${ExeNameOut} " >> run_file
864        fi
865      done
866
867      # Then second loop on the components
868      for comp in ${config_ListOfComponents[*]} ; do
869
870        eval ExeNameIn=\${config_Executable_${comp}[0]}
871        eval ExeNameOut=\${config_Executable_${comp}[1]}
872
873        # Only if we really have an executable for the component and not the coupler ie oasis:
874        if ( [ "X${ExeNameOut}" != X\"\" ] && [ "X${comp}" != "XCPL" ] ) ; then
875
876          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
877          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
878          echo "-np ${comp_proc_mpi_loc} ./${ExeNameOut}" >> run_file
879        fi
880      done
881
882      EXECUTION="${HOST_MPIRUN_COMMAND} --app ./run_file"
883
884      IGCM_sys_Chmod u+x run_file
885      if ( $DEBUG_sys ) ; then
886        echo "run_file contains : "
887        cat run_file
888      fi
889 
890    # MPI-OpenMP (MPMD)
891    else
892
893      #  Hosts treatment
894      ${HOST_MPIRUN_COMMAND} hostname | sort | uniq > hosts.tmp
895
896      i=0
897      rm -f hosts
898      IGCM_debug_Print 1 "sys $( hostname ), Hosts available :"
899      for nodes in `cat hosts.tmp` ; do
900        host[$i]=$nodes
901        echo "${host[$i]} slots=1 max_slots=1" >> hosts
902        IGCM_debug_Print 1 ${host[$i]}
903        i=$((i+1))
904      done
905      rm -f hosts.tmp
906
907      listnodes=${host[*]}
908
909      EXECUTION="${HOST_MPIRUN_COMMAND} -hostfile hosts"
910
911      # Initialisation
912      rank=0
913      current_core=0
914      core_per_node=4
915      init_exec=n
916
917      # Loop on the components
918      for comp in ${config_ListOfComponents[*]} ; do
919
920        eval ExeNameIn=\${config_Executable_${comp}[0]}
921        eval ExeNameOut=\${config_Executable_${comp}[1]}
922
923        # Not possible if oasis has an executable (i.e old version of oasis3)
924        if ( [ "X${ExeNameOut}" != X\"\" ] &&  [ "X${comp}" = "XCPL" ] ) ; then
925          IGCM_debug_Exit "ERROR MPMD with hybrid MPI-OpenMP is not available with oasis3 version"
926          IGCM_debug_Print 2 "Only available with oasis3-MCT version coupler"
927          IGCM_debug_Verif_Exit
928        fi
929
930        # Only if we really have an executable for the component :
931        if [ "X${ExeNameOut}" != X\"\" ] ; then
932
933          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
934          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
935
936          echo "#!/bin/ksh" > script_${ExeNameOut}.ksh
937          echo ""  >> script_${ExeNameOut}.ksh
938          if [ ${comp_proc_omp_loc} -gt 1 ] ; then
939
940            # Check if the number of threads is correct
941            case ${comp_proc_omp_loc} in
942            2|4)
943              IGCM_debug_Print 1 "You run ${ExeNameOut} on ${comp_proc_omp_loc} OMP threads"
944              ;;
945            *)
946              IGCM_debug_Exit "ERROR with OMP parameters !"
947              IGCM_debug_Print 2 "${comp_proc_omp_loc} is not possible as number of OMP threads"
948              IGCM_debug_Print 2 "Only 2,4 as number of OMP threads are possible "
949              IGCM_debug_Verif_Exit
950              ;;
951            esac
952            #echo "export KMP_STACKSIZE=3g"  >> script_${ExeNameOut}.ksh
953            #echo "export KMP_LIBRARY=turnaround"  >> script_${ExeNameOut}.ksh
954            #echo "export MKL_SERIAL=YES"  >> script_${ExeNameOut}.ksh
955            echo "export OMP_STACKSIZE=200M" >> script_${ExeNameOut}.ksh
956            echo "export OMP_NUM_THREADS=${comp_proc_omp_loc}" >> script_${ExeNameOut}.ksh
957          fi
958
959          #echo "./${ExeNameOut}" >> script_${ExeNameOut}.ksh
960          echo "(( MYMPIRANK = OMPI_COMM_WORLD_RANK )) " >> script_${ExeNameOut}.ksh
961          echo "MYMPIRANK=\$(printf '%3.3d\n' \${MYMPIRANK})" >> script_${ExeNameOut}.ksh
962          echo "./${ExeNameOut} > out_${ExeNameOut}.out.\${MYMPIRANK} 2>out_${ExeNameOut}.err.\${MYMPIRANK}" >> script_${ExeNameOut}.ksh
963          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
964
965          if [ ${init_exec} = y ] ; then
966            EXECUTION="${EXECUTION} : -np ${comp_proc_mpi_loc} ./script_${ExeNameOut}.ksh"
967          else
968            EXECUTION="${EXECUTION} -np ${comp_proc_mpi_loc} ./script_${ExeNameOut}.ksh"
969            init_exec=y
970          fi
971
972          # Build rankfile : method used to assign cores and nodes for the MPI process
973          # Ex :
974          #rank 0=curie5296 slot=0,1,2,3
975          #rank 1=curie5296 slot=4,5,6,7
976          # Example of final command :
977          # mpirun -hostfile hosts -rankfile rankfile -np 27 ./script_lmdz.x.ksh : -np 5 ./script_opa.xx.ksh
978          # with script_lmdz.x.ksh :
979          # #!/bin/ksh
980          #export OMP_STACKSIZE=200M
981          #export OMP_NUM_THREADS=4
982          #./lmdz.x
983
984          for nb_proc_mpi in `seq 0 $(($comp_proc_mpi_loc-1))`; do
985            (( index_host = current_core / core_per_node ))
986            host_value=${host[${index_host}]}
987            (( slot =  current_core % core_per_node ))
988            virg=","
989            string_final=""
990            for index in `seq $slot $(($slot+$comp_proc_omp_loc-1))`; do
991              string=$index$virg
992              string_final=$string_final$string
993            done
994            string_final=$( echo $string_final | sed "s/.$//" )
995            echo "rank $rank=$host_value slot=$string_final" >> rankfile
996            (( rank = rank + 1 ))
997            (( current_core = current_core + comp_proc_omp_loc ))
998          done
999        fi
1000      done
1001    fi
1002
1003  # Only one executable (SPMD mode).
1004  else
1005
1006    for comp in ${config_ListOfComponents[*]} ; do
1007
1008      # Only if we really have an executable for the component :
1009      eval ExeNameOut=\${config_Executable_${comp}[1]}
1010      if ( [ "X${ExeNameOut}" != X\"\" ] && [ "X${ExeNameOut}" != "Xinca.dat" ] ) ; then
1011
1012        echo "#!/bin/ksh" > script_${ExeNameOut}.ksh
1013        echo ""  >> script_${ExeNameOut}.ksh
1014        if ( ${OK_PARA_OMP} ) ; then
1015          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
1016          echo "export OMP_STACKSIZE=200M" >> script_${ExeNameOut}.ksh
1017          echo "export OMP_NUM_THREADS=${comp_proc_omp_loc}" >> script_${ExeNameOut}.ksh
1018        fi
1019       
1020        if [ ${mpiTasks} -eq 1 ] && [ ${openMPthreads} -eq 1 ] ; then
1021          # Case with only one proc
1022          # mpirun should not be used at obelix for only one proc
1023          # Output text per process
1024          echo "./${ExeNameOut} > out_${ExeNameOut}.out 2>out_${ExeNameOut}.err" >> script_${ExeNameOut}.ksh
1025          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
1026          EXECUTION="time ./script_${ExeNameOut}.ksh"
1027        elif  ( ${OK_PARA_MPI} ) ; then
1028          # Default : mpirun used if nb_proc gt 1
1029          # Output text per process
1030          echo "./${ExeNameOut} > out_${ExeNameOut}.out.\${OMPI_COMM_WORLD_RANK} 2>out_${ExeNameOut}.err.\${OMPI_COMM_WORLD_RANK}"  >> script_${ExeNameOut}.ksh
1031          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
1032          EXECUTION="${HOST_MPIRUN_COMMAND} ./script_${ExeNameOut}.ksh"
1033        elif [ ${executionType} -eq 6 ] ; then
1034          # Sequentiel case: this is the same as the first case.
1035          echo "./${ExeNameOut} > out_${ExeNameOut}.out 2>out_${ExeNameOut}.err" >> script_${ExeNameOut}.ksh
1036          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
1037          EXECUTION="time ./script_${ExeNameOut}.ksh"
1038        else
1039          # Strange case.
1040          IGCM_debug_Exit "ERROR with OK_PARA_MPI"
1041          IGCM_debug_Print 2 "sys Obelix : OK_PARA_MPI=False and mpiTask/openMPthreds different from 1"
1042          IGCM_debug_Verif_Exit
1043        fi
1044
1045
1046        IGCM_debug_Print 1 "sys $( hostname ) : script_${ExeNameOut}.ksh contains"
1047        cat script_${ExeNameOut}.ksh
1048
1049      fi
1050
1051    done
1052
1053  fi
1054
1055  IGCM_debug_Print 1 "sys $( hostname ) : execution command is"
1056  IGCM_debug_Print 1 "$EXECUTION"
1057
1058  IGCM_debug_PopStack "IGCM_sys_build_execution_scripts"
1059}
1060
1061#D-#==================================================
1062#D-function IGCM_sys_check_path
1063#D-* Purpose: check that RUN_DIR_PATH that will be removed on some machine
1064#D-* do not point to an important use directory. Stop immediately in that case.
1065#D-* Examples:
1066#D-
1067function IGCM_sys_check_path {
1068  IGCM_debug_PushStack "IGCM_sys_check_path"
1069  if ( $DEBUG_sys ) ; then
1070    echo "IGCM_sys_check_path"
1071  fi
1072
1073  if ( [ X${RUN_DIR_PATH} = X${HOME} ] || [ X${RUN_DIR_PATH} = X${ARCHIVE} ] ) ; then
1074    IGCM_debug_Print 1 "Variable RUN_DIR_PATH is pointing to an important directory : ${RUN_DIR_PATH}"
1075    IGCM_debug_Print 1 "Please check the RUN_DIR_PATH definition in your Job : Job_${config_UserChoices_JobName}"
1076    IGCM_debug_Exit "This will stop the job"
1077  fi
1078  IGCM_debug_PopStack "IGCM_sys_check_path"
1079}
1080
1081#D-#==================================================
1082#D-function IGCM_sys_check_quota. Dummy call here
1083#D-* Purpose: check user quota. Stop the simulation if quota above 90%
1084#D-* Examples:
1085#D-
1086function IGCM_sys_check_quota {
1087  IGCM_debug_PushStack "IGCM_sys_check_quota"
1088  if ( $DEBUG_sys ) ; then
1089    echo "IGCM_sys_check_quota"
1090  fi
1091
1092  # TO BE IMPLEMENTED
1093
1094  IGCM_debug_PopStack "IGCM_sys_check_quota"
1095}
1096
1097#D-#==================================================
1098#D-function IGCM_sys_projectAccounting
1099#D-* Purpose: store project accounting information in a file
1100#D-* Examples:
1101#D-
1102function IGCM_sys_projectAccounting {
1103  IGCM_debug_PushStack "IGCM_sys_projectAccounting"
1104  if ( $DEBUG_sys ) ; then
1105    echo "IGCM_sys_check_quota"
1106  fi
1107
1108  touch $1
1109
1110  IGCM_debug_PopStack "IGCM_sys_projectAccounting"
1111}
1112
1113#D-#==================================================
1114#D-function IGCM_sys_getJobSchedulerID
1115#D-* Purpose: Get the job ID during execution
1116#D-* Examples: IGCM_sys_getJobSchedulerID jobSchedulerID
1117#D-
1118function IGCM_sys_getJobSchedulerID {
1119  IGCM_debug_PushStack "IGCM_sys_getJobSchedulerID"
1120  if ( $DEBUG_sys ) ; then
1121    echo "IGCM_sys_getJobSchedulerID"
1122  fi
1123
1124  # N/A content
1125  eval ${1}="N/A"
1126
1127  IGCM_debug_PopStack "IGCM_sys_getJobSchedulerID"
1128}
1129
1130#D-#==================================================
1131#D-function IGCM_sys_GetJobID
1132#D-* Purpose: Get the job ID from the JobName
1133#D-* Examples: IGCM_sys_GetJobID ${JobName} ${TargetUsr} JobID
1134#D-
1135function IGCM_sys_GetJobID {
1136  IGCM_debug_PushStack "IGCM_sys_GetJobID"
1137  if ( $DEBUG_sys ) ; then
1138    echo "IGCM_sys_GetJobID"
1139  fi
1140
1141  # N/A content
1142  eval ${3}="N/A"
1143  IGCM_debug_PopStack "IGCM_sys_GetJobID"
1144}
1145
1146#D-#==================================================
1147#D-function IGCM_sys_CountJobInQueue
1148#D-* Purpose: Count number of users job
1149#D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
1150#D-
1151function IGCM_sys_CountJobInQueue {
1152  IGCM_debug_PushStack "IGCM_sys_CountJobInQueue"
1153  if ( $DEBUG_sys ) ; then
1154    echo "IGCM_sys_CountJobInQueue"
1155  fi
1156  IGCM_debug_PopStack "IGCM_sys_CountJobInQueue"
1157}
1158
1159#D-#==================================================
1160#D-function IGCM_sys_atlas
1161#D-* Purpose: encapsulate atlas call so as to manage error code and curie specificity
1162#D-* Examples:
1163#D-
1164function IGCM_sys_atlas {
1165  IGCM_debug_PushStack "IGCM_sys_atlas" $@
1166  if ( $DEBUG_sys ) ; then
1167    echo "IGCM_sys_atlas :" $@
1168  fi
1169
1170  typeset status
1171
1172  \atlas $@ > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
1173  status=$?
1174  if [ ${status} -gt 0 ] ; then
1175    echo "IGCM_sys_atlas : error code ${status}"
1176    cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
1177    \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
1178    IGCM_debug_PopStack "IGCM_sys_atlas"
1179    return 1
1180  else
1181    IGCM_debug_PopStack "IGCM_sys_atlas"
1182    return 0
1183  fi
1184
1185  IGCM_debug_PopStack "IGCM_sys_atlas"
1186}
1187
1188#D-#==================================================
1189#D-function IGCM_sys_rebuild_nemo
1190#D-* Purpose: rebuild nemo parallel files with general rebuild
1191#D-* Examples:
1192#D-
1193
1194function IGCM_sys_rebuild_nemo {
1195  IGCM_debug_PushStack "IGCM_sys_rebuild_nemo" $@
1196  if ( $DEBUG_sys ) ; then
1197    echo "IGCM_sys_rebuild_nemo :" $@
1198  fi
1199
1200  nemo_generic_restart_file_name_out=${1}
1201  nemo_extension_out=${3}
1202  shift ; shift ; shift
1203
1204  IGCM_sys_rebuild -o ${nemo_generic_restart_file_name_out}.${nemo_extension_out} $@
1205
1206  IGCM_debug_PopStack "IGCM_sys_rebuild_nemo"
1207}
1208
Note: See TracBrowser for help on using the repository browser.