new_write_qpf_grids.c

Go to the documentation of this file.

 
#include "prototypes.h"
 
void write_qpf_grids(char *fname)
 
{
 
FILE *fp;
extern struct hrap_grid *hrap_grid;
extern struct pcp *pcp;
int i,j;
 
fp=fopen(fname,"w");
 
if(fp==NULL) {
 
             printf("could not open %s\n",fname);
 
             exit(1);
 
       }
 
iflag=1;
 
fprintf(fp,"%d %d %d %d %d\n",
    hrap_grid->hrap_minx,hrap_grid->hrap_miny,hrap_grid->maxi,hrap_grid->maxj,
    iflag);
 
for(i=0;i<hrap_grid->maxi;i++) {
 
for(j=0;j<hrap_grid->maxj;j++) {
 
               fprintf(fp," %5d",pcp->value[i][j]/10);
 
      }
}
 
fclose(fp);
 
return;
 
}