#!/bin/csh 

#
# Metafile Script : ngmfltwx_meta_fltwx
#
# Log :
# D.W.Plummer/NCEP   2/97   Add log header
#


set	type=tdl
set	mdl=ngmfltwx
set	dt=${1}
set	cycle=${2}
set	hostpid=`hostname`_${$}

setenv	SCRP_DIR	$NADATA/scripts
setenv	BIN_DIR		$NADATA/bin
setenv	GRDS_DIR	$MODEL/"$type"
setenv	META_DIR	$NTRANS_META/${type}
setenv	NAOPX		$NADATA/scripts/$type/${mdl}/${mdl}_meta_out_${hostpid}
setenv	NAOP		$NADATA/scripts/$type/${mdl}/${mdl}_meta_out

set	device="nc | Nmeta.${hostpid}"

set	sfefil=${GRDS_DIR}/${mdl}_${dt}${cycle}
set	sffile=/tmp/${mdl}_${dt}${cycle}.gem

set	dattim1=`awk 'NR == 3 {print $2}' ${sfefil}`
set	sfprmf=`head -1 ${sfefil} | cut -c6-`
set	times=`awk '{print $2}' ${sfefil} | grep -v YYMMDD | sort -u`
    
foreach t ( 1 2 3 )
 
/bin/rm -f ${sffile}.${t}
/bin/rm -f ${sfefil}.${t}
 
end

head -2 ${sfefil} > ${sfefil}.1
awk '$3 == "1.00" {print $0}' ${sfefil} >> ${sfefil}.1
head -2 ${sfefil} > ${sfefil}.2
awk '$3 == "2.00" {print $0}' ${sfefil} >> ${sfefil}.2
head -2 ${sfefil} > ${sfefil}.3
awk '$3 == "3.00" {print $0}' ${sfefil} >> ${sfefil}.3

foreach t ( 1 2 3 )

sfcfil << EOF >>$NAOPX
 SFOUTF   = ${sffile}.${t}
 SFPRMF   = $sfprmf
 STNFIL   = $GEMTBL/SFSTNS.TBL
 SHIPFL   = NO
 TIMSTN   = 20/30
l
run

EOF

sfedit << EOF >>$NAOPX
 SFEFIL   = ${sfefil}.${t}
 SFFILE   = ${sffile}.${t}
run

exit
EOF

end

foreach dattim ( $times )

sfmap << EOF >>$NAOPX
 AREA     = dset
 GAREA    = 23;-120.49;44;-61
 GAREA    = 24.;-100.55;47.20;-65.42
 PROJ     = str/90;-90;0/0;3;0;0
 SFPARM   = $sfprmf
 DATTIM   = ${dattim}
 SFFILE   = ${sffile}.3
 COLORS   = 14
 MAP      = 25//2
 LATLON   = 0
 MARKER   = 0
 TITLE    = 31/-2/NGM MOS FCST OF FLIGHT WEATHER (EAST) VALID ~|E NGM MOS FLT WX
 CLEAR    = yes
 PANEL    = 0
 DEVICE   = xw
 DEVICE   = ${device}
 FILTER   = NO
 TEXT     = 1.5/21//hw
 SKPMIS   = NO
l
run

 SFFILE   = ${sffile}.2
 COLORS   = 27
 CLEAR    = NO
run

 SFFILE   = ${sffile}.1
 COLORS   = 5
run

 GAREA    = va
 DATTIM   = $dattim1
 COLORS   = 5
 TEXT     = 2/21//hw

 AREA     = dset
 GAREA    = 23;-125;50;-84
 PROJ     = str/90;-105;0/0;3;0;0
 GAREA    = 23;-125;50;-85
 PROJ     = str/90;-107;0/0;3;0;0
 SFPARM   = $sfprmf
 DATTIM   = ${dattim}
 SFFILE   = ${sffile}.3
 COLORS   = 14
 MAP      = 25//2
 LATLON   = 0
 MARKER   = 0
 TITLE    = 31/-2/NGM MOS FCST OF FLIGHT WEATHER (WEST) VALID ~|W NGM MOS FLT WX
 CLEAR    = yes
 PANEL    = 0
 DEVICE   = xw
 DEVICE   = ${device}
 FILTER   = NO
 TEXT     = 1.5/21//hw
 SKPMIS   = NO
l
run

 SFFILE   = ${sffile}.2
 COLORS   = 27
 CLEAR    = NO
run

 SFFILE   = ${sffile}.1
 COLORS   = 5
run

 FILTER   = .7
 SFFILE   = ${sffile}.3
 COLORS   = 14
 CLEAR    = YES

 SFFILE   = ${sffile}.2
 COLORS   = 27
 CLEAR    = NO

 SFFILE   = ${sffile}.1
 COLORS   = 5

 SFFILE   = ${sffile}.3
 COLORS   = 14
 CLEAR    = YES

 SFFILE   = ${sffile}.2
 COLORS   = 27
 CLEAR    = NO

 SFFILE   = ${sffile}.1
 COLORS   = 5

 GAREA    = va
 DATTIM   = $dattim1
 COLORS   = 5
 TEXT     = 2/21//hw

exit
EOF

end

gpend

mv $NAOPX $NAOP

mv Nmeta.${hostpid} $META_DIR/.${type}_${dt}_${cycle}_${mdl}_fltwx
mv $META_DIR/.${type}_${dt}_${cycle}_${mdl}_fltwx $META_DIR/${type}_${dt}_${cycle}_${mdl}_fltwx

$BIN_DIR/NA_notify meta TDL_${mdl}_fltwx ${dt} ${cycle} 00 X

$BIN_DIR/meta_transfer $type $dt $cycle ${mdl}_fltwx all &

foreach t ( 1 2 3 )
 
/bin/rm -f ${sffile}.${t}
/bin/rm -f ${sfefil}.${t}
 
end

exit