MultiRun.c

Go to the documentation of this file.

/* General notes on revisions to this source file. 
       Feb 2005 v2.4.0 initial development
        
*/


#include "multi_run.h"


int numRuns(int SParmNum, int NumSRunsPerSet)
{
   int numberRuns;
      
   numberRuns = (1+NumSRunsPerSet*SParmNum);
        
   return numberRuns;
}

int SensiParm_list(char* sparm_name) 
{
   FILE *SParm_listFile;
   char filename[20];
   char modelFileName[300];
   char ss[422], *line;
   int SParmNum = 0;
   
   if (strcmp(sparm_name,"ALL")!=0) return(1) ;
   
   sprintf(filename,"SensiParm_list"); 
   sprintf( modelFileName, "%s/%s/Data/%s", ModelPath, ProjName, filename );

/* Open file with list of parameters for Sensitivity Analysis */
 if ( ( SParm_listFile = fopen( modelFileName, "r" ) ) ==  NULL )
 {
     printf( "Can't open %s file!\n", modelFileName ) ;
     exit(-1) ;
 }

    sprintf(msgStr, "Sensitivity Analysis Parameters: ") ;
    WriteMsg(msgStr,1); 
    usrErr(msgStr);
   
    fgets( ss, 420, SParm_listFile );
    fgets( ss, 420, SParm_listFile ); 
    fgets( ss, 420, SParm_listFile ); /* skip header lines */
   
    while ( fgets( ss, 420, SParm_listFile ) != NULL && !feof( SParm_listFile ) )
    {
                /* Allocate memory  for next parm set (initially, we have already gotten the info for the nominal run into the struct w/ SParmNum = 0) */
    if ( (ProgExec = ( ProgAttr *) malloc( (size_t) sizeof( ProgAttr ))) == NULL ) {
        sprintf(msgStr, "Failed to allocate memory for next struct defining multiple simulation runs.\n ") ;
        usrErr(msgStr);
        exit( -2 ) ;
    }
        line = ss;
        sscanf (line, "%s", &ProgExec->S_ParmName);

        SParmNum++; /* count the number of parms to be evaluated in sensi */
        RunList[SParmNum] = ProgExec;
        ProgExec->S_ParmRelVal = 0; /* init to 0 for all */
        
        sprintf(msgStr, "%d: %s", SParmNum, ProgExec->S_ParmName) ;
        WriteMsg(msgStr,1); 
        usrErr(msgStr);
    

     
    } /* end of reading basin lines */
    
    fclose(SParm_listFile);
    return (SParmNum);

}


void alloc_mem_runs(int SParmNum) 
{
    if ( (ProgExec = ( ProgAttr *) malloc( (size_t) sizeof( ProgAttr ))) == NULL ) {
        sprintf(msgStr, "Failed to allocate memory for first struct defining (possibly multiple) simulation run(s).\n ") ;
        usrErr(msgStr);
        exit( -2 ) ;
    }
        /* allocate memory for array of pointers to simulation run attributes */
    if ( (RunList = ( ProgAttr **) malloc( (size_t) sizeof( ProgAttr *) * (SParmNum+1) ) ) == NULL )
    {
        printf( "Failed to allocate memory for RunList of simulation attributes \n " ); 
        exit( -2 );
    }


}

/****************************************************************************/