int main(int argc, char **argv)
{
char *version="2.1 (Feb. 2005)";
char *pfin=NULL;
Pf *pf;
Dbptr db;
char *dbname;
int i;
/* All of the following are duplicates of GCLgrid parameters,
but we use the simpler variables in their place in many place
to avoid all the strange pointer constructs */
double lat0, lon0,r0;
double azimuth_x, rotation_angle, azimuth_y;
double dx1, dx2, dx3, dx1_rad, dx2_rad;
int n1, n2, n3;
int i0,j0,k0;
double xlow,xhigh,ylow,yhigh,zlow,zhigh;
/* set nonzero if a 3d grid is to be created */
int create_3d=0;
/* pole to baseline */
double pole_lat, pole_lon;
double deltax, deltay,delta;
double z0,z;
double x[3],x0[3];
char *dir;
// needed because we mix stdio and streams
ios::sync_with_stdio();
/* Initialize the error log and write a version notice */
elog_init (argc, argv);
elog_log (0, "%s version %s\n", argv[0], version) ;
/* usual cracking of command line */
if(argc < 2) usage(argv[0]);
dbname = argv[1];
for(i=2;i<argc;++i)
{
if(!strcmp(argv[i],"-pf"))
{
++i;
if(i>argc) usage(argv[0]);
pfin = argv[i];
}
else if(!strcmp(argv[i],"-v"))
GCLverbose=1;
else
usage(argv[0]);
}
/* this sets defaults */
if(pfin == NULL) pfin = strdup("makegclgrid");
i = pfread(pfin,&pf);
if(i != 0) die(1,"Pfread error\n");
if(dbopen(dbname,"r+",&db))
die(0,"dbopen failed on database %s\n",dbname);
db = dblookup(db,0,"gclgdisk",0,0);
if(db.record == dbINVALID) die(0,"lookup fails for gclgdisk table\nSchema is probably defined incorrectly\n");
/* Fetch the main grid parameters from the parameter file */
string gridname(pfget_string(pf,"gridname"));
if(gridname.empty())
die(0,"Null gridname parameter in input parameter file\nYou must assign a name to this grid\n");
lat0 = pfget_double(pf,"origin_latitude");
lon0 = pfget_double(pf,"origin_longitude");
lat0 = rad(lat0);
lon0 = rad(lon0);
r0 = r0_ellipse(lat0);
azimuth_x = pfget_double(pf,"x_axis_azimuth");
rotation_angle = rad(90.0 - azimuth_x);
azimuth_y = -rotation_angle;
dx1 = pfget_double(pf,"delta_x1");
dx2 = pfget_double(pf,"delta_x2");
dx1_rad = dx1/r0;
dx2_rad = dx2/r0;
n1 = pfget_int(pf,"n1");
n2 = pfget_int(pf,"n2");
i0 = pfget_int(pf,"origin_offset_x1");
j0 = pfget_int(pf,"origin_offset_x2");
create_3d = pfget_boolean(pf,"build_3d_grid");
dir = pfget_string(pf,"gridfile_directory");
if(makedir(dir)) elog_die(0,"Cannot create output directory %s\n",
dir);
if(create_3d)
{
dx3 = pfget_double(pf,"delta_x3");
n3 = pfget_int(pf,"n3");
k0 = 0; /* we force the r coordinate to always start
at the bottom of the grid. The format allows
something more general, but this is the simplest
way to define this */
z0 = ((double)(n3-1))*dx3;
}
//
//Use the full constructor to construct a 2D and 3D arrays and
//write them out using the dbsave routines. The 2d and 3d
//codes are exact parallels due to interface design
//
GCLgrid g = GCLgrid(n1, n2, gridname,
lat0, lon0, r0, azimuth_y,
dx1, dx2, i0, j0);
try {
g.dbsave(db,dir);
}
catch (...)
{
elog_die(0,"dbsave failed for 2d grid\n");
};
if(create_3d) {
GCLgrid3d g3d = GCLgrid3d(n1, n2, n3, gridname,
lat0, lon0,r0, azimuth_y,
dx1, dx2, dx3, i0, j0);
try {
g3d.dbsave(db,dir);
}
catch (...)
{
elog_die(0,"dbsave failed for 3d grid\n");
}
}
exit(0);
}
void GCLvectorfield::dbsave(Dbptr dbo,
string gclgdir,
string fielddir,
string fieldname,
string dfile) throw(int)
{
int gridsize;
string filename;
FILE *fp;
long int fpos;
int foff;
int dimensions=2;
//Save the parent GCLgrid when gclgdir is defined
//Skip if this string was not defined
if(gclgdir.length()>0)
{
try {
GCLgrid *g;
g = dynamic_cast<GCLgrid *> (this);
g->dbsave(dbo,gclgdir);
}
catch(int dbserr)
{
throw(dbserr);
}
}
else
{
if(test_for_byteswap(dbo,this->name,2) )
swapdvec(this->val[0][0],n1*n2*nv);
}
Dbptr db = dblookup(dbo,0,(char *)"gclfield",0,0);
if(db.table == dbINVALID)
{
elog_notify(0,
(char *)"lookup failed for gclfield table. Extension table probably not defined\n");
throw 1;
}
/* Insure the directory exists */
if(makedir(const_cast<char *>(fielddir.c_str())))
{
elog_notify(0,"Cannot create directory %s",fielddir.c_str());
throw 1;
}
//First create a filename and save the val array with a binary write
filename = fielddir+"/"+dfile;
fp = fopen(filename.c_str(),"a+");
if(fp==NULL)
{
elog_notify(0,
(char *)"Cannot open output file %s\nNothing save\n",
filename.c_str());
throw 2;
}
fseek(fp,0,SEEK_END);
/* The use of the int cast is unnecessary on some machines,
but may be problematic on current versions of solaris so I'll
be safe */
fpos = ftell(fp);
foff = (int)fpos;
gridsize = n1*n2*nv;
if(fwrite(val[0][0],sizeof(double),gridsize,fp) != gridsize)
{
elog_notify(0,(char *)"fwrite error for file %s\n",
filename.c_str());
fclose(fp);
throw 2;
}
fclose(fp);
if(dbaddv(db,0,
(char *)"gridname",name.c_str(),
(char *)"dimensions",dimensions,
(char *)"nv",nv,
(char *)"dir",fielddir.c_str(),
(char *)"dfile",dfile.c_str(),
(char *)"foff",foff,
(char *)"fieldname",fieldname.c_str(),
0) < 0)
{
elog_notify(0,(char *)"dbaddv error for 2d grid into gclfield table\n");
throw 1;
}
}