Home > atmlab > mie > epswater93.m

epswater93

PURPOSE ^

Complex dDielectric permittivity of liquid water without salt

SYNOPSIS ^

function result = epswater93(fGHz, TK)

DESCRIPTION ^

 Complex dDielectric permittivity of liquid water without salt 
 according to Liebe et al. 1991, Int. J. IR+mm Waves 12(12), 659-675
 modified for version of MPM 1993
 M�zler, June 2002

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

DOWNLOAD ^

epswater93.m

SOURCE CODE ^

0001 function result = epswater93(fGHz, TK)
0002 
0003 % Complex dDielectric permittivity of liquid water without salt
0004 % according to Liebe et al. 1991, Int. J. IR+mm Waves 12(12), 659-675
0005 % modified for version of MPM 1993
0006 % M�zler, June 2002
0007 
0008     a = dbstack;
0009     %
0010     if length(a)==1 | ~strncmp(a(2).file,'mie',3) | ~strncmp(a(2).file,'eps',3)
0011       error('This function can just be used by the Mie functions.');
0012     end
0013 
0014 TETA=1-300/TK;
0015 e0=77.66-103.3*TETA;
0016 e1=0.0671*e0;
0017 f1=20.2+146.4*TETA+316*TETA.*TETA;
0018 e2=3.52;  %+7.52*TETA, i.e. version of Liebe 1993
0019 f2=39.8*f1;
0020 eps=e2+(e1-e2)./(1-i*fGHz./f2)+(e0-e1)./(1-i*fGHz./f1);
0021 
0022 result=eps;

Generated on Mon 15-Sep-2014 13:31:28 by m2html © 2005