#!/bin/ksh -x
DIR_Eta=/home/eta/MesoEta/posfig
DIR_EXEC=${DIR_Eta}/scripts
DIR_SCR_FTP=${DIR_EXEC}/ftp
DIR_GRBCTL=/bangu/samfs/eta_ioper/MesoEta/bauru/grbctl

DIR_IPMET=./Eta10km/grbctl
icn=$1
serv_pub=pcpesq10.ipmet.unesp.br
DIR_GRBCTL=`/home/metop/bin/caldate.3.0 ${icn} + 00h ${DIR_GRBCTL}'/yyyy/mmm/dd/'`
fserv_pub=1
Eta_ftp_sector()
#!/bin/ksh -x
{
ICN=$1
ARQ=$2
SOURCE_DIR=$3
MAQUINA=$4
TARGET_DIR=$5
cd ${DIR_SCR_FTP}
cat <<EOT > ${DIR_SCR_FTP}/put_SECTOR
user etamodel Modelo
lcd ${SOURCE_DIR}
cd ${TARGET_DIR}
mkdir ${ICN}
cd ${ICN}
mput ${ARQ}*
quit
EOT
#
ftp -in $MAQUINA <${DIR_SCR_FTP}/put_SECTOR > ${DIR_SCR_FTP}/put_SECTOR.txt
rm -f ${DIR_SCR_FTP}/put_SECTOR
cd ${WRKDIR}
}

if ((${fserv_pub}==1)) ; then
 Eta_ftp_sector $icn etabru10.${icn} ${DIR_GRBCTL} ${serv_pub} ${DIR_IPMET}
fi