source: trunk/libIGCM/AA_SaveSourceModifications @ 640

#-Q- platine #!/usr/bin/ksh
#-Q- platine ###################
#-Q- platine ## PLATINE   CEA ##
#-Q- platine ###################
#-Q- platine #BSUB -J SaveSource                     # Nom du job
#-Q- platine #BSUB -N                        # message a la fin du job
#-Q- platine #BSUB -n 1                      # reservation des processeurs pour le job
#-Q- platine #BSUB -W 0:10                   # Limite temps
#-Q- platine #BSUB -q post              # Passage en queue post
#-Q- platine #BSUB -L /bin/ksh
#-Q- sx8brodie #!/bin/ksh
#-Q- sx8brodie #######################
#-Q- sx8brodie ## SX8BRODIE   IDRIS ##
#-Q- sx8brodie #######################
#-Q- aix6 #!/bin/ksh
#-Q- aix6 #######################
#-Q- aix6 ##   VARGAS   IDRIS  ##
#-Q- aix6 #######################
#-Q- sx8mercure #!/bin/ksh
#-Q- sx8mercure ######################
#-Q- sx8mercure ## SX8MERCURE   CEA ##
#-Q- sx8mercure ######################
#-Q- sx8mercure #PBS -N SaveSource           # Nom du job
#-Q- sx8mercure #PBS -j o                    # regroupement des stdout et stderr
#-Q- sx8mercure #PBS -S /usr/bin/ksh         # shell de soumission
#-Q- sx8mercure #PBS -l memsz_job=1gb        # Limite memoire a 1 Go
#-Q- sx8mercure #PBS -l cputim_job=0:10:00   # Limite temps a 1 heures
#-Q- sx8mercure #PBS -q scalaire
#-Q- sx8mercure #PBS -r n
#-Q- sx9mercure #!/bin/ksh
#-Q- sx9mercure #####################
#-Q- sx9mercure ## SX9MERCURE  CEA ##
#-Q- sx9mercure #####################
#-Q- sx9mercure #PBS -N SaveSource           # Nom du job
#-Q- sx9mercure #PBS -j o                    # regroupement des stdout et stderr
#-Q- sx9mercure #PBS -S /usr/bin/ksh         # shell de soumission
#-Q- sx9mercure #PBS -l memsz_job=1gb        # Limite memoire a 1 Go
#-Q- sx9mercure #PBS -l elapstim_req=0:10:00   # Limite temps a 1 heures
#-Q- sx9mercure #PBS -q scalaire
#-Q- sx9mercure #PBS -r n
#-Q- titane #!/bin/ksh
#-Q- titane ######################
#-Q- titane ## TITANE   CEA ##
#-Q- titane ######################
#-Q- titane #MSUB -r SaveSource     # Nom du job                
#-Q- titane #MSUB -n 1              # Reservation du processus
#-Q- titane #MSUB -T 1800           # Limite de temps elapsed du job
#-Q- titane #MSUB -E "-eo"
#-Q- titane #MSUB -E "-L /bin/ksh"
#-Q- titane #MSUB -E "-Ep "${ExeOutDateMax}
#-Q- titane #MSUB -E "-Ep "${R_OUT_EXE}
#-Q- titane #MSUB -E "-Ep "${PREFIX}
#-Q- titane #MSUB -E "-Ep "${SUBMIT_DIR}
#-Q- titane #MSUB -q testext
#-Q- lxiv8 ###################### ???
#-Q- lxiv8 ## OBELIX      LSCE ##
#-Q- lxiv8 ######################
#-Q- lxiv8 #PBS -N SaveSource
#-Q- lxiv8 #PBS -m a
#-Q- lxiv8 #PBS -j oe
#-Q- lxiv8 #PBS -q test  
#-Q- lxiv8 #PBS -o SaveSource.$$
#-Q- lxiv8 #PBS -S /bin/ksh
#-Q- default #!/bin/ksh
#-Q- default ##################
#-Q- default ## DEFAULT HOST ##
#-Q- default ##################

