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

Last change on this file since 1272 was 1272, checked in by mafoipsl, 9 years ago

Add a system function IGCM_sys_atlas specially adapted on curie (bug ksh) and allowing error discovery for all systems.
Use IGCM_sys_atlas funcion in AA_atlas jobs.
  • 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: 36.8 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 and user names
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/${LOGIN}/IGCM}
119typeset -r R_IN_ECMWF=${R_IN_ECMWF:=/home/${LOGIN}/IGCM}
120
121#====================================================
122#- RUN_DIR_PATH : Temporary working directory (=> TMP)
123typeset -r RUN_DIR_PATH=${RUN_DIR_PATH:=/home/${LOGIN}/RUN_DIR/tmp$$}
124
125#====================================================
126#- OUTCOMMAND_PATH : tmp place to store command lines standard error and outputs
127typeset -r OUTCOMMAND_PATH=/tmp
128
129#====================================================
130#- HOST_MPIRUN_COMMAND
131typeset -r HOST_MPIRUN_COMMAND=${HOST_MPIRUN_COMMAND:="time mpirun"}
132
133#====================================================
134#- Max number of arguments passed to nco operator or demigration command
135UNIX_MAX_LIMIT=360
136
137#====================================================
138#- set PackDefault to false on obelix
139PackDefault=false
140
141#====================================================
142#- Number of core per node (max number of OpenMP task)
143NUM_COREPERNODE=1
144
145#====================================================
146#- Default number of MPI task for IPSL coupled model
147#- required for backward compatibility
148#-
149DEFAULT_NUM_PROC_OCE=1
150DEFAULT_NUM_PROC_CPL=1
151(( DEFAULT_NUM_PROC_ATM = BATCH_NUM_PROC_TOT - DEFAULT_NUM_PROC_OCE - DEFAULT_NUM_PROC_CPL ))
152
153#D-#==================================================
154#D-function IGCM_sys_defineArchives
155#D-* Purpose:
156#D-* Define ARCHIVE : Dedicated to large files
157#D-* Define STORAGE : Dedicated to small/medium files
158#D-* Define R_OUT   : Output tree located on ARCHIVE
159#D-* Define R_FIG   : Output tree located on STORAGE hosting figures (monitoring and atlas, and/or small files)
160#D-* Define R_BUF   : Output tree located on STORAGE hosting files waiting for rebuild or pack processes
161#D-* if SpaceName=TEST nothing special will hapen
162#D-* Examples:
163#D-
164function IGCM_sys_defineArchives {
165  IGCM_debug_PushStack "IGCM_sys_defineArchives"
166
167  if [ ! X${config_UserChoices_ARCHIVE} = X ]; then
168    #====================================================
169    #- ARCHIVE (dedicated to large files)
170    ARCHIVE=${config_UserChoices_ARCHIVE}
171  else
172    #====================================================
173    #- ARCHIVE (dedicated to large files)
174    ARCHIVE=${ARCHIVE:=/home/${LOGIN}}
175  fi
176
177  if [ ! X${config_UserChoices_STORAGE} = X ]; then
178    #====================================================
179    #- STORAGE (dedicated to small/medium files)
180    STORAGE=${config_UserChoices_STORAGE}
181  else
182    #====================================================
183    #- STORAGE (dedicated to small/medium files)
184    STORAGE=${ARCHIVE}
185  fi
186
187  # ON DEFAULT MACHINE NO SPECIAL CASE WHEN X${config_UserChoices_SpaceName} = XTEST
188
189  #====================================================
190  #- R_OUT
191  R_OUT=${ARCHIVE}/IGCM_OUT
192
193  #====================================================
194  #- R_FIG (hosting figures : monitoring and atlas, and/or small files)
195  R_FIG=${STORAGE}/IGCM_OUT
196
197  #====================================================
198  #- R_BUF (ONLY FOR double copy an scratch)
199  R_BUF=${STORAGE}/IGCM_OUT
200
201  IGCM_debug_Print 1 "R_OUT has been defined = ${R_OUT}"
202  IGCM_debug_Print 1 "R_BUF has been defined = ${R_BUF}"
203  IGCM_debug_Print 1 "R_FIG has been defined = ${R_FIG}"
204
205  IGCM_debug_PopStack "IGCM_sys_defineArchives"
206}
207
208#D-#==================================================
209#D-function IGCM_sys_RshArchive
210#D-* Purpose: Archive rsh command
211#D-* Examples:
212#D-
213function IGCM_sys_RshArchive {
214  IGCM_debug_PushStack "IGCM_sys_RshArchive" $@
215  /bin/ksh <<-EOF
216    ${@}
217EOF
218  status=$?
219  if [ ${status} -gt 0 ] ; then
220    IGCM_debug_Print 2 "IGCM_sys_RshArchive : command failed error code ${status}"
221    IGCM_debug_Exit "IGCM_sys_RshArchive"
222  fi
223  IGCM_debug_PopStack "IGCM_sys_RshArchive"
224}
225
226#D-#==================================================
227#D-function IGCM_sys_RshArchive_NoError
228#D-* Purpose: Archive rsh command, without error
229#D-*          used only in monitoring.job
230#D-* Examples:
231#D-
232function IGCM_sys_RshArchive_NoError {
233  IGCM_debug_PushStack "IGCM_sys_RshArchive_NoError" $@
234  /bin/ksh <<-EOF
235    ${@} 2> /dev/null
236EOF
237  IGCM_debug_PopStack "IGCM_sys_RshArchive_NoError"
238}
239
240#D-#==================================================
241#D-function IGCM_sys_MkdirArchive
242#D-* Purpose: Mkdir on Archive
243#D-* Examples:
244#D-
245function IGCM_sys_MkdirArchive {
246  IGCM_debug_PushStack "IGCM_sys_MkdirArchive" $@
247  if ( $DEBUG_sys ) ; then
248    echo "IGCM_sys_MkdirArchive :" $@
249  fi
250  #- creation de repertoire sur le serveur fichier
251  if [ ! -d ${1} ]; then
252    \mkdir -p $1
253    status=$?
254
255    if [ ${status} -gt 0 ] ; then
256      IGCM_debug_Print 2 "IGCM_sys_MkdirArchive : mkdir failed error code ${status}"
257      IGCM_debug_Exit "IGCM_sys_MkdirArchive"
258    fi
259  fi
260  IGCM_debug_PopStack "IGCM_sys_MkdirArchive"
261}
262
263#D-#==================================================
264#D-function IGCM_sys_TestDirArchive
265#D-* Purpose: Test Directory that must exists on Archive
266#D-* Examples:
267#D-
268function IGCM_sys_TestDirArchive {
269  IGCM_debug_PushStack "IGCM_sys_TestDirArchive" $@
270  if ( $DEBUG_sys ) ; then
271    echo "IGCM_sys_TestDirArchive :" $@
272  fi
273  typeset ExistFlag
274  ExistFlag=$( [ -d $1 ] && echo 0 || echo 1 )
275  IGCM_debug_PopStack "IGCM_sys_TestDirArchive"
276  return ${ExistFlag}
277}
278
279#D-#==================================================
280#D-function IGCM_sys_IsFileArchived
281#D-* Purpose: Test file that must NOT EXISTS on Archive based on filename only
282#D-* Examples:
283#D-
284function IGCM_sys_IsFileArchived {
285  IGCM_debug_PushStack "IGCM_sys_IsFileArchived" $@
286  if ( $DEBUG_sys ) ; then
287    echo "IGCM_sys_IsFileArchived :" $@
288  fi
289  typeset IsArchivedFlag
290  # Never archived for this system
291  IsArchivedFlag=1
292  IGCM_debug_PopStack "IGCM_sys_IsFileArchived"
293
294  return ${IsArchivedFlag}
295}
296
297#D-#==================================================
298#D-function IGCM_sys_TestFileArchive
299#D-* Purpose: Test file that must NOT EXISTS on Archive
300#D-* Examples:
301#D-
302function IGCM_sys_TestFileArchive {
303  IGCM_debug_PushStack "IGCM_sys_TestFileArchive" $@
304  typeset ExistFlag
305  ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 )
306  IGCM_debug_PopStack "IGCM_sys_TestFileArchive"
307
308  return ${ExistFlag}
309}
310
311#D-#==================================================
312#D-function IGCM_sys_CountFileArchive
313#D-* Purpose: Count files on Archive filesystem
314#D-* Examples:
315#D-
316function IGCM_sys_CountFileArchive {
317  IGCM_debug_PushStack "IGCM_sys_CountFileArchive" $@
318  ls ${@} 2>/dev/null | wc -l
319  if [ $? -gt 0 ] ; then
320    echo "IGCM_sys_CountFileArchive : erreur."
321  fi
322  IGCM_debug_PopStack "IGCM_sys_CountFileArchive"
323}
324
325#D-#==================================================
326#D-function IGCM_sys_Tree
327#D-* Purpose: Tree directories with files on ${ARCHIVE}
328#D-* Examples: IGCM_sys_Tree ${R_IN} ${R_OUT}
329#D-
330function IGCM_sys_Tree {
331  IGCM_debug_PushStack "IGCM_sys_Tree" $@
332  if ( $DEBUG_sys ) ; then
333    echo "IGCM_sys_Tree :" $@
334  fi
335
336  \tree -f $@
337
338  IGCM_debug_PopStack "IGCM_sys_Tree"
339}
340
341#D-#==================================================
342#D-function IGCM_sys_Qsub
343#D-* Purpose: Qsub new job
344#D-* Examples:
345#D-
346function IGCM_sys_Qsub {
347  IGCM_debug_PushStack "IGCM_sys_Qsub" $@
348  if ( $DEBUG_sys ) ; then
349    echo "IGCM_sys_Qsub :" $@
350  fi
351  echo "${@} > ${SUBMIT_DIR}/${Script_Output} 2>&1 &"
352  ${@} > ${SUBMIT_DIR}/${Script_Output} 2>&1 &
353  if [ $? -gt 0 ] ; then
354    echo "IGCM_sys_Qsub : erreur ${options} $1"
355    IGCM_debug_Exit "IGCM_sys_Qsub"
356  fi
357  IGCM_debug_PopStack "IGCM_sys_Qsub"
358}
359
360#D-#==================================================
361#D-function IGCM_sys_QsubPost
362#D-* Purpose: Qsub new job on scalaire
363#D-* Examples:
364#D-
365function IGCM_sys_QsubPost {
366  IGCM_debug_PushStack "IGCM_sys_QsubPost" $@
367  if ( $DEBUG_sys ) ; then
368    echo "IGCM_sys_QsubPost :" $@
369  fi
370  echo "${libIGCM_POST}/$1.job > ${POST_DIR}/$1.${PeriodDateEnd}.out 2>&1 &"
371  ${libIGCM_POST}/$1.job > ${POST_DIR}/${Script_Post_Output}.out 2>&1 &
372  if [ $? -gt 0 ] ; then
373    echo "IGCM_sys_QsubPost : erreur " $@
374    IGCM_debug_Exit "IGCM_sys_QsubPost"
375  fi
376  IGCM_debug_PopStack "IGCM_sys_QsubPost"
377}
378
379#D-*************************
380#D- File transfer functions
381#D-*************************
382#D-
383
384#D-#==================================================
385#D-function IGCM_sys_RmRunDir
386#D-* Purpose: rm tmpdir (dummy function most of the time batch
387#D-                      scheduler will do the job)
388#D-* Examples:
389#D-
390function IGCM_sys_RmRunDir {
391  IGCM_debug_PushStack "IGCM_sys_RmRunDir" $@
392  if ( $DEBUG_sys ) ; then
393    echo "IGCM_sys_RmRunDir :" $@
394    IGCM_debug_Print 1 "Dummy call, let the user do that."
395#    IGCM_sys_Rm -rf ${RUN_DIR}
396  fi
397  IGCM_debug_PopStack "IGCM_sys_RmRunDir"
398}
399
400#D-#==================================================
401#D-function IGCM_sys_Put_Dir
402#D-* Purpose: Copy a complete directory on $(ARCHIVE)
403#D-* Examples:
404#D-
405function IGCM_sys_Put_Dir {
406  IGCM_debug_PushStack "IGCM_sys_Put_Dir" $@
407  if ( $DEBUG_sys ) ; then
408    echo "IGCM_sys_Put_Dir :" $@
409  fi
410  if [ $DRYRUN = 0 ]; then
411    if [ ! -d ${1} ] ; then
412      echo "WARNING : IGCM_sys_Put_Dir ${1} DOES NOT EXIST ."
413      IGCM_debug_PopStack "IGCM_sys_Put_Dir"
414      return
415    fi
416
417    typeset status
418
419    # Only if we use rsync
420    #IGCM_sys_TestDirArchive $( dirname $2 )
421    #
422    #USUAL WAY
423    \cp -r $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
424    status=$?
425
426    if [ ${status} -gt 0 ] ; then
427      IGCM_debug_Print 2 "IGCM_sys_Put_Dir : cp failed error code ${status}"
428      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
429      IGCM_debug_Exit "IGCM_sys_Put_Dir"
430    else
431      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
432    fi
433  fi
434  IGCM_debug_PopStack "IGCM_sys_Put_Dir"
435}
436
437#D-#==================================================
438#D-function IGCM_sys_Get_Dir
439#D-* Purpose: Copy a complete directory from ${ARCHIVE}
440#D-* Examples:
441#D-
442function IGCM_sys_Get_Dir {
443  IGCM_debug_PushStack "IGCM_sys_Get_Dir" $@
444  if ( $DEBUG_sys ) ; then
445    echo "IGCM_sys_Get_Dir :" $@
446  fi
447  if [ $DRYRUN = 0 ]; then
448    typeset NB_ESSAI DELAI status i
449    # number of tentative
450    NB_ESSAI=3
451    # time delay between tentative
452    DELAI=2
453
454    #
455    # USUAL WAY
456    i=0
457    while [ $i -lt $NB_ESSAI ] ; do
458      \cp -ur $1 $2 >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
459      status=$?
460      if [ ${status} -gt 0 ] ; then
461        IGCM_debug_Print 2 "IGCM_sys_Get_Dir : cp failed error code ${status} ${i}/${NB_ESSAI}"
462        IGCM_debug_Print 2 "IGCM_sys_Get_Dir : sleep ${DELAI} seconds and try again."
463        sleep $DELAI
464      else
465        break
466      fi
467      (( i = i + 1 ))
468    done
469
470    if [ ${status} -gt 0 ] ; then
471      IGCM_debug_Print 2 "IGCM_sys_Get_Dir : cp failed error code ${status}"
472      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
473      IGCM_debug_Exit "IGCM_sys_Get_Dir"
474    else
475      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
476    fi
477  fi
478  IGCM_debug_PopStack "IGCM_sys_Get_Dir"
479}
480
481#D-#==================================================
482#D-function IGCM_sys_Put_Rest
483#D-* Purpose: Put computied restarts on ${ARCHIVE}.
484#D-           File and target directory must exist.
485#D-* Examples:
486#D-
487function IGCM_sys_Put_Rest {
488  IGCM_debug_PushStack "IGCM_sys_Put_Rest" $@
489  if ( $DEBUG_sys ) ; then
490    echo "IGCM_sys_Put_Rest :" $@
491  fi
492  if [ $DRYRUN = 0 ]; then
493    if [ ! -f ${1} ] ; then
494      echo "ERROR : IGCM_sys_Put_Rest ${1} DOES NOT EXIST ."
495      IGCM_debug_Exit "IGCM_sys_Put_Rest"
496    fi
497
498    typeset status
499    #
500    # USUAL WAY
501    \cp $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
502    status=$?
503
504#       #RSYNC WITH NETWORK SSH CALL
505#       echo ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
506#       ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
507
508#       #RSYNC WITH NFS USE
509#       echo ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
510#       ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
511
512#       status=$?
513#       IGCM_sys_Rsync_out $status
514
515#       ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
516#       (( status=status+$? ))
517
518    if [ ${status} -gt 0 ] ; then
519      IGCM_debug_Print 2 "IGCM_sys_Put_Rest : cp failed error code ${status}"
520      [ -f ${1} ] && ls -l ${1}
521      [ -f ${2} ] && ls -l ${2}
522      [ -f ${2}/${1} ] && ls -l ${2}/${1}
523      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
524      IGCM_debug_Exit "IGCM_sys_Put_Rest"
525    else
526
527      if [ X${JobType} = XRUN ] ; then
528        [ -f ${2} ] && IGCM_sys_Chmod 444 ${2}
529        [ -f ${2}/${1} ] && IGCM_sys_Chmod 444 ${2}/${1}
530      fi
531
532      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
533    fi
534  fi
535  IGCM_debug_PopStack "IGCM_sys_Put_Rest"
536}
537
538#D-#==================================================
539#D-function IGCM_sys_Put_Out
540#D-* Purpose: Copy a file on ${ARCHIVE} after having chmod it in readonly
541#D-* Examples:
542#D-
543function IGCM_sys_Put_Out {
544  IGCM_debug_PushStack "IGCM_sys_Put_Out" $@
545  if ( $DEBUG_sys ) ; then
546    echo "IGCM_sys_Put_Out :" $@
547  fi
548
549  typeset status
550
551  if [ $DRYRUN = 0 ]; then
552    if [ ! -f ${1} ] ; then
553      echo "WARNING : IGCM_sys_Put_Out ${1} DOES NOT EXIST ."
554      IGCM_debug_PopStack "IGCM_sys_Put_Out"
555      return 1
556    fi
557    #
558    IGCM_sys_MkdirArchive $( dirname $2 )
559    #
560    if [ X${JobType} = XRUN ] ; then
561      if [ X${3} = X ] ; then
562        IGCM_sys_Chmod 444 ${1}
563      fi
564    fi
565    #
566
567    echo ${RSYNC} ${RSYNC_opt} $1 $2 > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
568    ${RSYNC} ${RSYNC_opt} $1 $2 >> ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
569    status=$?
570    IGCM_sys_Rsync_out $status
571
572    ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
573    (( status=status+$? ))
574
575    if [ ${status} -gt 0 ] ; then
576      IGCM_debug_Print 2 "IGCM_sys_Put_Out : rsync failed error code ${status}"
577      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
578      IGCM_debug_Exit "IGCM_sys_Put_Out"
579    else
580      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
581    fi
582  fi
583  IGCM_debug_PopStack "IGCM_sys_Put_Out"
584  return 0
585}
586
587#D-#==================================================
588#D-function IGCM_sys_Get
589#D-* Purpose: Get a file from ${ARCHIVE}
590#D-* Examples: IGCM_sys_Get myfile /destpath/myfile_with_PREFIX
591#D-            IGCM_sys_Get /l Array_contain_myfiles /destpath/
592function IGCM_sys_Get {
593  IGCM_debug_PushStack "IGCM_sys_Get" $@
594
595  typeset DEST status dm_liste
596
597  if ( $DEBUG_sys ) ; then
598    echo "IGCM_sys_Get :" $@
599  fi
600  if [ $DRYRUN -le 2 ]; then
601    if [ X${1} = X'/l' ] ; then
602      eval set +A dm_liste \${${2}}
603    else
604      dm_liste=${1}
605    fi
606    eval DEST=\${${#}}
607
608    # test if the (first) file is present in the old computation :
609    IGCM_sys_TestFileArchive ${dm_liste[0]}
610    status=$?
611    if [ ${status} -gt 0 ] ; then
612      echo "IGCM_sys_Get, ERROR : regular file ${dm_liste[0]} DOES NOT EXIST ."
613      IGCM_debug_Exit "IGCM_sys_Get"
614      return
615    fi
616
617    #USUAL WAY
618    \cp ${dm_liste[*]} ${DEST} > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
619    status=$?
620
621    if [ ${status} -gt 0 ] ; then
622      IGCM_debug_Print 2 "IGCM_sys_Get : cp failed error code ${status}"
623      cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
624      IGCM_debug_Exit "IGCM_sys_Get"
625    else
626      \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
627    fi
628  fi
629  IGCM_debug_PopStack "IGCM_sys_Get"
630}
631
632#D-#==================================================
633#D-function IGCM_sys_GetDate_Monitoring
634#D-* Purpose: get the last year for which the monitoring has been computed
635#D-* Examples:
636#D-
637function IGCM_sys_GetDate_Monitoring {
638  IGCM_debug_PushStack "IGCM_sys_GetDate_Monitoring" $@
639  if ( $DEBUG_sys ) ; then
640    echo "IGCM_sys_GetDate_Monitoring :" $@
641  fi
642
643  eval ${2}=$( cdo showyear ${1} 2> /dev/null | gawk '{ print $NF }' )
644
645  IGCM_debug_PopStack "IGCM_sys_GetDate_Monitoring"
646}
647
648#D-#==================================================
649#D-function IGCM_sys_Dods_Rm
650#D-* Purpose: DO NOTHING ! Put ${ARCHIVE} files on DODS internet protocole.
651#D-* Examples:
652#D-
653function IGCM_sys_Dods_Rm {
654  if ( $DEBUG_sys ) ; then
655    echo "IGCM_sys_Dods_Rm :" $@
656  fi
657  return 0
658}
659
660#D-#==================================================
661#D-function IGCM_sys_Dods_Cp
662#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole.
663#D-* Examples:
664#D-
665function IGCM_sys_Dods_Cp {
666  if ( $DEBUG_sys ) ; then
667    echo "IGCM_sys_Dods_Cp :" $@
668  fi
669  return 0
670}
671
672#D-#==================================================
673#D-function IGCM_sys_Put_Dods
674#D-* Purpose: Put ${ARCHIVE} files on DODS internet protocole. Dummy function here
675#D-* Examples:
676#D-
677function IGCM_sys_Put_Dods {
678  IGCM_debug_PushStack "IGCM_sys_Put_Dods" $@
679  if ( $DEBUG_sys ) ; then
680    echo "IGCM_sys_Put_Dods :" $@
681  fi
682  IGCM_debug_PopStack "IGCM_sys_Put_Dods"
683}
684
685##############################################################
686# REBUILD OPERATOR
687
688#D-#==================================================
689#D-function IGCM_sys_sync
690#D-* Purpose: flush buffer on disk (dummy function on Ada)
691#D-* Examples:
692#D-
693function IGCM_sys_sync {
694  IGCM_debug_PushStack "IGCM_sys_sync" $@
695  if ( $DEBUG_sys ) ; then
696    echo "IGCM_sys_sync :" $@
697    echo "Dummy call, let the system do that."
698  fi
699  IGCM_debug_PopStack "IGCM_sys_sync"
700}
701
702############################################################
703# Activate Running Environnment Variables
704
705#D-#==================================================
706#D-function IGCM_sys_activ_variables
707#D-* Purpose: set environement variables prior to execution
708#D-* Examples:
709#D-
710function IGCM_sys_activ_variables {
711  IGCM_debug_PushStack "IGCM_sys_activ_variables"
712  if ( $DEBUG_sys ) ; then
713    echo "IGCM_sys_activ_variables"
714  fi
715
716# --------------------------------------------------------------------
717#D- MPI specifications
718# --------------------------------------------------------------------
719
720# --------------------------------------------------------------------
721#D- Other specifications
722# --------------------------------------------------------------------
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
820  IGCM_debug_Print 3 " dummy function : IGCM_sys_build_run_file "
821
822}
823
824############################################################
825# Build MPI/OMP scripts
826
827#D-#==================================================
828#D-function IGCM_sys_build_execution_scripts
829#D-* Purpose: build execution scripts to be launch by ${HOST_MPIRUN_COMMAND}
830#D-* Examples:
831#D-
832function IGCM_sys_build_execution_scripts
833{
834  IGCM_debug_PushStack "IGCM_sys_build_execution_scripts" $@
835  if ( $DEBUG_sys ) ; then
836    echo "IGCM_sys_build_execution_scripts " $@
837  fi
838
839  typeset nodes listnodes init_node start_num init_exec comp ExeNameIn ExeNameOut
840  typeset node_num_current node_current comp_proc_mpi_loc comp_proc_omp_loc
841  typeset num_corempi nombre_restant_node nombre_restant_comp
842
843  if ( ${OK_PARA_MPMD} ) ; then
844
845    if [ -f run_file ] ; then
846      IGCM_sys_Rm -f run_file
847    fi
848    touch run_file
849
850    if ( ${OK_PARA_OMP} ) ; then
851
852      #  Hosts treatment
853
854      ${HOST_MPIRUN_COMMAND} hostname | sort | uniq > hosts.tmp
855
856      i=0
857      rm -f hosts
858      IGCM_debug_Print 1 "sys $( hostname ), Hosts avaible :"
859      for nodes in `cat hosts.tmp` ; do
860        host[$i]=$nodes
861        echo "${host[$i]} slots=1 max_slots=1" >> hosts
862        IGCM_debug_Print 1 ${host[$i]}
863        i=$((i+1))
864      done
865      rm -f hosts.tmp
866
867      listnodes=${host[*]}
868
869      EXECUTION="${HOST_MPIRUN_COMMAND} -hostfile hosts"
870
871      # Initialisation
872
873      init_node=y
874      node_num_current=0
875      start_num=0
876      init_exec=n
877
878      # Build run_file
879
880      # First loop on the components for the coupler ie oasis (only if oasis3)
881      # the coupler ie oasis3 must be the first one
882      for comp in ${config_ListOfComponents[*]} ; do
883
884        if [ "X${comp}" = "XCPL" ]  ; then
885
886          eval ExeNameIn=\${config_Executable_${comp}[0]}
887          eval ExeNameOut=\${config_Executable_${comp}[1]}
888
889          echo "#!/bin/ksh" > script_${ExeNameOut}.ksh
890          echo ""  >> script_${ExeNameOut}.ksh
891          #echo "export KMP_STACKSIZE=3g"  >> script_${ExeNameOut}.ksh
892          #echo "export KMP_LIBRARY=turnaround"  >> script_${ExeNameOut}.ksh
893          #echo "export MKL_SERIAL=YES"  >> script_${ExeNameOut}.ksh
894          echo "./${ExeNameOut} > out_${ExeNameOut}.out 2>out_${ExeNameOut}.err"  >> script_${ExeNameOut}.ksh
895          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
896
897          init_node=n
898
899          (( nombre_restant_node = NUM_COREPERNODE - 1 ))
900          node_num_current=0
901          node_current=${host[${node_num_current}]}
902
903          EXECUTION="${EXECUTION} -H ${node_current} -np 1 ./script_${ExeNameOut}.ksh"
904
905          init_exec=y
906          start_num=1
907
908        fi
909
910      done
911
912      # Then loop on the components (except for oasis)
913
914      for comp in ${config_ListOfComponents[*]} ; do
915
916        eval ExeNameIn=\${config_Executable_${comp}[0]}
917        eval ExeNameOut=\${config_Executable_${comp}[1]}
918
919        # Only if we really have an executable for the component :
920        if ( [ "X${ExeNameOut}" != X\"\" ] &&  [ "X${comp}" != "XCPL" ] ) ; then
921
922          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
923          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
924
925          echo "#!/bin/ksh" > script_${ExeNameOut}.ksh
926          # echo "set -vx" >> script_${ExeNameOut}.ksh
927          echo ""  >> script_${ExeNameOut}.ksh
928          #echo "export KMP_STACKSIZE=3g"  >> script_${ExeNameOut}.ksh
929          #echo "export KMP_LIBRARY=turnaround"  >> script_${ExeNameOut}.ksh
930          #echo "export MKL_SERIAL=YES"  >> script_${ExeNameOut}.ksh
931          echo "OMP_NUM_THREADS=${comp_proc_omp_loc}" >> script_${ExeNameOut}.ksh
932          echo "(( MYMPIRANK = OMPI_COMM_WORLD_RANK - ${start_num})) " >>  script_${ExeNameOut}.ksh
933          echo "./${ExeNameOut} > out_${ExeNameOut}.out.\${MYMPIRANK} 2>out_${ExeNameOut}.err.\${MYMPIRANK}"  >> script_${ExeNameOut}.ksh
934          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
935
936          node_num=0
937
938          # We define the number of MPI process to be assigned for the component
939
940          nombre_restant_comp=${comp_proc_mpi_loc}
941
942          # Loop on the allocated nodes
943
944          for node in ${listnodes} ; do
945
946            # We go to the current node
947            if [ ${node_num} = ${node_num_current} ] ; then
948
949              node_current=${host[${node_num_current}]}
950
951              # If first time on the node : initialisation
952
953              if [ ${init_node} = y ] ; then
954                nombre_restant_node=${NUM_COREPERNODE}
955              fi
956
957              # Test on the number of OMP threads
958
959              if [ ${comp_proc_omp_loc} -gt ${nombre_restant_node} ] ; then
960                (( node_num = node_num + 1 ))
961                node_num_current=${node_num}
962                init_node=y
963                continue
964              fi
965
966              # Number of MPI process to assign
967
968              (( num_corempi = nombre_restant_node / comp_proc_omp_loc ))
969
970              if [ ${num_corempi} -gt ${nombre_restant_comp} ] ; then
971                num_corempi=${nombre_restant_comp}
972              fi
973
974              (( nombre_restant_node = nombre_restant_node - num_corempi * comp_proc_omp_loc ))
975              (( nombre_restant_comp = nombre_restant_comp - num_corempi ))
976
977              if [ ${init_exec} = y ] ; then
978                EXECUTION="${EXECUTION} : -H ${node_current} -np ${num_corempi} ./script_${ExeNameOut}.ksh"
979              else
980                EXECUTION="${EXECUTION} -H ${node_current} -np ${num_corempi} ./script_${ExeNameOut}.ksh"
981                init_exec=y
982              fi
983
984              ((  start_num = num_corempi + start_num ))
985
986            else
987
988              (( node_num = node_num + 1 ))
989              continue
990            fi
991
992            # Test on the number of core/process remaining on the node/component
993
994            if [ ${nombre_restant_node} = 0 ] ; then
995              (( node_num = node_num + 1 ))
996              node_num_current=${node_num}
997              init_node=y
998
999              if [ ${nombre_restant_comp} = 0 ] ; then
1000                break 1
1001              fi
1002            else
1003
1004              node_num_current=${node_num}
1005              init_node=n
1006
1007              if [ ${nombre_restant_comp} = 0 ] ; then
1008                break 1
1009              fi
1010            fi
1011          done
1012        fi
1013      done
1014
1015    else
1016
1017      # Then first loop on the components for the coupler ie oasis
1018
1019      ## the coupler ie oasis must be the first one
1020      for comp in ${config_ListOfComponents[*]} ; do
1021
1022        eval ExeNameOut=\${config_Executable_${comp}[1]}
1023
1024        # for CPL component only
1025        if [ "X${comp}" = "XCPL" ] ; then
1026          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
1027          echo "-np ${comp_proc_mpi_loc} ./${ExeNameOut} " >> run_file
1028        fi
1029      done
1030
1031      # Then second loop on the components
1032
1033      for comp in ${config_ListOfComponents[*]} ; do
1034
1035        eval ExeNameOut=\${config_Executable_${comp}[1]}
1036
1037        # Only if we really have an executable for the component and not the coupler ie oasis:
1038        if ( [ "X${ExeNameOut}" != X\"\" ] && [ "X${comp}" != "XCPL" ] ) ; then
1039          eval comp_proc_mpi_loc=\${${comp}_PROC_MPI}
1040          echo "-np ${comp_proc_mpi_loc} ./${ExeNameOut}" >> run_file
1041        fi
1042      done
1043      IGCM_sys_Chmod u+x run_file
1044
1045      EXECUTION="${HOST_MPIRUN_COMMAND} --app ./run_file"
1046
1047    fi
1048
1049  else # Only one executable. launch it.
1050
1051    for comp in ${config_ListOfComponents[*]} ; do
1052
1053      # Only if we really have an executable for the component :
1054      eval ExeNameOut=\${config_Executable_${comp}[1]}
1055      if ( [ "X${ExeNameOut}" != X\"\" ] && [ "X${ExeNameOut}" != "Xinca.dat" ] ) ; then
1056
1057        echo "#!/bin/ksh" > script_${ExeNameOut}.ksh
1058        echo ""  >> script_${ExeNameOut}.ksh
1059        if ( ${OK_PARA_OMP} ) ; then
1060          eval comp_proc_omp_loc=\${${comp}_PROC_OMP}
1061          echo "OMP_NUM_THREADS=${comp_proc_omp_loc}" >> script_${ExeNameOut}.ksh
1062        fi
1063        if  ( ${OK_PARA_MPI} ) ; then
1064          # Default : mpirun used if nb_proc gt 1
1065          # pour sortie out/err par process
1066          # echo "./${ExeNameOut} > out_${ExeNameOut}.out.\${OMPI_COMM_WORLD_RANK} 2>out_${ExeNameOut}.err.\${OMPI_COMM_WORLD_RANK}"  >> script_${ExeNameOut}.ksh
1067          echo "./${ExeNameOut}" >> script_${ExeNameOut}.ksh
1068          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
1069          EXECUTION="${HOST_MPIRUN_COMMAND} ./script_${ExeNameOut}.ksh"
1070        else
1071          # Default : mpirun is NOT used if nb_proc eq 1
1072          # pour sortie out/err par process
1073          # echo "./${ExeNameOut} > out_${ExeNameOut}.out 2>out_${ExeNameOut}.err" >> script_${ExeNameOut}.ksh
1074          echo "./${ExeNameOut}" >> script_${ExeNameOut}.ksh
1075          IGCM_sys_Chmod u+x script_${ExeNameOut}.ksh
1076          EXECUTION="time ./script_${ExeNameOut}.ksh"
1077        fi
1078
1079        IGCM_debug_Print 1 "sys $( hostname ) : script_${ExeNameOut}.ksh contains"
1080        cat script_${ExeNameOut}.ksh
1081
1082      fi
1083
1084    done
1085
1086  fi
1087
1088  IGCM_debug_Print 1 "sys $( hostname ) : execution command is"
1089  IGCM_debug_Print 1 "$EXECUTION"
1090
1091  IGCM_debug_PopStack "IGCM_sys_build_execution_scripts"
1092}
1093
1094#D-#==================================================
1095#D-function IGCM_sys_check_path
1096#D-* Purpose: check that RUN_DIR_PATH that will be removed on some machine
1097#D-* do not point to an important use directory. Stop immediately in that case.
1098#D-* Examples:
1099#D-
1100function IGCM_sys_check_path {
1101  IGCM_debug_PushStack "IGCM_sys_check_path"
1102  if ( $DEBUG_sys ) ; then
1103    echo "IGCM_sys_check_path"
1104  fi
1105
1106  if ( [ X${RUN_DIR_PATH} = X${HOME} ] || [ X${RUN_DIR_PATH} = X${ARCHIVE} ] ) ; then
1107    IGCM_debug_Print 1 "Variable RUN_DIR_PATH is pointing to an important directory : ${RUN_DIR_PATH}"
1108    IGCM_debug_Print 1 "Please check the RUN_DIR_PATH definition in your Job : Job_${config_UserChoices_JobName}"
1109    IGCM_debug_Exit "This will stop the job"
1110  fi
1111  IGCM_debug_PopStack "IGCM_sys_check_path"
1112}
1113
1114#D-#==================================================
1115#D-function IGCM_sys_check_quota. Dummy call here
1116#D-* Purpose: check user quota. Stop the simulation if quota above 90%
1117#D-* Examples:
1118#D-
1119function IGCM_sys_check_quota {
1120  IGCM_debug_PushStack "IGCM_sys_check_quota"
1121  if ( $DEBUG_sys ) ; then
1122    echo "IGCM_sys_check_quota"
1123  fi
1124  IGCM_debug_PopStack "IGCM_sys_check_quota"
1125}
1126
1127#D-#==================================================
1128#D-function IGCM_sys_getJobSchedulerID
1129#D-* Purpose: Get the job ID during execution
1130#D-* Examples: IGCM_sys_getJobSchedulerID jobSchedulerID
1131#D-
1132function IGCM_sys_getJobSchedulerID {
1133  IGCM_debug_PushStack "IGCM_sys_getJobSchedulerID"
1134  if ( $DEBUG_sys ) ; then
1135    echo "IGCM_sys_getJobSchedulerID"
1136  fi
1137
1138  eval ${1}="N/A"
1139
1140  IGCM_debug_PopStack "IGCM_sys_getJobSchedulerID"
1141}
1142
1143#D-#==================================================
1144#D-function IGCM_sys_CountJobInQueue
1145#D-* Purpose: Count number of users job
1146#D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
1147#D-
1148function IGCM_sys_CountJobInQueue {
1149  IGCM_debug_PushStack "IGCM_sys_CountJobInQueue"
1150  if ( $DEBUG_sys ) ; then
1151    echo "IGCM_sys_CountJobInQueue"
1152  fi
1153  IGCM_debug_PopStack "IGCM_sys_CountJobInQueue"
1154}
1155
1156#D-#==================================================
1157#D-function IGCM_sys_atlas
1158#D-* Purpose: encapsulate atlas call so as to manage error code and curie specificity
1159#D-* Examples:
1160#D-
1161function IGCM_sys_atlas {
1162  IGCM_debug_PushStack "IGCM_sys_atlas" $@
1163  if ( $DEBUG_sys ) ; then
1164    echo "IGCM_sys_atlas :" $@
1165  fi
1166
1167  typeset status
1168
1169  \atlas $@ > ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$ 2>&1
1170  status=$?
1171  if [ ${status} -gt 0 ] ; then
1172    echo "IGCM_sys_atlas : error code ${status}"
1173    cat ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
1174    \rm ${OUTCOMMAND_PATH}/out_command_${LOGIN}.$$
1175    IGCM_debug_PopStack "IGCM_sys_atlas"
1176    return 1
1177  else
1178    IGCM_debug_PopStack "IGCM_sys_atlas"
1179    return 0
1180  fi
1181
1182  IGCM_debug_PopStack "IGCM_sys_atlas"
1183}
1184
Note: See TracBrowser for help on using the repository browser.