/Users/huttone/Devel/sedflux-new/sedflux/trunk/ew/hydrotrend/hydromaxevents.c

Go to the documentation of this file.
00001 /*
00002  *  HydroMaxEvent.c
00003  *
00004  *  Calculates the highest discharge events (Qpeaks)
00005  *  On those events the number of outlets are recalculated.
00006  *
00007  *
00008  *  Author:    A.J. Kettner             (March 2003)
00009  *
00010  *  Variable                    Def.Location    Type    Units   Usage
00011  *  --------                    ------------    ----    -----   -----
00012  *  err                                 various                 int             -               error flag, halts program
00013  *  x                                   hydromaxevent.c int             -               temporary loop counter
00014  *  y                                   hydromaxevent.c int             -               temporary loop counter
00015  *  Qpeakalleventstemp  hydromaxevent.c double  -               temporary variable to store Qpeakvalue
00016  *
00017  */
00018 
00019 #include "hydroclimate.h"
00020 #include "hydroparams.h"
00021 #include "hydrotimeser.h"
00022 
00023 /*--------------------------
00024  *  Start of HydroMaxEvent
00025  *--------------------------*/
00026 int hydromaxevents()
00027 {
00028 
00029 /*-------------------
00030  *  Local Variables
00031  *-------------------*/
00032 int err, p, x, y;
00033 double Qpeakalleventstemp, Qpeakalleventstemp2;
00034 err = 0;
00035 
00036 /*----------------------
00037  *  Setting the events
00038  *----------------------*/
00039         if ( yr == syear[ep] )
00040                 for ( p=0; p<eventsnr[ep]; p++ )
00041                         Qpeakallevents[ep][p] = Qpeakevents[p];
00042         else
00043                 for ( p=eventsnr[ep]-1; p>=0; p-- )
00044                         for ( x=0; x<eventsnr[ep]; x++ ){
00045                                 if ( Qpeakevents[p] > Qpeakallevents[ep][p-x] ){
00046                                         Qpeakalleventstemp = Qpeakallevents[ep][p-x];
00047                                         Qpeakallevents[ep][p-x] = Qpeakevents[p];
00048                                         for ( y=p-x-1; y>=0; y-- ){
00049                                                 Qpeakalleventstemp2 = Qpeakallevents[ep][y];
00050                                                 Qpeakallevents[ep][y] = Qpeakalleventstemp;
00051                                                 Qpeakalleventstemp = Qpeakalleventstemp2;
00052                                         }
00053                                 }
00054                                 x = eventsnr[ep];                               
00055                         }               
00056         return (err);
00057 } /* end hydromaxevents.c */
00058 
00059 

Generated on Fri Jan 4 18:04:14 2008 for sedflux by  doxygen 1.5.2