source: trunk/libIGCM/libIGCM_sys/libIGCM_sys_titane.ksh @ 548

Last change on this file since 548 was 548, checked in by sdipsl, 12 years ago

Bugfix : when retrieving input ifiles from another filesystem than /dmnfs you must not use dmget ... it hangs forever ...
  • Property svn:keywords set to Revision Author Date
File size: 50.6 KB
Line 
1#!/bin/ksh
2
3#**************************************************************
4# Author: Sebastien Denvil, Martial Mancip, Arnaud Caubel
5# Contact: Arnaud.Caubel__at__lsce.ipsl.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 for Titane
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 |            |  Chmod  |                           |
46# |          |      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=titane
71
72#D-
73#D-#==================================================
74#D-Program used in libIGCM
75#D-#==================================================
76
77# rsync with path
78typeset -r RSYNC=/usr/bin/rsync
79# RSYNC_opt args to rsync
80typeset -r RSYNC_opt="-va"
81# ie storage filesystem
82typeset -r STOREHOST=${MASTER}
83
84#====================================================
85# Source default environment
86#====================================================
87. /etc/profile
88
89#====================================================
90# Set environment tools (ferret, nco, cdo)
91#====================================================
92. /home/cont003/p86ipsl/.atlas_env_titane_ksh
93
94module switch nco/4.0.8 nco/3.9.4_netcdf4
95
96#====================================================
97# Specific for ocean additionnal diagnostic
98export FER_GO="$FER_GO /home/cont003/p86denv/IGCM_POST_UTIL/JNL /home/cont003/p86denv/GRAF /home/cont003/p86denv/GRAF/GO"
99export FER_PALETTE="$FER_PALETTE /home/cont003/p86denv/GRAF/PALET"
100
101#====================================================
102# Host specific DIRECTORIES
103#====================================================
104
105#====================================================
106#- R_EXE   (==> BIN_DIR = ${MODIPSL}/bin )
107typeset -r R_EXE="${MODIPSL}/bin"
108
109#====================================================
110#- SUBMIT_DIR : submission dir
111typeset SUBMIT_DIR=${SUBMIT_DIR:=${LS_SUBCWD}}
112
113#====================================================
114#- ARCHIVE
115typeset -r ARCHIVE=${DMFDIR}
116
117# ============ CESIUM START ============ #
118
119#====================================================
120#- Mirror libIGCM from titane to cesium if needed
121#ROOTSYS=$( echo ${libIGCM} | gawk -F"/" '{print $3}' )
122#if [ ! ${ROOTSYS} = "home" ] ; then
123#  typeset -r MirrorlibIGCM=${MirrorlibIGCM:=true}
124#else
125#  typeset -r MirrorlibIGCM=${MirrorlibIGCM:=false}
126#fi
127
128#====================================================
129#- libIGCM_POST
130#if ( ${MirrorlibIGCM} ) ; then
131#  PATHlibIGCM=$( echo ${libIGCM} | gawk -F"${LOGIN}/" '{print $2}' | sed -e "s&/libIGCM&&" )
132#  typeset -r libIGCM_POST=${HOME}/MIRROR/${PATHlibIGCM}/libIGCM
133#else
134#  typeset -r libIGCM_POST=${libIGCM}
135#fi
136
137# ============ CESIUM  END  ============ #
138
139#====================================================
140#- MirrorlibIGCM for frontend
141typeset -r MirrorlibIGCM=${MirrorlibIGCM:=false}
142
143#====================================================
144#- libIGCM_POST for frontend
145typeset -r libIGCM_POST=${libIGCM}
146
147#====================================================
148#- IN
149typeset -r R_IN=${R_IN:=/ccc/work/cont003/dsm/p86ipsl/IGCM}
150typeset -r R_IN_ECMWF=${R_IN_ECMWF:=/dmnfs/cont003/p24data}
151
152#====================================================
153#- R_OUT
154typeset -r R_OUT=${ARCHIVE}/IGCM_OUT
155
156#====================================================
157#- R_BUF (ONLY FOR double copy an scratch)
158typeset -r R_BUF=${SCRATCHDIR}/IGCM_OUT
159
160#====================================================
161#- BIG_DIR : BIG_DIR to store files waiting for rebuild
162typeset -r BIG_DIR=${BIG_DIR:=${SCRATCHDIR}/REBUILD}
163
164#====================================================
165#- OUT_POST
166typeset -r R_OUT_POST=${SCRATCHDIR}/IGCM_OUT
167
168#====================================================
169#- RUN_DIR_PATH : Temporary working directory (=> TMP)
170if [ ! X${LSB_QUEUE} = Xmono ] ; then
171  typeset -r RUN_DIR_PATH=${RUN_DIR_PATH:=${SCRATCHDIR}/RUN_DIR/${LSB_JOBID}}
172else
173  typeset -r RUN_DIR_PATH=${RUN_DIR_PATH:=${SCRATCHDIR}/TMPDIR_IGCM/${LSB_JOBID}}
174fi
175
176#====================================================
177#- HOST_MPIRUN_COMMAND
178typeset -r HOST_MPIRUN_COMMAND=${HOST_MPIRUN_COMMAND:="time mpirun"}
179
180#====================================================
181#- Max number of arguments passed to nco operator or demigration command
182UNIX_MAX_LIMIT=360
183
184#D-#==================================================
185#D-function IGCM_sys_RshMaster
186#D-* Purpose: Connection to frontend machine.
187#D-* Examples:
188#D-
189function IGCM_sys_RshMaster {
190  IGCM_debug_PushStack "IGCM_sys_RshMaster" $@
191  /bin/ksh <<-EOF
192    export libIGCM=${libIGCM}
193    export DEBUG_debug=${DEBUG_debug}
194    . ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh
195    . ${libIGCM}/libIGCM_card/libIGCM_card.ksh
196    ${@}
197EOF
198  if [ $? -gt 0 ] ; then
199    echo "IGCM_sys_RshMaster : erreur."
200    IGCM_debug_Exit "IGCM_sys_RshMaster"
201  fi
202  IGCM_debug_PopStack "IGCM_sys_RshMaster"
203}
204
205#D-#==================================================
206#D-function IGCM_sys_RshArchive
207#D-* Purpose: Archive rsh command
208#D-* Examples:
209#D-
210function IGCM_sys_RshArchive {
211  IGCM_debug_PushStack "IGCM_sys_RshArchive" $@
212  /bin/ksh <<-EOF
213    ${@}
214EOF
215  if [ $? -gt 0 ] ; then
216    echo "IGCM_sys_RshArchive : erreur."
217    IGCM_debug_Exit "IGCM_sys_RshArchive"
218  fi
219  IGCM_debug_PopStack "IGCM_sys_RshArchive"
220}
221
222#D-#==================================================
223#D-function IGCM_sys_RshPost
224#D-* Purpose: Post-process rsh command
225#D-* Examples:
226#D-
227function IGCM_sys_RshPost {
228  IGCM_debug_PushStack "IGCM_sys_RshPost" $@
229  if ( $DEBUG_sys ) ; then
230    echo "IGCM_sys_RshPost :" $@
231  fi
232
233  #echo cat tmp_IGCM_sys_RshPost_$$ INITIAL
234  #cat tmp_IGCM_sys_RshPost_$$
235  # keep standard input (stdin) for the loop onto temporary file
236  cat >tmp_IGCM_sys_RshPost_$$
237
238# ============ FRONTEND START ============ #
239
240  /bin/ksh <tmp_IGCM_sys_RshPost_$$
241  if [ $? -gt 0 ] ; then
242    echo "IGCM_sys_RshPost : erreur."
243    IGCM_debug_Exit "IGCM_sys_RshPost"
244  fi
245  # delete temporary file
246  \rm tmp_IGCM_sys_RshPost_$$
247
248# ============ FRONTEND  END  ============ #
249
250# ============ CESIUM START ============ #
251#  typeset NB_ESSAI DELAI status i
252#  if [ "X$( grep rebuild_from tmp_IGCM_sys_RshPost_$$ )" != "X" ] ; then
253#    #little hack so that rebuild submission is done on titane not an cesium
254#   
255#    libIGCM_POST_sed=$( echo $libIGCM_POST | sed 's/\//\\\//g' )
256#    POST_DIR_sed=$( echo ${POST_DIR} | sed 's/\//\\\//g' )
257#    sed "s/IGCM_sys_QsubPost/IGCM_sys_Qsub/g" tmp_IGCM_sys_RshPost_$$ > tmp.txt
258#    sed "s/ rebuild_fromWorkdir/ ${libIGCM_POST_sed}\/rebuild_fromWorkdir.job/g" tmp.txt > tmp_IGCM_sys_RshPost_$$
259#    sed "s/ rebuild_fromArchive/ ${libIGCM_POST_sed}\/rebuild_fromArchive.job/g" tmp_IGCM_sys_RshPost_$$ > tmp.txt
260#    sed "s/Script_Post_Output=/Script_Output=${POST_DIR_sed}\//g" tmp.txt > tmp_IGCM_sys_RshPost_$$
261#    \mv tmp.txt tmp_IGCM_sys_RshPost_$$
262#   
263#    echo cat tmp_IGCM_sys_RshPost_$$ AFTER
264#    cat tmp_IGCM_sys_RshPost_$$
265#
266#    /bin/ksh <tmp_IGCM_sys_RshPost_$$
267#    if [ $? -gt 0 ] ; then
268#      echo "IGCM_sys_RshPost : erreur."
269#      IGCM_debug_Exit "IGCM_sys_RshPost"
270#    fi
271#    # delete temporary file
272#    \rm tmp_IGCM_sys_RshPost_$$
273#
274#  else
275#    # number of tentative
276#    NB_ESSAI=10
277#    # time delay between tentative
278#    DELAI=10
279#    i=0
280#    while [ $i -ne $NB_ESSAI ] ; do
281#      ssh -t titane996 ssh cesium /bin/ksh <tmp_IGCM_sys_RshPost_$$
282#      status=$?
283#      if [ ${status} -ne 0 ];
284#      then
285#       sleep $DELAI
286#      else
287#       break
288#      fi
289#      let i=$i+1
290#    done
291#    # delete temporary file
292#    \rm tmp_IGCM_sys_RshPost_$$
293#
294#    if [ ${status} -gt 0 ] ; then
295#      echo "IGCM_sys_RshPost : erreur."
296#      IGCM_debug_Exit "IGCM_sys_RshPost"
297#    fi
298#  fi
299
300# ============ CESIUM  END  ============ #
301
302  IGCM_debug_PopStack "IGCM_sys_RshPost"
303}
304
305#D-#==================================================
306#D-function IGCM_sys_SendMail
307#D-* Purpose: Send mail when simulation is over
308#D-* Examples:
309#D-
310function IGCM_sys_SendMail {
311  IGCM_debug_PushStack "IGCM_sys_SendMail" $@
312  if ( $DEBUG_sys ) ; then
313    echo "IGCM_sys_SendMail :" $@
314  fi
315
316  if ( ${ExitFlag} ) ; then
317    status=failed
318  else
319    status=completed
320  fi
321
322  ssh -t titane996 ssh platine /bin/ksh <<-EOF
323    export LOGIN=${LOGIN}
324    export config_UserChoices_JobName=${config_UserChoices_JobName}
325    export config_UserChoices_MailName=${config_UserChoices_MailName}
326    export DateBegin=${DateBegin}
327    export DateEnd=${DateEnd}
328    export R_SAVE=${R_SAVE}
329    export SUBMIT_DIR=${SUBMIT_DIR}
330    export status=${status}
331
332    cat  << END_MAIL > job_end.mail
333Dear ${LOGIN},
334
335  Simulation ${config_UserChoices_JobName} is ${status} on supercomputer `hostname`.
336  Job started : ${DateBegin}
337  Job ended   : ${DateEnd}
338  Output files are available in ${R_SAVE}
339  Script files, Script Outputs and Debug files (if necessary) are available in ${SUBMIT_DIR}
340END_MAIL
341
342    if [ ! -z ${config_UserChoices_MailName} ] ; then
343        mailx -s "${config_UserChoices_JobName} ${status}" ${config_UserChoices_MailName} < job_end.mail
344    elif [ -f ~/.forward ] ; then
345        mailx -s "${config_UserChoices_JobName} ${status}" $( cat ~/.forward ) < job_end.mail
346    fi
347    sleep 10
348    rm -f job_end.mail
349EOF
350
351  if [ $? -gt 0 ] ; then
352    echo "IGCM_sys_SendMail : erreur."
353    IGCM_debug_Exit "IGCM_sys_SendMail"
354  fi
355  IGCM_debug_PopStack "IGCM_sys_SendMail"
356}
357
358#D-#==================================================
359#D-function IGCM_sys_Mkdir
360#D-* Purpose: Master locale mkdir command
361#D-* Examples:
362#D-
363function IGCM_sys_Mkdir {
364  IGCM_debug_PushStack "IGCM_sys_Mkdir" $@
365  if ( $DEBUG_sys ) ; then
366    echo "IGCM_sys_Mkdir :" $@
367  fi
368  if [ ! -d ${1} ]; then
369    \mkdir -p $1
370    if [ $? -gt 0 ] ; then
371      echo "IGCM_sys_Mkdir : erreur."
372      IGCM_debug_Exit "IGCM_sys_Mkdir"
373    fi
374  fi
375  # vérification :
376  if [ ! -d ${1} ] ; then
377    echo "IGCM_sys_Mkdir : erreur."
378    IGCM_debug_Exit "IGCM_sys_Mkdir"
379  fi
380  IGCM_debug_PopStack "IGCM_sys_Mkdir"
381}
382
383#D-#==================================================
384#D-function IGCM_sys_MkdirArchive
385#D-* Purpose: Mkdir on Archive
386#D-* Examples:
387#D-
388function IGCM_sys_MkdirArchive {
389  IGCM_debug_PushStack "IGCM_sys_MkdirArchive" $@
390  if ( $DEBUG_sys ) ; then
391    echo "IGCM_sys_MkdirArchive :" $@
392  fi
393  #- creation de repertoire sur le serveur fichier
394  if [ ! -d ${1} ]; then 
395    \mkdir -p $1
396    if [ $? -gt 0 ] ; then
397      echo "IGCM_sys_MkdirArchive : erreur."
398      IGCM_debug_Exit "IGCM_sys_MkdirArchive"
399    fi
400  fi
401  IGCM_debug_PopStack "IGCM_sys_MkdirArchive"
402}
403
404#D-#==================================================
405#D-function IGCM_sys_MkdirWork
406#D-* Purpose: Mkdir on Work
407#D-* Examples:
408#D-
409function IGCM_sys_MkdirWork {
410  IGCM_debug_PushStack "IGCM_sys_MkdirWork" $@
411  if ( $DEBUG_sys ) ; then
412    echo "IGCM_sys_MkdirWork :" $@
413  fi
414  #- creation de repertoire sur le serveur fichier
415  if [ ! -d ${1} ]; then 
416    \mkdir -p $1
417    if [ $? -gt 0 ] ; then
418      echo "IGCM_sys_MkdirWork : erreur."
419      IGCM_debug_Exit "IGCM_sys_MkdirWork"
420    fi
421  fi
422  IGCM_debug_PopStack "IGCM_sys_MkdirWork"
423}
424
425#D-#==================================================
426#D-function IGCM_sys_Cd
427#D-* Purpose: master cd command
428#D-* Examples:
429#D-
430function IGCM_sys_Cd {
431  IGCM_debug_PushStack "IGCM_sys_Cd" $@
432  if ( $DEBUG_sys ) ; then
433    echo "IGCM_sys_Cd :" $@
434  fi
435  \cd $1
436  if [ $? -gt 0 ] ; then
437    echo "IGCM_sys_Cd : erreur."
438    IGCM_debug_Exit "IGCM_sys_Cd"
439  fi
440  IGCM_debug_PopStack "IGCM_sys_Cd"
441}
442
443#D-#==================================================
444#D-function IGCM_sys_Chmod
445#D-* Purpose: Chmod
446#D-* Examples:
447#D-
448function IGCM_sys_Chmod {
449  IGCM_debug_PushStack "IGCM_sys_Chmod" -- $@
450  if ( $DEBUG_sys ) ; then
451    echo "IGCM_sys_Chmod :" $@
452  fi
453  if [ $DRYRUN -le 1 ]; then
454    \chmod $@
455    if [ $? -gt 0 ] ; then
456      echo "IGCM_sys_Chmod : erreur."
457      IGCM_debug_Exit "IGCM_sys_Chmod"
458    fi
459  else
460    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
461  fi
462  IGCM_debug_PopStack "IGCM_sys_Chmod"
463}
464
465#D-#==================================================
466#D-function IGCM_sys_FileSize
467#D-* Purpose: Filesize
468#D-* Examples:
469#D-
470function IGCM_sys_FileSize {
471  IGCM_debug_PushStack "IGCM_sys_FileSize" $@
472
473  typeset sizeF
474  set +A sizeF -- $( ls -la ${1} )
475  if [ $? -gt 0 ] ; then
476    IGCM_debug_Exit "IGCM_sys_FileSize"
477  fi
478  eval ${2}=${sizeF[4]}
479
480  IGCM_debug_PopStack "IGCM_sys_FileSize"
481}
482
483#D-#==================================================
484#D-function IGCM_sys_TestDir
485#D-* Purpose: Test Directory that must exists
486#D-* Examples:
487#D-
488function IGCM_sys_TestDir {
489  IGCM_debug_PushStack "IGCM_sys_TestDir" $@
490  if ( $DEBUG_sys ) ; then
491    echo "IGCM_sys_TestDir :" $@
492  fi
493  typeset ExistFlag
494  ExistFlag=$( [ -d $1 ] && echo 0 || echo 1 )
495  IGCM_debug_PopStack "IGCM_sys_TestDir"
496
497  return ${ExistFlag}
498}
499
500#D-#==================================================
501#D-function IGCM_sys_TestDirArchive
502#D-* Purpose: Test Directory that must exists on Archive
503#D-* Examples:
504#D-
505function IGCM_sys_TestDirArchive {
506  IGCM_debug_PushStack "IGCM_sys_TestDirArchive" $@
507  if ( $DEBUG_sys ) ; then
508    echo "IGCM_sys_TestDirArchive :" $@
509  fi
510  typeset ExistFlag
511  ExistFlag=$( [ -d $1 ] && echo 0 || echo 1 )
512  IGCM_debug_PopStack "IGCM_sys_TestDirArchive"
513
514  return ${ExistFlag}
515}
516
517#D-#==================================================
518#D-function IGCM_sys_IsFileArchived
519#D-* Purpose: Test file that must NOT EXISTS on Archive
520#D-* Examples:
521#D-
522function IGCM_sys_IsFileArchived {
523  IGCM_debug_PushStack "IGCM_sys_IsFileArchived" $@
524  if ( $DEBUG_sys ) ; then
525    echo "IGCM_sys_IsFileArchived :" $@
526  fi
527  typeset IsArchivedFlag
528  IsArchivedFlag=$( [ X$( echo $1 | grep ^\/dmnfs ) != X ] && echo 0 || echo 1 )
529  IGCM_debug_PopStack "IGCM_sys_IsFileArchived"
530
531  return ${IsArchivedFlag}
532}
533
534#D-#==================================================
535#D-function IGCM_sys_TestFileArchive
536#D-* Purpose: Test file that must NOT EXISTS on Archive
537#D-* Examples:
538#D-
539function IGCM_sys_TestFileArchive {
540  IGCM_debug_PushStack "IGCM_sys_TestFileArchive" $@
541  if ( $DEBUG_sys ) ; then
542    echo "IGCM_sys_TestFileArchive :" $@
543  fi
544  typeset ExistFlag
545  ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 )
546  IGCM_debug_PopStack "IGCM_sys_TestFileArchive"
547
548  return ${ExistFlag}
549}
550
551#D-#==================================================
552#D-function IGCM_sys_TestFileBuffer
553#D-* Purpose: Test file that must NOT EXISTS on Buffer
554#D-* Examples:
555#D-
556function IGCM_sys_TestFileBuffer {
557  IGCM_debug_PushStack "IGCM_sys_TestFileBuffer" $@
558  typeset ExistFlag
559  ExistFlag=$( [ -f $1 ] && echo 0 || echo 1 )
560  IGCM_debug_PopStack "IGCM_sys_TestFileBuffer"
561
562  return ${ExistFlag}
563}
564
565#D-#==================================================
566#D-function IGCM_sys_CountFileArchive
567#D-* Purpose: Count files on Archive filesystem
568#D-* Examples:
569#D-
570function IGCM_sys_CountFileArchive {
571  IGCM_debug_PushStack "IGCM_sys_CountFileArchive" $@
572  ls ${@} 2>/dev/null | wc -l
573  if [ $? -gt 0 ] ; then
574    echo "IGCM_sys_CountFileArchive : erreur."
575  fi
576  IGCM_debug_PopStack "IGCM_sys_CountFileArchive"
577}
578
579#D-#==================================================
580#D-function IGCM_sys_CountFileBuffer
581#D-* Purpose: Count files on Scratch filesystem
582#D-* Examples:
583#D-
584function IGCM_sys_CountFileBuffer {
585  IGCM_debug_PushStack "IGCM_sys_CountFileBuffer" $@
586  ls ${@} 2>/dev/null | wc -l
587  if [ $? -gt 0 ] ; then
588    echo "IGCM_sys_CountFileBuffer : erreur."
589  fi
590  IGCM_debug_PopStack "IGCM_sys_CountFileBuffer"
591}
592
593#D-#==================================================
594#D-function IGCM_sys_Tree
595#D-* Purpose: Tree directories with files on ${ARCHIVE}
596#D-* Examples: IGCM_sys_Tree ${R_IN} ${R_OUT}
597#D-
598function IGCM_sys_Tree {
599  IGCM_debug_PushStack "IGCM_sys_Tree" $@
600  if ( $DEBUG_sys ) ; then
601    echo "IGCM_sys_Tree :" $@
602  fi
603
604  \ls -lR ${@}
605
606  IGCM_debug_PopStack "IGCM_sys_Tree"
607}
608
609#D-#==================================================
610#D-function IGCM_sys_Tar
611#D-* Purpose: master tar command
612#D-* Examples:
613#D-
614function IGCM_sys_Tar {
615  IGCM_debug_PushStack "IGCM_sys_Tar" $@
616  if ( $DEBUG_sys ) ; then
617    echo "IGCM_sys_Tar :" $@
618  fi
619  \tar cf $@
620  if [ $? -gt 0 ] ; then
621    echo "IGCM_sys_Tar : erreur."
622    IGCM_debug_Exit "IGCM_sys_Tar"
623  fi
624  IGCM_debug_PopStack "IGCM_sys_Tar"
625}
626
627#D-#==================================================
628#D-function IGCM_sys_UnTar
629#D-* Purpose: master un-tar command
630#D-* Examples:
631#D-
632function IGCM_sys_UnTar {
633  IGCM_debug_PushStack "IGCM_sys_UnTar" $@
634  if ( $DEBUG_sys ) ; then
635    echo "IGCM_sys_UnTar :" $@
636  fi
637  \tar xvf $1
638  if [ $? -gt 0 ] ; then
639    echo "IGCM_sys_UnTar : erreur."
640    IGCM_debug_Exit "IGCM_sys_UnTar"
641  fi
642  IGCM_debug_PopStack "IGCM_sys_UnTar"
643}
644
645#D-#==================================================
646#D-function IGCM_sys_Qsub
647#D-* Purpose: Qsub new job
648#D-* Examples:
649#D-
650function IGCM_sys_Qsub {
651  IGCM_debug_PushStack "IGCM_sys_Qsub" $@
652  if ( $DEBUG_sys ) ; then
653    echo "IGCM_sys_Qsub :" $@
654  fi
655  typeset options
656  if [ ${config_UserChoices_JobName}.${CumulPeriod} = "." ] ; then
657    options=" -o ${Script_Output} -e ${Script_Output}"
658  else
659    options=" -o ${Script_Output} -e ${Script_Output} -r ${config_UserChoices_JobName}.${CumulPeriod}"
660  fi
661
662  /usr/local/bin/ccc_msub ${options} < $1
663  if [ $? -gt 0 ] ; then
664    echo "IGCM_sys_Qsub : erreur ${options} $1"
665    IGCM_debug_Exit "IGCM_sys_Qsub"
666  fi
667  IGCM_debug_PopStack "IGCM_sys_Qsub"
668}
669
670#D-#==================================================
671#D-function IGCM_sys_QsubPost
672#D-* Purpose: Qsub new job on scalaire
673#D-* Examples:
674#D-
675function IGCM_sys_QsubPost {
676  IGCM_debug_PushStack "IGCM_sys_QsubPost" $@
677  if ( $DEBUG_sys ) ; then
678    echo "IGCM_sys_QsubPost :" $@
679  fi
680
681  # Need to export listVarEnv for cesium
682  # NO Need to export listVarEnv for titane
683# ============ FRONTEND START ============ #
684
685  /usr/local/bin/ccc_msub -p ${BRIDGE_MSUB_PROJECT} -o ${POST_DIR}/${Script_Post_Output}.out -e ${POST_DIR}/${Script_Post_Output}.out ${libIGCM_POST}/$1.job
686
687# ============ FRONTEND  END  ============ #
688
689# ============ CESIUM START ============ #
690#  typeset NB_ESSAI DELAI status i
691#  # number of tentative
692#  NB_ESSAI=10
693#  # time delay between tentative
694#  DELAI=10
695#  (( i = 0 ))
696#  while [ $i -lt $NB_ESSAI ] ; do
697#    /usr/local/bin/ccc_msub -o ${POST_DIR}/${Script_Post_Output}.out -e ${POST_DIR}/${Script_Post_Output}.e.out -E "-v ${listVarEnv}" ${libIGCM_POST}/$1.job
698#    status=$?
699#    if [ ${status} -gt 0 ]; then
700#      sleep $DELAI
701#    else
702#      break
703#    fi
704#    (( i = i + 1 ))
705#  done
706# ============ CESIUM  END  ============ #
707
708  if [ $? -gt 0 ] ; then
709    echo "IGCM_sys_QsubPost : erreur " $@
710    IGCM_debug_Exit "IGCM_sys_QsubPost"
711  fi
712  IGCM_debug_PopStack "IGCM_sys_QsubPost"
713}
714
715#D-*************************
716#D- File transfer functions
717#D-*************************
718#D-
719
720#D-#==================================================
721#D-function IGCM_sys_Rsync_out
722#D-* Purpose: treat return val of rsync
723#D-* Examples: IGCM_sys_Rsync_out out_RET_rsync
724#D-  Error values and explanations can depend on your system version.
725function IGCM_sys_Rsync_out {
726  RET=$1
727  if [ ! $RET ] ; then
728    echo "rsync error !"
729  fi
730
731  if [ $MYLANG = "fr" ]; then
732    case $RET in
733    0)  return ;;
734    1)  echo "Erreur de rsync ; RERR_SYNTAX : "
735      echo "Erreur de syntaxe ou d'utilisation."
736      return;;
737    2)  echo "Erreur de rsync ; RERR_PROTOCOL : "
738      echo "Incompatibilité de protocole."
739      return;;
740    3)  echo "Erreur de rsync ; RERR_FILESELECT 3"
741      echo "Erreurs  lors  de  la  sélection des fichiers d'entrée sortie et"
742      echo "répertoires"
743      return;;
744    4)  echo "Erreur de rsync ; RERR_UNSUPPORTED"
745      echo "Action demandée non supportée : une tentative de manipulation de"
746      echo "fichiers  64-bits  sur une plate-forme qui ne les supporte pas a"
747      echo "été faite ; ou une option qui est supportée par le  client  mais"
748      echo "pas par le serveur a été spécifiée."
749      return;;
750    10) echo "Erreur de rsync ; RERR_SOCKETIO"
751      echo "Erreur dans le socket d'entrée sortie"
752      return;;
753    11) echo "Erreur de rsync ; RERR_FILEIO"
754      echo "Erreur d'entrée sortie fichier"
755      return;;
756    12) echo "Erreur de rsync ; RERR_STREAMIO"
757      echo "Erreur dans flux de donnée du protocole rsync"
758      return;;
759    13) echo "Erreur de rsync ; RERR_MESSAGEIO"
760      echo "Erreur avec les diagnostics du programme"
761      return;;
762    14) echo "Erreur de rsync ; RERR_IPC"
763      echo "Erreur dans le code IPC"
764      return;;
765    20) echo "Erreur de rsync ; RERR_SIGNAL"
766      echo "SIGUSR1 ou SIGINT reçu"
767      return;;
768    21) echo "Erreur de rsync ; RERR_WAITCHILD"
769      echo "Une erreur retournée par waitpid()"
770      return;;
771    22) echo "Erreur de rsync ; RERR_MALLOC"
772      echo "Erreur lors de l'allocation des tampons de mémoire de coeur"
773      return;;
774    23) echo ""
775      echo "Erreur fichier inexistant"
776      return;;
777    30) echo "Erreur de rsync ; RERR_TIMEOUT"
778      echo "Temps d'attente écoulé dans l'envoi/réception de données"
779      return;;
780    *)  echo "Erreur de rsync : code de retour de rsync inconnu :" $RET
781      return;;
782    esac
783  elif [ $MYLANG = "en" ] ; then
784    case $RET in
785    0)  return;;               
786    1)  echo "rsync error : Syntax or usage error "
787      return;;
788    2)  echo "rsync error : Protocol incompatibility "
789      return;;
790    3)  echo "rsync error : Errors selecting input/output files, dirs"
791      return;;
792    4)  echo "rsync error : Requested action not supported: an attempt"
793      echo "was made to manipulate 64-bit files on a platform that cannot support"
794      echo "them; or an option was specified that is supported by the client and"
795      echo "not by the server."
796      return;;
797    5)  echo "rsync error : Error starting client-server protocol"
798      return;;
799    10) echo "rsync error : Error in socket I/O "
800      return;;
801    11) echo "rsync error : Error in file I/O "
802      return;;
803    12) echo "rsync error : Error in rsync protocol data stream "
804      return;;
805    13) echo "rsync error : Errors with program diagnostics "
806      return;;
807    14) echo "rsync error : Error in IPC code "
808      return;;
809    20) echo "rsync error : Received SIGUSR1 or SIGINT "
810      return;;
811    21) echo "rsync error : Some error returned by waitpid() "
812      return;;
813    22) echo "rsync error : Error allocating core memory buffers "
814      return;;
815    23) echo "rsync error : Partial transfer due to error"
816      return;;
817    24) echo "rsync error : Partial transfer due to vanished source files"
818      return;;
819    30) echo "rsync error : Timeout in data send/receive "
820      return;;
821    *)  echo "rsync error : return code of rsync unknown :" $RET
822      return;;
823    esac
824  else
825    echo "unknown language $MYLANG."
826    return
827  fi
828}
829
830#D-#==================================================
831#D-function IGCM_sys_Miror_libIGCM
832#D-* Purpose: Mirror libIGCM PATH and lib to cesium
833#D-* Examples:
834#D-
835function IGCM_sys_Mirror_libIGCM {
836  IGCM_debug_PushStack "IGCM_sys_Mirror_libIGCM"
837  if ( $DEBUG_sys ) ; then
838    echo "IGCM_sys_Mirror_libIGCM"
839  fi
840
841  typeset RET DEST
842
843  mkdir -p ${HOME}/MIRROR/${PATHlibIGCM}
844
845  echo ${RSYNC} ${RSYNC_opt} ${libIGCM} ${HOME}/MIRROR/${PATHlibIGCM} > out_rsync 2>&1
846  ${RSYNC} ${RSYNC_opt} ${libIGCM} ${HOME}/MIRROR/${PATHlibIGCM} >> out_rsync 2>&1
847  RET=$?
848
849  if [ ${RET} -gt 0 ] ; then
850    echo "IGCM_sys_Mirror_libIGCM Warning : no libIGCM on cesium."
851    cat out_rsync
852  fi
853  IGCM_debug_PopStack "IGCM_sys_Mirror_libIGCM"
854}
855
856#====================================================
857#- Call IGCM_sys_Mirror_libIGCM now !
858if ( $MirrorlibIGCM ) ; then
859  IGCM_sys_Mirror_libIGCM
860fi
861
862#D-#==================================================
863#D-function IGCM_sys_Cp
864#D-* Purpose: generic cp
865#D-* Examples:
866#D-
867function IGCM_sys_Cp {
868  IGCM_debug_PushStack "IGCM_sys_Cp" $@
869  if ( $DEBUG_sys ) ; then
870    echo "IGCM_sys_Cp :" $@
871  fi
872
873  typeset RET
874
875  echo cp $@ > out_rsync 2>&1
876  \cp $@ >> out_rsync 2>&1
877  RET=$?
878
879  if [ ${RET} -gt 0 ] ; then
880    echo "IGCM_sys_Cp : error."
881    cat out_rsync
882    IGCM_debug_Exit "IGCM_sys_Cp"
883  else
884    \rm out_rsync
885  fi
886  IGCM_debug_PopStack "IGCM_sys_Cp"
887}
888
889#D-#==================================================
890#D-function IGCM_sys_Rm
891#D-* Purpose: generic rm
892#D-* Examples:
893#D-
894function IGCM_sys_Rm {
895  IGCM_debug_PushStack "IGCM_sys_Rm" -- $@
896  if ( $DEBUG_sys ) ; then
897    echo "IGCM_sys_Rm :" $@
898  fi
899
900  typeset RET
901
902  echo rm $@ > out_rsync 2>&1
903  \rm $@ >> out_rsync 2>&1
904  RET=$?
905
906  if [ ${RET} -gt 0 ] ; then
907    echo "IGCM_sys_Rm : error."
908    cat out_rsync
909    IGCM_debug_Exit "IGCM_sys_Rm"
910  else
911    \rm out_rsync
912  fi
913  IGCM_debug_PopStack "IGCM_sys_Rm"
914}
915
916#D-#==================================================
917#D-function IGCM_sys_RmRunDir
918#D-* Purpose: rm tmpdir (dummy function most of the time batch
919#D-                      scheduler will do the job)
920#D-* Examples:
921#D-
922function IGCM_sys_RmRunDir {
923  IGCM_debug_PushStack "IGCM_sys_RmRunDir" -- $@
924  if ( $DEBUG_sys ) ; then
925    echo "IGCM_sys_RmRunDir :" $@
926  fi
927
928  typeset RET
929
930  echo rm $@ > out_rsync 2>&1
931  \rm $@ >> out_rsync 2>&1
932  RET=$?
933
934  if [ ${RET} -gt 0 ] ; then
935    echo "IGCM_sys_RmRunDir : error."
936    cat out_rsync
937    IGCM_debug_Exit "IGCM_sys_RmRunDir"
938  else
939    \rm out_rsync
940  fi
941  IGCM_debug_PopStack "IGCM_sys_RmRunDir"
942}
943
944#D-#==================================================
945#D-function IGCM_sys_Mv
946#D-* Purpose: generic move
947#D-* Examples:
948#D-
949function IGCM_sys_Mv {
950  IGCM_debug_PushStack "IGCM_sys_Mv" $@
951  if ( $DEBUG_sys ) ; then
952    echo "IGCM_sys_Mv :" $@
953  fi
954
955  if [ $DRYRUN = 0 ]; then
956
957    typeset RET
958   
959    echo mv $@ > out_rsync 2>&1
960    \mv $@ >> out_rsync 2>&1
961    RET=$?
962   
963    if [ ${RET} -gt 0 ] ; then
964      echo "IGCM_sys_Mv : error in mv."
965      cat out_rsync
966      IGCM_debug_Exit "IGCM_sys_Mv"
967    else
968      \rm out_rsync
969    fi
970  else
971    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
972  fi
973
974  IGCM_debug_PopStack "IGCM_sys_Mv"
975}
976
977#D-#==================================================
978#D-function IGCM_sys_Put_Dir
979#D-* Purpose: Copy a complete directory on $(ARCHIVE)
980#D-* Examples:
981#D-
982function IGCM_sys_Put_Dir {
983  IGCM_debug_PushStack "IGCM_sys_Put_Dir" $@
984  if ( $DEBUG_sys ) ; then
985    echo "IGCM_sys_Put_Dir :" $@
986  fi
987  if [ $DRYRUN = 0 ]; then
988    if [ ! -d ${1} ] ; then
989      echo "WARNING : IGCM_sys_Put_Dir ${1} DOES NOT EXIST ."
990      IGCM_debug_PopStack "IGCM_sys_Put_Dir"
991      return
992    fi
993
994    typeset RET
995
996    # Only if we use rsync
997    #IGCM_sys_TestDirArchive $( dirname $2 )
998    #
999    #USUAL WAY
1000    \cp -r $1 $2 > out_rsync 2>&1
1001    RET=$?
1002
1003    if [ ${RET} -gt 0 ] ; then
1004      echo "IGCM_sys_Put_Dir : error."
1005      cat out_rsync
1006      IGCM_debug_Exit "IGCM_sys_Put_Dir"
1007    else
1008      \rm out_rsync
1009    fi
1010  else
1011    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1012  fi
1013  IGCM_debug_PopStack "IGCM_sys_Put_Dir"
1014}
1015
1016#D-#==================================================
1017#D-function IGCM_sys_Get_Dir
1018#D-* Purpose: Copy a complete directory from ${ARCHIVE}
1019#D-* Examples:
1020#D-
1021function IGCM_sys_Get_Dir {
1022  IGCM_debug_PushStack "IGCM_sys_Get_Dir" $@
1023  if ( $DEBUG_sys ) ; then
1024    echo "IGCM_sys_Get_Dir :" $@
1025  fi
1026  if [ $DRYRUN = 0 ]; then
1027#    if [ ! -d ${1} ] ; then
1028#      echo "WARNING : IGCM_sys_Get_Dir ${1} DOES NOT EXIST ."
1029#      IGCM_debug_PopStack "IGCM_sys_Get_Dir"
1030#      return
1031#    fi
1032
1033    typeset RET
1034
1035    # Only if we use rsync
1036    #IGCM_sys_TestDirArchive $( dirname $2 )
1037    #
1038    # USUAL WAY
1039    # add dmfind/dmget (to demigrate all offline files) :
1040    dmfind $1 -state MIG -o -state OFL -o -state PAR | dmget
1041    \cp -r $1 $2 > out_rsync 2>&1
1042    RET=$?
1043
1044    if [ ${RET} -gt 0 ] ; then
1045      echo "IGCM_sys_Get_Dir : error."
1046      cat out_rsync
1047      IGCM_debug_Exit "IGCM_sys_Get_Dir"
1048    else
1049      \rm out_rsync
1050    fi
1051  else
1052    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1053  fi
1054  IGCM_debug_PopStack "IGCM_sys_Get_Dir"
1055}
1056
1057#D-#==================================================
1058#D-function IGCM_sys_Get_Master
1059#D-* Purpose: Copy a complete directory from MASTER filesystem
1060#D-* Examples:
1061#D-
1062function IGCM_sys_Get_Master {
1063  IGCM_debug_PushStack "IGCM_sys_Get_Master" $@
1064  if ( $DEBUG_sys ) ; then
1065    echo "IGCM_sys_Get_Master :" $@
1066  fi
1067  if [ $DRYRUN = 0 ]; then
1068    if [ ! -d ${1} ] ; then
1069      echo "WARNING : IGCM_sys_Get_Master ${1} DOES NOT EXIST ."
1070      IGCM_debug_PopStack "IGCM_sys_Get_Master"
1071      return
1072    fi
1073
1074    typeset RET
1075
1076    #USUAL WAY
1077    \cp -r $1 $2 > out_rsync 2>&1
1078    RET=$?
1079
1080    if [ ${RET} -gt 0 ] ; then
1081      echo "IGCM_sys_Get_Master : error."
1082      cat out_rsync
1083      IGCM_debug_Exit "IGCM_sys_Get_Master"
1084    else
1085      \rm out_rsync
1086    fi
1087  else
1088    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1089  fi
1090  IGCM_debug_PopStack "IGCM_sys_Get_Master"
1091}
1092
1093#D-#==================================================
1094#D-function IGCM_sys_Put_Rest
1095#D-* Purpose: Put computied restarts on ${ARCHIVE}.
1096#D-           File and target directory must exist.
1097#D-* Examples:
1098#D-
1099function IGCM_sys_Put_Rest {
1100  IGCM_debug_PushStack "IGCM_sys_Put_Rest" $@
1101  if ( $DEBUG_sys ) ; then
1102    echo "IGCM_sys_Put_Rest :" $@
1103  fi
1104  if [ $DRYRUN = 0 ]; then
1105    if [ ! -f ${1} ] ; then
1106      echo "ERROR : IGCM_sys_Put_Rest ${1} DOES NOT EXIST ."
1107      IGCM_debug_Exit "IGCM_sys_Put_Rest"
1108    fi
1109
1110    typeset RET
1111    #
1112    if [ X${JobType} = XRUN ] ; then
1113      IGCM_sys_Chmod 444 ${1}
1114    fi
1115
1116    #
1117    # USUAL WAY
1118    \cp $1 $2 > out_rsync 2>&1
1119    RET=$?
1120
1121#       #RSYNC WITH NETWORK SSH CALL
1122#       echo ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} > out_rsync 2>&1
1123#       ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} >> out_rsync 2>&1
1124
1125#       #RSYNC WITH NFS USE
1126#       echo ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} > out_rsync 2>&1
1127#       ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} >> out_rsync 2>&1
1128
1129#       RET=$?
1130#       IGCM_sys_Rsync_out $RET
1131
1132#       ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk out_rsync
1133#       (( RET=RET+$? ))
1134
1135    if [ ${RET} -gt 0 ] ; then
1136      echo "IGCM_sys_Put_Rest : error."
1137      cat out_rsync
1138      IGCM_debug_Exit "IGCM_sys_Put_Rest"
1139    else
1140      \rm out_rsync
1141    fi
1142  else
1143    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1144  fi
1145  IGCM_debug_PopStack "IGCM_sys_Put_Rest"
1146}
1147
1148#D-#==================================================
1149#D-function IGCM_sys_PutBuffer_Rest
1150#D-* Purpose: Put computied restarts on ${SCRATCHDIR}.
1151#D-           File and target directory must exist.
1152#D-* Examples:
1153#D-
1154function IGCM_sys_PutBuffer_Rest {
1155  IGCM_debug_PushStack "IGCM_sys_PutBuffer_Rest" $@
1156  if ( $DEBUG_sys ) ; then
1157    echo "IGCM_sys_PutBuffer_Rest :" $@
1158  fi
1159  if [ $DRYRUN = 0 ]; then
1160    if [ ! -f ${1} ] ; then
1161      echo "ERROR : IGCM_sys_PutBuffer_Rest ${1} DOES NOT EXIST ."
1162      IGCM_debug_Exit "IGCM_sys_PutBuffer_Rest"
1163    fi
1164
1165    typeset RET
1166    #
1167    if [ X${JobType} = XRUN ] ; then
1168      IGCM_sys_Chmod 444 ${1}
1169    fi
1170
1171    #
1172    # USUAL WAY
1173    \cp $1 $2 > out_rsync 2>&1
1174    RET=$?
1175
1176    if [ ${RET} -gt 0 ] ; then
1177      echo "IGCM_sys_PutBuffer_Rest : error."
1178      cat out_rsync
1179      IGCM_debug_Exit "IGCM_sys_PutBuffer_Rest"
1180    else
1181      \rm out_rsync
1182    fi
1183  else
1184    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1185  fi
1186  IGCM_debug_PopStack "IGCM_sys_PutBuffer_Rest"
1187}
1188
1189#D-#==================================================
1190#D-function IGCM_sys_Put_Out
1191#D-* Purpose: Copy a file on ${ARCHIVE} after having chmod it in readonly
1192#D-* Examples:
1193#D-
1194function IGCM_sys_Put_Out {
1195  IGCM_debug_PushStack "IGCM_sys_Put_Out" $@
1196  if ( $DEBUG_sys ) ; then
1197    echo "IGCM_sys_Put_Out :" $@
1198  fi
1199  if [ $DRYRUN = 0 ]; then
1200    if [ ! -f ${1} ] ; then
1201      echo "WARNING : IGCM_sys_Put_Out ${1} DOES NOT EXIST ."
1202      IGCM_debug_PopStack "IGCM_sys_Put_Out"
1203      return 1
1204    fi
1205    #
1206    IGCM_sys_MkdirArchive $( dirname $2 )
1207    #
1208    typeset RET
1209
1210    #=====================================================
1211    #         COMMENT OUT DOUBLE COPY ON SCRATCHDIR
1212    #=====================================================
1213
1214    #echo ${2} | grep "${R_OUT}" > /dev/null 2>&1
1215    #if [ $? -eq 0 ] ; then
1216    #    typeset WORKPATH FILEPATH
1217    #    WORKPATH=$( dirname $2 | sed -e "s|${R_OUT}|${R_BUF}|" )
1218    #    IGCM_sys_MkdirWork ${WORKPATH}
1219    #    FILEPATH=${WORKPATH}/$( basename $2 )
1220    #    #
1221    #    IGCM_sys_Cp ${1} ${FILEPATH}
1222    #fi
1223
1224    if [ X${JobType} = XRUN ] ; then
1225      if [ X${3} = X ] ; then
1226        IGCM_sys_Chmod 444 ${1}
1227      fi
1228    fi
1229    #
1230    # USUAL WAY
1231    \cp $1 $2 > out_rsync 2>&1
1232    RET=$?
1233
1234#       #RSYNC WITH NETWORK SSH CALL
1235#       echo ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} > out_rsync 2>&1
1236#       ${RSYNC} ${RSYNC_opt} -e ssh ${RUN_DIR}/$1 ${STOREHOST}:${2} >> out_rsync 2>&1
1237
1238#       #RSYNC WITH NFS USE
1239#       echo ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} > out_rsync 2>&1
1240#       ${RSYNC} ${RSYNC_opt} ${RUN_DIR}/$1 ${2} >> out_rsync 2>&1
1241
1242#       RET=$?
1243#       IGCM_sys_Rsync_out $RET
1244
1245#       ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk out_rsync
1246#       (( RET=RET+$? ))
1247
1248    if [ ${RET} -gt 0 ] ; then
1249      echo "IGCM_sys_Put_Out : error."
1250      cat out_rsync
1251      IGCM_debug_Exit "IGCM_sys_Put_Out"
1252    else
1253      \rm out_rsync
1254    fi
1255  else
1256    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1257  fi
1258  IGCM_debug_PopStack "IGCM_sys_Put_Out"
1259  return 0
1260}
1261
1262#D-#==================================================
1263#D-function IGCM_sys_PutBuffer_Out
1264#D-* Purpose: Copy a file on ${SCRATCHDIR} after having chmod it in readonly
1265#D-* Examples:
1266#D-
1267function IGCM_sys_PutBuffer_Out {
1268  IGCM_debug_PushStack "IGCM_sys_PutBuffer_Out" $@
1269  if ( $DEBUG_sys ) ; then
1270    echo "IGCM_sys_PutBuffer_Out :" $@
1271  fi
1272  if [ $DRYRUN = 0 ]; then
1273    if [ ! -f ${1} ] ; then
1274      echo "WARNING : IGCM_sys_PutBuffer_Out ${1} DOES NOT EXIST ."
1275      IGCM_debug_PopStack "IGCM_sys_PutBuffer_Out"
1276      return 1
1277    fi
1278    #
1279    IGCM_sys_Mkdir $( dirname $2 )
1280    #
1281    typeset RET
1282
1283    if [ X${JobType} = XRUN ] ; then
1284      if [ X${3} = X ] ; then
1285        IGCM_sys_Chmod 444 ${1}
1286      fi
1287    fi
1288    #
1289    # USUAL WAY
1290    \cp $1 $2 > out_rsync 2>&1
1291    RET=$?
1292
1293    if [ ${RET} -gt 0 ] ; then
1294      echo "IGCM_sys_PutBuffer_Out : error."
1295      cat out_rsync
1296      IGCM_debug_Exit "IGCM_sys_PutBuffer_Out"
1297    else
1298      \rm out_rsync
1299    fi
1300  else
1301    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1302  fi
1303  IGCM_debug_PopStack "IGCM_sys_PutBuffer_Out"
1304  return 0
1305}
1306
1307#D-#==================================================
1308#D-function IGCM_sys_Get
1309#D-* Purpose: Get a file from ${ARCHIVE}
1310#D-* Examples: IGCM_sys_Get myfile /destpath/myfile_with_PREFIX
1311#D-            IGCM_sys_Get /l Array_contain_myfiles /destpath/
1312function IGCM_sys_Get {
1313  IGCM_debug_PushStack "IGCM_sys_Get" $@
1314
1315  typeset DEST RET dm_liste ifile target file_work
1316
1317  if ( $DEBUG_sys ) ; then
1318    echo "IGCM_sys_Get :" $@
1319  fi
1320  if [ $DRYRUN -le 2 ]; then
1321    if [ X${1} = X'/l' ] ; then
1322      # test if the first file is present in the old computation :
1323      eval set +A dm_liste \${${2}}
1324    else
1325      eval set +A dm_liste ${1}
1326    fi
1327    eval DEST=\${${#}}
1328
1329    #=====================================================
1330    #         COMMENT OUT DOUBLE COPY ON SCRATCHDIR
1331    #=====================================================
1332
1333    # Is it an R_OUT file (not R_IN) ?
1334    #echo ${dm_liste[0]} | grep "${R_OUT}" > /dev/null 2>&1
1335    #if [ $? -eq 0 ] ; then
1336    #    # Yes  ? then we try to get it in SCRATCHDIR
1337    #    set +A file_work $( echo ${dm_liste[*]} | sed -e "s|${R_OUT}|${R_BUF}|g" )
1338    #    if [ -f ${file_work[0]} ] ; then
1339    #   IGCM_sys_Cp ${file_work[*]} ${DEST}
1340    #   IGCM_debug_PopStack "IGCM_sys_Get"
1341    #   return
1342    #    fi
1343    #fi
1344
1345    # test if the (first) file is present in the old computation :
1346    IGCM_sys_TestFileArchive ${dm_liste[0]}
1347    RET=$?
1348    if [ ${RET} -gt 0 ] ; then
1349      echo "IGCM_sys_Get, ERROR : regular file ${dm_liste[0]} DOES NOT EXIST ."
1350      IGCM_debug_Exit "IGCM_sys_Get"
1351    fi
1352
1353    dmget ${dm_liste[*]} > out_rsync 2>&1
1354    RET=$?
1355    if [ ${RET} -gt 0 ] ; then
1356      echo "WARNING IGCM_sys_Get : demigration error."
1357      cat out_rsync
1358      echo "WARNING IGCM_sys_Get : will stop later if the cp fails."
1359    fi
1360
1361    #if [ ${RET} -gt 0 ] ; then
1362    #    if [ ! "X$( grep "Lost dmusrcmd connection" out_rsync )" = "X" ] ; then
1363    #   cat out_rsync
1364    #   echo "WARNING IGCM_sys_Get : Lost dmusrcmd connection : "
1365    #   sleep 30
1366    #   echo "We try another time"
1367    #   dmget ${dm_liste[*]} > out_rsync 2>&1
1368    #   RET=$?
1369    #   if [ ${RET} -gt 0 ] ; then
1370    #       echo "ERROR IGCM_sys_Get : again demigration error :"
1371    #       cat out_rsync
1372    #       IGCM_debug_Exit "IGCM_sys_Get"
1373    #   fi
1374    #    else
1375    #   echo "ERROR IGCM_sys_Get : demigration error :"
1376    #   cat out_rsync
1377    #   IGCM_debug_Exit "IGCM_sys_Get"
1378    #    fi
1379    #fi
1380
1381    #USUAL WAY
1382    if [ X${1} = X'/l' ] ; then
1383      (( RET=0 ))
1384      for target in ${dm_liste[*]} ; do
1385        local_file=$( basename ${target} )
1386        \cp ${target} ${DEST}/${local_file} >> out_rsync 2>&1
1387        (( RET = RET + $? ))
1388      done
1389    else
1390      \cp ${dm_liste} ${DEST} >> out_rsync 2>&1
1391      RET=$?
1392    fi
1393
1394#       #RSYNC WITH NETWORK SSH CALL
1395#       echo ${RSYNC} ${RSYNC_opt} -e ssh ${STOREHOST}:"${dm_liste}" ${STOREHOST}:${RUN_DIR}/${DEST} > out_rsync 2>&1
1396#       ${RSYNC} ${RSYNC_opt} -e ssh ${STOREHOST}:"${dm_liste}" ${STOREHOST}:${RUN_DIR}/${DEST} >> out_rsync 2>&1
1397
1398#       #RSYNC WITH NFS USE
1399#       echo ${RSYNC} ${RSYNC_opt} ${dm_liste} ${RUN_DIR}/${DEST} > out_rsync 2>&1
1400#       ${RSYNC} ${RSYNC_opt} ${dm_liste} ${RUN_DIR}/${DEST} >> out_rsync 2>&1
1401
1402#       RET=$?
1403#       IGCM_sys_Rsync_out $RET
1404
1405#       ${libIGCM}/libIGCM_sys/IGCM_analyse_rsync_out.awk out_rsync
1406#       (( RET=RET+$? ))
1407
1408    if [ ${RET} -gt 0 ] ; then
1409      echo "IGCM_sys_Get : copy error."
1410      cat out_rsync
1411      IGCM_debug_Exit "IGCM_sys_Get"
1412    else
1413      \rm out_rsync
1414    fi
1415  else
1416    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1417  fi
1418  IGCM_debug_PopStack "IGCM_sys_Get"
1419}
1420
1421#D-#==================================================
1422#D-function IGCM_sys_GetBuffer
1423#D-* Purpose: Get a file from ${SCRATCHDIR}
1424#D-* Examples: IGCM_sys_GetBuffer myfile /destpath/myfile_with_PREFIX
1425#D-            IGCM_sys_GetBuffer /l Array_contain_myfiles /destpath/
1426function IGCM_sys_GetBuffer {
1427  IGCM_debug_PushStack "IGCM_sys_GetBuffer" $@
1428
1429  typeset DEST RET buf_liste ifile target file_work
1430
1431  if ( $DEBUG_sys ) ; then
1432    echo "IGCM_sys_GetBuffer :" $@
1433  fi
1434  if [ $DRYRUN -le 2 ]; then
1435    if [ X${1} = X'/l' ] ; then
1436      # test if the first file is present in the old computation :
1437      eval set +A buf_liste \${${2}}
1438    else
1439      eval set +A buf_liste ${1}
1440    fi
1441    eval DEST=\${${#}}
1442
1443    #USUAL WAY
1444    if [ X${1} = X'/l' ] ; then
1445      (( RET=0 ))
1446      for target in ${buf_liste[*]} ; do
1447        local_file=$( basename ${target} )
1448        \cp ${target} ${DEST}/${local_file} >> out_rsync 2>&1
1449        (( RET = RET + $? ))
1450      done
1451    else
1452      \cp ${buf_liste} ${DEST} >> out_rsync 2>&1
1453      RET=$?
1454    fi
1455
1456    if [ ${RET} -gt 0 ] ; then
1457      echo "IGCM_sys_GetBuffer : copy error."
1458      cat out_rsync
1459      IGCM_debug_Exit "IGCM_sys_GetBuffer"
1460    else
1461      \rm out_rsync
1462    fi
1463  else
1464    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1465  fi
1466  IGCM_debug_PopStack "IGCM_sys_GetBuffer"
1467}
1468
1469#D-#==================================================
1470#D-function IGCM_sys_GetDate_FichWork
1471#D-* Purpose: donne la date filesys d'un fichier sur le filesystem WORK
1472#D-* Examples:
1473#D-
1474function IGCM_sys_GetDate_FichWork {
1475  IGCM_debug_PushStack "IGCM_sys_FichWork" $@
1476  if ( $DEBUG_sys ) ; then
1477    echo "IGCM_sys_GetDate_FichWork :" $@
1478  fi
1479  typeset dateF
1480  set +A dateF -- $( ls -l --full-time --time-style='+%Y%m%d%H%M%S' ${1} )
1481  eval ${2}=${dateF[5]}
1482
1483    # donne la date filesys d'un fichier sur la machine work
1484  IGCM_debug_PopStack "IGCM_sys_FichWork"
1485}
1486
1487#D-#==================================================
1488#D-function IGCM_sys_GetDate_FichArchive
1489#D-* Purpose: donne la date filesys d'un fichier sur le filesystem ARCHIVE
1490#D-* Examples:
1491#D-
1492function IGCM_sys_GetDate_FichArchive {
1493  IGCM_debug_PushStack "IGCM_sys_FichArchive" $@
1494  if ( $DEBUG_sys ) ; then
1495    echo "IGCM_sys_GetDate_FichArchive :" $@
1496  fi
1497  typeset dateF
1498  set +A dateF -- $( ls -l --full-time --time-style='+%Y%m%d%H%M%S' ${1} )
1499  eval ${2}=${dateF[5]}
1500
1501  IGCM_debug_PopStack "IGCM_sys_FichArchive"
1502}
1503
1504#D-#==================================================
1505#D-function IGCM_sys_Dods_Rm
1506#D-* Purpose: DO NOTHING ! Put ${ARCHIVE} files on DODS internet protocole.
1507#D-* Examples:
1508#D-
1509function IGCM_sys_Dods_Rm {
1510  if ( $DEBUG_sys ) ; then
1511    echo "IGCM_sys_Dods_Rm :" $@
1512  fi
1513  typeset RET
1514  RET=0
1515  if [ $DRYRUN = 0 ]; then
1516    if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then
1517      echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ."
1518      echo "Nothing has been done."
1519      return
1520    fi
1521    dods_rm public/${LOGIN}/${R_DODS}/${1} # > out_dods_rm 2>&1
1522    RET=$?
1523   
1524#       if [ ${RET} -gt 0 ] ; then
1525#           echo "IGCM_sys_Dods_Rm : error."
1526#           cat out_dods_rm
1527#           IGCM_debug_Exit "IGCM_sys_Dods_Rm"
1528#       else
1529#           rm out_dods_rm
1530#       fi
1531
1532  else
1533    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1534  fi
1535  return $RET
1536}
1537
1538#D-#==================================================
1539#D-function IGCM_sys_Dods_Cp
1540#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole.
1541#D-* Examples:
1542#D-
1543function IGCM_sys_Dods_Cp {
1544  if ( $DEBUG_sys ) ; then
1545    echo "IGCM_sys_Dods_Cp :" $@
1546  fi
1547  typeset RET
1548  RET=0
1549  if [ $DRYRUN = 0 ]; then
1550    if [ ! -d ${R_SAVE}/${1} ] ; then
1551      echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ."
1552      echo "Nothing has been done."
1553      return
1554    fi
1555    #
1556    dods_cp ${1} public/${LOGIN}/${R_DODS} # > out_dods_cp 2>&1
1557    RET=$?
1558
1559#       if [ ${RET} -gt 0 ] ; then
1560#           echo "IGCM_sys_Dods_Cp : error."
1561#           cat out_dods_cp
1562#           IGCM_debug_Exit "IGCM_sys_Dods_Cp"
1563#       else
1564#           rm out_dods_cp
1565#       fi
1566
1567  else
1568    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1569  fi
1570  return $RET
1571}
1572
1573#D-#==================================================
1574#D-function IGCM_sys_Put_Dods
1575#D-* Purpose: Put $(ARCHIVE) files on DODS internet protocole.
1576#D-* Examples:
1577#D-
1578function IGCM_sys_Put_Dods {
1579  IGCM_debug_PushStack "IGCM_sys_Put_Dods" $@
1580  if ( $DEBUG_sys ) ; then
1581    echo "IGCM_sys_Put_Dods :" $@
1582  fi
1583  if [ $DRYRUN = 0 ]; then
1584    if [ ! -d ${R_SAVE}/${1} ] ; then
1585      echo "WARNING : IGCM_sys_Put_Dods ${R_SAVE}/${1} DOES NOT EXIST ."
1586      IGCM_debug_PopStack "IGCM_sys_Put_Dods"
1587      return
1588    fi
1589
1590    typeset RET
1591        #
1592    cd ${R_SAVE}
1593    IGCM_sys_Dods_Rm ${1}
1594    IGCM_sys_Dods_Cp ${1}
1595    RET=0
1596   
1597    if [ ${RET} -gt 0 ] ; then
1598      echo "IGCM_sys_Put_Dods : error."
1599      IGCM_debug_Exit "IGCM_sys_Put_Dods"
1600    fi
1601  else
1602    ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack
1603  fi
1604  IGCM_debug_PopStack "IGCM_sys_Put_Dods"
1605}
1606
1607##############################################################
1608# REBUILD OPERATOR
1609
1610function IGCM_sys_rebuild {
1611  IGCM_debug_PushStack "IGCM_sys_rebuild" -- $@
1612  if ( $DEBUG_sys ) ; then
1613    echo "IGCM_sys_rebuild :" $@
1614  fi
1615  /home/cont003/p86ipsl/X64/bin/rebuild -f -o $@
1616  if [ $? -gt 0 ] ; then
1617    echo "IGCM_sys_rebuild : erreur ${@}."
1618    IGCM_debug_Exit "rebuild"
1619  fi
1620
1621  IGCM_debug_PopStack "IGCM_sys_rebuild"
1622}
1623
1624############################################################
1625# Activate Running Environnment Variables
1626
1627function IGCM_sys_activ_variables {
1628  IGCM_debug_PushStack "IGCM_sys_activ_variables"
1629  if ( $DEBUG_sys ) ; then
1630    echo "IGCM_sys_activ_variables"
1631  fi
1632  ulimit -s 2097152
1633  IGCM_debug_PopStack "IGCM_sys_activ_variables"
1634}
1635
1636############################################################
1637# Desactivate Running Environnment Variables
1638
1639function IGCM_sys_desactiv_variables {
1640  IGCM_debug_PushStack "IGCM_sys_desactiv_variables"
1641  if ( $DEBUG_sys ) ; then
1642    echo "IGCM_sys_desactiv_variables"
1643  fi
1644  IGCM_debug_PopStack "IGCM_sys_desactiv_variables"
1645}
1646
1647############################################################
1648# Build run file
1649
1650function IGCM_sys_build_run_file {
1651  IGCM_debug_PushStack "IGCM_sys_build_run_file" $@
1652  if ( $DEBUG_sys ) ; then
1653    echo "IGCM_sys_build_run_file " $@
1654  fi
1655
1656  # set Number of processors for OCE here
1657  NUM_PROC_OCE=5
1658
1659  (( NUM_PROC_ATM = $BATCH_NUM_PROC_TOT - NUM_PROC_OCE - 1))
1660  (( nb_tot_m1    = $BATCH_NUM_PROC_TOT - NUM_PROC_OCE ))
1661  if [ $1 = MPI1 ]; then
1662    cat <<EOF > run_file
1663-np 1 ./oasis
1664-np ${NUM_PROC_ATM} ./lmdz.x
1665-np ${NUM_PROC_OCE} ./opa.xx
1666EOF
1667    config_UserChoices_JobRunOptions='"--app"'
1668    IGCM_sys_Chmod u+x run_file
1669  fi
1670  IGCM_debug_PopStack "IGCM_sys_build_run_file"
1671 
1672}
1673
1674##############################################################
1675# NCO OPERATOR
1676
1677function IGCM_sys_ncap2 {
1678  IGCM_debug_PushStack "IGCM_sys_ncap2" -- $@
1679  if ( $DEBUG_sys ) ; then
1680    echo "IGCM_sys_ncap2 :" $@
1681  fi
1682  ncap2 "$@"
1683  if [ $? -gt 0 ] ; then
1684    echo "IGCM_sys_ncap2 : erreur ${@}."
1685    IGCM_debug_Exit "ncap2"
1686  fi
1687
1688  IGCM_debug_PopStack "IGCM_sys_ncap2"
1689}
1690
1691function IGCM_sys_ncatted {
1692  IGCM_debug_PushStack "IGCM_sys_ncatted" -- $@
1693  if ( $DEBUG_sys ) ; then
1694    echo "IGCM_sys_ncatted :" $@
1695  fi
1696  ncatted "$@"
1697  if [ $? -gt 0 ] ; then
1698    echo "IGCM_sys_ncatted : erreur ${@}."
1699    IGCM_debug_Exit "ncatted"
1700  fi
1701
1702  IGCM_debug_PopStack "IGCM_sys_ncatted"
1703}
1704
1705function IGCM_sys_ncbo {
1706  IGCM_debug_PushStack "IGCM_sys_ncbo" -- $@
1707  if ( $DEBUG_sys ) ; then
1708    echo "IGCM_sys_ncbo :" $@
1709  fi
1710  ncbo $@
1711  if [ $? -gt 0 ] ; then
1712    echo "IGCM_sys_ncbo : erreur ${@}."
1713    IGCM_debug_Exit "ncbo"
1714  fi
1715
1716  IGCM_debug_PopStack "IGCM_sys_ncbo"
1717}
1718
1719function IGCM_sys_ncdiff {
1720  IGCM_debug_PushStack "IGCM_sys_ncdiff" -- $@
1721  if ( $DEBUG_sys ) ; then
1722    echo "IGCM_sys_ncdiff :" $@
1723  fi
1724  ncdiff $@
1725  if [ $? -gt 0 ] ; then
1726    echo "IGCM_sys_ncdiff : erreur ${@}."
1727    IGCM_debug_Exit "ncdiff"
1728  fi
1729
1730  IGCM_debug_PopStack "IGCM_sys_ncdiff"
1731}
1732
1733function IGCM_sys_ncea {
1734  IGCM_debug_PushStack "IGCM_sys_ncea" -- $@
1735  if ( $DEBUG_sys ) ; then
1736    echo "IGCM_sys_ncea :" $@
1737  fi
1738  ncea $@
1739  if [ $? -gt 0 ] ; then
1740    echo "IGCM_sys_ncea : erreur ${@}."
1741    IGCM_debug_Exit "ncea"
1742  fi
1743
1744  IGCM_debug_PopStack "IGCM_sys_ncea"
1745}
1746
1747function IGCM_sys_ncecat {
1748  IGCM_debug_PushStack "IGCM_sys_ncecat" -- $@
1749  if ( $DEBUG_sys ) ; then
1750    echo "IGCM_sys_ncecat :" $@
1751  fi
1752  ncecat $@
1753  if [ $? -gt 0 ] ; then
1754    echo "IGCM_sys_ncecat : erreur ${@}."
1755    IGCM_debug_Exit "ncecat"
1756  fi
1757
1758  IGCM_debug_PopStack "IGCM_sys_ncecat"
1759}
1760
1761function IGCM_sys_ncflint {
1762  IGCM_debug_PushStack "IGCM_sys_ncflint" -- $@
1763  if ( $DEBUG_sys ) ; then
1764    echo "IGCM_sys_ncflint :" $@
1765  fi
1766  ncflint $@
1767  if [ $? -gt 0 ] ; then
1768    echo "IGCM_sys_ncflint : erreur ${@}."
1769    IGCM_debug_Exit "ncflint"
1770  fi
1771
1772  IGCM_debug_PopStack "IGCM_sys_ncflint"
1773}
1774
1775function IGCM_sys_ncks {
1776  IGCM_debug_PushStack "IGCM_sys_ncks" -- $@
1777  if ( $DEBUG_sys ) ; then
1778    echo "IGCM_sys_ncks :" $@
1779  fi
1780  ncks $@
1781  if [ $? -gt 0 ] ; then
1782    echo "IGCM_sys_ncks : erreur ${@}."
1783    IGCM_debug_Exit "ncks"
1784  fi
1785
1786  IGCM_debug_PopStack "IGCM_sys_ncks"
1787}
1788
1789function IGCM_sys_ncpdq {
1790  IGCM_debug_PushStack "IGCM_sys_ncpdq" -- $@
1791  if ( $DEBUG_sys ) ; then
1792    echo "IGCM_sys_ncpdq :" $@
1793  fi
1794  ncpdq $@
1795  if [ $? -gt 0 ] ; then
1796    echo "IGCM_sys_ncpdq : erreur ${@}."
1797    IGCM_debug_Exit "ncpdq"
1798  fi
1799
1800  IGCM_debug_PopStack "IGCM_sys_ncpdq"
1801}
1802
1803function IGCM_sys_ncra {
1804  IGCM_debug_PushStack "IGCM_sys_ncra" -- $@
1805  if ( $DEBUG_sys ) ; then
1806    echo "IGCM_sys_ncra :" $@
1807  fi
1808  ncra $@
1809  if [ $? -gt 0 ] ; then
1810    echo "IGCM_sys_ncra : erreur ${@}."
1811    IGCM_debug_Exit "ncra"
1812  fi
1813
1814  IGCM_debug_PopStack "IGCM_sys_ncra"
1815}
1816
1817function IGCM_sys_ncrcat {
1818  IGCM_debug_PushStack "IGCM_sys_ncrcat" -- $@
1819  if ( $DEBUG_sys ) ; then
1820    echo "IGCM_sys_ncrcat :" $@
1821  fi
1822  ncrcat $@
1823  if [ $? -gt 0 ] ; then
1824    echo "IGCM_sys_ncrcat : erreur ${@}."
1825#       IGCM_debug_Exit "ncrcat"
1826  fi
1827
1828  IGCM_debug_PopStack "IGCM_sys_ncrcat"
1829}
1830
1831function IGCM_sys_ncrename {
1832  IGCM_debug_PushStack "IGCM_sys_ncrename" -- $@
1833  if ( $DEBUG_sys ) ; then
1834    echo "IGCM_sys_ncrename :" $@
1835  fi
1836  ncrename $@
1837  if [ $? -gt 0 ] ; then
1838    echo "IGCM_sys_ncrename : erreur ${@}."
1839    IGCM_debug_Exit "ncrename"
1840  fi
1841
1842  IGCM_debug_PopStack "IGCM_sys_ncrename"
1843}
1844
1845function IGCM_sys_ncwa {
1846  IGCM_debug_PushStack "IGCM_sys_ncwa" -- $@
1847  if ( $DEBUG_sys ) ; then
1848    echo "IGCM_sys_ncwa :" $@
1849  fi
1850  ncwa $@
1851  if [ $? -gt 0 ] ; then
1852    echo "IGCM_sys_ncwa : erreur ${@}."
1853    IGCM_debug_Exit "ncwa"
1854  fi
1855
1856  IGCM_debug_PopStack "IGCM_sys_ncwa"
1857}
1858
1859##############################################################
1860# CDO OPERATOR
1861
1862function IGCM_sys_cdo {
1863  IGCM_debug_PushStack "IGCM_sys_cdo" -- $@
1864  if ( $DEBUG_sys ) ; then
1865    echo "IGCM_sys_cdo :" $@
1866  fi
1867  \cdo $@
1868  if [ $? -gt 0 ] ; then
1869    echo "IGCM_sys_cdo : erreur ${@}."
1870    IGCM_debug_PopStack "IGCM_sys_cdo"
1871    return 1
1872  else
1873    IGCM_debug_PopStack "IGCM_sys_cdo"
1874    return 0
1875  fi
1876
1877  IGCM_debug_PopStack "IGCM_sys_cdo"
1878}
Note: See TracBrowser for help on using the repository browser.