00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030 #include "plumeinput.h"
00031 #include "plumevars.h"
00032 #include <stdio.h>
00033
00034 int plumeread2d(char *fileName , Plume_enviro *env , Plume_grid *grid , Plume_options *opt )
00035 {
00036 static int first_time=1;
00037 FILE *fidin;
00038 char chs[120];
00039 Plume_ocean ocean = *(env->ocean);
00040
00041 if ( first_time )
00042 {
00043
00044 if( (fidin = fopen(fileName,"r")) == NULL)
00045 {
00046 fprintf(stderr, " PlumeRead ERROR: Unable to open the input file: %s \n",fileName);
00047 eh_exit(1);
00048 }
00049
00050
00051 fscanf( fidin, "%lf", &ocean.Cw); fgets( chs, 120, fidin );
00052 fscanf( fidin, "%lf", &ocean.vo); fgets( chs, 120, fidin );
00053 fscanf( fidin, "%lf", &ocean.vdirection); fgets( chs, 120, fidin );
00054 fscanf( fidin, "%lf", &ocean.cc); fgets( chs, 120, fidin );
00055 fscanf( fidin, "%lf", &ocean.So); fgets( chs, 120, fidin );
00056 fscanf( fidin, "%lf", &ocean.Sw); fgets( chs, 120, fidin );
00057
00058
00059
00060 fscanf( fidin, "%1d", &opt->fjrd); fgets( chs, 120, fidin );
00061 fscanf( fidin, "%1d", &opt->kwf); fgets( chs, 120, fidin );
00062 fscanf( fidin, "%d" , &env->lat); fgets( chs, 120, fidin );
00063
00064
00065
00066 fscanf( fidin, "%2d", &grid->ndy); fgets( chs, 120, fidin );
00067 fscanf( fidin, "%2d", &grid->ndx); fgets( chs, 120, fidin );
00068
00069
00070
00071
00072 fscanf( fidin, "%d", &opt->o1); fgets( chs, 120, fidin );
00073 fscanf( fidin, "%d", &opt->o2); fgets( chs, 120, fidin );
00074 fscanf( fidin, "%d", &opt->o3);
00075
00076 fclose(fidin);
00077 first_time=0;
00078 }
00079
00080 return(0);
00081
00082 }
00083