VR-Vantage 2.7 API Documentation
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
modrad_common.h
Go to the documentation of this file.
1 
2 /* © 1998 JRM Technologies, Inc.*/
3 //#include "JRMDefines.h"
4 #include "ModRadDLLstub.h"
5 #include "SSModRadStruct.h"
6 
7 
8 
9 #ifdef __cplusplus
10 extern "C"
11 {
12 #endif
13 
14 
15 #define CO2ppmv 0.0 // Use 355 ppmv as default
16 #define H2Oscale 1.0 // Default=1
17 #define O2scale 1.0 // Default=1
18 #define H2Omax 0.9 // H2O % relative humidity at sea level
19 #define gamH2O 1.0E-5 // [m-1] exponential dropoff for H2O density
20 #define CO2max 0.0 // CO2 partial pressure [mb] at sea level
21 #define gamCO2 1.0E-5 // [m-1] exponential dropoff for CO2 density
22 #define DEFAULT_LOG (-38.0*log(10.0))
23 
24 
25 
26  /* -------- ERROR ENUMERANTS ---------- */
27  enum MODRAD_ERRORS
28  {
29  MODRAD_SUCCESS,
30  MODRAD_FILE_NOT_FOUND,
31  MODRAD_MEMORY_ALLOCATION_ERROR,
32  MODRAD_FILE_FORMAT_ERROR,
33  MODRAD_REGISTRATION_ERROR,
34  MODRAD_FUNCTION_FAILURE,
35  MODRAD_REGISTRATION_OUT_OF_ITEMS,
36  MODRAD_ATTRIBWRITE_ERROR,
37  MODRAD_ATTRIBUSER_ERROR
38  };
39 
40 
41 
42  MODRAD_API int InitializeModcard(MODCARD *mc);
43  MODRAD_API int GetTOAIrradiance(int day, float moonphasedeg, long nlambda, double* lambda, double* solarTOA, double* lunarTOA);
44 
45  //#define DYNAMICMR 1 // undefine if you desire SigSimModtran and SigSimRadtran libraries to be static, regardless of operating system.
46 
47 #if defined WIN32 && DYNAMICMR
48 #define MODRADENTRY __stdcall
49 #endif // WIN32 && DYNAMICMR
50 
51  /* ------------------ MODTRAN API --------------------------- */
52 
53 #if defined WIN32 && DYNAMICMR
54 
55  typedef int (MODRADENTRY * SCENV) (char* IDIR, char* ODIR, int* ilen, int *olen);
56  typedef int (MODRADENTRY * SC1) (char *code, int* model, int* type, int* mode, int* mult,
57  int* m1, int* m2, int* m3, int* m4, int* m5, int* m6,
58  int* mdef, int* im, int* noprnt, float* tbound, float* salb);
59  typedef int (MODRADENTRY * SC1A) (int* DIS, int* NSTR, int* LSUN, int* ISUN, float* CO2MX,
60  float* SOLCON, char* H2OSTR, char* O3STR, char* SUNFL2);
61  typedef int (MODRADENTRY * SC1A1) (char* SUNFL2);
62  typedef int (MODRADENTRY * SC1A2) (char* c1a2Bmname);
63  typedef int (MODRADENTRY * SC1A3) (char* c1a3Fltnam);
64  typedef int (MODRADENTRY * SC2) (char* APLUS,int* IHAZE,char* CNOVAM, int* ISEASN, char* ARUSS,
65  int* IVULCN, int* ICSTL, int* ICLD,int* IVSA, float* VIS,
66  float* WSS, float* WHH, float* RAINRT, float* GNDALT);
67  typedef int (MODRADENTRY * SC2A) (float* CTHIK, float* CALT, float* CEXT, int* ISEED,
68  int* NCRALT, int* NCRSPC, float* CWAVLN, float* CCOLWD,
69  float* CCOLIP, float* CHUMID, float* ASYMWD, float* ASYMIP);
70  typedef int (MODRADENTRY * SC2AP) (float* ZAER11, float* ZAER12, float* SCALE1, float* ZAER21,
71  float* ZAER22, float* SCALE2, float* ZAER31, float* ZAER32,
72  float* SCALE3, float* ZAER41, float* ZAER42, float* SCALE4);
73  typedef int (MODRADENTRY * SC2B) (float* ZCVSA, float* ZTVSA, float* ZINVSA);
74  typedef int (MODRADENTRY * SC2C) (int* ML, int* IRD1, int* IRD2, char* HMODEL);
75  typedef int (MODRADENTRY * SC2C1) (float* C2C1ZM, float* C2C1P, float* C2C1T,
76  float* C2C1WMOL1, float* C2C1WMOL2, float* C2C1WMOL3, char* C2C1JCHAR);
77  typedef int (MODRADENTRY * SC2C2) (float* WMOL4, float* WMOL5, float* WMOL6, float* WMOL7,
78  float* WMOL8, float* WMOL9, float* WMOL10,float* WMOL11,float* WMOL12);
79  typedef int (MODRADENTRY * SC2C2X) (float* WMOLX1,float* WMOLX2,float* WMOLX3,float* WMOLX4,float* WMOLX5,
80  float* WMOLX6,float* WMOLX7,float* WMOLX8,float* WMOLX9,float* WMOLX10,
81  float* WMOLX11, float* WMOLX12, float* WMOLX13);
82  typedef int (MODRADENTRY * SC2C3) ( int* IHA1, int* ICLD1, int* IVUL1, int* ISEA1, int* ICHR,
83  float* AHAZE1, float* AHAZE2, float* AHAZE3, float*AHAZE4, float* EQLWCZ, float* RRATZ);
84  typedef int (MODRADENTRY * SC2D) (int* C2DIREG);
85  typedef int (MODRADENTRY * SC2D1) (float* C2D1AWCCON, char* C2D1TITLE);
86  typedef int (MODRADENTRY * SC2D2) (float* C2D2VARSPC, float* C2D2EXTC, float* C2D2ABSC, float* C2D2ASYM);
87  typedef int (MODRADENTRY * SC2E1) (float* ZCLD, float* CLD, float* CLDICE, float* RR);
88  typedef int (MODRADENTRY * SC2E2) (float* C2E2WAVLEN, float* C2E2EXTC6, float* C2E2ABSC6, float* C2E2ASYM6, float* C2E2EXTC7, float* C2E2ABSC7, float* C2E2ASYM7);
89  typedef int (MODRADENTRY * SC3) (float* H1, float* H2, float* ANGLE, float* RANGE, float* BETA,
90  float* RO, int* LENN, float* PHI, int* IDAY, int* ISOURCE,
91  float* ANGLEM);
92  typedef int (MODRADENTRY * SC3A1) (int* IPARM, int* IPH, int* IDAY, int* ISOURC);
93  typedef int (MODRADENTRY * SC3A2) (float* PARM1, float* PARM2, float* PARM3, float* PARM4,
94  float* TIME, float* PSIPO, float* ANGLEM, float* G);
95  typedef int (MODRADENTRY * SC3B1) (int* C3B1NANGLS, int* C3B1NWLF);
96  typedef int (MODRADENTRY * SC3B2) (float* C3B2ANGF, float* C3B2F1, float* C3B2F2, float* C3B2F3, float* C3B2F4);
97  typedef int (MODRADENTRY * SC3C) (float* C3C1ANGF, float* C3C2WLF, float* C3C36F);
98  typedef int (MODRADENTRY * SC4) (float* V1, float* V2, float* DV, float* FWHM,
99  char* YFLAG, char* XFLAG, char* DLIMIT, char* FLAGS);
100  typedef int (MODRADENTRY * SC5) (int* IRPT);
101  typedef int (MODRADENTRY * SCIRRADANGLES) (int *cIon_off, float* cIsolar_angle, float* cIlunar_angle);
102  typedef int (MODRADENTRY * FILLPROFILE) ();
103  typedef int (MODRADENTRY * DRIVER) ();
104  typedef int (MODRADENTRY * GXMIT) (float* AVXMIT);
105  typedef int (MODRADENTRY * GPTRAD) (float* RADSUM);
106  typedef int (MODRADENTRY * PLTDAT) (int* nPts, float* x, float* y, float*y2, float* ysum, float* y2sum);
107  typedef int (MODRADENTRY * PUTATM) (int *nx, float *x, int* nalt, float* alt);
108  typedef int (MODRADENTRY * GETATM) (int *num, float* prd,float* ext,float* psc, float* agd, float* ssa, float* lth);
109  typedef int (MODRADENTRY * TOAIRRADIANCE) (int* IDAY, float* ANGLE, int* NLAMBDA, float* LAMBDA, float* SOLAR, float* LUNAR);
110  typedef int (MODRADENTRY * GETPROFILE) (int* nlayers, int* nspecs, float* altkm, float* presmb, float *tempk, float* rfindex, float* dense, int* ncld, float* zcld, float* wat, float* ice, float* rr);
111 
112  HMODULE ModLib;
113 
114  SCENV scenv;
115  SC1 sc1;
116  SC1A sc1a;
117  SC1A1 sc1a1;
118  SC1A2 sc1a2;
119  SC1A3 sc1a3;
120  SC2 sc2;
121  SC2A sc2a;
122  SC2AP sc2ap;
123  SC2B sc2b;
124  SC2C sc2c;
125  SC2C1 sc2c1;
126  SC2C2 sc2c2;
127  SC2C2X sc2c2x;
128  SC2C3 sc2c3;
129  SC2D sc2d;
130  SC2D1 sc2d1;
131  SC2D2 sc2d2;
132  SC2E1 sc2e1;
133  SC2E2 sc2e2;
134  SC3 sc3;
135  SC3A1 sc3a1;
136  SC3A2 sc3a2;
137  SC3B1 sc3b1;
138  SC3B2 sc3b2;
139  SC3C sc3c;
140  SC4 sc4;
141  SC5 sc5;
142  SCIRRADANGLES scirradangles;
143  FILLPROFILE fillprofile;
144  DRIVER driver;
145  GXMIT gxmit;
146  GPTRAD gptrad;
147  PLTDAT pltdat;
148  PUTATM putatm;
149  GETATM getatm;
150  TOAIRRADIANCE toairradiance;
151  GETPROFILE getprofile;
152 
153  MODRAD_API int LoadDynamicModtran();
154  MODRAD_API void UnloadDynamicModtran();
155 
156 #else // not WIN32 or not DYNAMICMR
157 
158 #ifdef WIN32
159  int __cdecl scenv(char* IDIR, char* ODIR, int* ilen, int *olen);
160  int __cdecl sc1(char *code, int* model, int* type, int* mode, int* mult,
161  int* m1, int* m2, int* m3, int* m4, int* m5, int* m6,
162  int* mdef, int* im, int* noprnt, float* tbound, float* salb);
163  int __cdecl sc1a(int* DIS, int* NSTR, int* LSUN, int* ISUN, float* CO2MX,
164  float* SOLCON, char* H2OSTR, char* O3STR, char* SUNFL2);
165  int __cdecl sc1a1(char* SUNFL2);
166  int __cdecl sc1a2(char* c1a2Bmname);
167  int __cdecl sc1a3(char* c1a3Fltnam);
168  int __cdecl sc2(char* APLUS,int* IHAZE,char* CNOVAM, int* ISEASN, char* ARUSS,
169  int* IVULCN, int* ICSTL, int* ICLD,int* IVSA, float* VIS,
170  float* WSS, float* WHH, float* RAINRT, float* GNDALT);
171  int __cdecl sc2a(float* CTHIK, float* CALT, float* CEXT, int* ISEED,
172  int* NCRALT, int* NCRSPC, float* CWAVLN, float* CCOLWD,
173  float* CCOLIP, float* CHUMID, float* ASYMWD, float* ASYMIP);
174  int __cdecl sc2ap(float* ZAER11, float* ZAER12, float* SCALE1, float* ZAER21,
175  float* ZAER22, float* SCALE2, float* ZAER31, float* ZAER32,
176  float* SCALE3, float* ZAER41, float* ZAER42, float* SCALE4);
177  int __cdecl sc2b(float* ZCVSA, float* ZTVSA, float* ZINVSA);
178  int __cdecl sc2c(int* ML, int* IRD1, int* IRD2, char* HMODEL);
179  int __cdecl sc2c1( float* C2C1ZM, float* C2C1P, float* C2C1T,
180  float* C2C1WMOL1, float* C2C1WMOL2, float* C2C1WMOL3, char* C2C1JCHAR);
181  int __cdecl sc2c2( float* WMOL4, float* WMOL5, float* WMOL6, float* WMOL7,
182  float* WMOL8, float* WMOL9, float* WMOL10,float* WMOL11,float* WMOL12);
183  int __cdecl sc2c2x(float* WMOLX1,float* WMOLX2,float* WMOLX3,float* WMOLX4,float* WMOLX5,
184  float* WMOLX6,float* WMOLX7,float* WMOLX8,float* WMOLX9,float* WMOLX10,
185  float* WMOLX11, float* WMOLX12, float* WMOLX13);
186  int __cdecl sc2c3( int* IHA1, int* ICLD1, int* IVUL1, int* ISEA1, int* ICHR,
187  float* AHAZE1, float* AHAZE2, float* AHAZE3, float*AHAZE4, float* EQLWCZ, float* RRATZ);
188  int __cdecl sc2d(int* C2DIREG);
189  int __cdecl sc2d1(float* C2D1AWCCON, char* C2D1TITLE);
190  int __cdecl sc2d2(float* C2D2VARSPC, float* C2D2EXTC, float* C2D2ABSC, float* C2D2ASYM);
191  int __cdecl sc2e1(float* ZCLD, float* CLD, float* CLDICE, float* RR);
192  int __cdecl sc2e2(float* C2E2WAVLEN, float* C2E2EXTC6, float* C2E2ABSC6, float* C2E2ASYM6, float* C2E2EXTC7, float* C2E2ABSC7, float* C2E2ASYM7);
193  int __cdecl sc3(float* H1, float* H2, float* ANGLE, float* RANGE, float* BETA,
194  float* RO, int* LENN, float* PHI, int* IDAY, int* ISOURCE,
195  float* ANGLEM);
196  int __cdecl sc3a1(int* IPARM, int* IPH, int* IDAY, int* ISOURC);
197  int __cdecl sc3a2(float* PARM1, float* PARM2, float* PARM3, float* PARM4,
198  float* TIME, float* PSIPO, float* ANGLEM, float* G);
199  int __cdecl sc3b1(int* C3B1NANGLS, int* C3B1NWLF);
200  int __cdecl sc3b2(float* C3B2ANGF, float* C3B2F1, float* C3B2F2, float* C3B2F3, float* C3B2F4);
201  int __cdecl sc3c(float* C3C1ANGF, float* C3C2WLF, float* C3C36F);
202  int __cdecl sc4(float* V1, float* V2, float* DV, float* FWHM,
203  char* YFLAG, char* XFLAG, char* DLIMIT, char* FLAGS);
204  int __cdecl sc5(int* IRPT);
205  int __cdecl scirradangles(int *cIon_off, float* cIsolar_angle, float* cIlunar_angle);
206  int __cdecl fillprofile();
207  int __cdecl driver();
208  int __cdecl gxmit(float* AVXMIT);
209  int __cdecl gptrad(float* RADSUM);
210  int __cdecl pltdat(int* nPts, float* x, float* y, float*y2, float* ysum, float* y2sum);
211  int __cdecl putatm(int *nx, float *x, int* nalt, float* alt);
212  int __cdecl getatm(int *num, float* prd,float* ext,float* psc, float* agd, float* ssa, float* lth);
213  int __cdecl toairradiance(int* IDAY, float* ANGLE, int* NLAMBDA, float* LAMBDA, float* SOLAR, float* LUNAR);
214  int __cdecl getprofile(int* nlayers, int* nspecs, float* altkm, float* presmb, float *tempk, float* rfindex, float* dense, int* ncld, float* zcld, float* wat, float* ice, float* rr);
215 #else
216  int _stdcall scenv(char* IDIR, char* ODIR, int* ilen, int *olen);
217  int _stdcall sc1(char *code, int* model, int* type, int* mode, int* mult,
218  int* m1, int* m2, int* m3, int* m4, int* m5, int* m6,
219  int* mdef, int* im, int* noprnt, float* tbound, float* salb);
220  int _stdcall sc1a(int* DIS, int* NSTR, int* LSUN, int* ISUN, float* CO2MX,
221  float* SOLCON, char* H2OSTR, char* O3STR, char* SUNFL2);
222  int _stdcall sc1a1(char* SUNFL2);
223  int _stdcall sc1a2(char* c1a2Bmname);
224  int _stdcall sc1a3(char* c1a3Fltnam);
225  int _stdcall sc2(char* APLUS,int* IHAZE,char* CNOVAM, int* ISEASN, char* ARUSS,
226  int* IVULCN, int* ICSTL, int* ICLD,int* IVSA, float* VIS,
227  float* WSS, float* WHH, float* RAINRT, float* GNDALT);
228  int _stdcall sc2a(float* CTHIK, float* CALT, float* CEXT, int* ISEED,
229  int* NCRALT, int* NCRSPC, float* CWAVLN, float* CCOLWD,
230  float* CCOLIP, float* CHUMID, float* ASYMWD, float* ASYMIP);
231  int _stdcall sc2ap(float* ZAER11, float* ZAER12, float* SCALE1, float* ZAER21,
232  float* ZAER22, float* SCALE2, float* ZAER31, float* ZAER32,
233  float* SCALE3, float* ZAER41, float* ZAER42, float* SCALE4);
234  int _stdcall sc2b(float* ZCVSA, float* ZTVSA, float* ZINVSA);
235  int _stdcall sc2c(int* ML, int* IRD1, int* IRD2, char* HMODEL);
236  int _stdcall sc2c1( float* C2C1ZM, float* C2C1P, float* C2C1T,
237  float* C2C1WMOL1, float* C2C1WMOL2, float* C2C1WMOL3, char* C2C1JCHAR);
238  int _stdcall sc2c2( float* WMOL4, float* WMOL5, float* WMOL6, float* WMOL7,
239  float* WMOL8, float* WMOL9, float* WMOL10,float* WMOL11,float* WMOL12);
240  int _stdcall sc2c2x(float* WMOLX1,float* WMOLX2,float* WMOLX3,float* WMOLX4,float* WMOLX5,
241  float* WMOLX6,float* WMOLX7,float* WMOLX8,float* WMOLX9,float* WMOLX10,
242  float* WMOLX11, float* WMOLX12, float* WMOLX13);
243  int _stdcall sc2c3( int* IHA1, int* ICLD1, int* IVUL1, int* ISEA1, int* ICHR,
244  float* AHAZE1, float* AHAZE2, float* AHAZE3, float*AHAZE4, float* EQLWCZ, float* RRATZ);
245  int _stdcall sc2d(int* C2DIREG);
246  int _stdcall sc2d1(float* C2D1AWCCON, char* C2D1TITLE);
247  int _stdcall sc2d2(float* C2D2VARSPC, float* C2D2EXTC, float* C2D2ABSC, float* C2D2ASYM);
248  int _stdcall sc2e1(float* ZCLD, float* CLD, float* CLDICE, float* RR);
249  int _stdcall sc2e2(float* C2E2WAVLEN, float* C2E2EXTC6, float* C2E2ABSC6, float* C2E2ASYM6, float* C2E2EXTC7, float* C2E2ABSC7, float* C2E2ASYM7);
250  int _stdcall sc3(float* H1, float* H2, float* ANGLE, float* RANGE, float* BETA,
251  float* RO, int* LENN, float* PHI, int* IDAY, int* ISOURCE,
252  float* ANGLEM);
253  int _stdcall sc3a1(int* IPARM, int* IPH, int* IDAY, int* ISOURC);
254  int _stdcall sc3a2(float* PARM1, float* PARM2, float* PARM3, float* PARM4,
255  float* TIME, float* PSIPO, float* ANGLEM, float* G);
256  int _stdcall sc3b1(int* C3B1NANGLS, int* C3B1NWLF);
257  int _stdcall sc3b2(float* C3B2ANGF, float* C3B2F1, float* C3B2F2, float* C3B2F3, float* C3B2F4);
258  int _stdcall sc3c(float* C3C1ANGF, float* C3C2WLF, float* C3C36F);
259  int _stdcall sc4(float* V1, float* V2, float* DV, float* FWHM,
260  char* YFLAG, char* XFLAG, char* DLIMIT, char* FLAGS);
261  int _stdcall sc5(int* IRPT);
262  int _stdcall scirradangles(int *cIon_off, float* cIsolar_angle, float* cIlunar_angle);
263  int _stdcall fillprofile();
264  int _stdcall driver();
265  int _stdcall gxmit(float* AVXMIT);
266  int _stdcall gptrad(float* RADSUM);
267  int _stdcall pltdat(int* nPts, float* x, float* y, float*y2, float* ysum, float* y2sum);
268  int _stdcall putatm(int *nx, float *x, int* nalt, float* alt);
269  int _stdcall getatm(int *num, float* prd,float* ext,float* psc, float* agd, float* ssa, float* lth);
270  int _stdcall toairradiance(int* IDAY, float* ANGLE, int* NLAMBDA, float* LAMBDA, float* SOLAR, float* LUNAR);
271  int _stdcall getprofile(int* nlayers, int* nspecs, float* altkm, float* presmb, float *tempk, float* rfindex, float* dense, int* ncld, float* zcld, float* wat, float* ice, float* rr);
272 #endif
273 
274 
275 #endif // WIN32 && DYNAMICMR or not
276 
277 
278  int SetRequiredMOD2ATMFields(char *sigsim_atm_dir, double altlo, EPHEMERIS fm, BAND band, MODCARD *mc);
279  // ModSetDefaultSTD() optionally sets default standard atmosphere in METIN MODCARD for Modtran runs.
280  MODRAD_API void ModSetDefaultSTD(char *sigsim_atm_dir, MODCARD *mc, EPHEMERIS fm, ATM_DEFAULT atm_default);
281  MODRAD_API void ModSetPlumeShell(char *sigsim_atm_dir, MODCARD *mc, EPHEMERIS fm, ATM_VOL_PROPS atm, double dalt_km);
282 
283  int TransferData(MODCARD mc);
284  int AddRadCloudRainLevel(RADCARD *rc, float altkm, float cloud_gm3, float rain_mmhr, float RH_ratio);
285  float ModCloudBaseAltkm(int CloudType);
286  float ModCloudThicknesskm(int CloudType);
287  float ModCloudDensitykmgm3(int CloudType);
288  MODRAD_API int UpdateMODCARD(char *sigsim_atm_dir, MODCARD *mc, ATM_DEFAULT *atm_default, EPHEMERIS fm, jrmbool Use_Default);
289 
290  MODRAD_API int WriteModcard(char *filename, MODCARD *mc);
291  MODRAD_API int ReadModcard(char *filename, MODCARD *mc);
292  MODRAD_API int WriteM37Tape5(char *filename, MODCARD *mc);
293  MODRAD_API int ConvertModcard2Radcard(MODCARD *mc, RADCARD *rc);
294  MODRAD_API int ReadM37Tape5(char *filename, MODCARD *mc);
295 
296  /* --------------- END OF MODTRAN API ----------------------- */
297 
298  /* ------------ RADTRAN API ----------------------------- */
299 
300 
301 #if defined WIN32 && DYNAMICMR
302 
303  typedef int (MODRADENTRY * RCENV) (char* IDIR, char* ODIR, int* ilen, int *olen);
304  typedef int (MODRADENTRY * RC1) (char* TITLE);
305  typedef int (MODRADENTRY * RC2) (int* IRDTRN,int* IATM,int* ISRFC,int* IMS,int* IPLOT,int* NANGLE,int* MODE,
306  int* ITABLE,int* IATTEN,int* IATINC,int* IWF,int* IWFINC,int* IRDH2O,int* NOPR,float* TGRND);
307  typedef int (MODRADENTRY * RC3) (float* DIST,float* PHASE,float* FREQ,int* RNRATE,int* TEMP);
308  typedef int (MODRADENTRY * RC411) (int* ICNTRL,int* MLEV,char* ATITLE);
309  typedef int (MODRADENTRY * RC412) (char* FMT);
310  typedef int (MODRADENTRY * RC413) (float* H,float* P,float* T,float* RH,float* CLOUD,float* RAIN);
311  typedef int (MODRADENTRY * RC42) (int* MOD,int* MHUMID,int* MCLOUD,int* MRAIN);
312  typedef int (MODRADENTRY * RC511) (int* IGRND,int* IEMTAB,float* TEMP1,float* TEMP2);
313  typedef int (MODRADENTRY * RC512) (float* A,float* FRAC,float* EB,float* E2DRY,float*DEPDRY);
314  typedef int (MODRADENTRY * RC513) (float* A1,float* FS1,float* A2,float* FS2,float* E2WET,float* DEPWET);
315  typedef int (MODRADENTRY * RC514) (float* LP,float* LZ,float* MV,float* E2RAN,float* DEPRAN,float* HH,float* DMV);
316  typedef int (MODRADENTRY * RC515) (float* VV,float* VB,float* VBW,float* BULK);
317  typedef int (MODRADENTRY * RC516) (float* WT,float* GA,float* PO,float* ROCK);
318  typedef int (MODRADENTRY * RC517) (float* EM,float* DEL);
319  typedef int (MODRADENTRY * RC52) (float* EMISH);
320  typedef int (MODRADENTRY * RC53) (float* EMISV);
321  typedef int (MODRADENTRY * RC61) (float* EMHMS);
322  typedef int (MODRADENTRY * RC62) (float* EMVMS);
323  typedef int (MODRADENTRY * RC7) (char* NAME);
324  typedef int (MODRADENTRY * RC8) (float* ANGLE);
325  typedef int (MODRADENTRY * RC91) (float* VV1,float* VV2,float* DV);
326  typedef int (MODRADENTRY * RC92) (int* NFREQ, float* V1,float* V2,float* V3,float* E2R, float* E2I,float* DELF);
327  typedef int (MODRADENTRY * RC10) (int* IRPT,int* DOFLAG);
328  typedef int (MODRADENTRY * RADTRAN) ();
329  typedef int (MODRADENTRY * RTEXTCOEF) (int* NALT,int* NFREQ,float* ALT,float* FREQ,float* EXTCOEF ,float* BT );
330  typedef int (MODRADENTRY * RTBRIGHT) (int* NFREQ,int* NANGLE,float* FREQ,float* ANGLE,
331  float* GAM,float* DSUM,float* UPAT,float* SRFH,
332  float* SRFV,float* USMH,float* USMV,float* MISH,float* MISV);
333  typedef int (MODRADENTRY * SCATTER) (float* F_GHZ, float* RR_mmphr, float* T_K, int* PHASE12, int* DIST12, float* SC, int* SCATERR);
334 
335  HMODULE RadLib;
336 
337  RCENV rcenv;
338  RC1 rc1;
339  RC2 rc2;
340  RC3 rc3;
341  RC411 rc411;
342  RC412 rc412;
343  RC413 rc413;
344  RC42 rc42;
345  RC511 rc511;
346  RC512 rc512;
347  RC513 rc513;
348  RC514 rc514;
349  RC515 rc515;
350  RC516 rc516;
351  RC517 rc517;
352  RC52 rc52;
353  RC53 rc53;
354  RC61 rc61;
355  RC62 rc62;
356  RC7 rc7;
357  RC8 rc8;
358  RC91 rc91;
359  RC92 rc92;
360  RC10 rc10;
361  RADTRAN radtran;
362  RTEXTCOEF rtextcoef;
363  RTBRIGHT rtbright;
364  SCATTER scatter;
365 
366  MODRAD_API int LoadDynamicRadtran();
367  MODRAD_API void UnloadDynamicRadtran();
368 
369 #else // not WIN32 or not DYNAMICMR
370 
371 #ifdef WIN32
372  int __cdecl rcenv(char* IDIR, char* ODIR, int* ilen, int *olen);
373  int __cdecl rc1(char* TITLE);
374  int __cdecl rc2(int* IRDTRN,int* IATM,int* ISRFC,int* IMS,int* IPLOT,int* NANGLE,int* MODE,
375  int* ITABLE,int* IATTEN,int* IATINC,int* IWF,int* IWFINC,int* IRDH2O,int* NOPR,float* TGRND);
376  int __cdecl rc3(float* DIST,float* PHASE,float* FREQ,int* RNRATE,int* TEMP);
377  int __cdecl rc411(int* ICNTRL,int* MLEV,char* ATITLE);
378  int __cdecl rc412(char* FMT);
379  int __cdecl rc413(float* H,float* P,float* T,float* RH,float* CLOUD,float* RAIN);
380  int __cdecl rc42(int* MOD,int* MHUMID,int* MCLOUD,int* MRAIN);
381  int __cdecl rc511(int* IGRND,int* IEMTAB,float* TEMP1,float* TEMP2);
382  int __cdecl rc512(float* A,float* FRAC,float* EB,float* E2DRY,float*DEPDRY);
383  int __cdecl rc513(float* A1,float* FS1,float* A2,float* FS2,float* E2WET,float* DEPWET);
384  int __cdecl rc514(float* LP,float* LZ,float* MV,float* E2RAN,float* DEPRAN,float* HH,float* DMV);
385  int __cdecl rc515(float* VV,float* VB,float* VBW,float* BULK);
386  int __cdecl rc516(float* WT,float* GA,float* PO,float* ROCK);
387  int __cdecl rc517(float* EM,float* DEL);
388  int __cdecl rc52(float* EMISH);
389  int __cdecl rc53(float* EMISV);
390  int __cdecl rc61(float* EMHMS);
391  int __cdecl rc62(float* EMVMS);
392  int __cdecl rc7(char* NAME);
393  int __cdecl rc8(float* ANGLE);
394  int __cdecl rc91(float* VV1,float* VV2,float* DV);
395  int __cdecl rc92(int* NFREQ, float* V1,float* V2,float* V3,float* E2R, float* E2I,float* DELF);
396  int __cdecl rc10(int* IRPT,int* DOFLAG);
397  int __cdecl radtran();
398  int __cdecl rtextcoef(int* NALT,int* NFREQ,float* ALT,float* FREQ,float* EXTCOEF ,float* BT );
399  int __cdecl rtbright(int* NFREQ,int* NANGLE,float* FREQ,float* ANGLE,
400  float* GAM,float* DSUM,float* UPAT,float* SRFH,
401  float* SRFV,float* USMH,float* USMV,float* MISH,float* MISV);
402  int __cdecl scatter(float* F_GHZ, float* RR_mmphr, float* T_K, int* PHASE12, int* DIST12, float* SC, int* SCATERR);
403 #else
404  int _stdcall rcenv(char* IDIR, char* ODIR, int* ilen, int *olen);
405  int _stdcall rc1(char* TITLE);
406  int _stdcall rc2(int* IRDTRN,int* IATM,int* ISRFC,int* IMS,int* IPLOT,int* NANGLE,int* MODE,
407  int* ITABLE,int* IATTEN,int* IATINC,int* IWF,int* IWFINC,int* IRDH2O,int* NOPR,float* TGRND);
408  int _stdcall rc3(float* DIST,float* PHASE,float* FREQ,int* RNRATE,int* TEMP);
409  int _stdcall rc411(int* ICNTRL,int* MLEV,char* ATITLE);
410  int _stdcall rc412(char* FMT);
411  int _stdcall rc413(float* H,float* P,float* T,float* RH,float* CLOUD,float* RAIN);
412  int _stdcall rc42(int* MOD,int* MHUMID,int* MCLOUD,int* MRAIN);
413  int _stdcall rc511(int* IGRND,int* IEMTAB,float* TEMP1,float* TEMP2);
414  int _stdcall rc512(float* A,float* FRAC,float* EB,float* E2DRY,float*DEPDRY);
415  int _stdcall rc513(float* A1,float* FS1,float* A2,float* FS2,float* E2WET,float* DEPWET);
416  int _stdcall rc514(float* LP,float* LZ,float* MV,float* E2RAN,float* DEPRAN,float* HH,float* DMV);
417  int _stdcall rc515(float* VV,float* VB,float* VBW,float* BULK);
418  int _stdcall rc516(float* WT,float* GA,float* PO,float* ROCK);
419  int _stdcall rc517(float* EM,float* DEL);
420  int _stdcall rc52(float* EMISH);
421  int _stdcall rc53(float* EMISV);
422  int _stdcall rc61(float* EMHMS);
423  int _stdcall rc62(float* EMVMS);
424  int _stdcall rc7(char* NAME);
425  int _stdcall rc8(float* ANGLE);
426  int _stdcall rc91(float* VV1,float* VV2,float* DV);
427  int _stdcall rc92(int* NFREQ, float* V1,float* V2,float* V3,float* E2R, float* E2I,float* DELF);
428  int _stdcall rc10(int* IRPT,int* DOFLAG);
429  int _stdcall radtran();
430  int _stdcall rtextcoef(int* NALT,int* NFREQ,float* ALT,float* FREQ,float* EXTCOEF ,float* BT );
431  int _stdcall rtbright(int* NFREQ,int* NANGLE,float* FREQ,float* ANGLE,
432  float* GAM,float* DSUM,float* UPAT,float* SRFH,
433  float* SRFV,float* USMH,float* USMV,float* MISH,float* MISV);
434  int _stdcall scatter(float* F_GHZ, float* RR_mmphr, float* T_K, int* PHASE12, int* DIST12, float* SC, int* SCATERR);
435 #endif
436 #endif // WIN32 && DYNAMICMR or not
437 
438 
439  int AllocateRadCoef(RADCOEF **rte, RADINFO inf);
440  int FillRADCOEF(RADINFO* inf, RADCOEF* rte);
441 
442  void RadSetDefaultSTD(char *sigsim_atm_dir, RADCARD *rc, ATM_DEFAULT atm_default);
443  int RadTransferData(RADCARD rc);
444  MODRAD_API int WriteR89Skypar(char *filename, RADCARD *rc);
445  MODRAD_API int ReadR89Skypar(char *filename, RADCARD *rc);
446 
447  /* --------------- END OF RADTRAN API -------------------- */
448 
449 
450 
451 #ifdef __cplusplus
452 }
453 #endif
454 
455 

Copyright © 2005-2021 MAK Technologies. All Rights Reserved (www.mak.com)