#**************************************************************
# Author: Martial Mancip
# Contact: Martial.Mancip__at__ipsl.jussieu.fr
# $Revision::                                          $ Revision of last commit
# $Author::                                            $ Author of last commit
# $Date::                                              $ Date of last commit
# IPSL (2006)
#  This software is governed by the CeCILL licence see libIGCM/libIGCM_CeCILL.LIC
#
#**************************************************************

#set -eu
#set -vx

date

#-Q- sx8brodie export OMP_NUM_THREADS=1
#-Q- aix6 export OMP_NUM_THREADS=1

MODIPSL=::modipsl::

#D- Path to libIGCM
#D- Default : value from AA_job if any
# WARNING For StandAlone use : To run this script on some machine (ulam and cesium)
# WARNING you must check MirrorlibIGCM variable in sys library.
# WARNING If this variable is true, you must use libIGCM_POST path instead
# WARNING of your running libIGCM directory.
libIGCM=${libIGCM:=::modipsl::/libIGCM}

. ${libIGCM}/libIGCM_debug/libIGCM_debug.ksh
      ( ${DEBUG_debug} ) && IGCM_debug_Check
#-------
. ${libIGCM}/libIGCM_sys/libIGCM_sys.ksh
. ${libIGCM}/libIGCM_config/libIGCM_config.ksh

IGCM_sys_MkdirWork ${RUN_DIR_PATH}
IGCM_sys_Cd ${RUN_DIR_PATH}

ExeOutDateMax=${ExeOutDateMax:=$1}
R_OUT_EXE=${R_OUT_EXE:=$2}
PREFIX=${PREFIX:=$3}
SUBMIT_DIR=${SUBMIT_DIR:=$4}

cd ${MODIPSL};
${MODIPSL}/util/script_diff_model ${SUBMIT_DIR} > ${RUN_DIR_PATH}/out_script_diff_model 2>&1
echo "script_diff_model return" $? >> ${RUN_DIR_PATH}/out_script_diff_model 2>&1
cd ${RUN_DIR_PATH}

ERR_script_diff_model=$( cat out_script_diff_model | grep "script_diff_model return [0-9]*" | sed -e "s&script_diff_model return *\([0-9]*\)&\1&" )

if [ ! X${ERR_script_diff_model} = X0 ] ; then 
    echo 'Error in script_diff_model :' ${ERR_script_diff_model}
    exit ${ERR_script_diff_model}
fi

MODIPSL_SAVE_NAME=$( cat out_script_diff_model | grep "SAVE directory in" | sed -e "s&SAVE directory in  &&" )
MODIPSL_SAVE=${MODIPSL}/tmp/${MODIPSL_SAVE_NAME}
if ( [ X${MODIPSL_SAVE_NAME} = X ] || [ ! -d ${MODIPSL_SAVE} ] ) ; then 
    echo 'Error in SaveSourceModifications: no MODIPSL_SAVE_NAME avaible. We STOP'
    exit 1
fi

MaxModifiedDate=$( tail -1 ${MODIPSL_SAVE}/Last_log )

cd ${MODIPSL}/tmp
IGCM_sys_Tar ${RUN_DIR_PATH}/${MODIPSL_SAVE_NAME}.tar ${MODIPSL_SAVE_NAME}
cd -
if ( ! ${DEBUG_debug} ) ; then
    IGCM_sys_Rm -rf ${MODIPSL_SAVE}
fi

if [ ${MaxModifiedDate} -lt ${ExeOutDateMax} ] ; then
    IGCM_sys_Put_Out ${MODIPSL_SAVE_NAME}.tar ${R_OUT_EXE}/${PREFIX}_${MODIPSL_SAVE_NAME}_certified.tar
else
    IGCM_sys_Put_Out ${MODIPSL_SAVE_NAME}.tar ${R_OUT_EXE}/${PREFIX}_${MODIPSL_SAVE_NAME}_NOTcertified.tar
fi
if ( ! ${DEBUG_debug} ) ; then
    IGCM_sys_Rm ${MODIPSL_SAVE_NAME}.tar
fi

# Clean RUN_DIR_PATH (necessary for cesium and titane only)
if ( ! ${DEBUG_debug} ) ; then
    IGCM_sys_RmRunDir -Rf ${RUN_DIR_PATH}
fi