Commit 7919d88f authored by Paulo V C Medeiros's avatar Paulo V C Medeiros
Browse files

Add Fix_obsfiles DK, FI, IC, NO1 and NO2

parent 25ef0ed2
#!/bin/ksh
#
set -x
cd /scratch/ms/se/smo/carra/conv
DTG1=$1
DTG2=$2
DTG=$DTG1
TXTPATH=/scratch/ms/se/smo/carra/conv/DK/
while (( $DTG<=$DTG2 ))
do
((BB = ${DTG} / 100))
((YY = $BB / 10000))
((MM = ( $BB - $YY*10000) / 100))
IY=$YY
IM=`perl -e "printf('%2.2i', '$MM')"`
FILE_OUT=$TXTPATH"obs_"$DTG".txt"
INFILE1="/scratch/ms/se/smo/carra/conv/DK/GCNET/"$IY"/gcnet_"$IY$IM".txt"
INFILE2="/scratch/ms/se/smo/carra/conv/DK/Geus/"$IY"/geus_"$IY$IM".txt"
INFILE3="/scratch/ms/se/smo/carra/conv/DK/Asiaq/"$IY"/Asiaq_"$IY$IM".txt"
grep $DTG $INFILE1 > $FILE_OUT
grep $DTG $INFILE2 >> $FILE_OUT
grep $DTG $INFILE3 >> $FILE_OUT
DTG=$(/home/ms/se/smo/bin/mandtg.x $DTG + 01)
done
exit
#!/bin/ksh
#
set -x
cd /scratch/ms/se/smo/carra/conv
DTG1=$1
DTG2=$2
DTG=$DTG1
TXTPATH=/scratch/ms/se/smo/carra/conv/FI/
while (( $DTG<=$DTG2 ))
do
FILE_OUT=$TXTPATH"obs_"$DTG".txt"
((BB = ${DTG} / 100))
((YY = $BB / 10000))
((MM = ( $BB - $YY*10000) / 100))
IY=$YY
IM=`perl -e "printf('%2.2i', '$MM')"`
INFILE1="/scratch/ms/se/smo/carra/conv/FI/"$IY"/synopCARRA_FMI_"$IY$IM".txt"
grep $DTG $INFILE1 > $FILE_OUT
DTG=$(/home/ms/se/smo/bin/mandtg.x $DTG + 01)
done
exit
#!/bin/ksh
#
set -x
cd /scratch/ms/se/smo/carra/conv
DTG1=$1
DTG2=$2
DTG=$DTG1
TXTPATH=/scratch/ms/se/smo/carra/conv/IC/
while (( $DTG<=$DTG2 ))
do
FILE_OUT=$TXTPATH"obs_"$DTG".txt"
((BB = ${DTG} / 100))
((YY = $BB / 10000))
((MM = ( $BB - $YY*10000) / 100))
IY=$YY
IM=`perl -e "printf('%2.2i', '$MM')"`
INFILE1="/scratch/ms/se/smo/carra/conv/IC/"$IY"/carra_iceland_"$IY"_"$IM".txt"
grep $DTG $INFILE1 > $FILE_OUT
DTG=$(/home/ms/se/smo/bin/mandtg.x $DTG + 01)
done
exit
#!/bin/ksh
#
set -x
cd /scratch/ms/se/smo/carra/conv
DTG1=$1
DTG2=$2
DTG=$DTG1
TXTPATH=/scratch/ms/se/smo/carra/conv/NO/
while (( $DTG<=$DTG2 ))
do
FILE_OUT=$TXTPATH"carra_Norway_synop_"$DTG".txt"
((BB = ${DTG} / 100))
((YY = $BB / 10000))
((MM = ( $BB - $YY*10000) / 100))
IY=$YY
IM=`perl -e "printf('%2.2i', '$MM')"`
INFILE1="/scratch/ms/se/smo/carra/conv/NO/"$IY"/carra_Norway_synop_"$IY$IM".txt"
grep $DTG $INFILE1 > $FILE_OUT
DTG=$(/home/ms/se/smo/bin/mandtg.x $DTG + 01)
done
exit
#!/bin/ksh
#
set -x
cd /scratch/ms/se/smo/carra/conv
DTG1=$1
DTG2=$2
DTG=$DTG1
TXTPATH=/scratch/ms/se/smo/carra/conv/NO/
while (( $DTG<=$DTG2 ))
do
FILE_OUT=$TXTPATH"carra_Norway_SA_RR24_"$DTG".txt"
((BB = ${DTG} / 100))
((YY = $BB / 10000))
((MM = ( $BB - $YY*10000) / 100))
IY=$YY
IM=`perl -e "printf('%2.2i', '$MM')"`
INFILE1="/scratch/ms/se/smo/carra/conv/NO/"$IY"/carra_Norway_SA_RR24_"$IY$IM".txt"
grep $DTG $INFILE1 > $FILE_OUT
DTG=$(/home/ms/se/smo/bin/mandtg.x $DTG + 24)
done
exit
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment