# just change the time stamp
setenv TIMESTAMP 9701121704
setenv CEDEXE /usr/local/bin/cedric
setenv FORE_DAT dat.fore.$TIMESTAMP.ced
setenv AFT_DAT dat.aft.$TIMESTAMP.ced
setenv CEDINP inp.$TIMESTAMP.ced
setenv CEDLOG log.$TIMESTAMP.ced
setenv CEDMUD ced.$TIMESTAMP.mud
setenv CEDPLT ced.$TIMESTAMP.plt
#
# create the necessary links
ln -s $FORE_DAT fort.11
ln -s $AFT_DAT fort.12
ln -s $CEDMUD fort.33
#
# finally, run cedric
nice +11 $CEDEXE << $CEDINP >! $CEDLOG
DEFINE  SYNUVW
COMMENT
P1------P2------P3------P4------P5------P6------P7------P8------P9------p10-----
           SYNTHESIS OF RADIAL VELOCITIES WITH DIFFERENTIAL ADVECTION
        1) NUMBER OF RADARS = 2
        2) TWO EQUATION SOLUTION
        3) (U,V,W) STD = (5.0,5.0,5.0)
        5) DIFFERENTIAL ADVECTION WITH STORM DIR/SPD = (0/0.0)
        6) TRANSFER REFL AND RADIAL VELOCITY
        --------------------------------------------------------------
COMEND
READVOL 11      NEXT                    YES
RENAME  VG              VGF     DBZ             DBZF
RENAME  AZ              AZF     EL              ELF
WRITVOL 31                      BEG                     PURE    BEG
READVOL 12      NEXT                    YES
RENAME  VG              VGA     DBZ             DBZA
RENAME  AZ              AZA     EL              ELA
WRITVOL 32                      BEG                     PURE    BEG     
SYNTHES SYN1650 2.0     0.9     100.0   100.0   YES    
        31.0    NEXT                    YES     VGF     AZF     ELF     YES
        INPUT   DBZF    VGF
        OUTPUT  DBZF    VGF
        32.0    NEXT                    YES     VGA     AZA     ELA     YES
        INPUT   DBZA    VGA
        OUTPUT  DBZA    VGA
END
VALUE   OFF
DEFEND  SYNUVW
EXPAND  SYNUVW
FUNCTION
        MXDBZ   P       MAX     DBZF    DBZA
        MXDBZ   P       ORELSE  MXDBZ   DBZF
        MXDBZ   P       ORELSE  MXDBZ   DBZA
END
MASS2   MU      MV      MW      U*0.1   FRACT   1.0     25.01
                MXDBZ   1.5     0.105   0.4
DELETE  U       V       W       CT      EWU     EWV
DELETE  MW      CONM    USTD    VSTD
PATCHER DBZF    DBZF    FILLCON
PATCHER DBZA    DBZA    FILLCON
PATCHER MXDBZ   MXDBZ   FILLCON
PATCHER VGF     VGF     FILLCON
PATCHER VGA     VGA     FILLCON
PATCHER MU      MU      FILLCON
PATCHER MV      MV      FILLCON
FILTER  FU      MU      LEI     3.0
FILTER  FV      MV      LEI     3.0
CONVERGECONM    FU      FV      3.0
INTEGR  WUP     CONM    U*0.1   FRACT   1.0
INTEGR  WVAR    CONM    V*0.1   FRACT   1.0     FRACT   1.0
FUNCTION
        DIV     P       LINEAR  CONM            -1.0    0.0
        VORT    P       DDI-DDJ FV      FU      1.0     1.0     0.0     0.0
END
DELETE  MU      MV      CONM
WRITVOL 33                      BEG                     PURE    BEG
COMMENT
        --------------------------------------------------------------------
COMEND
GRAPHICS        Z       1.                                              FULL 
        VECTOR  FU      FV      ARROW   6       12.0    1.0     PROP0.9 WHITE
        CONTOUR DBZF    FALL    001110101.0     UNI     0.0     40.0    2.0 
        CONTOUR DBZA    FALL    001110101.0     UNI     0.0     40.0    2.0 
        CONTOUR VGF     FALL    001110101.0     UNI     -30.0   30.0    3.0
        CONTOUR VGA     FALL    001110101.0     UNI     -30.0   30.0    3.0
        CONTOUR WUP     FALL    001110101.0     UNI     -15.0   15.0    0.5
        CONTOUR VORT    FALL    001110101.0     UNI     -15.0   15.0    0.5
        CONTOUR DIV     FALL    001110101.0     UNI     -15.0   15.0    0.5
END
QUIT
$CEDINP
# cleanup
\rm -f fort.11
\rm -f fort.12
\rm -f fort.31
\rm -f fort.32
\rm -f fort.33
\rm -f .cededit 
\rm -f .cedremap
mv gmeta $CEDPLT