Home > atmlab > h2o > parametrisations > n_water_wiscombe.m

n_water_wiscombe

PURPOSE ^

N_WATER_WISCOMBE Complex refractive index for ice

SYNOPSIS ^

function n = n_water_wiscombe(lambda)

DESCRIPTION ^

 N_WATER_WISCOMBE   Complex refractive index for ice

    The function is a temporary interface to a Fortran routine made by
    Wiscombe. It was tested to make a mex interface to the Wiscombe 
    function, but the compilation did not work. Instead tabulated
    values are so far used. The tabulated values are obtained by
       f77 -o wiscombe wiscombe.f REFICE.f REFWAT.f
       wiscombe > wiscombe.m

    The refractive index is defined to have positive imaginary part.
    
    No temperature dependency of *n* is provided. Data are valid for
    280 K (set in wiscombe.f). However, the Wiscombe function has no
    temperature dependency below 10e-6.

 FORMAT   n = n_water_wiscombe( lambda )
        
 OUT   n        Complex refractive index
 IN    lambda   Vector of wavelengths [m]

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

DOWNLOAD ^

n_water_wiscombe.m

SOURCE CODE ^

0001 % N_WATER_WISCOMBE   Complex refractive index for ice
0002 %
0003 %    The function is a temporary interface to a Fortran routine made by
0004 %    Wiscombe. It was tested to make a mex interface to the Wiscombe
0005 %    function, but the compilation did not work. Instead tabulated
0006 %    values are so far used. The tabulated values are obtained by
0007 %       f77 -o wiscombe wiscombe.f REFICE.f REFWAT.f
0008 %       wiscombe > wiscombe.m
0009 %
0010 %    The refractive index is defined to have positive imaginary part.
0011 %
0012 %    No temperature dependency of *n* is provided. Data are valid for
0013 %    280 K (set in wiscombe.f). However, the Wiscombe function has no
0014 %    temperature dependency below 10e-6.
0015 %
0016 % FORMAT   n = n_water_wiscombe( lambda )
0017 %
0018 % OUT   n        Complex refractive index
0019 % IN    lambda   Vector of wavelengths [m]
0020 
0021 % 2004-11-02   Created by Patrick Eriksson.
0022 
0023 
0024 function n = n_water_wiscombe(lambda)
0025 
0026 wiscombe;
0027 
0028 b = interp1( WATER(:,1), WATER(:,2:3), lambda );
0029 
0030 n = b(:,1) + i*b(:,2);
0031 
0032

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