udo/exoplasim
Private
Public Access
1
0 Fork 0
Code Activity

Implemented spectral albedos, using weighted combinations of JPL Ecostress spectra.

Browse Source
This commit is contained in:
Adiv Paradise committed 2019-09-23 14:10:50 -04:00
1 parent 21ff54a87d
commit 1cd90a87f4
116 files changed
+58432 -480
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

plasim/run/most_plasim_run
+1 -1
View File
@@ -1,5 +1,5 @@
#!/bin/bash
# run-script generated by Most Sat Feb 23 00:06:17 2019
# run-script generated by Most Mon Sep 23 12:52:55 2019
EXP=MOST # Name your experiment here
[ $# == 1 ] && cd $1
rm -f plasim_restart
plasim/src/gasweights.ipynb
+289
View File
@@ -0,0 +1,289 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"gases_default = {'pH2': 0.0,\n",
" 'pHe': 5.24e-6,\n",
" 'pN2': 0.78084,\n",
" 'pO2': 0.20946,\n",
" 'pCO2':330.0e-6,\n",
" 'pAr': 9.34e-3,\n",
" 'pNe': 18.18e-6,\n",
" 'pKr': 1.14e-6}\n",
" \n",
"gases = {'pH2': 0.0,\n",
" 'pHe': 0.0,\n",
" 'pN2': 0.0,\n",
" 'pO2': 0.0,\n",
" 'pCO2':0.0,\n",
" 'pAr': 0.0,\n",
" 'pNe': 0.0,\n",
" 'pKr': 0.0}\n",
" \n",
"gasesx = {'H2': 0.0,\n",
" 'He': 0.0,\n",
" 'N2': 0.0,\n",
" 'O2': 0.0,\n",
" 'CO2':0.0,\n",
" 'Ar': 0.0,\n",
" 'Ne': 0.0,\n",
" 'Kr': 0.0}\n",
" \n",
"smws = {'mH2': 2.01588,\n",
" 'mHe': 4.002602,\n",
" 'mN2': 28.0134,\n",
" 'mO2': 31.9988,\n",
" 'mCO2':44.01,\n",
" 'mAr': 39.948,\n",
" 'mNe': 20.1797,\n",
" 'mKr': 83.798}"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"PlaSim neads the gas constant (8314/$\\bar{m}$) and the surface pressure. We can specify the surface pressure directly and then specify mass fractions for each gas, or we can specify the partial pressures of each gas."
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"The mean molecular weight of a particular species $i$, $\\bar{m_i}$, describes its *mass per mole*. So if you know how much you have in mass, you just divide by $m_i$ to get how much you have in moles. Using the *mass fraction* instead of the actual mass means you get the number of moles per kilogram of atmosphere, so the total mean molecular weight, $\\bar{m}$, is the inverse of this:\n",
"$$ \\bar{m} = \\left(\\sum_i{\\frac{x_i}{m_i}}\\right)^{-1}$$"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"The partial pressure and volume mixing ratio (VMR) of a gas are related, and depend not on *mass* but on *number of moles*. Therefore,\n",
"$$ p_i = \\frac{x_i}{m_i}\\bar{m}p_s $$\n",
"$$ VMR = \\frac{x_i}{m_i}\\bar{m} $$"
]
},
{
"cell_type": "code",
"execution_count": 105,
"metadata": {},
"outputs": [],
"source": [
"gasesx['H2'] = 0.75*0.8\n",
"gasesx['He'] = 0.25*0.8\n",
"gasesx['N2'] = 0.9-1.0e-2\n",
"gasesx['CO2'] = 1.0e-2"
]
},
{
"cell_type": "code",
"execution_count": 106,
"metadata": {},
"outputs": [],
"source": [
"mmwd = 0\n",
"for x in gasesx.keys():\n",
" mmwd += gasesx[x]/smws['m'+x]\n",
"mmw = 1.0/mmwd"
]
},
{
"cell_type": "code",
"execution_count": 107,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"Mean Molecular Weight: 2.63433813129\n",
"Gas Constant: 3156.2\n",
"Scale Height on Earth: 93.6 km\n"
]
}
],
"source": [
"print \"Mean Molecular Weight: \",mmw\n",
"print \"Gas Constant: %4.1f\"%(8314.46261815324/mmw)\n",
"print \"Scale Height on Earth: %2.1f km\"%(29.0/mmw*8.5)"
]
},
{
"cell_type": "code",
"execution_count": 108,
"metadata": {},
"outputs": [],
"source": [
"for x in gasesx.keys():\n",
" gases['p'+x] = gasesx[x]/smws['m'+x]*mmw*1.0"
]
},
{
"cell_type": "code",
"execution_count": 109,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"pKr\t0.000000\n",
"pAr\t0.000000\n",
"pNe\t0.000000\n",
"pCO2\t0.000599\n",
"pH2\t0.784076\n",
"pN2\t0.083694\n",
"pO2\t0.000000\n",
"pHe\t0.131631\n"
]
}
],
"source": [
"for p in gases.keys():\n",
" print '%s\\t%1.6f'%(p,gases[p])"
]
},
{
"cell_type": "code",
"execution_count": 88,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"Kr\tVMR\t0.000000\n",
"CO2\tVMR\t0.000060\n",
"Ne\tVMR\t0.000000\n",
"H2\tVMR\t0.783835\n",
"Ar\tVMR\t0.000000\n",
"N2\tVMR\t0.084515\n",
"O2\tVMR\t0.000000\n",
"He\tVMR\t0.131591\n"
]
}
],
"source": [
"gasesvx={}\n",
"for x in gasesx.keys():\n",
" print \"%s\\tVMR\\t%1.6f\"%(x,gasesx[x]/smws['m'+x]*mmw)\n",
" gasesvx[x] = gasesx[x]/smws['m'+x]*mmw"
]
},
{
"cell_type": "code",
"execution_count": 89,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"4.47699757763\n"
]
}
],
"source": [
"mmw2 = 0\n",
"for x in gasesvx.keys():\n",
" mmw2 += gasesvx[x]*smws['m'+x]\n",
"print mmw2"
]
},
{
"cell_type": "code",
"execution_count": 77,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0.1875\n"
]
}
],
"source": [
"print eval(\"0.75*0.25\")"
]
},
{
"cell_type": "code",
"execution_count": 78,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0.75\n"
]
}
],
"source": [
"print eval(\"0.75\")"
]
},
{
"cell_type": "code",
"execution_count": 79,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"float"
]
},
"execution_count": 79,
"metadata": {},
"output_type": "execute_result"
}
],
"source": [
"type(eval(\"0.25*0.25\"))"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/landmod.f90
+114 -5
View File
@@ -6,7 +6,7 @@
!
! version identifier (date)
!
character(len=80) :: version = '22.02.2005 by Larry'
character(len=80) :: lversion = '19.09.2019 by Adiv'
!
! parameters
!
@@ -22,14 +22,28 @@
integer :: nwatcini = 0 ! (0/1) initialize water content of soil
integer :: nwetsoil = 0 ! (0/1) Soil albedo responds to water content
real :: albland = 0.2 ! albedo for land
real :: alblandmax = 0.4
real :: alblandmin = 0.069
! Non-spectral versions
real :: albsmin = 0.4 ! min. albedo for snow
real :: albsmax = 0.8 ! max. albedo for snow
real :: albsminf = 0.3 ! min. albedo for snow (with forest)
real :: albsmaxf = 0.4 ! max. albedo for snow (with forest)
real :: albgmin = 0.6 ! min. albedo for glaciers
real :: albgmax = 0.8 ! max. albedo for glaciers
! lambda < 0.75 microns
real :: albsmin1 = 0.4 ! min. albedo for snow
real :: albsmax1 = 0.8 ! max. albedo for snow
real :: albsminf1 = 0.3 ! min. albedo for snow (with forest)
real :: albsmaxf1 = 0.4 ! max. albedo for snow (with forest)
real :: albgmin1 = 0.6 ! min. albedo for glaciers
real :: albgmax1 = 0.8 ! max. albedo for glaciers
! lambda > 0.75 microns
real :: albsmin2 = 0.4 ! min. albedo for snow
real :: albsmax2 = 0.8 ! max. albedo for snow
real :: albsminf2 = 0.3 ! min. albedo for snow (with forest)
real :: albsmaxf2 = 0.4 ! max. albedo for snow (with forest)
real :: albgmin2 = 0.6 ! min. albedo for glaciers
real :: albgmax2 = 0.8 ! max. albedo for glaciers
real :: dz0land = 2.0 ! roughness length land
real :: drhsland = 0.25 ! wetness factor land
real :: drhsfull = 0.4 ! threshold above which drhs=1 [frac. of wsmax]
@@ -37,6 +51,7 @@
real :: dztop = 0.20 ! thickness of the uppermost soil layer (m)
real :: dsmax = 5.00 ! maximum snow depth (m-h20; -1 = no limit)
real :: wsmax = WSMAX_EARTH ! max field capacity of soil water (m)
real :: dwatcini = 0 ! water content of soil (m)
@@ -89,11 +104,15 @@
real :: dtcl(NHOR,0:13) = 0.0 ! climatological surface temperature
real :: dwcl(NHOR,0:13) = -1.0 ! climatological soil wetness
real :: dalbcl(NHOR,0:13) = 0.2 ! climatological background albedo
real :: dalbcl1(NHOR,0:13) = 0.2 ! climatological background albedo (<.75 um)
real :: dalbcl2(NHOR,0:13) = 0.2 ! climatological background albedo (>.75 um)
real :: dtclim(NHOR) = 0.0 ! climatological surface temperature
real :: dwclim(NHOR) = 0.0 ! climatological soil wetness
real :: dz0clim(NHOR) = 2.0 ! climatological z0 (total)
real :: dz0climo(NHOR) = 0.0 ! climatological z0 (from topograhpy only)
real :: dalbclim(NHOR) = 2.0 ! climatological background albedo
real :: dalbclim1(NHOR) = 2.0 ! climatological background albedo (<.75 um)
real :: dalbclim2(NHOR) = 2.0 ! climatological background albedo (>.75 um)
!
end module landmod
@@ -128,12 +147,16 @@
subroutine landini
use landmod
use radmod
!
! initialize land surface
!
namelist/landmod_nl/nlandt,nlandw,albland,dz0land,drhsland &
& ,albsmin,albsmax,albsminf,albsmaxf &
& ,albgmin,albgmax,nwetsoil,oroscale &
& ,albsmin1,albsmax1,albsminf1,albsmaxf1 &
& ,albgmin1,albgmax1,albsmin2,albsmax2 &
& ,albsminf2,albsmaxf2,albgmin2,albgmax2 &
& ,dsmax,wsmax,drhsfull,dzglac,dztop,dsoilz &
& ,rlue,co2conv,tau_veg,tau_soil &
& ,rnbiocats,nwetsoil,soilcap &
@@ -159,11 +182,28 @@
dwater(:) = 0.0
endif
if (mypid==NROOT) then
albsmax1 = dsnowalbmx(1)
albgmax1 = dsnowalbmx(1)
albsmax2 = dsnowalbmx(2)
albgmax2 = dsnowalbmx(2)
albsmaxf1 = 0.5*albsmax1
albsmaxf2 = 0.5*albsmax2
albsmin1 = dsnowalbmn(1)
albsmin2 = dsnowalbmn(2)
albgmin1 = dglacalbmn(1)
albgmin2 = dglacalbmn(2)
albsminf1 = 0.75*albsmaxf1
albsminf2 = 0.75*albsmaxf2
endif
if (mypid == NROOT) then
open(12,file=landmod_namelist)
read(12,landmod_nl)
write(nud,'(/,"***********************************************")')
write(nud,'("* LANDMOD ",a35," *")') trim(version)
write(nud,'("* LANDMOD ",a35," *")') trim(lversion)
write(nud,'("***********************************************")')
write(nud,'("* Namelist LANDMOD_NL from <",a17,"> *")') &
landmod_namelist
@@ -174,17 +214,34 @@
if (wsmax < 0.0) wsmax = 0.0 ! Catch user error
call mpbci(nlandt)
call mpbci(nlandw)
call mpbci(newsurf)
call mpbci(nwatcini)
call mpbcr(albland)
call mpbcr(albsmin)
call mpbcr(albsmax)
call mpbcr(albsminf)
call mpbcr(albsmaxf)
call mpbcr(albgmin)
call mpbcr(albgmax)
call mpbcr(albsmin1)
call mpbcr(albsmax1)
call mpbcr(albsminf1)
call mpbcr(albsmaxf1)
call mpbcr(albgmin1)
call mpbcr(albgmax1)
call mpbcr(albsmin2)
call mpbcr(albsmax2)
call mpbcr(albsminf2)
call mpbcr(albsmaxf2)
call mpbcr(albgmin2)
call mpbcr(albgmax2)
call mpbcr(dz0land)
call mpbcr(drhsland)
call mpbcr(drhsfull)
@@ -224,6 +281,8 @@
dz0clim(:) = dz0land
dwmax(:) = wsmax
dalbcl(:,:) = albland
dalbcl1(:,:) = dgroundalb(1)
dalbcl2(:,:) = dgroundalb(2)
!
!* read surface parameters
!
@@ -239,6 +298,8 @@
call mpsurfgp('dtcl',dtcl,NHOR,14)
call mpsurfgp('dwcl',dwcl,NHOR,14)
call mpsurfgp('dalbcl',dalbcl,NHOR,14)
call mpsurfgp('dalbcl1',dalbcl1,NHOR,14)
call mpsurfgp('dalbcl2',dalbcl2,NHOR,14)
! make sure, that dwmax is positive
@@ -300,11 +361,25 @@
zalbmin=dforest(jhor)*albsminf+(1.-dforest(jhor))*albsmin
zdalb=(zalbmax-zalbmin)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow=MAX(zalbmin,MIN(zalbmax,zalbmax-zdalb))
zalbmax1=dforest(jhor)*albsmaxf1+(1.-dforest(jhor))*albsmax1
zalbmin1=dforest(jhor)*albsminf1+(1.-dforest(jhor))*albsmin1
zdalb1=(zalbmax1-zalbmin1)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow1=MAX(zalbmin1,MIN(zalbmax1,zalbmax1-zdalb1))
zalbmax2=dforest(jhor)*albsmaxf2+(1.-dforest(jhor))*albsmax2
zalbmin2=dforest(jhor)*albsminf2+(1.-dforest(jhor))*albsmin2
zdalb2=(zalbmax2-zalbmin2)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow2=MAX(zalbmin2,MIN(zalbmax2,zalbmax2-zdalb2))
dalb(jhor)=dalbclim(jhor) &
& +(zalbsnow-dalbclim(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
dsalb(1,jhor) = dalbclim1(jhor) &
& +(zalbsnow1-dalbclim1(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
dsalb(2,jhor) = dalbclim2(jhor) &
& +(zalbsnow2-dalbclim2(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
drhs(jhor)=1.
else
dalb(jhor)=dalbclim(jhor)
dsalb(1,jhor)=dalbclim1(jhor)
dsalb(2,jhor)=dalbclim2(jhor)
if (dwmax(jhor) > 0.0) &
drhs(jhor)=AMIN1(1.,dwatc(jhor)/(drhsfull*dwmax(jhor)))
endif
@@ -326,7 +401,11 @@
dsnowz(jhor)=AMAX1(dsmax,0.)
dsnow(jhor)=dsnowz(jhor)
zdalb=(albgmax-albgmin)*(dts(jhor)-263.16)/(tmelt-263.16)
zdalb1=(albgmax1-albgmin1)*(dts(jhor)-263.16)/(tmelt-263.16)
zdalb2=(albgmax2-albgmin2)*(dts(jhor)-263.16)/(tmelt-263.16)
dalb(jhor)=MAX(albgmin,MIN(albgmax,albgmax-zdalb))
dsalb(1,jhor)=MAX(albgmin1,MIN(albgmax1,albgmax1-zdalb1))
dsalb(2,jhor)=MAX(albgmin2,MIN(albgmax2,albgmax2-zdalb2))
drhs(jhor)=1.0
end if
@@ -358,6 +437,8 @@
call mpgetgp('dz0clim' ,dz0clim ,NHOR, 1)
call mpgetgp('dz0climo',dz0climo,NHOR, 1)
call mpgetgp('dalbcl' ,dalbcl ,NHOR, 14)
call mpgetgp('dalbcl1' ,dalbcl1 ,NHOR, 14)
call mpgetgp('dalbcl2' ,dlabcl2 ,NHOR, 14)
n_sea_points = ncountsea(dls)
@@ -386,6 +467,8 @@
dwmax(:) = wsmax
dz0clim(:) = dz0land
dalbcl(:,:) = albland
dalbcl1(:,:) = dgroundalb(1)
dalbcl2(:,:) = dgroundalb(2)
dwcl(:,:) = wsmax * drhsfull * drhsland
endif
@@ -434,13 +517,27 @@
if(dsnow(jhor) > 0.) then
zalbmax=dforest(jhor)*albsmaxf+(1.-dforest(jhor))*albsmax
zalbmin=dforest(jhor)*albsminf+(1.-dforest(jhor))*albsmin
zdalb=(zalbmax-zalbmin)*(dts(jhor)-263.16)/(tmelt-263.16)
zdalb=(zalbmax1-zalbmin1)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow=MAX(zalbmin,MIN(zalbmax,zalbmax-zdalb))
zalbmax1=dforest(jhor)*albsmaxf1+(1.-dforest(jhor))*albsmax1
zalbmin1=dforest(jhor)*albsminf1+(1.-dforest(jhor))*albsmin1
zdalb1=(zalbmax1-zalbmin1)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow1=MAX(zalbmin1,MIN(zalbmax1,zalbmax1-zdalb1))
zalbmax2=dforest(jhor)*albsmaxf2+(1.-dforest(jhor))*albsmax2
zalbmin2=dforest(jhor)*albsminf2+(1.-dforest(jhor))*albsmin2
zdalb2=(zalbmax2-zalbmin2)*(dts(jhor)-263.16)/(tmelt-263.16)
zalbsnow2=MAX(zalbmin2,MIN(zalbmax2,zalbmax2-zdalb2))
dalb(jhor)=dalbclim(jhor) &
& +(zalbsnow-dalbclim(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
dsalb(1,jhor) = dalbclim1(jhor) &
& +(zalbsnow1-dalbclim1(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
dsalb(2,jhor) = dalbclim2(jhor) &
& +(zalbsnow2-dalbclim2(jhor))*dsnow(jhor)/(dsnow(jhor)+0.01)
drhs(jhor)=1.
else
dalb(jhor)=dalbclim(jhor)
dsalb(1,jhor)=dalbclim1(jhor)
dsalb(2,jhor)=dalbclim2(jhor)
if (dwmax(jhor) > 0.0) &
drhs(jhor)=AMIN1(1., dwatc(jhor)/(drhsfull *dwmax(jhor)))
endif
@@ -478,6 +575,10 @@
where(dglac(:) > 0.5 .and. dls(:) > 0.0)
dalb(:)=MAX(albgmin,MIN(albgmax &
& ,albgmax-(albgmax-albgmin)*(dts(:)-263.16)/(tmelt-263.16)))
dsalb(1,:)=MAX(albgmin1,MIN(albgmax1 &
& ,albgmax1-(albgmax1-albgmin1)*(dts(:)-263.16)/(tmelt-263.16)))
dsalb(2,:)=MAX(albgmin2,MIN(albgmax2 &
& ,albgmax2-(albgmax2-albgmin2)*(dts(:)-263.16)/(tmelt-263.16)))
drhs(:)=1.0
end where
@@ -511,6 +612,8 @@
call mpputgp('dz0clim' ,dz0clim ,NHOR, 1)
call mpputgp('dz0climo',dz0climo,NHOR, 1)
call mpputgp('dalbcl' ,dalbcl ,NHOR,14)
call mpputgp('dalbcl1' ,dalbcl1 ,NHOR,14)
call mpputgp('dalbcl2' ,dalbcl2 ,NHOR,14)
return
end subroutine landstop
@@ -1382,6 +1485,8 @@
call momint(nperpetual,nstep+1,jm1,jm2,zgw2)
zgw1 = 1.0 - zgw2
dalbclim(:)=zgw1*dalbcl(:,jm1)+zgw2*dalbcl(:,jm2)
dalbclim1(:)=zgw1*dalbcl1(:,jm1)+zgw2*dalbcl1(:,jm2)
dalbclim2(:)=zgw1*dalbcl2(:,jm1)+zgw2*dalbcl2(:,jm2)
!
! Modify the surface background albedo according to soil water capacity
@@ -1395,8 +1500,12 @@
dalbclim(jhor) = alblandmax * exp(-(bf*25)**6)+ &
& al * (1 - exp(-(bf*25)**6) - exp(-((1-bf)*30)**9))+ &
& alblandmin * exp(-((1-bf)*30)**9)
dalbclim1(jhor) = dalbclim(jhor)
dalbclim2(jhor) = dalbclim(jhor)
else !Frozen soil.
dalbclim(jhor) = albland
dalbclim1(jhor) = dgroundalb(1)
dalbclim2(jhor) = dgroundalb(2)
endif
endif
enddo
plasim/src/make_plasim
+3 -2
View File
@@ -31,11 +31,12 @@ LANDMOD=landmod
OCEAN=lsgmod
OCEANCOUP=cpl
OBJ=${MPIMOD}.o ${FFTMOD}.o ${GUIMOD}.o ${RAINMOD}.o ${VEGMOD}.o ${PLAMOD}.o carbonmod.o ${UTILMOD}.o resmod.o plasim.o plasimmod.o calmod.o gaussmod.o legmod.o outmod.o miscmod.o fluxmod.o radmod.o surfmod.o ${LANDMOD}.o glaciermod.o seamod.o icemod.o oceanmod.o restartmod.o tracermod.o tpcore.o trc_routines.o ${PUMAX}.o ${OCEAN}.o ${OCEANCOUP}.o
OBJ=${MPIMOD}.o ${FFTMOD}.o ${GUIMOD}.o ${RAINMOD}.o ${VEGMOD}.o ${PLAMOD}.o carbonmod.o ${UTILMOD}.o resmod.o plasim.o plasimmod.o specblock.o calmod.o gaussmod.o legmod.o outmod.o miscmod.o fluxmod.o radmod.o surfmod.o ${LANDMOD}.o glaciermod.o seamod.o icemod.o oceanmod.o restartmod.o tracermod.o tpcore.o trc_routines.o ${PUMAX}.o ${OCEAN}.o ${OCEANCOUP}.o
plasim.x: $(OBJ)
$(MOST_F90) -o plasim.x $(MOST_F90_OPTS) $(OBJ) ${GUILIB}
specblock.o: specblock.f90
resmod.o: resmod.f90
plasimmod.o: plasimmod.f90 resmod.o
carbonmod.o: carbonmod.f90 plasimmod.o
@@ -55,7 +56,7 @@ legmod.o: legmod.f90 plasimmod.o
outmod.o: outmod.f90 glaciermod.o plasimmod.o carbonmod.o
miscmod.o: miscmod.f90 plasimmod.o
fluxmod.o: fluxmod.f90 plasimmod.o
radmod.o: radmod.f90 plasimmod.o
radmod.o: radmod.f90 plasimmod.o specblock.o
surfmod.o: surfmod.f90 plasimmod.o
seamod.o: seamod.f90 plasimmod.o
icemod.o: icemod.f90 plasimmod.o
plasim/src/outmod.f90
+12 -1
View File
@@ -485,6 +485,8 @@
! **********
call writegp(40,dalb,175,0)
call writegp(40,dsalb(1,:),174,0)
call writegp(40,dsalb(2,:),184,0)
else
@@ -514,7 +516,10 @@
! **********
aadalb(:) = aadalb(:)/real(naccuout)
aadsalb1(:) = aadsalb1(:)/real(naccuout)
call writegp(40,aadalb,175,0)
call writegp(40,aadsalb1,174,0)
call writegp(40,aadsalb2,184,0)
endif
@@ -1143,6 +1148,8 @@
! **********
call writegp(140,dalb,175,0)
call writegp(140,dsalb(1,:),174,0)
call writegp(140,dsalb(2,:),184,0)
! ***************************
@@ -1546,6 +1553,8 @@
aadls(:) = 0.
aadz0(:) = 0.
aadalb(:) = 0.
aadsalb1(:) = 0.
aadsalb2(:) = 0.
aadtsoil(:) = 0.
aadtd2(:) = 0.
aadtd3(:) = 0.
@@ -1647,7 +1656,9 @@
aadtd5(:) = aadtd5(:) + dtd5(:)
aadls(:) = aadls(:) + dls(:)
aadz0(:) = aadz0(:) + dz0(:)
aadalb(:) = aadalb(:) + dalb(:)
aadalb(:) = aadalb(:) + dalb(:)
aadsalb1(:) = aadsalb1(:) + dsalb(1,:)
aadsalb2(:) = aadsalb2(:) + dsalb(2,:)
aadtsoil(:) = aadtsoil(:) + dtsoil(:)
aadtd2(:) = aadtd2(:) + dtd2(:)
aadtd3(:) = aadtd3(:) + dtd3(:)
plasim/src/plasim.f90
+4
View File
@@ -706,6 +706,8 @@ plasimversion = "https://github.com/Edilbert/PLASIM/ : 15-Dec-2015"
call mpputgp('dls' ,dls ,NHOR,1)
call mpputgp('drhs' ,drhs ,NHOR,1)
call mpputgp('dalb' ,dalb ,NHOR,1)
call mpputgp('dsalb1',dsalb(1,:),NHOR,1)
call mpputgp('dsalb2',dsalb(2,:),NHOR,1)
call mpputgp('dz0' ,dz0 ,NHOR,1)
call mpputgp('dicec' ,dicec ,NHOR,1)
call mpputgp('diced' ,diced ,NHOR,1)
@@ -887,6 +889,8 @@ plasimversion = "https://github.com/Edilbert/PLASIM/ : 15-Dec-2015"
call mpgetgp('dls' ,dls ,NHOR, 1)
call mpgetgp('drhs' ,drhs ,NHOR, 1)
call mpgetgp('dalb' ,dalb ,NHOR, 1)
call mpgetgp('dsalb1' ,dsalb(1,:),NHOR,1)
call mpgetgp('dsalb2' ,dsalb(2,:),NHOR,1)
call mpgetgp('dz0' ,dz0 ,NHOR, 1)
call mpgetgp('dicec' ,dicec ,NHOR, 1)
call mpgetgp('diced' ,diced ,NHOR, 1)
plasim/src/plasimmod.f90
+11
View File
@@ -329,6 +329,15 @@
! *************
real :: dalb(NHOR) ! albedo
real :: dsalb(2,NHOR) ! spectral weighted albedo
real :: dsnowalb(2) = 0.6 ! spectral weighted snow albedo
real :: dgroundalb(2) = 0.2 ! spectral weighted ground albedo
real :: doceanalb(2) = 0.069 ! spectral weighted ocean albedo
real :: dsnowalbmx(2) = 0.8
real :: dsnowalbmn(2) = 0.4
real :: dicealbmx(2) = 0.7
real :: dicealbmn(2) = 0.5
real :: dglacalbmn(2) = 0.6
real :: dswfl(NHOR,NLEP) ! net solar radiation
real :: dlwfl(NHOR,NLEP) ! net thermal radiation
real :: dflux(NHOR,NLEP) ! net radiation (SW + LW)
@@ -466,6 +475,8 @@
real :: aadls(NHOR) = 0.
real :: aadz0(NHOR) = 0.
real :: aadalb(NHOR) = 0.
real :: aadsalb1(NHOR) = 0.
real :: aadsalb2(NHOR) = 0.
real :: aadtsoil(NHOR) = 0.
real :: aadtd2(NHOR) = 0.
real :: aadtd3(NHOR) = 0.
plasim/src/radmod.f90
+183 -471
View File
@@ -10,7 +10,7 @@
!
!* 2.0) version identifier (date)
!
character(len=80) :: version = '27.09.2006 by Larry'
character(len=80) :: rversion = '23.09.2019 by Adiv'
!
!* 2.1) constant parameters
!
@@ -74,8 +74,8 @@
real :: gmu1(NHOR) ! cosine of solar zenit angle
real :: dqo3(NHOR,NLEV) = 0.0 ! ozon concentration (kg/kg)
real :: dqco2(NHOR,NLEV) = 0.0 ! co2 concentration (ppmv)
real :: dtdtlwr(NHOR,NLEV) ! lwr temperature tendencies
real :: dtdtswr(NHOR,NLEV) ! swr temperature tendencies
! real :: dtdtlwr(NHOR,NLEV) ! lwr temperature tendencies (now in pumamod)
! real :: dtdtswr(NHOR,NLEV) ! swr temperature tendencies (now in pumamod)
real, allocatable :: dqo3cl(:,:,:) ! climatological O3 (used if NO3=2)
@@ -133,17 +133,10 @@
! SUBROUTINE SOLARINI
! ===================
!
! Spectral snow reflectance sourced from the ECOSTRESS spectral library (JPL,JHU,USGS):
!
! Meerdink, S. K., Hook, S. J., Abbott, E.A., & Roberts, D.A. (in prep).
! The ECOSTRESS Spectral Library 1.0.
! Baldridge, A. M., S.J. Hook, C.I. Grove and G. Rivera, 2009..
! The ASTER Spectral Library Version 2.0. Remote Sensing of Environment, vol 113, pp. 711-715
!
subroutine solarini
use radmod
use specblock
! parameter(planckh = 6.62607004e-34)
! parameter(boltzk = 1.38064852e-23 )
! parameter(cc = 299792458.0 )
@@ -159,445 +152,6 @@
real dl1,dl2,hinge,const1,const2,z1,z2,znet,wmin,lwmin
integer k
real :: snowalbedos(965) = 0.0 !Combined snow spectral albedos
real :: wavelengths(965) = (/0.3400,0.3500,0.3600,0.3700,0.3800,0.3900,0.4000,0.4100,0.4200, &
& 0.4300,0.4400,0.4500,0.4600,0.4700,0.4800,0.4900,0.5000,0.5100, &
& 0.5200,0.5300,0.5400,0.5500,0.5600,0.5700,0.5800,0.5900,0.6000, &
& 0.6100,0.6200,0.6300,0.6400,0.6500,0.6600,0.6700,0.6800,0.6900, &
& 0.7000,0.7100,0.7200,0.7300,0.7400,0.7500,0.7600,0.7700,0.7800, &
& 0.7900,0.8000,0.8200,0.8400,0.8600,0.8800,0.9000,0.9200,0.9400, &
& 0.9600,0.9800,1.0000,1.0200,1.0400,1.0600,1.0800,1.1000,1.1200, &
& 1.1400,1.1600,1.1800,1.2000,1.2200,1.2400,1.2600,1.2800,1.3000, &
& 1.3200,1.3400,1.3600,1.3800,1.4000,1.4200,1.4400,1.4600,1.4800, &
& 1.5000,1.5200,1.5400,1.5600,1.5800,1.6000,1.6200,1.6400,1.6600, &
& 1.6800,1.7000,1.7200,1.7400,1.7600,1.7800,1.8000,1.8200,1.8400, &
& 1.8600,1.8800,1.9000,1.9200,1.9400,1.9600,1.9800,2.0000,2.0200, &
& 2.0400,2.0600,2.0800,2.1000,2.1200,2.1400,2.1600,2.1800,2.2000, &
& 2.2200,2.2400,2.2500,2.2600,2.2700,2.2800,2.2900,2.3000,2.3100, &
& 2.3200,2.3300,2.3400,2.3500,2.3600,2.3700,2.3800,2.3900,2.4000, &
& 2.4100,2.4200,2.4300,2.4400,2.4500,2.4600,2.4700,2.4800,2.4900, &
& 2.5000,2.5100,2.5200,2.5300,2.5400,2.5500,2.5600,2.5700,2.5800, &
& 2.5900,2.6000,2.6100,2.6200,2.6300,2.6400,2.6500,2.6600,2.6700, &
& 2.6800,2.6900,2.7000,2.7100,2.7200,2.7300,2.7400,2.7500,2.7600, &
& 2.7700,2.7800,2.7900,2.8000,2.8100,2.8200,2.8300,2.8400,2.8500, &
& 2.8600,2.8700,2.8800,2.8900,2.9000,2.9100,2.9200,2.9300,2.9400, &
& 2.9500,2.9600,2.9700,2.9800,2.9900,3.0000,3.0100,3.0200,3.0300, &
& 3.0400,3.0500,3.0600,3.0700,3.0800,3.0900,3.1000,3.1100,3.1200, &
& 3.1300,3.1400,3.1500,3.1600,3.1700,3.1800,3.1900,3.2000,3.2100, &
& 3.2200,3.2300,3.2400,3.2500,3.2600,3.2700,3.2800,3.2900,3.3000, &
& 3.3100,3.3200,3.3300,3.3400,3.3500,3.3600,3.3700,3.3800,3.3900, &
& 3.4000,3.4100,3.4200,3.4300,3.4400,3.4500,3.4600,3.4700,3.4800, &
& 3.4900,3.5000,3.5100,3.5200,3.5300,3.5400,3.5500,3.5600,3.5700, &
& 3.5800,3.5900,3.6000,3.6100,3.6200,3.6300,3.6400,3.6500,3.6600, &
& 3.6700,3.6800,3.6900,3.7000,3.7100,3.7200,3.7300,3.7400,3.7500, &
& 3.7600,3.7700,3.7800,3.7900,3.8000,3.8100,3.8200,3.8300,3.8400, &
& 3.8500,3.8600,3.8700,3.8800,3.8900,3.9000,3.9100,3.9200,3.9300, &
& 3.9400,3.9500,3.9600,3.9700,3.9800,3.9900,4.0000,4.0100,4.0200, &
& 4.0300,4.0400,4.0500,4.0600,4.0700,4.0800,4.0900,4.1000,4.1100, &
& 4.1200,4.1300,4.1400,4.1500,4.1600,4.1700,4.1800,4.1900,4.2000, &
& 4.2100,4.2200,4.2300,4.2400,4.2500,4.2600,4.2700,4.2800,4.2900, &
& 4.3000,4.3100,4.3200,4.3300,4.3400,4.3500,4.3600,4.3700,4.3800, &
& 4.3900,4.4000,4.4100,4.4200,4.4300,4.4400,4.4500,4.4600,4.4700, &
& 4.4800,4.4900,4.5000,4.5100,4.5200,4.5300,4.5400,4.5500,4.5600, &
& 4.5700,4.5800,4.5900,4.6000,4.6100,4.6200,4.6300,4.6400,4.6500, &
& 4.6600,4.6700,4.6800,4.6900,4.7000,4.7100,4.7200,4.7300,4.7400, &
& 4.7500,4.7600,4.7700,4.7800,4.7900,4.8000,4.8100,4.8200,4.8300, &
& 4.8400,4.8500,4.8600,4.8700,4.8800,4.8900,4.9000,4.9100,4.9200, &
& 4.9300,4.9400,4.9500,4.9600,4.9700,4.9800,4.9900,5.0000,5.0100, &
& 5.0200,5.0300,5.0400,5.0500,5.0600,5.0700,5.0800,5.0900,5.1000, &
& 5.1100,5.1200,5.1300,5.1400,5.1500,5.1600,5.1700,5.1800,5.1900, &
& 5.2000,5.2100,5.2200,5.2300,5.2400,5.2500,5.2600,5.2700,5.2800, &
& 5.2900,5.3000,5.3100,5.3200,5.3300,5.3400,5.3500,5.3600,5.3700, &
& 5.3800,5.3900,5.4000,5.4100,5.4200,5.4300,5.4400,5.4500,5.4600, &
& 5.4700,5.4800,5.4900,5.5000,5.5100,5.5200,5.5300,5.5400,5.5500, &
& 5.5600,5.5700,5.5800,5.5900,5.6000,5.6100,5.6200,5.6300,5.6400, &
& 5.6500,5.6600,5.6700,5.6800,5.6900,5.7000,5.7100,5.7200,5.7300, &
& 5.7400,5.7500,5.7600,5.7700,5.7800,5.7900,5.8000,5.8100,5.8200, &
& 5.8300,5.8400,5.8500,5.8600,5.8700,5.8800,5.8900,5.9000,5.9100, &
& 5.9200,5.9300,5.9400,5.9500,5.9600,5.9700,5.9800,5.9900,6.0000, &
& 6.0100,6.0200,6.0300,6.0400,6.0500,6.0600,6.0700,6.0800,6.0900, &
& 6.1000,6.1100,6.1200,6.1300,6.1400,6.1500,6.1600,6.1700,6.1800, &
& 6.1900,6.2000,6.2100,6.2200,6.2300,6.2400,6.2500,6.2600,6.2700, &
& 6.2800,6.2900,6.3000,6.3100,6.3200,6.3300,6.3400,6.3500,6.3600, &
& 6.3700,6.3800,6.3900,6.4000,6.4100,6.4200,6.4300,6.4400,6.4500, &
& 6.4600,6.4700,6.4800,6.4900,6.5000,6.5100,6.5200,6.5300,6.5400, &
& 6.5500,6.5600,6.5700,6.5800,6.5900,6.6000,6.6100,6.6200,6.6300, &
& 6.6400,6.6500,6.6600,6.6700,6.6800,6.6900,6.7000,6.7100,6.7200, &
& 6.7300,6.7400,6.7500,6.7600,6.7700,6.7800,6.7900,6.8000,6.8100, &
& 6.8200,6.8300,6.8400,6.8500,6.8600,6.8700,6.8800,6.8900,6.9000, &
& 6.9100,6.9200,6.9300,6.9400,6.9500,6.9600,6.9700,6.9800,6.9900, &
& 7.0000,7.0100,7.0200,7.0300,7.0400,7.0500,7.0600,7.0700,7.0800, &
& 7.0900,7.1000,7.1100,7.1200,7.1300,7.1400,7.1500,7.1600,7.1700, &
& 7.1800,7.1900,7.2000,7.2100,7.2200,7.2300,7.2400,7.2500,7.2600, &
& 7.2700,7.2800,7.2900,7.3000,7.3100,7.3200,7.3300,7.3400,7.3500, &
& 7.3600,7.3700,7.3800,7.4000,7.4100,7.4200,7.4300,7.4400,7.4500, &
& 7.4600,7.4700,7.4800,7.4900,7.5000,7.5100,7.5200,7.5400,7.5500, &
& 7.5600,7.5700,7.5800,7.5900,7.6000,7.6100,7.6200,7.6300,7.6500, &
& 7.6600,7.6700,7.6800,7.6900,7.7000,7.7100,7.7300,7.7400,7.7500, &
& 7.7600,7.7700,7.7800,7.8000,7.8100,7.8200,7.8300,7.8400,7.8500, &
& 7.8700,7.8800,7.8900,7.9000,7.9100,7.9300,7.9400,7.9500,7.9600, &
& 7.9800,7.9900,8.0000,8.0100,8.0300,8.0400,8.0500,8.0600,8.0800, &
& 8.0900,8.1000,8.1100,8.1300,8.1400,8.1500,8.1600,8.1800,8.1900, &
& 8.2000,8.2200,8.2300,8.2400,8.2600,8.2700,8.2800,8.2900,8.3100, &
& 8.3200,8.3300,8.3500,8.3600,8.3800,8.3900,8.4000,8.4200,8.4300, &
& 8.4400,8.4600,8.4700,8.4800,8.5000,8.5100,8.5300,8.5400,8.5500, &
& 8.5700,8.5800,8.6000,8.6100,8.6300,8.6400,8.6500,8.6700,8.6800, &
& 8.7000,8.7100,8.7300,8.7400,8.7600,8.7700,8.7900,8.8000,8.8200, &
& 8.8300,8.8500,8.8600,8.8800,8.8900,8.9100,8.9200,8.9400,8.9500, &
& 8.9700,8.9800,9.0000,9.0200,9.0300,9.0500,9.0600,9.0800,9.1000, &
& 9.1100,9.1300,9.1400,9.1600,9.1800,9.1900,9.2100,9.2200,9.2400, &
& 9.2600,9.2700,9.2900,9.3100,9.3200,9.3400,9.3600,9.3700,9.3900, &
& 9.4100,9.4300,9.4400,9.4600,9.4800,9.4900,9.5100,9.5300,9.5500, &
& 9.5600,9.5800,9.6000,9.6200,9.6400,9.6500,9.6700,9.6900,9.7100, &
& 9.7300,9.7400,9.7600,9.7800,9.8000,9.8200,9.8400,9.8600,9.8700, &
& 9.8900,9.9100,9.9300,9.9500,9.9700,9.9900,10.0100,10.0300,10.0500, &
& 10.0700,10.0900,10.1100,10.1300,10.1500,10.1700,10.1800,10.2100,10.2300, &
& 10.2500,10.2700,10.2900,10.3100,10.3300,10.3500,10.3700,10.3900,10.4100, &
& 10.4300,10.4500,10.4700,10.4900,10.5200,10.5400,10.5600,10.5800,10.6000, &
& 10.6200,10.6500,10.6700,10.6900,10.7100,10.7300,10.7600,10.7800,10.8000, &
& 10.8200,10.8500,10.8700,10.8900,10.9100,10.9400,10.9600,10.9800,11.0100, &
& 11.0300,11.0500,11.0800,11.1000,11.1200,11.1500,11.1700,11.2000,11.2200, &
& 11.2500,11.2700,11.2900,11.3200,11.3400,11.3700,11.3900,11.4200,11.4400, &
& 11.4700,11.4900,11.5200,11.5500,11.5700,11.6000,11.6200,11.6500,11.6800, &
& 11.7000,11.7300,11.7600,11.7800,11.8100,11.8400,11.8600,11.8900,11.9200, &
& 11.9500,11.9700,12.0000,12.0300,12.0600,12.0800,12.1100,12.1400,12.1700, &
& 12.2000,12.2300,12.2600,12.2800,12.3100,12.3400,12.3700,12.4000,12.4300, &
& 12.4600,12.4900,12.5200,12.5500,12.5800,12.6100,12.6400,12.6800,12.7100, &
& 12.7400,12.7700,12.8000,12.8300,12.8600,12.9000,12.9300,12.9600,12.9900, &
& 13.0300,13.0600,13.0900,13.1200,13.1600,13.1900,13.2200,13.2600,13.2900, &
& 13.3300,13.3600,13.4000,13.4300,13.4700,13.5000,13.5400,13.5700,13.6100, &
& 13.6400,13.6800,13.7100,13.7500,13.7900,13.8200,13.8600,13.9000,13.9400, &
& 13.9700,14.0100/)
real :: csnowalb(965) = (/96.0980,96.2900,96.4230,96.5490,96.7270,96.8430,96.9870,97.1520,97.2650, &
& 97.4450,97.5050,97.8490,97.9080,97.8730,97.7810,97.7360,97.6340,97.5820, &
& 97.5280,97.4620,97.2960,97.1630,97.1230,97.0590,96.8980,96.7230,96.3570, &
& 95.5080,95.6910,95.2990,94.9000,94.5670,94.2170,93.6110,93.6190,93.1990, &
& 92.5050,92.0360,91.5250,91.2130,90.6720,89.9820,89.1350,88.1980,87.0520, &
& 86.4820,85.8460,85.2430,85.2360,82.8540,79.3290,77.3930,76.2460,74.9770, &
& 71.6990,67.0850,60.8970,57.4940,57.1240,60.0210,62.2260,62.7290,61.9590, &
& 59.0470,54.5580,47.3760,41.5390,34.0440,31.5480,30.3300,30.5110,30.8370, &
& 31.1360,31.2110,30.2540,28.7190,25.1350,11.2590,2.3120,1.0520,0.6190, &
& 0.5090,0.5610,0.6340,0.8010,1.0100,1.1870,1.4250,1.8840,2.4420, &
& 3.0950,3.7230,4.2260,4.7940,5.3750,6.1670,7.0920,8.1850,9.2150, &
& 7.5990,3.0310,1.2170,0.5350,0.3380,0.2420,0.2040,0.2000,0.2070, &
& 0.2260,0.2610,0.3140,0.4210,0.6530,1.0260,1.4710,1.9870,2.6210, &
& 3.3170,3.6960,3.6770,3.5800,3.3610,3.0840,2.7980,2.5400,2.3020, &
& 2.1370,2.0200,1.9140,1.8110,1.7500,1.7000,1.6820,1.6370,1.6010, &
& 1.6030,1.5740,1.5560,1.5080,1.4980,1.4850,1.4660,1.4530,1.4370, &
& 1.3800,1.3590,1.3670,1.3510,1.3070,1.3150,1.3290,1.2940,1.3010, &
& 1.2920,1.2700,1.2390,1.2150,1.1570,1.1370,1.0880,1.0650,1.0010, &
& 0.9250,0.8920,0.8090,0.7620,0.7060,0.6460,0.6050,0.5840,0.5840, &
& 0.5250,0.4850,0.4820,0.4300,0.4150,0.4000,0.3990,0.3940,0.4130, &
& 0.4420,0.4660,0.5250,0.6480,0.7990,0.9970,1.1950,1.4360,1.7020, &
& 1.9030,2.0990,2.2790,2.4280,2.6390,2.8780,3.2290,3.6490,4.1500, &
& 4.6890,5.3580,5.9130,6.4650,6.7620,6.8220,6.6880,6.3590,6.0790, &
& 5.8940,5.7770,5.7110,5.6730,5.6280,5.5760,5.4410,5.3060,5.0970, &
& 4.8930,4.6840,4.4740,4.3040,4.1440,3.9930,3.8770,3.7490,3.6490, &
& 3.5630,3.4740,3.3850,3.3020,3.2380,3.2010,3.1450,3.0470,2.9840, &
& 2.9590,2.9320,2.8880,2.8330,2.7710,2.7260,2.7030,2.6570,2.6100, &
& 2.5860,2.5670,2.5300,2.4780,2.4840,2.4590,2.4290,2.4070,2.3850, &
& 2.3810,2.3670,2.3480,2.3140,2.2960,2.3010,2.2700,2.2490,2.2400, &
& 2.2150,2.2070,2.1990,2.1840,2.1490,2.1610,2.1580,2.1240,2.1190, &
& 2.1150,2.0950,2.0830,2.0800,2.0720,2.0540,2.0460,2.0490,2.0530, &
& 2.0370,2.0050,2.0050,2.0090,1.9850,1.9670,1.9620,1.9640,1.9610, &
& 1.9600,1.9560,1.9350,1.9280,1.9290,1.9230,1.9240,1.9160,1.9020, &
& 1.9000,1.8830,1.8570,1.8670,1.8880,1.8740,1.8520,1.8570,1.8600, &
& 1.8480,1.8440,1.8440,1.8340,1.8330,1.8320,1.8230,1.8330,1.8350, &
& 1.8120,1.7980,1.8020,1.8090,1.8040,1.8010,1.7990,1.7940,1.7950, &
& 1.8000,1.7930,1.7810,1.7830,1.7940,1.7940,1.7850,1.7820,1.7790, &
& 1.7830,1.7910,1.7960,1.7980,1.7830,1.7810,1.8070,1.8270,1.8230, &
& 1.8150,1.8170,1.8190,1.8160,1.8190,1.8280,1.8320,1.8340,1.8400, &
& 1.8420,1.8410,1.8420,1.8430,1.8510,1.8640,1.8700,1.8700,1.8640, &
& 1.8570,1.8520,1.8490,1.8490,1.8510,1.8480,1.8370,1.8250,1.8230, &
& 1.8230,1.8150,1.8110,1.8190,1.8290,1.8220,1.8090,1.8030,1.8010, &
& 1.7990,1.7970,1.7950,1.7920,1.7880,1.7870,1.7880,1.7850,1.7800, &
& 1.7810,1.7860,1.7840,1.7740,1.7640,1.7540,1.7450,1.7420,1.7430, &
& 1.7470,1.7490,1.7440,1.7360,1.7330,1.7330,1.7300,1.7210,1.7080, &
& 1.7010,1.7060,1.7150,1.7100,1.6950,1.6830,1.6830,1.6840,1.6770, &
& 1.6630,1.6550,1.6510,1.6510,1.6530,1.6560,1.6580,1.6530,1.6460, &
& 1.6440,1.6440,1.6400,1.6270,1.6190,1.6260,1.6360,1.6430,1.6390, &
& 1.6260,1.6110,1.6010,1.5920,1.5860,1.5840,1.5800,1.5730,1.5650, &
& 1.5600,1.5570,1.5580,1.5670,1.5740,1.5710,1.5530,1.5360,1.5320, &
& 1.5360,1.5390,1.5360,1.5280,1.5170,1.5120,1.5140,1.5180,1.5150, &
& 1.5040,1.4940,1.4920,1.4940,1.4890,1.4740,1.4590,1.4550,1.4630, &
& 1.4700,1.4680,1.4620,1.4600,1.4640,1.4730,1.4820,1.4830,1.4770, &
& 1.4720,1.4710,1.4730,1.4700,1.4620,1.4490,1.4370,1.4350,1.4400, &
& 1.4520,1.4610,1.4640,1.4660,1.4710,1.4820,1.4940,1.4990,1.4970, &
& 1.4940,1.4940,1.4950,1.4970,1.4980,1.5050,1.5200,1.5370,1.5500, &
& 1.5560,1.5570,1.5550,1.5540,1.5510,1.5490,1.5500,1.5540,1.5590, &
& 1.5660,1.5710,1.5740,1.5750,1.5740,1.5710,1.5700,1.5750,1.5830, &
& 1.5970,1.6070,1.6080,1.6050,1.6020,1.6020,1.6050,1.6130,1.6200, &
& 1.6220,1.6170,1.6060,1.5980,1.5940,1.6020,1.6240,1.6410,1.6550, &
& 1.6640,1.6640,1.6630,1.6640,1.6650,1.6650,1.6610,1.6570,1.6540, &
& 1.6540,1.6610,1.6690,1.6770,1.6820,1.6840,1.6810,1.6780,1.6770, &
& 1.6780,1.6820,1.6870,1.6900,1.6920,1.6950,1.6990,1.7030,1.7040, &
& 1.6990,1.6930,1.6870,1.6820,1.6780,1.6740,1.6690,1.6640,1.6600, &
& 1.6580,1.6570,1.6600,1.6650,1.6730,1.6810,1.6900,1.6920,1.6900, &
& 1.6870,1.6830,1.6810,1.6800,1.6800,1.6820,1.6860,1.6890,1.6930, &
& 1.6950,1.6950,1.6930,1.6900,1.6890,1.6890,1.6890,1.6870,1.6820, &
& 1.6760,1.6690,1.6640,1.6620,1.6640,1.6680,1.6730,1.6750,1.6740, &
& 1.6710,1.6660,1.6610,1.6580,1.6550,1.6520,1.6490,1.6470,1.6470, &
& 1.6470,1.6460,1.6430,1.6390,1.6330,1.6260,1.6210,1.6170,1.6150, &
& 1.6140,1.6140,1.6160,1.6190,1.6250,1.6290,1.6300,1.6250,1.6140, &
& 1.5980,1.5800,1.5670,1.5620,1.5660,1.5770,1.5900,1.5990,1.6010, &
& 1.5960,1.5850,1.5730,1.5620,1.5550,1.5520,1.5530,1.5550,1.5580, &
& 1.5590,1.5570,1.5530,1.5490,1.5460,1.5440,1.5450,1.5460,1.5470, &
& 1.5470,1.5460,1.5460,1.5450,1.5450,1.5440,1.5430,1.5380,1.5330, &
& 1.5260,1.5220,1.5200,1.5230,1.5280,1.5320,1.5340,1.5330,1.5310, &
& 1.5290,1.5300,1.5330,1.5360,1.5390,1.5390,1.5380,1.5360,1.5330, &
& 1.5290,1.5260,1.5240,1.5250,1.5300,1.5370,1.5450,1.5510,1.5530, &
& 1.5500,1.5450,1.5390,1.5320,1.5250,1.5180,1.5120,1.5090,1.5100, &
& 1.5140,1.5190,1.5240,1.5260,1.5260,1.5250,1.5230,1.5240,1.5260, &
& 1.5280,1.5270,1.5210,1.5110,1.4970,1.4830,1.4720,1.4660,1.4650, &
& 1.4680,1.4740,1.4800,1.4850,1.4880,1.4900,1.4900,1.4900,1.4900, &
& 1.4880,1.4850,1.4790,1.4720,1.4660,1.4620,1.4620,1.4650,1.4710, &
& 1.4750,1.4730,1.4660,1.4560,1.4480,1.4460,1.4510,1.4620,1.4700, &
& 1.4700,1.4610,1.4450,1.4260,1.4110,1.4050,1.4060,1.4120,1.4180, &
& 1.4230,1.4230,1.4210,1.4180,1.4140,1.4090,1.4040,1.3970,1.3900, &
& 1.3840,1.3790,1.3740,1.3690,1.3610,1.3510,1.3420,1.3330,1.3270, &
& 1.3230,1.3210,1.3160,1.3080,1.2980,1.2830,1.2660,1.2470,1.2300, &
& 1.2160,1.2090,1.2070,1.2110,1.2160,1.2170,1.2110,1.2000,1.1820, &
& 1.1610,1.1390,1.1170,1.0970,1.0790,1.0630,1.0490,1.0380,1.0280, &
& 1.0190,1.0080,0.9950,0.9810,0.9660,0.9530,0.9430,0.9340,0.9280, &
& 0.9220,0.9190,0.9150,0.9090,0.9000,0.8860,0.8660,0.8400,0.8130, &
& 0.7900,0.7760,0.7710,0.7730,0.7780,0.7790,0.7760,0.7680,0.7580, &
& 0.7520,0.7520,0.7560,0.7630,0.7730,0.7870,0.8020,0.8210,0.8450, &
& 0.8730,0.9050,0.9410,0.9840,1.0310,1.0810,1.1290,1.1760,1.2210, &
& 1.2650,1.3120,1.3630,1.4180,1.4750,1.5310,1.5880,1.6460,1.7070, &
& 1.7710,1.8370,1.9030,1.9660,2.0250,2.0820,2.1390,2.1980,2.2590, &
& 2.3200,2.3810,2.4400,2.4950,2.5490,2.6030,2.6580,2.7140,2.7720, &
& 2.8310,2.8910,2.9500,3.0030,3.0490,3.0880,3.1210,3.1510,3.1840, &
& 3.2200,3.2600,3.3040,3.3480,3.3930,3.4370,3.4820,3.5280,3.5770, &
& 3.6290,3.6840,3.7400,3.7950,3.8480,3.8950,3.9400,3.9830,4.0240, &
& 4.0640,4.1060,4.1460,4.1840,4.2180,4.2480,4.2750,4.2960,4.3130, &
& 4.3300,4.3470,4.3670,4.3890,4.4130,4.4390,4.4630,4.4850,4.5050, &
& 4.5230,4.5360,4.5420,4.5400,4.5330,4.5250,4.5190,4.5170,4.5200, &
& 4.5230,4.5240,4.5230,4.5190,4.5110,4.5000,4.4850,4.4660,4.4440, &
& 4.4260,4.4210,4.4280,4.4450,4.4640,4.4760,4.4770,4.4660,4.4490, &
& 4.4310,4.4120,4.3870,4.3540,4.3120,4.2670,4.2260,4.1950,4.1810, &
& 4.1740,4.1600 /)
real :: msnowalb(965) = (/97.3810,97.4320,97.5420,97.6360,97.8130,97.8360,97.9740,98.0590,98.2080, &
& 98.2900,98.3790,98.5380,98.5360,98.5780,98.5650,98.5220,98.4490,98.3590, &
& 98.3240,98.2340,98.1110,98.1510,98.0970,98.0130,97.9010,97.6920,97.5250, &
& 97.2970,97.0760,96.8090,96.5850,95.9750,96.0250,95.7930,95.6150,95.3290, &
& 94.9490,94.5520,94.1700,93.9720,93.6170,93.0600,92.4990,91.8540,91.1910, &
& 90.3890,90.0660,89.9020,89.7670,88.0740,85.4770,83.9870,83.3810,82.3000, &
& 79.7740,76.1730,72.4830,68.6590,67.9870,70.8230,72.4330,72.8880,72.3670, &
& 70.0170,66.2320,60.1390,55.0300,48.2160,44.6580,44.5010,44.3870,44.9400, &
& 45.1580,45.0200,43.8600,42.6350,38.9960,21.5660,6.4470,3.2650,1.9890, &
& 1.6340,1.8050,2.0320,2.5540,3.1620,3.6430,4.2570,5.4520,6.7560, &
& 8.1060,9.4780,10.5090,11.7060,12.7990,13.9730,15.5850,17.2010,19.1400, &
& 16.5080,8.1560,3.7400,1.7400,1.0750,0.7150,0.5580,0.5410,0.5740, &
& 0.6560,0.7920,0.9950,1.3730,2.1160,3.1900,4.4140,5.6970,7.0460, &
& 8.6660,9.6390,9.5940,9.1440,8.3630,7.3170,6.2050,5.2290,4.4140, &
& 3.7100,3.2060,2.8250,2.5330,2.3520,2.2160,2.1170,2.0610,1.9720, &
& 1.9510,1.8750,1.8350,1.8090,1.7320,1.6840,1.6250,1.5760,1.5420, &
& 1.5030,1.4790,1.4690,1.4600,1.4210,1.4290,1.4430,1.4510,1.4390, &
& 1.4190,1.3970,1.3610,1.3150,1.2530,1.1880,1.1020,1.0230,0.9270, &
& 0.8490,0.7560,0.6740,0.5800,0.5480,0.5070,0.4470,0.4310,0.4230, &
& 0.3880,0.3780,0.3570,0.3310,0.3130,0.3040,0.2910,0.2740,0.2760, &
& 0.2910,0.3120,0.3660,0.4360,0.5410,0.6910,0.8110,0.9300,1.0700, &
& 1.1630,1.2620,1.3780,1.4420,1.5570,1.6740,1.8370,2.0640,2.3210, &
& 2.6550,3.0310,3.3710,3.6570,3.8060,3.7920,3.6440,3.4540,3.2730, &
& 3.1290,3.0500,3.0170,3.0000,2.9650,2.9180,2.8580,2.7630,2.6530, &
& 2.5330,2.4230,2.3380,2.2430,2.1580,2.0780,2.0320,1.9920,1.9490, &
& 1.9060,1.8750,1.8390,1.8180,1.8090,1.7800,1.7620,1.7490,1.7380, &
& 1.7240,1.6960,1.7000,1.7070,1.6810,1.6570,1.6590,1.6550,1.6480, &
& 1.6400,1.6310,1.6300,1.6200,1.6030,1.5890,1.5840,1.5840,1.5760, &
& 1.5690,1.5620,1.5500,1.5430,1.5420,1.5310,1.5110,1.5070,1.5110, &
& 1.5060,1.4940,1.4830,1.4660,1.4530,1.4590,1.4600,1.4450,1.4280, &
& 1.4170,1.4070,1.4000,1.3970,1.3890,1.3800,1.3740,1.3600,1.3470, &
& 1.3460,1.3450,1.3320,1.3170,1.3120,1.3110,1.3060,1.2990,1.2950, &
& 1.2900,1.2770,1.2670,1.2640,1.2550,1.2460,1.2460,1.2460,1.2390, &
& 1.2280,1.2160,1.2100,1.2100,1.2120,1.2090,1.2020,1.1930,1.1900, &
& 1.1910,1.1920,1.1920,1.1880,1.1860,1.1840,1.1750,1.1610,1.1510, &
& 1.1460,1.1450,1.1450,1.1460,1.1460,1.1440,1.1420,1.1410,1.1400, &
& 1.1380,1.1330,1.1280,1.1210,1.1150,1.1120,1.1120,1.1100,1.1080, &
& 1.1070,1.1070,1.1060,1.1080,1.1190,1.1280,1.1270,1.1200,1.1190, &
& 1.1250,1.1290,1.1280,1.1280,1.1320,1.1370,1.1430,1.1500,1.1570, &
& 1.1620,1.1660,1.1680,1.1700,1.1740,1.1800,1.1830,1.1830,1.1840, &
& 1.1840,1.1840,1.1810,1.1780,1.1760,1.1790,1.1850,1.1920,1.1950, &
& 1.1950,1.1910,1.1860,1.1830,1.1820,1.1830,1.1810,1.1770,1.1730, &
& 1.1710,1.1750,1.1830,1.1900,1.1930,1.1900,1.1820,1.1780,1.1780, &
& 1.1810,1.1830,1.1850,1.1870,1.1860,1.1810,1.1750,1.1720,1.1700, &
& 1.1710,1.1710,1.1710,1.1700,1.1670,1.1650,1.1620,1.1570,1.1520, &
& 1.1470,1.1450,1.1420,1.1370,1.1290,1.1210,1.1180,1.1170,1.1170, &
& 1.1140,1.1110,1.1070,1.1040,1.1020,1.1020,1.1020,1.0990,1.0950, &
& 1.0900,1.0850,1.0800,1.0760,1.0740,1.0730,1.0720,1.0720,1.0730, &
& 1.0720,1.0690,1.0640,1.0580,1.0520,1.0490,1.0490,1.0500,1.0480, &
& 1.0460,1.0430,1.0390,1.0320,1.0260,1.0200,1.0130,1.0080,1.0050, &
& 1.0040,1.0040,1.0050,1.0080,1.0100,1.0080,1.0020,0.9900,0.9820, &
& 0.9750,0.9700,0.9670,0.9630,0.9600,0.9560,0.9510,0.9450,0.9380, &
& 0.9340,0.9330,0.9340,0.9360,0.9360,0.9340,0.9300,0.9260,0.9220, &
& 0.9220,0.9260,0.9310,0.9350,0.9370,0.9340,0.9280,0.9190,0.9100, &
& 0.9040,0.8990,0.8970,0.8960,0.8960,0.8960,0.8980,0.9020,0.9060, &
& 0.9090,0.9090,0.9070,0.9000,0.8910,0.8850,0.8820,0.8840,0.8890, &
& 0.8930,0.8970,0.9000,0.9010,0.9030,0.9040,0.9050,0.9070,0.9070, &
& 0.9080,0.9090,0.9090,0.9110,0.9120,0.9130,0.9140,0.9150,0.9160, &
& 0.9170,0.9180,0.9190,0.9200,0.9220,0.9230,0.9240,0.9270,0.9280, &
& 0.9290,0.9300,0.9320,0.9340,0.9380,0.9460,0.9540,0.9590,0.9640, &
& 0.9690,0.9730,0.9750,0.9770,0.9800,0.9830,0.9850,0.9870,0.9890, &
& 0.9930,0.9950,0.9960,0.9970,0.9980,0.9970,0.9970,0.9960,0.9960, &
& 0.9960,0.9960,0.9970,0.9980,0.9990,1.0000,1.0010,1.0020,1.0010, &
& 1.0000,0.9980,0.9970,0.9950,0.9940,0.9930,0.9920,0.9900,0.9890, &
& 0.9880,0.9860,0.9850,0.9840,0.9850,0.9870,0.9930,0.9990,1.0030, &
& 1.0060,1.0090,1.0100,1.0100,1.0100,1.0100,1.0110,1.0130,1.0140, &
& 1.0170,1.0190,1.0200,1.0200,1.0180,1.0160,1.0130,1.0110,1.0110, &
& 1.0120,1.0150,1.0190,1.0230,1.0270,1.0300,1.0300,1.0300,1.0270, &
& 1.0240,1.0210,1.0170,1.0140,1.0120,1.0100,1.0080,1.0060,1.0030, &
& 1.0010,0.9980,0.9940,0.9910,0.9880,0.9860,0.9840,0.9820,0.9800, &
& 0.9790,0.9770,0.9760,0.9750,0.9730,0.9720,0.9710,0.9700,0.9690, &
& 0.9690,0.9680,0.9680,0.9670,0.9670,0.9660,0.9650,0.9630,0.9600, &
& 0.9580,0.9550,0.9530,0.9520,0.9510,0.9500,0.9500,0.9500,0.9500, &
& 0.9500,0.9510,0.9510,0.9520,0.9520,0.9520,0.9520,0.9510,0.9490, &
& 0.9470,0.9460,0.9440,0.9440,0.9440,0.9450,0.9470,0.9490,0.9510, &
& 0.9530,0.9540,0.9540,0.9540,0.9530,0.9510,0.9490,0.9480,0.9460, &
& 0.9440,0.9430,0.9410,0.9410,0.9410,0.9410,0.9410,0.9410,0.9400, &
& 0.9390,0.9380,0.9370,0.9360,0.9360,0.9370,0.9390,0.9420,0.9460, &
& 0.9490,0.9530,0.9580,0.9610,0.9630,0.9640,0.9630,0.9600,0.9560, &
& 0.9500,0.9430,0.9350,0.9280,0.9220,0.9180,0.9160,0.9160,0.9170, &
& 0.9200,0.9230,0.9260,0.9270,0.9260,0.9230,0.9190,0.9140,0.9100, &
& 0.9060,0.9020,0.9010,0.8990,0.8990,0.8980,0.8980,0.8990,0.9000, &
& 0.9010,0.9010,0.9020,0.9030,0.9020,0.9010,0.8990,0.8970,0.8950, &
& 0.8940,0.8930,0.8920,0.8910,0.8900,0.8890,0.8880,0.8870,0.8870, &
& 0.8860,0.8860,0.8840,0.8820,0.8770,0.8710,0.8630,0.8540,0.8460, &
& 0.8400,0.8350,0.8330,0.8350,0.8380,0.8430,0.8500,0.8570,0.8630, &
& 0.8670,0.8690,0.8680,0.8640,0.8580,0.8500,0.8410,0.8310,0.8210, &
& 0.8110,0.8030,0.7960,0.7900,0.7840,0.7790,0.7750,0.7700,0.7650, &
& 0.7600,0.7530,0.7460,0.7370,0.7260,0.7160,0.7060,0.6970,0.6910, &
& 0.6860,0.6830,0.6810,0.6800,0.6770,0.6730,0.6650,0.6560,0.6440, &
& 0.6320,0.6190,0.6080,0.5980,0.5900,0.5840,0.5790,0.5750,0.5710, &
& 0.5670,0.5600,0.5520,0.5420,0.5320,0.5210,0.5110,0.5020,0.4960, &
& 0.4910,0.4870,0.4840,0.4820,0.4790,0.4760,0.4730,0.4710,0.4700, &
& 0.4710,0.4740,0.4790,0.4860,0.4960,0.5080,0.5230,0.5400,0.5590, &
& 0.5790,0.5990,0.6200,0.6410,0.6630,0.6860,0.7110,0.7380,0.7680, &
& 0.7990,0.8330,0.8670,0.9010,0.9350,0.9680,1.0010,1.0330,1.0650, &
& 1.0970,1.1290,1.1620,1.1940,1.2270,1.2590,1.2910,1.3230,1.3550, &
& 1.3860,1.4170,1.4450,1.4730,1.4980,1.5220,1.5440,1.5650,1.5850, &
& 1.6060,1.6270,1.6470,1.6680,1.6900,1.7120,1.7350,1.7580,1.7810, &
& 1.8040,1.8270,1.8480,1.8700,1.8900,1.9100,1.9290,1.9470,1.9640, &
& 1.9810,1.9980,2.0150,2.0310,2.0490,2.0670,2.0850,2.1030,2.1210, &
& 2.1390,2.1550,2.1710,2.1870,2.2030,2.2180,2.2330,2.2480,2.2620, &
& 2.2740,2.2850,2.2960,2.3040,2.3120,2.3180,2.3220,2.3260,2.3300, &
& 2.3340,2.3390,2.3460,2.3540,2.3630,2.3720,2.3800,2.3860,2.3890, &
& 2.3890,2.3860,2.3810,2.3750,2.3680,2.3620,2.3560,2.3510,2.3460, &
& 2.3420,2.3390,2.3360,2.3340,2.3330,2.3310,2.3290,2.3260,2.3220, &
& 2.3180,2.3130,2.3100,2.3090,2.3080,2.3090,2.3080,2.3040,2.2960, &
& 2.2810,2.2600 /)
real :: fsnowalb(965) = (/98.5210,98.6350,98.6700,98.7120,98.7790,98.8680,98.8450,98.9540,98.9610, &
& 99.0500,99.1250,99.2070,99.2820,99.2250,99.1880,99.2370,99.0990,99.1030, &
& 99.1020,99.1160,98.9910,98.9690,98.9930,98.9200,98.8790,98.7640,98.6570, &
& 98.5730,98.3690,98.2560,98.1060,97.7940,97.7790,97.7460,97.6460,97.4890, &
& 96.7700,97.0330,96.7160,96.6300,96.2220,95.9270,95.4900,95.5320,95.1660, &
& 94.6110,94.6240,94.5270,94.3100,93.3850,91.5990,91.2340,90.6630,90.1130, &
& 88.4780,86.1840,83.8720,82.0690,81.4550,83.1620,82.1010,84.7800,84.4700, &
& 82.9290,80.1690,75.9630,65.0150,67.5290,65.9010,64.8110,64.6430,65.2040, &
& 63.2540,65.8620,65.4960,64.2190,60.9990,44.1790,20.6330,13.9170,9.8620, &
& 8.5270,9.1870,9.9920,11.9100,13.6980,15.3350,16.5310,20.2890,20.9180, &
& 24.5220,28.3510,28.3660,29.4560,32.7410,35.2040,36.9860,38.7430,40.9240, &
& 37.5480,24.9240,15.3950,9.0950,6.2970,4.4940,3.6270,3.5060,3.6890, &
& 4.2150,5.0350,6.1990,8.1690,11.1840,13.9240,17.5410,20.1650,22.8010, &
& 26.3190,28.3300,27.8650,26.8480,25.0320,22.5830,19.9560,17.5520,15.3820, &
& 13.3700,11.7490,10.4760,9.5200,8.8530,8.3410,8.0240,7.7990,7.6360, &
& 7.4400,7.2310,6.9970,6.7890,6.5870,6.3510,6.1360,5.9150,5.7040, &
& 5.5560,5.4300,5.3400,5.2720,5.2760,5.2940,5.3000,5.3570,5.3790, &
& 5.2740,5.2360,5.1410,4.9320,4.6360,4.4280,4.0220,3.5180,2.8720, &
& 2.3400,1.7760,1.3320,0.9540,0.6770,0.5140,0.3780,0.3210,0.2640, &
& 0.2400,0.2350,0.2140,0.1900,0.1930,0.1480,0.1660,0.1710,0.1600, &
& 0.2100,0.1690,0.2100,0.2460,0.3040,0.3370,0.4280,0.5060,0.5860, &
& 0.6630,0.7190,0.7860,0.7970,0.8760,0.9160,1.0290,1.1780,1.2890, &
& 1.4920,1.7850,2.0290,2.3160,2.5890,2.7750,2.7460,2.5550,2.3160, &
& 2.1490,2.0570,2.0130,2.0030,2.0260,2.0420,2.0510,1.9820,1.9340, &
& 1.8640,1.7710,1.7000,1.6370,1.5850,1.5150,1.4780,1.4190,1.3810, &
& 1.3340,1.3090,1.3030,1.2660,1.2370,1.2160,1.2230,1.2200,1.1860, &
& 1.1730,1.1720,1.1580,1.1530,1.1390,1.1320,1.1310,1.1460,1.1470, &
& 1.1490,1.1580,1.1700,1.1670,1.1720,1.1860,1.2030,1.2210,1.2150, &
& 1.2240,1.2520,1.2750,1.2840,1.2860,1.2800,1.2810,1.2800,1.2860, &
& 1.2830,1.2730,1.2630,1.2360,1.2300,1.2140,1.1780,1.1460,1.1430, &
& 1.1320,1.0970,1.0680,1.0480,1.0360,1.0100,0.9780,0.9690,0.9610, &
& 0.9390,0.9150,0.9050,0.8920,0.8870,0.8840,0.8730,0.8470,0.8370, &
& 0.8390,0.8280,0.8120,0.7950,0.7960,0.7960,0.7840,0.7710,0.7670, &
& 0.7590,0.7550,0.7580,0.7540,0.7450,0.7320,0.7250,0.7280,0.7230, &
& 0.7210,0.7200,0.7140,0.7200,0.7180,0.7050,0.7050,0.7060,0.6910, &
& 0.6810,0.6860,0.6870,0.6690,0.6610,0.6700,0.6720,0.6560,0.6470, &
& 0.6550,0.6580,0.6510,0.6460,0.6410,0.6400,0.6400,0.6390,0.6380, &
& 0.6380,0.6320,0.6290,0.6350,0.6320,0.6360,0.6470,0.6460,0.6390, &
& 0.6350,0.6380,0.6430,0.6400,0.6280,0.6310,0.6540,0.6740,0.6740, &
& 0.6630,0.6560,0.6540,0.6560,0.6660,0.6730,0.6680,0.6630,0.6640, &
& 0.6700,0.6720,0.6710,0.6760,0.6880,0.6940,0.6880,0.6790,0.6820, &
& 0.6870,0.6880,0.6900,0.6930,0.6950,0.6990,0.7030,0.7020,0.7000, &
& 0.7000,0.7040,0.7110,0.7190,0.7290,0.7330,0.7330,0.7370,0.7390, &
& 0.7330,0.7290,0.7350,0.7440,0.7440,0.7290,0.7220,0.7310,0.7400, &
& 0.7380,0.7290,0.7270,0.7340,0.7420,0.7420,0.7350,0.7280,0.7210, &
& 0.7190,0.7200,0.7190,0.7110,0.7010,0.6960,0.6970,0.6950,0.6890, &
& 0.6820,0.6770,0.6730,0.6660,0.6560,0.6470,0.6430,0.6460,0.6500, &
& 0.6490,0.6420,0.6310,0.6250,0.6230,0.6200,0.6140,0.6090,0.6090, &
& 0.6130,0.6090,0.5980,0.5860,0.5770,0.5800,0.5820,0.5780,0.5660, &
& 0.5590,0.5610,0.5680,0.5730,0.5730,0.5700,0.5600,0.5490,0.5430, &
& 0.5410,0.5400,0.5380,0.5360,0.5310,0.5270,0.5190,0.5090,0.5050, &
& 0.5060,0.5080,0.5080,0.5030,0.4990,0.4970,0.4980,0.5000,0.4980, &
& 0.4910,0.4800,0.4720,0.4750,0.4840,0.4910,0.4890,0.4770,0.4640, &
& 0.4640,0.4720,0.4780,0.4740,0.4630,0.4510,0.4460,0.4520,0.4590, &
& 0.4620,0.4600,0.4580,0.4540,0.4520,0.4520,0.4560,0.4610,0.4640, &
& 0.4610,0.4530,0.4450,0.4350,0.4330,0.4430,0.4580,0.4660,0.4630, &
& 0.4560,0.4470,0.4460,0.4500,0.4530,0.4510,0.4420,0.4330,0.4320, &
& 0.4350,0.4450,0.4530,0.4630,0.4700,0.4730,0.4740,0.4750,0.4770, &
& 0.4770,0.4770,0.4750,0.4720,0.4700,0.4700,0.4710,0.4720,0.4700, &
& 0.4660,0.4580,0.4500,0.4460,0.4440,0.4490,0.4580,0.4660,0.4710, &
& 0.4740,0.4730,0.4720,0.4730,0.4760,0.4780,0.4790,0.4800,0.4810, &
& 0.4850,0.4880,0.4900,0.4920,0.4920,0.4910,0.4860,0.4830,0.4830, &
& 0.4860,0.4970,0.5090,0.5140,0.5160,0.5140,0.5110,0.5100,0.5120, &
& 0.5160,0.5180,0.5170,0.5120,0.5050,0.4990,0.4950,0.4980,0.5020, &
& 0.5040,0.5030,0.4980,0.4930,0.4900,0.4910,0.4980,0.5080,0.5130, &
& 0.5160,0.5180,0.5190,0.5190,0.5190,0.5200,0.5210,0.5240,0.5270, &
& 0.5300,0.5310,0.5260,0.5150,0.5060,0.4990,0.4950,0.4960,0.5000, &
& 0.5060,0.5120,0.5150,0.5160,0.5140,0.5110,0.5090,0.5070,0.5070, &
& 0.5090,0.5110,0.5110,0.5080,0.5020,0.4930,0.4860,0.4820,0.4820, &
& 0.4860,0.4920,0.4960,0.4960,0.4930,0.4880,0.4820,0.4790,0.4760, &
& 0.4760,0.4760,0.4760,0.4760,0.4780,0.4800,0.4810,0.4820,0.4830, &
& 0.4820,0.4800,0.4770,0.4740,0.4700,0.4670,0.4650,0.4630,0.4610, &
& 0.4580,0.4550,0.4540,0.4550,0.4600,0.4680,0.4770,0.4850,0.4910, &
& 0.4920,0.4890,0.4830,0.4750,0.4690,0.4650,0.4650,0.4670,0.4710, &
& 0.4760,0.4800,0.4820,0.4820,0.4810,0.4790,0.4760,0.4750,0.4750, &
& 0.4750,0.4750,0.4750,0.4740,0.4720,0.4710,0.4700,0.4700,0.4720, &
& 0.4720,0.4720,0.4700,0.4660,0.4630,0.4590,0.4570,0.4560,0.4570, &
& 0.4600,0.4640,0.4700,0.4760,0.4800,0.4830,0.4820,0.4810,0.4790, &
& 0.4770,0.4750,0.4750,0.4740,0.4740,0.4750,0.4770,0.4790,0.4790, &
& 0.4760,0.4710,0.4640,0.4590,0.4560,0.4560,0.4570,0.4570,0.4550, &
& 0.4520,0.4500,0.4510,0.4550,0.4610,0.4660,0.4700,0.4700,0.4700, &
& 0.4680,0.4650,0.4620,0.4580,0.4540,0.4510,0.4490,0.4490,0.4510, &
& 0.4550,0.4620,0.4710,0.4800,0.4860,0.4870,0.4820,0.4710,0.4590, &
& 0.4490,0.4420,0.4410,0.4430,0.4450,0.4450,0.4430,0.4410,0.4420, &
& 0.4460,0.4510,0.4540,0.4560,0.4530,0.4480,0.4440,0.4420,0.4450, &
& 0.4510,0.4590,0.4670,0.4750,0.4800,0.4820,0.4830,0.4830,0.4790, &
& 0.4720,0.4650,0.4590,0.4560,0.4570,0.4620,0.4680,0.4750,0.4810, &
& 0.4860,0.4910,0.4950,0.4990,0.5000,0.4970,0.4920,0.4850,0.4790, &
& 0.4730,0.4670,0.4570,0.4440,0.4280,0.4120,0.3980,0.3890,0.3850, &
& 0.3830,0.3800,0.3710,0.3580,0.3410,0.3250,0.3130,0.3070,0.3060, &
& 0.3090,0.3090,0.3050,0.2980,0.2890,0.2790,0.2680,0.2600,0.2530, &
& 0.2470,0.2430,0.2410,0.2420,0.2430,0.2460,0.2490,0.2510,0.2500, &
& 0.2460,0.2400,0.2340,0.2280,0.2250,0.2220,0.2190,0.2160,0.2140, &
& 0.2140,0.2170,0.2230,0.2310,0.2400,0.2480,0.2560,0.2650,0.2760, &
& 0.2900,0.3090,0.3300,0.3510,0.3710,0.3860,0.3970,0.4050,0.4120, &
& 0.4220,0.4330,0.4470,0.4640,0.4820,0.5010,0.5220,0.5450,0.5690, &
& 0.5930,0.6160,0.6350,0.6500,0.6600,0.6670,0.6710,0.6740,0.6790, &
& 0.6890,0.7050,0.7260,0.7510,0.7770,0.7980,0.8140,0.8230,0.8270, &
& 0.8310,0.8380,0.8490,0.8660,0.8840,0.9010,0.9150,0.9260,0.9340, &
& 0.9420,0.9520,0.9640,0.9790,0.9940,1.0090,1.0210,1.0320,1.0390, &
& 1.0440,1.0480,1.0520,1.0590,1.0690,1.0830,1.0990,1.1150,1.1260, &
& 1.1320,1.1330,1.1330,1.1350,1.1430,1.1560,1.1700,1.1790,1.1820, &
& 1.1780,1.1690,1.1570,1.1490,1.1460,1.1500,1.1610,1.1750,1.1880, &
& 1.1960,1.1940,1.1820,1.1630,1.1420,1.1230,1.1120,1.1100,1.1170, &
& 1.1280,1.1350,1.1360,1.1270,1.1130,1.0990,1.0920,1.0950,1.1060, &
& 1.1200,1.1280,1.1280,1.1170,1.0990,1.0770,1.0580,1.0440,1.0400, &
& 1.0440,1.0500,1.0660,1.0760,1.0790,1.0700,1.0520,1.0340,1.0200, &
& 1.0100,1.0100 /)
if (mypid == NROOT) then
@@ -634,12 +188,16 @@
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*fsnowalb(k)+bb3(k+1)*fsnowalb(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
! a1 = a1 + 0.5*(bb3(k)*fsnowalb(k)+bb3(k+1)*fsnowalb(k+1))* &
! & 1.0e-6*(wavelengths(k+1)-wavelengths(k))
a1 = a1 + 0.5*(bb3(k)*iceblend(k)+bb3(k+1)*iceblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*fsnowalb(k)+bb3(k+1)*fsnowalb(k+1)))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
! a2 = a2 + 0.5*(bb3(k)*fsnowalb(k)+bb3(k+1)*fsnowalb(k+1)))* &
! & 1.0e-6*(wavelengths(k+1)-wavelengths(k))
a2 = a2 + 0.5*(bb3(k)*iceblend(k)+bb3(k+1)*iceblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
z1 = 0.0
@@ -674,6 +232,135 @@
write(nud,*) "Snow albedo above 0.75 microns:",dsnowalb(2)
write(nud,*) "Overall snow albedo:",z1*dsnowalb(1)+z2*dsnowalb(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*iceblendmin(k)+bb3(k+1)*iceblendmin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*iceblendmin(k)+bb3(k+1)*iceblendmin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dsnowalbmn(1) = a1
dsnowalbmn(2) = a2
write(nud,*) "Minimum snow albedo below 0.75 microns:",dsnowalbmn(1)
write(nud,*) "Minimum snow albedo above 0.75 microns:",dsnowalbmn(2)
write(nud,*) "Overall minimum snow albedo:",z1*dsnowalbmn(1)+z2*dsnowalbmn(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*iceblendmax(k)+bb3(k+1)*iceblendmax(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*iceblendmax(k)+bb3(k+1)*iceblendmax(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dsnowalbmx(1) = a1
dsnowalbmx(2) = a2
write(nud,*) "Maximum snow albedo below 0.75 microns:",dsnowalbmx(1)
write(nud,*) "Maximum snow albedo above 0.75 microns:",dsnowalbmx(2)
write(nud,*) "Overall maximum snow albedo:",z1*dsnowalbmx(1)+z2*dsnowalbmx(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*seaicemin(k)+bb3(k+1)*seaicemin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*seaicemin(k)+bb3(k+1)*seaicemin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dicealbmn(1) = a1
dicealbmn(2) = a2
write(nud,*) "Minimum sea ice albedo below 0.75 microns:",dicealbmn(1)
write(nud,*) "Minimum sea ice albedo above 0.75 microns:",dicealbmn(2)
write(nud,*) "Overall minimum sea ice albedo:",z1*dicealbmn(1)+z2*dicealbmn(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*seaicemax(k)+bb3(k+1)*seaicemax(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*seaicemax(k)+bb3(k+1)*seaicemax(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dicealbmx(1) = a1
dicealbmx(2) = a2
write(nud,*) "Maximum sea ice albedo below 0.75 microns:",dicealbmx(1)
write(nud,*) "Maximum sea ice albedo above 0.75 microns:",dicealbmx(2)
write(nud,*) "Overall maximum sea ice albedo:",z1*dicealbmx(1)+z2*dicealbmx(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*glacalbmin(k)+bb3(k+1)*glacalbmin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*glacalbmin(k)+bb3(k+1)*glacalbmin(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dglacalbmn(1) = a1
dglacalbmn(2) = a2
write(nud,*) "Minimum glacier albedo below 0.75 microns:",dglacalbmn(1)
write(nud,*) "Minimum glacier albedo above 0.75 microns:",dglacalbmn(2)
write(nud,*) "Overall minimum glacier albedo:",z1*dglacalbmn(1)+z2*dglacalbmn(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*groundblend(k)+bb3(k+1)*groundblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*groundblend(k)+bb3(k+1)*groundblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
dgroundalb(1) = a1
dgroundalb(2) = a2
write(nud,*) "Ground albedo below 0.75 microns:",dgroundalb(1)
write(nud,*) "Ground albedo above 0.75 microns:",dgroundalb(2)
write(nud,*) "Overall ground albedo:",z1*dgroundalb(1)+z2*dgroundalb(2)
a1 = 0.0
a2 = 0.0
do k=1,41 !Compute insolation-weighted albedo below 0.75 microns
a1 = a1 + 0.5*(bb3(k)*oceanblend(k)+bb3(k+1)*oceanblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
do k=42,964 !Compute insolation-weighted albedo above 0.75 microns
a2 = a2 + 0.5*(bb3(k)*oceanblend(k)+bb3(k+1)*oceanblend(k+1))* &
& 1.0e-6*(wavelengths(k+1)-wavelengths(k))
enddo
doceanalb(1) = a1
doceanalb(2) = a2
write(nud,*) "Ocean albedo below 0.75 microns:",doceanalb(1)
write(nud,*) "Ocean albedo above 0.75 microns:",doceanalb(2)
write(nud,*) "Overall ocean albedo:",z1*doceanalb(1)+z2*doceanalb(2)
! call put_restart_array("zsolars",zsolars,2,2,1)
endif
@@ -684,9 +371,23 @@
call mpbcr(zsolar1)
call mpbcr(zsolar2)
call mpbcrn(dsnowalb,2)
call mpbcrn(dsnowalbmn,2)
call mpbcrn(dsnowalbmx,2)
call mpbcrn(dglacalbmn,2)
call mpbcrn(dicealbmn,2)
call mpbcrn(dicealbmx,2)
call mpbcrn(dgroundalb,2)
call mpbcrn(doceanalb,2)
call mpputgp('zsolars',zsolars,2,1)
call mpputgp('dsnowalb',dsnowalb,2,1)
call mpputgp('dsnowalbmn',dsnowalbmn,2,1)
call mpputgp('dsnowalbmx',dsnowalbmx,2,1)
call mpputgp('dicealbmn',dicealbmn,2,1)
call mpputgp('dicealbmx',dicealbmx,2,1)
call mpputgp('dglacalbmn',dglacalbmn,2,1)
call mpputgp('dgroundalb',dgroundalb,2,1)
call mpputgp('doceanalb',doceanalb,2,1)
end subroutine solarini
@@ -835,7 +536,7 @@
read(11,radmod_nl)
close(11)
write(nud,'(/," *********************************************")')
write(nud,'(" * RADMOD ",a34," *")') trim(version)
write(nud,'(" * RADMOD ",a34," *")') trim(rversion)
write(nud,'(" *********************************************")')
write(nud,'(" * Namelist RADMOD_NL from <radmod_namelist> *")')
write(nud,'(" *********************************************")')
@@ -890,6 +591,8 @@
if (nrestart > 0.) then
call mpgetgp('zsolars',zsolars,2,1)
call mpgetgp('dsnowalb',dsnowalb,2,1)
call mpgetgp('dgroundalb',dgroundalb,2,1)
call mpgetgp('doceanalb',doceanalb,2,1)
if (mypid == NROOT) then
! call get_restart_array("zsolars",zsolars,2,2,1)
zsolar1 = zsolars(1)
@@ -898,10 +601,16 @@
write(nud,*) "Read zsolar2 from restart: ",zsolar2
write(nud,*) "Read snow albedo <0.75 um from restart: ",dsnowalb(1)
write(nud,*) "Read snow albedo >0.75 um from restart: ",dsnowalb(2)
write(nud,*) "Read ground albedo <0.75 um from restart: ",dgroundalb(1)
write(nud,*) "Read ground albedo >0.75 um from restart: ",dgroundalb(2)
write(nud,*) "Read ocean albedo <0.75 um from restart: ",doceanalb(1)
write(nud,*) "Read ocean albedo >0.75 um from restart: ",doceanalb(2)
endif
call mpbcr(zsolar1)
call mpbcr(zsolar2)
call mpbcrn(dsnowalb)
call mpbcrn(dgroundalb)
call mpbcrn(doceanalb)
! call mpputgp(
else
call solarini
@@ -910,6 +619,8 @@
call mpbcr(zsolar1)
call mpbcr(zsolar2)
call mpbcrn(dsnowalb)
call mpbcrn(dgroundalb)
call mpbcrn(doceanalb)
endif
!
! determine orbital parameters
@@ -1038,8 +749,8 @@
allocate(zalb1(NHOR))
allocate(zalb2(NHOR))
zcc(:,:)=dcc(:,:)
zalb1(:) = dalb1(:)
zalb2(:) = dalb2(:)
zalb1(:) = dsalb(1,:)
zalb2(:) = dsalb(2,:)
dcc(:,:)=0.
if(nswr==1) call swr
dclforc(:,1)=dswfl(:,NLEP)
@@ -1047,8 +758,8 @@
dclforc(:,5)=dfu(:,1)
dclforc(:,6)=dfu(:,NLEP)
dcc(:,:)=zcc(:,:)
dalb1(:) = zalb1(:)
dalb2(:) = zalb2(:)
dsalb(1,:) = zalb1(:)
dsalb(2,:) = zalb2(:)
deallocate(zalb1)
deallocate(zalb2)
end if
@@ -1543,6 +1254,7 @@
! dsigma(NLEV) : delta sigma (half level) (used)
! dp(NHOR) : surface pressure (Pa) (used)
! dalb(NHOR) : surface albedo (used)
! dsalb(2,NHOR) : band-specific surface albedo (used)
! dq(NHOR,NLEP) : specific humidity (kg/kg) (used)
! dql(NHOR,NLEP) : cloud liquid water content (kg/kg) (used)
! dcc(NHOR,NLEP) : cloud cover (frac.) (used)
@@ -1934,22 +1646,22 @@
! Currently: we use the same albedo for both spectral ranges.
zra1s(:)=dalb1(:)
zra2s(:)=dalb2(:)
zra1s(:)=dalb(:)*(1-nstartemp) + dsalb(1,:)*nstartemp
zra2s(:)=dalb(:)*(1-nstartemp) + dsalb(2,:)*nstartemp
!
! set albedo for the direct beam (for ocean use ECHAM3 param)
!
dalb1(:)=dls(:)*dalb1(:)+(1.-dls(:))*dicec(:)*dalb1(:) &
dsalb(1,:)=dls(:)*dsalb(1,:)+(1.-dls(:))*dicec(:)*dsalb(1,:) &
& +(1.-dls(:))*(1.-dicec(:))*AMIN1(0.05/(zmu0(:)+0.15),0.15)
dalb2(:)=dls(:)*dalb2(:)+(1.-dls(:))*dicec(:)*dalb2(:) &
dsalb(2,:)=dls(:)*dsalb(2,:)+(1.-dls(:))*dicec(:)*dsalb(2,:) &
& +(1.-dls(:))*(1.-dicec(:))*AMIN1(0.05/(zmu0(:)+0.15),0.15)
dalb(:) = zsolars(1)*dalb1(:) + zsolars(2)*dalb2(:)
zra1(:)=dalb1(:)
zra2(:)=dalb2(:)
dalb(:) = (zsolars(1)*dsalb(1,:) + zsolars(2)*dsalb(2,:))*nstartemp + &
& (dls(:)*dalb(:)+(1.-dls(:))*dicec(:)*dalb(:) &
& +(1.-dls(:))*(1.-dicec(:))*AMIN1(0.05/(zmu0(:)+0.15),0.15))*(1-nstartemp)
zra1(:)=dsalb(1,:)*nstartemp + dalb(:)*(1-nstartemp)
zra2(:)=dsalb(2,:)*nstartemp + dalb(:)*(1-nstartemp)
! Ice-free ocean albedo is min(0.05/(phi+0.15), 0.15)--reflection and scattering is higher at low phi
endwhere
plasim/src/seamod.f90
+8
View File
@@ -141,6 +141,10 @@
drhs(:)=drhssea*(1.-dicec(:))+drhsice*dicec(:)
dalb(:)=albsea*(1.-dicec(:)) &
& +dicec(:)*AMIN1(albice,0.5+0.025*(273.-dts(:)))
dsalb(1,:)=doceanalb(1)*(1.-dicec(:)) &
& +dicec(:)*AMIN1(dicealbmx(1),dicealbmn(1)+0.025*(273.-dts(:)))
dsalb(2,:)=doceanalb(2)*(1.-dicec(:)) &
& +dicec(:)*AMIN1(dicealbmx(2),dicealbmn(2)+0.025*(273.-dts(:)))
dz0(:)=dz0sea*(1.-dicec(:))+dz0ice*dicec(:)
endwhere
endif
@@ -249,6 +253,10 @@
drhs(:)=drhssea*(1.-dicec(:))+drhsice*dicec(:)
dalb(:)=albsea*(1.-dicec(:)) &
& +dicec(:)*AMIN1(albice,0.5+0.025*(273.-dts(:)))
dsalb(1,:)=doceanalb(1)*(1.-dicec(:)) &
& +dicec(:)*AMIN1(dicealbmx(1),dicealbmn(1)+0.025*(273.-dts(:)))
dsalb(2,:)=doceanalb(2)*(1.-dicec(:)) &
& +dicec(:)*AMIN1(dicealbmx(2),dicealbmn(2)+0.025*(273.-dts(:)))
dz0(:)=zz0(:)*(1.-dicec(:))+dz0ice*dicec(:)
endwhere
!
plasim/src/specblock.f90
+1428
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/.ipynb_checkpoints/combinedspec-checkpoint.ipynb
+681
View File
@@ -0,0 +1,681 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"ids = [0,1,2,3,6,12,13]"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"andesitefine\n",
"andesitesolid\n",
"basaltsolid\n",
"brownsand\n",
"dunesand\n",
"yellowloam\n",
"yellowsand\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [],
"source": [
"weights = np.zeros(len(ids))+1.0/7.0\n",
"weights[4] /= 2.0\n",
"weights[0:4] += weights[4]/6.0\n",
"weights[5:] += weights[4]/6.0\n",
"offset = weights[0]*0.5\n",
"weights[0:2] += offset\n",
"weights[2:4] -= 2*offset/4.0\n",
"weights[5:] -= 2*offset/4.0\n",
"offset = weights[2]*0.7\n",
"weights[2] += offset\n",
"weights[:2] -= offset/5.0\n",
"weights[3] -= offset/5.0\n",
"weights[5:] -= offset/5.0\n",
"weights[0] *= 2.0\n",
"weights[1:] -= 0.5*weights[0]/6.0"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0.43178571 0.17991071 0.16133929 0.06383929 0.03544643 0.06383929\n",
" 0.06383929]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 10,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 11,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 12,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f8d7ec5dd90>"
]
},
"execution_count": 12,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4lFX2xz/v9Jn0CqGG0EMSkpBQhFCWFXRBiorYQURdXMuua9cVLLi6unZdf1ZUYFUsa0FFRWJCJ6GXQChJSCG9ZybT7u+PSQZCJr1C3s/z8JB55977nhnCmTPnnvs9khACGRkZGZkLH0VXGyAjIyMj0z7IDl1GRkbmIkF26DIyMjIXCbJDl5GRkblIkB26jIyMzEWC7NBlZGRkLhJkhy4jIyNzkSA7dBkZGZmLBNmhy8jIyFwkyA5dRkZG5iJB1Zk38/f3F8HBwZ15SxkZGZkLnuTk5AIhREBT4zrVoQcHB5OUlNSZt5SRkZG54JEkKb054+SUi4yMjMxFguzQZWRkZC4SZIcuIyMjc5HQqTl0GRmZ7oHFYiEzMxOTydTVpsicg06no1+/fqjV6lbNlx26jEwPJDMzEw8PD4KDg5EkqavNkQGEEBQWFpKZmcmgQYNatYaccpGR6YGYTCb8/PxkZ96NkCQJPz+/Nn1rkh36BYix3ExVmbmrzZC5wJGdefejrf8mskO/wDAbrXz+7C6+fCEZm9Xe1ebIyHQZ7u7urZq3dOlSDh8+DMCzzz7brDnr1q1j5MiRTJs2jaSkJO65555W3bujkZrTJFqSpL8BSwEBHABuAYKATwE/IBm4SQjRaNgYExMj5INFLac030h+Rjl9h3mz/ZuTHN6cDUDMrGCGjumFpACDlxatXt4SkWkeR44cYeTIkV1tRptwd3enoqKiU9a47LLLePzxx5k0aVKb7tccXP3bSJKULISIaWpukxG6JEl9gXuAGCFEGKAErgWeB14WQgwBioFbW2G7TAPYbHbSDxVSkFnO2ie3s+Hdg3y2cheHN2cTNWMA/Uf6kLQ+jf8+tYO1K3bwwQOJbHj3IJkpRTTnQ1pGpjswb948xowZw6hRo3jnnXcAh5N97LHHGD16NOPHjyc3NxeAU6dOMWHCBMLDw3n88cfrrPPCCy8QGxtLREQEy5cvB6CyspJZs2YxevRowsLC+OyzzwCYOnUqSUlJPPzwwxiNRiIjI7nhhhsAWL16NWPHjiUyMpI77rgDm83GU089xebNm7n11lt54IEHiI+PZ/bs2QCsWLGCJUuWMHXqVEJCQnjttdecNrlaq6NpbkinAvSSJFkAA5AD/AG4vub5j4AVwH/a28CeStL6NJJ+SEOlVaLWKIm7aRi/fXwEn94Gxl4xCAmJM6dKqSozI+yC3LQyju44w/HkPPz7uzM4OhCDh4Z+I33w9NM3+75CCDKPFBM0xAtJKXF02xkGRwegNbSujEqm+/Pkd4c4nF3WrmuG9vFk+RWjmhz3wQcf4Ovri9FoJDY2lquuuorKykrGjx/PypUrefDBB3n33Xd5/PHHuffee1m2bBk333wzb775pnONn3/+mdTUVHbu3IkQgjlz5pCQkEB+fj59+vRh/fr1AJSWlta593PPPccbb7zB3r17AUdk/Nlnn7FlyxbUajV33nkna9as4YknnuC3337jxRdfJCYmhvj4+DrrpKSksGnTJsrLyxk+fDjLli3j+PHjLte6+eab2/jONk6TDl0IkSVJ0otABmAEfsaRYikRQlhrhmUCfTvMyh5GQWY5u39Ox6e3geIzVUy8fjjDx/XGt48bBk8NKrUSgL7DfJxzho3tzYT5gzm2M5e9v2Sw45uTAKh1SqbeMJxhsb2bde+MQ0V8/8Y+goZ4YfDUcmJ3HqX5RibMH9z+L1Smx/Paa6/x9ddfA3D69GlSU1PRaDTOCHjMmDH88ssvAGzZsoUvv/wSgJtuuomHHnoIcDj0n3/+maioKAAqKipITU0lLi6Ov//97zz00EPMnj2buLi4Rm3ZuHEjycnJxMbGAmA0GgkMDGzyNcyaNQutVotWqyUwMJDc3NxWr9VWmnTokiT5AHOBQUAJsA64rLk3kCTpduB2gAEDBrTOyh6CzWpn94Z0kn5MQ6tXMfdvUSgUEnoPDQAB/T0ana9SKwmd2IfQiX2wmG2UFRiJX32UX94/zMk9BUy8eggevrpG1zi+Ow+VWkHuqTLsNoHeQ83x5FzGzwuRqyIuUpoTSXcE8fHx/Prrr2zbtg2DwcDUqVMxmUyo1Wrn75pSqcRqtTrnuPodFELwyCOPcMcdd9R7bvfu3fzwww88/vjjTJ8+nSeeeKJBe4QQLFq0iH/+858teh1ardb5c629rV2rrTSnyuWPwCkhRL4QwgJ8BUwEvCVJqv1A6AdkuZoshHhHCBEjhIgJCGhS/bHHYbfZObk3H0u1je/f2MfO704xODKAa/8xDjcvrdOZtxS1RolfH3fm/z2KcXMGkXaggLUrtrN/02mE3XWO3Wazc2pvPoOjA5n71yguXRLK+HmDKSswkZ9R3paXKSNTj9LSUnx8fDAYDKSkpLB9+/ZGx0+cOJFPP/0UgDVr1jivz5w5kw8++MC5uZmVlUVeXh7Z2dkYDAZuvPFGHnjgAXbv3l1vTbVajcViAWD69Ol88cUX5OXlAVBUVER6erNEDuvRnmu1hObk0DOA8ZIkGXCkXKYDScAm4GoclS6LgG86ysiLmW3/O8neXzLwCtRTmmckbuFQIqb1b7f1FUoFMX8axLCxvfn9v0dJ/CyV9IOFzP7LaCRF3Wgn62gx1VVWBkcH0GeoNwCmSgu/rzlKalIegQM9280uGZnLLruMt99+m5EjRzJ8+HDGjx/f6PhXX32V66+/nueff565c+c6r8+YMYMjR44wYcIEwLGpunr1ao4fP84DDzyAQqFArVbzn//U3+K7/fbbiYiIIDo6mjVr1vDMM88wY8YM7HY7arWaN998k4EDB7b4tYWGhrbbWi2huWWLTwILASuwB0cJY18czty35tqNQojqxtaRyxbrcjw5jw3vHiRwoAd56eUEBnty9YNj6jna9kIIwe4N6Wz/30nm3BNJ/1DfOs9vWp1C6q5clrw4yZmnB/j+jX3knipj7t8i8e/XeNpH5sLgYihbvFjp0LJFACHEciHECCFEmBDiJiFEtRDipBBirBBiiBBiQVPOXMbhULNTS7BabFSWVhO/NoXAYE+ufHAMl98RzmW3h3WYMwdH/jFy+gC0bioOb8mu93zGoUIGjPKt48wBJl49BJVGwdcv7qYop7LD7JORkWkb8kmUTuTE7nw2vHsQD18ddrvAWm1n+qKRKJUKQqI6Z39BqVYwfFxvDiZkYaqwoHN3lCOWFRqpKK4maoZPvTk+vd2Yd180q/+xjfSDhfgGuXWKrTIyMi1DPvrfiezbeBp3Hy0efjoC+rsz666ILnGOoRP7YLcKju4447yWc9xRoxs0xMvlHK8APVo3FaV5VZ1io4yMTMuRI/QOxGa1c/pwEVVlZqqrrJw5WcqkBUMZPb39Nj1bg19fdwIGeJCalOu0Jed4CRqdEr++DetjeAcaKMkzdpaZMjIyLUR26B1ExqFCNq1OoaL47NaC1qBixCVBXWjVWQaE+rLn5wzMJisanYqcE6X0HuyFopEcvneggaxjxZ1opYyMTEuQHXoHUJJbxU81ufJZ1w/Hr687dptArVV2GwGtPkO9Sf4pndxTZQT096Aou5KhMb0aneMVqOfojjNYzDbUGmWjY2VkZDofOYfezthtdn569yBKpYLZd40mONwfD18dXgF6DJ6tOyTUEfQe7IUkQXZqCdnHSwDoM9R1/rwW70ADAGX5ctpFpuvpTPnclrB48WK++OKLevc6l1WrVnHXXXe1+71lh97OHE/OozCzginXD2/ymH1XotGpCBjgQXZqCYcSs9B7qAkMbvzgkFegQ+SrRN4YlbmAee+99wgNDQU6xqE3dK/OQHbo7YiwC5J/Sse3jxuDO6kMsS0EDfUm50QpGYeKiPzjgHr15+dTG6GXyhujMu3EhSCfa7PZWLx4MWFhYYSHh/Pyyy8DsHfvXsaPH09ERATz58+nuLj+/lLtvQA+/PBDhg0bxtixY9myZUsHvJtyDr1dObW/gKLsSi5dEtqhB4Taiz5DvNn362m0birCpjQtlqnRq9B7aijJlSP0i4ofH4YzB9p3zd7hcPlzTQ67EORzR40aRVZWFgcPHgSgpMSRorz55pt5/fXXmTJlCk888QRPPvkkr7zyisvXmZOTw/Lly0lOTsbLy4tp06Y51SHbEzlCb0cOJWTh7qNlyJiOl8lsD/oM9UalURA9YyAaXfM+270D9XLKRabdeO2115yReEPyuWlpaYBDPve6664DHPK5tZwrnxsdHU1KSgqpqamEh4fzyy+/8NBDD5GYmIiXV+N7ROdK3kZGRrJx40ZOnjxJSEgIJ0+e5O677+ann37C09OT0tJSSkpKmDJlCgCLFi0iISGhwbV37NjB1KlTCQgIQKPRsHDhwra8bQ0iR+jtRFmBkYwjRcTOGoRCeWF8Turc1Cx6diJat+b/Grj76MhNa99mCDJdTDMi6Y7gQpLP3bdvHxs2bODtt9/m888/d6ZduhsXhue5ADiyNQcJGNlN6sybi85d3SKdc527GlOFpQMtkukpXCjyuQUFBdjtdq666iqeeeYZdu/ejZeXFz4+PiQmJgLwySefOKN1V4wbN47ff/+dwsJCLBYL69ata8E71XzkCL0dsNvsHN6SzYAwv25d2dIe6N3VmI1WbDY7ygvkm4hM9+RCkc/V6/Xccsst2O12AGcE/9FHH/HnP/+ZqqoqQkJC+PDDDxu0PSgoiBUrVjBhwgS8vb2JjIxs8fvVHJoln9teXKzyuSf35vPj2wf407JwBo3u/tUtbeFAfCYJnx7jln9N6lZ19TItQ5bP7b50uHyuTOMLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 13,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 14,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.sum(wtspec,axis=0)"
]
},
{
"cell_type": "code",
"execution_count": 15,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xd4HNW5x/Hv2V31Xl3VLFly773gQjU9EFqoCeDQLiUhCRCScAkkuQklQBKIMS2U0A0OmFDcjatc5SrZsmVJltV7L+f+IblL1q62zO7q/TyPH8uzszMvZv3T0ZlTlNYaIYQQns9kdAFCCCEcQwJdCCG8hAS6EEJ4CQl0IYTwEhLoQgjhJSTQhRDCS0igCyGEl5BAF0IILyGBLoQQXkICXQghvITFlTeLjo7WiYmJrrylEEJ4vM2bN5dorWO6O8+lgZ6YmEh6erorbymEEB5PKZVjzXnS5SKEEF5CAl0IIbyEBLoQQngJCXQhhPASEuhCCOElJNCFEMJLdBvoSqk4pdRypdRupdQupdQDHcefUErlK6W2dfy62Pnlit6qubWNhuZWMgurKalpNLocIdySNePQW4Cfa623KKVCgM1KqW87Xntea/2M88oTArTWXPfPdWzLraBNw6zUGN76ySSjyxLC7XTbQtdaF2itt3R8XQ3sAQY4uzDh2Vpa2xx2rdVZJWw5XMG8Ef3w9zGxMrOYmsYWh11fCG9hUx+6UioRGAts6Dh0n1Jqh1LqdaVUhINrEx5o7YESrn55LamPf8W1/1xH+qEyu673742H+flH2+kT6sdz143mzR+3t8zXZBU7olwhvIrVga6UCgY+AR7UWlcBLwPJwBigAHi2i/fNV0qlK6XSi4vlH6E3W7g6mxsXbqC4upFbpiaSU1rLD19Zx+8+30ltD1rUlfXNPLF4F7Ehfrx0wzj8LGbGJ0QQ6m9h2d4iJ/wXCOHZrAp0pZQP7WH+rtb6UwCtdaHWulVr3Qa8CnTaqam1XqC1nqC1nhAT0+3aMsKNtbZp2tp0p68t2prHU1/uYd6Ivvz3wZk8cflwlj88m9umJfKv9Tlc9MIqcsvqbLrff7YfobGljT9eNZJJSZEA+JhNzEqLZdne4i5rEaK3smaUiwJeA/ZorZ876Xi/k077AbDT8eUJd3GwpJbpf1rG4Me/4voF62hobj3+WkZeJb/6OIMpgyL563VjCfRtf9Ye6GvhicuH8+FPp1JZ18wdb6Vb3ffd2qZ5d8Nh0vqEMHJA2CmvnTsklpKaRjLyK48f01rb/A1DCG9jTQt9OnAzMPe0IYp/VkplKKV2AHOAh5xZqDBORV0Tt7+5iabWNm6eksD67DJeWXkAaO8Wuee9zUQH+/KPG8fjaznzIzUxMZJ/3DiefYXVLFydbdU93/j+IHsKqrhnTjLtbYoTZqXGYFKwtKPbRWvN45/tZOafl7MyU7r1RO/V7bBFrfUaQHXy0hLHlyNsUdXQzO4jVaTEBhMd7OeUe5TUNHLLaxvJK6/n3TsnMzExkpKaRv6x/ABpfUJYuOYgBRUNfPDTqUQG+XZ5nRmDo5mVGsN7Gw5z75wUfMxdtyWaWtp4cWkWs9NiuHx0/zNejwjyZVx8BMv3FvGz81PZeLCMdzccBuDtdYeYlSpde6J3kpmiHkprzQP/3sr1C9Yz4anvOO+5lWQWVjv0HpX1zVz3z3Vkl9Tw6q0TmJjY3o/920uH0TfMn7vf3cLWw+W8eMNYxid0P8jp1mkJFFU38t+dR8963toDJVQ1tHDT5IQzWufHzB0aS0Z+JYVVDXyYnkewn4UfT09k2d4iiqtl4pHonSTQPYjWmqe+2M01r6zlkU8yWL6vmNtnJPH4JUOprG/mqn+s5ZtdZw9LW+718EfbySmt443bJp3S6o0N9Wfpz2fxwvVjeO22iVw8st9ZrnTCrNRY+ob6dxvo/915lCBfMzMGR3d5zrlD+gDw0rIslmQUcOmoflwxZgBtGjbZOVRSCE/l0h2LRM+0tmlKaxp5eeUB3vj+EP3C/NmRV8m5Q2J5dN4QLGYTF4/sx53/Smf+25uZkRLNI/OGMOK0h4m2eP37Q3y7u5DfXDqMqclRZ7zuYzZxxRjb5peZTYpJSZFsOFiK1rrT1veRinqWZBQwd2gf/H3MXV4rtU8wk5MieWf9YfqF+fPTWckMjAjA38fExoNlVn+TEcKbSKC7uZrGFq76x/dkFtYAcOPkeJ66csQZYdg/PIBP7p7GO+tz+MeKA1zzyjo+vWcaQ/uF2nzP3LI6nvl6H+cOieUn0xMd8Z9x3MTECBZvP0JeeT1xkYGnvNbQ3Mpd72ymTcMD5w4+63WUUrx35xRWZxUzckAYUR3PEMbGRZCeIy100TtJl4ube+brfWQV1fCLC9P48v4ZPP2DkV32K/v7mLlj5iD++8BMQvwtzH87nYq6Jpvu19am+c3nOzEp+H0n3zjsNT6hvR++s9D9zWc72ZFXyXPXjiYlNrjba5lNitlpscfDHGBcQji7j1TR1OK4pQeE8BQS6G7s1VXZvLn2ELdOTeTeOSkM729dF0psqD+v3DyewspG7n5ni9Xh1tqmefTTDFbsK+aXFw2hf3iAPeV3Kq1vCCF+FjYdKj/l+LbcCj7anMe9c5K5YHjfHl+/f3gAbRrKbfxGJoQ3kEB3U8v3FfH0kj1cMqofj148xOb3j4uP4E9Xj2RddikPf7TdqlmVf1yyhw/Sc7n/3MHcMjWhJ2V3y2xSjEuIYEN26SnH3994mAAfM3fNSrbr+lFB7a11GekieiMJdDfU3NrG77/YzaDoIJ6/dgx+lq4fDp7NVeMG8suL0li8/Qj3vreFIxX1XZ6bU1rLm2sPcf3EOH52fqrDu1pONi05igPFtRRVNQDtwyMXbz/CZaP7EeLvY9e1Y0Lax8LLmumiN5JAd0MvfJdFdnEtv75kaKczL21x96xkfnlRGsv2FnHusyt5cWnWKdP2j/nrd1lYzIqfnZ9q1/2sMS25fTjiuuxSWts0D32wjaaWNm6Zmmj3tY+10Etrzt7l0tnfgRCeTka5uJGCynre/P4Q/1yVzXUT4jh3aB+7r6mU4p7ZKVw2qj9/WLKH577N5MP0XH598VAuGtEXpRTph8r4bFs+888ZRGyovwP+S85uWP9QQv0trN1fSkVdM8v2FvH7K4bbNczymOiQ9kDvqoW+cHU23+wqZFteBW//ZBKTB505JFMITyWB7iaaWtq49fWNHCiu5cLhffjfK4Y79PpxkYG8fNN41h4o4cn/7Obud7cwMTGCK8cO4P++2kt8ZCB329l/bS2zSTFlUBTf7D7K17uPMi05ipumOKbPPsjXjL+PqdNAr6xr5qkv9xz/8y8+3sFXD8wkyE/+GQjvIF0ubuK1NQfJLKzhlZvG88+bJ5x1Uo09piVH88X/zOD3V44gv7yeXy/aSbCfhXfvmEx4YNdrsTjag+elEh7oS3VDC49fMsxhffZKKaKC/DrtctnYMYP01Vsm8MH8KRwuq+M3n+2kVZbhFV5CmiZuYNeRSp7/LpMLhvXh/GH2d7N0x2I2cfOUBK6fGMfyvUUMHxDGACcMUTybYf1D+e+DMymubmRgRGD3b7BBdIgfxZ200Ddkl+JrMTFzcDT+PmYePG8wf/0ui+TYYO6dk+LQGoQwgrTQDXa0soH73ttKRKAPf7xqpEvv7WM2ccHwvi4P82P8LGaHhzlAdJAvJZ200DccLGNMXPjxn34ePC+VuUNiWbg6m/omeUgqPJ8EuoGyi2u48u/fU1TVwEs3jDtlxqPouahgX8pqT22hVzU0s+tIJVNOewj603MGUV7XzJKMAleWKIRTSKAbpLSmkdve2ERzaxsf3z3t+BZrwn5hAT5U1Z+6M1L6oTLaNEw57e95UlIkA8ID+GLHEVeWKIRTSKAb5LeLd3G0qoFXb53QowW0RNdC/X2ob249ZcmDTYfK8TErxsafum67UopLR/djdVYJ1Q3Nri5VCIeSQDfA5pxyvtxRwN2zkhkX3/3GEMI2YYHts01PDujMo9UkxwQT4Hvm6KFZqTG0tGk2HpRVGoVnk0B3sebWNp78zy5iQvyYf84go8vxSqEdywdU1p8I9KyiGpK7WMFxXHwEfhYTa/aXuKQ+IZxFAt3Fnvs2k+15lTxx2XCZ0OIkoQHtf69VDe396A3NreSW1zG4i0D39zEzc3AMb3x/iMl/+I6/L99PS6ssvys8jwS6C63KLOblFQe4YVI8l4ySHXWc5VgLvaqjhX6guAatYXBsSJfv+cNVIxgbH05hVSN/+XofLy7b75JahXAkCXQXKapu4Gcfbie1TzC/vXSY0eV4tdCAjkDv6EPflV8FcNZNM2JD/Fl0z3QO/vFizh0Sy783HpZWuvA4EuguUFnfzG2vb6KmsZmXbhjX6YM54TgnWujtXS4fpueSFB3UZZfLyZRS/GhyPMXVjSzamu/UOoVwNAl0J2tpbeOutzeTVVTNKzeNJ61v1z/2C8cIO6mFvvtIFek55dw4OR6Tybr1YuYOiWXkgDBeXJZFs7TShQeRQHeyP321l3XZpfzpqlHMTos1upxewd/HhI9ZUVnfzDsbcvD3MXHN+Dir36+U4qHzB5NbVs8nm/OcWKkQjiWB7kTrs0tZuOYgt05N4OrxA40up9dQShHq70NJdSOfbc3nslH9j49Nt9actFhGx4XzyKcZ7Dta7aRKhXAsCXQnaWlt44nFuxgQHsCjFw81upxeJzTAh4z8SuqaWpkxONrm9yul+OWFaQA89eVuR5cnhFNIoDvJx5vz2Hu0mscvGeq0tc1F10L9LeztaFknRQf16BrTU6L5xYVprM4qIbu4xpHlCeEUEuhO8s6GHIb0DeGiEX2NLqVXOnlZ3sQeBjrA5aP7A7Bsb5HdNQnhbBLoTrDrSCU786u4fmKcw3biEbaZMujEqorHhjH2RFxkIGPjw3l1dfYpi30J4Y4Line truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 16,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 16,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXdYFGfXh+/ZSlt6FwXBBtJU7D3GXmNNolFjitH0Zuqrxk8TTUyvrxpjiib2NzGWqLEbK9hFBBEEpPe2bJvvj1WUSC9imfu6vGSnPHN2Wc6cOc95fkcQRREJCQkJibsfWWMbICEhISFRP0gOXUJCQuIeQXLoEhISEvcIkkOXkJCQuEeQHLqEhITEPYLk0CUkJCTuESSHLiEhIXGPIDl0CQkJiXsEyaFLSEhI3CNIDl1CQkLiHkFxOy/m7Ows+vj43M5LSkhISNz1hIeHZ4ii6FLVcbfVofv4+HD8+PHbeUkJCQmJux5BEOKrc5yUcpGQkJC4R5AcuoSEhMQ9guTQJSQkJO4RbmsOXUJC4s5Ar9eTmJiIVqttbFMkbsLCwgIvLy+USmWtzpccuoTEfUhiYiIajQYfHx8EQWhscyQAURTJzMwkMTGR5s2b12oMKeUiIXEfotVqcXJykpz5HYQgCDg5OdXpqalKhy4IQlNBEHYLgnBeEIRzgiC8eG37XEEQkgRBOHnt35BaWyEhUQEmrQHRaEKXkI9Ja2hsc+4pJGd+51HX30l1InQD8KooigFAF+BZQRACru37VBTF0Gv/ttTJEgmJf6FPKeTq/x0m6d2DpH19ktytlxvbJIk7CBsbm1qd9+STT3L+/HkA3n///Wqds3btWvz9/enbty/Hjx/nhRdeqNW1G5oqHbooismiKEZc+zkfiASaNLRhEncPosGEsUBX7+PmbotDUMrQ9PJC5W1L8ZkMRKOp3q8jcX+xbNkyAgLMMWl1Hfr333/P0qVL2b17N2FhYXzxxRcNaWKtqVEOXRAEH6AdcOTapucEQTgtCMJyQRAc6tk2iTscQ46WzF/OkzT3EMnzj5C+/Cwl8Xl1HlefVkTq5xFoL2Sh6dMUu8HN0fTywlRkoORSbj1YLnGnMGrUKDp06EDbtm1ZsmQJYI6833nnHUJCQujSpQupqakAXL58ma5duxIUFMS7775bZpyPPvqIjh07EhwczJw5cwAoLCxk6NChhISEEBgYyOrVqwHo06cPx48f580336S4uJjQ0FAmTpwIwC+//EKnTp0IDQ1l+vTpGI1G5s2bx4EDB3jiiSd4/fXX2bNnD8OGDQNg7ty5TJs2jT59+uDr61vG0Zc3VkNT7SoXQRBsgPXAS6Io5gmC8C3wf4B47f+PgWnlnPc08DRAs2bN6sNmiTuA4qgsslZGAmDTyR3BQk7hsRTSvz2FZYgLdoObo7BX12rsvL+vYMjSYjekOTbdPAGwaO2AoJZTdCodi1ZS7FCfvLfpHOev1v1GfDMBnrbMGd62yuOWL1+Oo6MjxcXFdOzYkTFjxlBYWEiXLl1YsGABs2bNYunSpbz77ru8+OKLzJgxg8mTJ/P111+XjrF9+3aio6M5evQooigyYsQI9u3bR3p6Op6enmzevBmA3NyywcDChQv56quvOHnyJACRkZGsXr2agwcPolQqmTlzJitXrmT27Nns2rWLxYsXExYWxp49e8qMc+HCBXbv3k1+fj6tW7dmxowZxMTElDvW5MmT6/jJVk61HLogCErMznylKIobAERRTL1p/1Lgz/LOFUVxCbAEICwsTKyrwRINj2gwoUsqQKaWo3C1QpCVnajRXswm8+fzKF2tcJoUgMLRAgBN76bk700gf18S2vOZOE0JwKJFzZyvMbeE4jMZ2HTzRNPLq3S7oJBh2daJ4nOZiA+ZEBRSgda9wBdffMHGjRsBSEhIIDo6GpVKVRoBd+jQgR07dgBw8OBB1q9fD8Bjjz3GG2+8AZgd+vbt22nXrh0ABQUFREdH07NnT1599VXeeOMNhg0bRs+ePSu15e+//yY8PJyOHTsCUFxcjKura5XvYejQoajVatRqNa6urqSmptZ6rLpSpUMXzNOu3wORoih+ctN2D1EUk6+9fAg42zAmStxORL2RjBXnSlMbFm0ccZocUOrUdYn5ZmfuYoXLk0HIrG4sgJCp5dgN8MG6ozsZK86R+dN5XJ4KRtVUU+3r5+6IB1HEpqvHLfssg10oikhDG52Npb9T6faSy7kgF1A3s63t276vqU4k3RDs2bOHnTt3cujQIaysrOjTpw9arRalUlla7SGXyzEYblQ3lVcFIooib731FtOnT79lX0REBFu2bOHdd9+lX79+zJ49u0J7RFFkypQpfPDBBzV6H2r1jSfR6/bWdqy6Up0wpzvwGPDAv0oUPxQE4YwgCKeBvsDLDWmoRMNjKjGS8XMkJbG52A1tjqZvU7QXsig4dBUAQ0YxGT+eQ2atxHlaYBlnfjMKBwuzs7dQkPNnLKJYvQezolPpFB1PRdO7KQony1v2W7SwR7BUUHw6o3RbYUQq6UtOk/nTeUS9NGF6N5Gbm4uDgwNWVlZcuHCBw4cPV3p89+7d+e233wBYuXJl6faBAweyfPlyCgoKAEhKSiItLY2rV69iZWXFpEmTeP3114mIiLhlTKVSiV6vB6Bfv36sW7eOtLQ0ALKysoiPr5bI4S3U51g1ocoIXRTFA0B5xZFSmWIDU3QyDV1iAQoXS9TetijdrRvsWoYsLZk/nUefWojD6JZYd3RHFEX0yYXkbrmMIb2Y4rMZIIo4P9kWuUZV6XhyjQpNn6bk/HEJ3eVc1L72lR4viiJ5u66g9LDGtr93uceUpl3OZCDqTYiiSO6fscgdLTBmaik8kYpNp1sje4k7k0GDBvHdd9/h7+9P69at6dKlS6XHf/755zz66KMsWrSIkSNHlm4fMGAAkZGRdO3aFTBPqv7yyy/ExMTw+uuvI5PJUCqVfPvtt7eM+fTTTxMcHEz79u1ZuXIl8+fPZ8CAAZhMJpRKJV9//TXe3uV/HysjICCg3saqCUJ1o6f6ICwsTJT00CtGFEX0VwtRuFhiSCsi7ZtTIIrmaWfBnKO27d8MQV6/+WNjbglp35zCVGLA6VH/MpOOxkI9OZsuUXwmA7lGhfMTgShdrKr3fvRGkhcdQ+lpg8u0wEqP1SUVkPblCexHtcCmS8VOWXsxm4zlZ3F6zN9s24YYXJ4OJmfTJVDIcHs2tHpv+j4nMjISf3//xjZDohzK+90IghAuimJYVedKWi53CKIokvdXHPl7EkEhgAhyjRK3F9tj0hrJ23WF/D0JaGOysRvgg7qlfb2s9DNpDWT8cA6T1oDL08GompRdrCG3VuL0cBuMw/UIcgGZRfW/MoJSjlV7NwoOJmEqMSJTyys8tig8FRQCVsHOlY6p9rNDZqUgZ/NlTIV6lJ7WqJrbYhHgRP6uK5iK9BWmgiQk7nUkh97IlMTnoY3KouRSLrr4PKzauSKzVoIMrDu4IbNSIrNS4ji2FRatHMjZFEvG8rMoPaxxnOiP0vnWXHN1EUWR7PXR6NOKcH687S3O/Gbk1rVzkhYt7SnYl0hJXC6WrR3LPab4fCYFh69iFepapTMW5DIcJ7Qmd3s8CicLHMa0RBAELFrak//3FbSXcrEKqvymICFxryI59EZEn1pIxrIziAYTCidL7Ef6Yd3Z45YywetYBbtgGeBE0al0crfEkrHsDK4zQpDb1a7eu+hYKsVnMrAb7INFy4ap7Vb72IJCoCQ6p1yHXhKbS+aqSJRNNNiPbFGtMS1aO2Lxr7FUTTUIajklMdmSQ5e4b5EceiNhXmUZiaCW4z6rY5WTjNcRFDKsO7ihdLMifekZ0r8/i8v04BpH0NqoLHI2XULdwh6bnl5Vn1BLBKUctY8dJTE5t+wz5paQ8eM5FA4WOE9tW2lKpsrryGUoPa3RpxXVxVwJibsaaXVGI6DPKCbty5MY83Q4Pdqm2s78ZlReGpwmB2DIKiZj6ekaaakUHEkmY8U5FM6WOE5oXeETQX2hbmGPPqUQY35ZG/P/uYqoM+I0pW2tUzo3I7dVY8qrf00ZCYm7Bcmh32ZEk0j2uouIRhHXZ0OrLOerDAs/e5yntMWQqSV9yRn0qYVVnqNLLiTnfzFYtHLA5ZmQWt1MamzntaoZbVRW6TaT1kDh4WQsg5zrNA9wM3KNCmOertp17xIS9xqSQ7/NFOxPRBeXh/0wX5Su1Sv/qwyLlg44P94WY24JqZ9FkPnrhQrTDqIokvN7DDJLBY4TWtcpxVETlB7WyG1VaCPNDl00ieT8fgmxxFhmeX9dkduqzPXpJQ0vgiTR+NxO+dyaMHXqVNatW3fLtW5mxYoVPPfcc/V+bcmh3yZMxQYKDiaRuzUOyyBnrDrUn66D2tce91kd0fT2QhuZSeqn4WStjkKfUVzmuKLwVHRxedgNbn5bS/sEQcDC3xFtdA6iwUTejniKTqRhO8AblVf1ZQGqQm5rftowVpB2MWkN5rmDP2PJ3RYnRfL3KbWRz62Pa90OJId+G9CnFZG86Cg5m2JRNbfFcXyreu8WI7dWYjeoOe6zOmLTswnFZzNI/eQ4WWui0CXkU3QijewNMah8bLHq4Fav164OFq0dEXVGcrfFkb8nAasObmj6Nq3Xa9xw6CXl7s/blUDGD+coOJBE/p4ECo+l1Ov1JWrO3SCfazQamTp1KoGBgQQFBfHpp58CcPLkSbp06UJwcDAPPfQQ2dnZt7y/69cC+OGHH2jVqhWdOnXi4MGDDfBpSlUuDY5oMJH12wUEmYDz9GBU3rYNOgkpt1FhP8QXTU8v8vcmUngkmaIIs56E2teujNDW7cSipT1KLxsKDiQhs1VhP9y33m9qMltz+WZFEbo2KgtBKcP5iUDydiWQ8/sllK5WqH3s6tWOu46tb0LKmfod0z0IBi+s8rC7QT63bdu2JCUlcfasWX8wJ8dLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0),label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 17,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 18,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 19,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 20,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 21,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt0G+WdP/73M6PRZWT5JmPnYjk4MddkKaXZFnoByv4K3YRwKUm3LbQsUOgWzm5PKW23uy3fUOgutN1et7QpZSFNlt/215aTFAptoZRbuwmQAKUQAiFOIudiI1u2ZY0uo5nn98dIToIlWZJ1g+/7dU7OMZ7RPG+PhP3Ro2c+I6SUICIiIiKi5qI0OgAREREREc3EQp2IiIiIqAmxUCciIiIiakIs1ImIiIiImhALdSIiIiKiJsRCnYiIiIioCbFQJyJ6ixJC7BFC/D81OrYUQgzU4thERORgoU5EVCEhxEeEEFuFEHEhxEj262uFEKLR2UohhHinEOIBIcS4EGJMCPGUEOKKRuciIiIHC3UiogoIIT4H4LsAvgFgHoAeAP8A4D0A3AUeo9Yt4CyEEGcAeATAYwAGAAQBfBrA39Z4XFctj09E9FbCQp2IqExCiDYAXwVwrZTyF1LKmHQ8K6W8VEqZyu53txDih9lZ6ziA9wsh2oQQPxVCvC6E2CuE+LIQQsnuv1YIsfGIcY7NLjFxZf/7USHEzUKIPwohYkKI3wkhuo7Y/+PZY44KIf51lh/jGwDWSylvk1JGsvm3SSk/fMTxrhZC7MrOtv9KCLGg0Pko8jP9fTbvt4UQowDWVnDKiYj+r8RCnYiofGcA8ADYXMK+HwPwNQABAE8C+D6ANgCLAZwF4BMAyllu8rHs/t1wZu5vAAAhxMkAfgjg4wAWwJkh7813ACGEnv0ZflFoECHEOQD+HcCHAcwHsBfA/xTYfbaf6V0AdsP51OFrs/+IREQEsFAnIqpEF4CIlDKT+4YQ4k/Ztd4JIcSZR+y7WUr5RymlDcAE8BEAX8rOwu8B8B9wiutS3SWlfEVKmQDw/wE4Nfv91QDul1I+np3R/woAu8AxOuD8/j9YZJxLAfyXlHJ79nhfAnCGEOLYI3fKLueZ7Wc6IKX8vpQyk81NREQlYKFORFS+UQBdR663llK+W0rZnt125O/W8BFfdwHQ4MxO5+wFsLCMsQ8d8bUBoCX79YIjx5JSxrNZ8onCKeLnFxlnwZE5pZRT2eO9MWspP1MYRERUNhbqRETl+18AKQAXlrCvPOLrCJxZ9UVHfK8PwP7s13EA+hHb5pWR6SCAUO4/sstbgnkDSWnA+RkuKXK8A0fmFEL4s8fb/4b9ZvuZgKPPARERlYiFOhFRmaSU4wBuAnC7EGK1ECIghFCEEKcC8Bd5nAVnucrXso9ZBOB6ALkLSJ8DcKYQoi97weqXyoj1CwDnCyHeK4Rww7nYtdjv+C8A+HshxOeFEEEAEEK8TQiRW4f+/wK4QghxqhDCA+DfAGzNLm0p52ciIqIKsVAnIqqAlPLrcArSLwAYzv5bB+CLAP5U5KH/CGfmfDeci0vvAfBf2WM+BOBnAP4MYBuA+8vI8yKA67LHOwhnectQkf3/BOCc7L/dQogxAD8G8EB2+8Nw1rn/Mnu8JXDWopf1MxERUeWElPxEkoiIiIio2XBGnYiIiIioCbFQJyIiIiJqQizUiYiIiIiaEAt1IiIiIqIm5Jp9l8Pa29vlggULapWFiIiIiOgtb8eOHREp5TGz7VdWob5gwQJs2LCh8lRERERERP+XW758+d7Z9+LSFyIiIiKipsRCnYiIiIioCbFQJyIiIiJqQizUiYiIiIiaEAt1IiIiIqImxEKdiIiIiKgJsVAnIiIiImpCLNTfBK655hqsWrXqqO+tXbsWy5cvb1Ci2ngr/kxERERElSrrhkcEDA0NYf369di+fTsOHToEt9uNYDCIpUuXYtWqVUcVmuvWrcMJJ5yAs88+u3GBayCTyeDXv/41fvvb3+KVV17B1NQU/H4/BgYG8P73vx8XXXQRvF5vo2MSERERvamxUC/DSy+9hGuuuQYulwsrV67E4sWLkUqlEA6HsWXLFui6flShfscdd+D8889/SxXq0WgU119/PV544QUsW7YMH/3oR9HV1YVYLIZnn30W3/72t/Hcc8/h1ltvbXRUIiIiojc1FupluOOOO5BMJnHPPffg+OOPn7E9Eok0IFX1ZDIZWJYFj8eTd7uUEl/84hfxwgsv4IYbbsBHPvKRo7Zfdtll2LdvHx5++OF6xC1JMpmEy+WCy8WXOhEREb25sHopw759+9DW1pa3SAeArq4uAMCBAwdwwQUXAADuv/9+3H///dP7PPPMM9Nfb926FT/96U/x4osvIp1Oo6+vD6tXr8bq1asryrdnzx78z//8z/SyHMuy0N/fj9WrV+Oiiy46at9169bhjjvuwM9+9jNs3rwZDz/8MCKRCG6//faC68SfeOIJbN++HR/4wAdmFOk5fX19uPLKK4/63vbt2/GTn/wEL774IjKZDI499lisWbNmRqZCXn31Vaxbtw7PPvssEokEFi5ciPPPPx+XXXYZVFWd3m/t2rW4//778dBDD+F73/se/vjHPyIajWLz5s1YsGBBSWMRERERNQsW6mXo7e3F3r178cgjj+Ccc84puF9HRwe++tWv4sYbb8Tb3/52XHzxxTP2uffee/Hv//7v+Ku/+itceeWV8Pl82Lp1K2699Vbs378fn/nMZ8rO98wzz2D79u1473vfiwULFiCZTOLhhx/GLbfcgmg0iiuuuGLGY77yla/A4/Hg0ksvhRBi+s1GPr///e8BAB/60IdKzvT444/j85//PILBIC677DLouo7f/e53uOWWW7B//35cd911RR9/5HKjNWvWIBgM4oknnsD3v/99vPrqq7jllltmPOa6665DMBjEVVddhUQiAV3XS85LRERE1CxYqJfhqquuwtatW/GFL3wBfX19eNvb3oalS5fiHe94B/r7+6f38/l8WLFiBW688UYsXLgQK1asOOo4kUgE3/zmN3Huuefia1/72vT316xZg29+85v47//+b1xyySXo7e0tK9/KlStnzMZ/7GMfwz/8wz/g7rvvxsc//vEZS0BaWlpw++23l7Q05LXXXgOAgp8ovJFlWfj6178On8+H9evX45hjjgEAfPjDH8anPvUprF+/HqtWrUJfX1/BY3zzm9+EaZq46667cNxxxwEA/u7v/g5f+tKX8Jvf/AYXXHAB3vnOdx71mCVLluDmm28uKSMRERFRs2J7xjKccsop2LhxI84//3xMTU3hvvvuw6233oo1a9bg6quvxtDQUEnHefjhh5FOp3HhhRdifHz8qH/ve9/7YNs2nnrqqbLz+Xy+6a9TqRTGx8cxOTmJ008/HfF4HHv27JnxmI997GMlr9+Ox+MAAL/fX9L+O3bswKFDh3DBBRdMF+kAoGkaPvGJT8C2bTz22GMFHz82NoY///nPOPPMM6eLdAAQQkwvr/nDH/4w43GXXXZZSfmIiIiImhln1Ms0MDCAtWvXAgAOHjyIbdu2YfPmzXj22Wfxuc99Dhs3boSmaUWPkSuYr7322oL7jI2NlZ3NMAz8+Mc/xkMPPYTh4eEZ2ycnJ2d8r9hs9hvlCnTDMNDa2jrr/gcOHAAALF68eMa2JUuWAAD2799f0eP7+/uhKErexy9atGjWbERERETNjoX6HMyfPx/nn38+Vq5ciU9+8pN4/vnn8eKLL+LUU08t+jgpJQDgpptuKrgmfOHChWXn+dd//Vc8+eSTuPjii3Haaaehra0NiqLgj3/8I+655x7Ytj3jMeX0O1+yZAlefvll7Ny5E3/9139ddr56YQ93IiIieitgoV4FQggsW7YMzz//PEZGRmbdPxQKAQDa29vxrne9qyoZYrEYnnzySaxYsQL/8i//ctS2SpbR5HPOOefg17/+NTZt2lRSoZ57s7F79+4Z23LfK/aGJNepJd/j9+zZA9u2K3pDQ0RERPRmwDXqZdiyZQsymcyM7yeTSWzZsgXA0cs0dF3HxMTEjP0/8IEPwO12Y926dUgmkzO2T01NIZ1Ol5VNUZynMjdbnxOJRLBp06ayjlXImWeeidNOOw2//e1v8fOf/zzvPuFwGHfddRcA4MQTT8S8efNw3333HdVjPpPJYMOGDRBC4Kyzzio4XmdnJ0455RQ8/vjj2LVr1/T3pZTTY7z//e+vxo9GRERE1HQ4o16Gb33rW5iYmMCZZ56JgYEBeL1eDA8P4ze/+Q327duHlStXYmBgYHr/ZcuW4amnnsLdd9+NefPmQQiB8847Dz09Pfjnf/5n3HLLLVizZg1WrFiB+fPnIxqNYteuXXj00Ufx85//vKze336/H6effjoefPBBeDweLF26FAcPHsS9996LhQsX5n3DUC4hBG677TZ89rOfxW233YYHHngAZ555JoLBIGKxGJ577jk8/vjj060rVVXFF77wBXz+85/H5Zdfjosvvhi6ruOhhx7CCy+8gCuuuGLWNfI33HADrrnmGlx99dXT7RmffPJJ/O///i8++MEPzuj4QkRERPRWwUK9DNdffz0ee+wxPPfcc3jkkUcwNTWFlpYWDAwM4PLLL8eqVauO2v+f//mfcdttt+Guu+6a7phy3nnnAQAuuOAC9PX1YePGjbj33nsRi8XQ3t6ORYsW4dOf/jSCwWDZ+W6++WZ8//vfxxNPPIFf//rXCIVCuPbaa+FyuXDTTTfN/QTA6RH/k5/8BPfffz9+97vfYePGjdPn4bjjjsMNN9xw1Hk488wzcfvtt+POO+/Ehg0bYJomjj32WHz5y18u6YZHJ598Mv7rv/4L69atwy9+8YvpGx794z/+I7u7EBER0VuaeONSiWJOPvlkuWHDhhrGISIiIiJ6a1u+fPk2KWX+W8EfgWvUiYiIiIiaEAt1IiIiIqImxEKLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s],s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ground Color\")\n",
"plt.savefig(\"colorgrid.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 22,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 23,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 24,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd4HdWZ+PHvUbW6rGJbvbr33huuuEJCCTULJIQQEjZsCmx2U1jSftmSEEIIIUAgARMI2MLYuPfejbvVuyzLTZIlq72/P2YkX8tqtiVflffzPPfRlDMz772S5r1zzsw5RkRQSimlmuLi7ACUUkq1f5oslFJKNUuThVJKqWZpslBKKdUsTRZKKaWapclCKaVUszRZqNvKGJNujJl5E9vFGmPEGONmz280xnytlWL6qTHmb62xr0b2H22MKTHGuDZRRowxiTe5/2nGmGyH+aPGmGn2tDHGvGWMOW+M2W0v+6YxpsCOKfhmjqm6Hk0WnYwx5ivGmF3GmFJjzBl7+mljjHF2bF2ViGSKiK+IVEPrJrpGjjdQRDbas5OAWUCkiIwxxrgD/wvMtmMqaqs4GmKMedsY89Lt3lbdOk0WnYgx5t+A3wG/AXoBPYGngImARyPbNPptV3UKMUC6iJTa8z2BbsDRm9lZR/57qb0qVTdJRPTVCV5AAFAKfLmZcm8DfwRW2OVn2tu+AxQCGcB/AC52+Z8Cf3PYPhYQwM2e3wj8F7ANKAZWAyEO5R+x91kE/AhIB2Y2Ett84ABwCcgCftrMcX8J7LbLLwOCHMqPA7YDF4BDwDSHdXHAJjveNcAr9d7jIqyT6QX7OP0bifdnwO/taXf78/yNPe8FlANBjrEDPweq7XUlwCt2ecFK7Kft4/4BMI0c18v+PZ4HjgHfB7Id1qfbv9cn7ONU28d6345R7Pn1dvl+9udwDjgJ3NfM34sn8N9AJlAAvAZ42eWnAdnAvwFngDzgMXvdk0AlUGEf/9MG3psB/s/e9hLwBTCosW2B54EU+3d5DLjbYV//gvV3+X9Yf38vAYn27/4icBb4wNn/ux3l5fQA9NVKv0iYC1Rhn0ybKPe2/Y8yEevKshtWolgG+NkntlPAE3b5n9J8skgB+tgnsY3Ar+x1A+x/7Cn2CeZ/7RgbSxbTgMF2XEPsE9FdTRw3xz6R+AD/rI0TiLBPDvPsfc2y50Pt9TvsWDzt2Iodtu2DdVKchZUAfgAkAx4NxHsH8IU9PcH+HHY5rDvUROxfq7cvAZYDgUA0VuKe28jn9CtgC1YiigKO0ECysKf/BdjaxO/PBysxP4aVzIZjnUQHNPH38n9Akn18P+BT4JcOv8Mq4EX785sHXAa6O+zvpSb+PucA++zPwQD9gbDGtgXuBcLt2O63f3dhDu+9Cvi2/d68sBLmjxzeyyRn/+92lJdWQ3UeIcBZEamqXWCM2W6MuWCMKTPGTHEou0xEtolIDda3ta8AL4hIsYikA/+DdUXQUm+JyCkRKQP+AQyzl98DLBeRzSJyBfhPoKaxnYjIRhH5QkRqROQw1j/21CaO+66IHBGriuU/gfvsapKHgRUissLe1xpgLzDPGBMNjAb+U0SuiMhmrJNdrfuBz0RkjYhUYn2D9sJKBvXtAHrbjcRTgL8AEcYYXzvuTU3E3pBficgFEckENnD1c6zvPuDnInJORLKAl2/wOI4WYFVTvSUiVSJyACvx3utQxvHv5QrWt/zv2scvBn6B9TdUqxJ4UUQqRWQF1heGvi2MpxIrAfXDurI6LiJ5jRUWkQ9FJNf+PX+AdWU2xqFIroj83n5vZfb+Y4BwESkXka0tjKvL02TReRQBIY71siIyQUQC7XWOv+ssh+kQrG+AGQ7LMrC+nbdUvsP0ZcDXng53PJZ9Um+0QdUYM9YYs8EYU2iMuYhVLRPSxHEd30cG1vsIwToZ3GsnygvGmAtYDb1hdkzn5Wodfu22tcId5+0TZBYNfB72yWcvVmKYgpUctmN9C7+ZZNHY51jfNZ9rvfhvVAwwtt5n9RBWm1ctx2OFAt7APofyn9vLaxU5fmmh6fdyDRFZj1Ut+AfgjDHmdWOMf2PljTGPGmMOOsQyiGv/ZrLqbfIDrCuW3fZdY4+3JC6lyaIz2YH1rW9xC8o6djV8lqvftmpFY1XxgHVZ7+2wzvEk0pw8rGoSAIwx3kBTt2q+h1W9ESUiAVh14U3dxRXlMB2N9T7OYp0g3hWRQIeXj4j8yo6puzHGp962tXJx+Czsu8iiuPp51LcJq8ppOLDHnp+D9e12cyPb3GpXz9d8rlwb/43KAjbV+6x8ReSbDmXq/72UAQMdygeISIuSAS147yLysoiMxKrG7IPVJnPdtsaYGODPwDNAsP3F6AjX/s1cs42I5IvI10UkHPgG8OrN3rLc1Wiy6CRE5AJWg+urxph7jDF+xhgXY8wwrHrpxrarxqo6+rm9TQzwHFD73MFBYIr9rEAA8MINhPURsMAYM8kY44FVj93U35wfcE5Eyo0xY4AHm9n/w8aYAXYSehH4yH4/fwMWGmPmGGNcjTHd7GcRIkUkA+tq4GfGGA9jzCRgocM+/wHMN8bMsG8z/TesJLy9kRg2AY8Cx0SkArs9AkgTkcJGtikA4pt5b035B/CCMaa7MSYSq07+Zi0H+hhjHjHGuNuv0caY/g0Vtq+0/gz8nzGmB4AxJsIYM6eFx2vyvdvHHmt/9qVYDfQ1jWzrg5UMCu1tH8O6smiUMeZe+zMD6wYBoYmqUXWVJotORET+H9aJ/gdY/1gFwJ+AH9L4yQ6sk00pkApsxfqG/6a9zzXAB8BhrIbH5TcQz1HgW/b+8rD+ObOb2ORp4EVjTDHwY6yTYlPexWr0zMdqrPyOfdwsrCusf8c6kWRhfTut/Xt/EBiLdffPT7Aa+GtjPonV5vF7rG/RC4GFdiJoyHasNo3aq4hjWCe4xq4qwLq9+R77QbmbaW/4GVbVUxrW3Wfv3sQ+ALDbHGZjtTnkYn2Wv8Zq/G/MD7Ea/XcaYy4Ba2l5m8RfgAF2tdHSBtb7YyWj81y9i+43DW0rIsew2td2YP2tD8a6+6kpo4FdxpgSrKvYZ0UktYWxd2lGRAc/Ukop1TS9slBKKdUsTRZKKaWapclCKaVUszRZKKWUapYmC6WUUs3qNL0whoSESGxsrLPDUEqpDmXfvn1nRSS0uXKdJlnExsayd+9eZ4ehlFIdijGmRd3FtGk1lDFmrjHmpDEm2RjzfAPrnzPGHDPGHDbGrLOfHnZc72+MyTbGvNKWcSqllGpamyULu/fPPwB3YvXx8oAxZkC9YgeAUSIyBKtriP9Xb/1/0fSTsEoppW6DtryyGAMki0iq3VXCEup1ciciG0Tksj27E6jtswVjzEisUb1Wt2GMSimlWqAtk0UE13YPnE3T3V4/AawEMMa4YPX58r2mDmCMedIYs9cYs7ewsLE+25RSSt2qdnHrrDHmYWAUVzsMexpr8JqmOp1DRF4XkVEiMio0tNnGfKWUUjepLe+GyuHaPvcjaWBMAGPMTKxhDqfao6kBjAcmG2Oexho0xcMYUyIi1zWSK6WUanttmSz2YA05GYeVJL5CvfEJjDHDsbrQnisiZ2qXi8hDDmX+BasRXBOFUurmiVgvBKTGfjlO2y/EYbk4LGtgm7qyjvutv77+fmj4WA1N123fzDZegRA3pYE33XraLFmISJUx5hlgFeAKvCkiR40xLwJ7RSQJq9rJF/jQGpCMTBFZ1FYxKXXb1f5T11RBTbX1U6rtaXu+oWWO89LQzxr7Z9X1y6SmXvn687XLak9+DuWuWee4bf11NdcuqysnDWzX2Im5ufX199vAuqZO8A2V6awiRsHX17XpITrNeBajRo0SfSivg6uphuoK+1VZb7ry6nRN7XSV9bPGXl9T5VCmyqFslfWzbllV09PXLKu+fvk1r/rrq7kuMXQExsV+uYKLq8O0w/LaMnXrzdXyGHu5q7XcxfXafdaVd7n2VVuubnvjMO1y7fQ1L9PwfjEO8/XLOOy/bllT+3EoUxsHpvF9XXfsBvaF42dAI+sc9nVNeXP9cWqn3b0hOOHmfvXG7BORUc2V6zRPcKubVF0JlWVQdQWqan+WWz8rHearrzisq7CXVVwtWzddYZetPdFfubqsuvJq2erKq8tqk4K08eiWxhVc3cHFHVzdwMXNmnZxs04Etevqpu0ybp7g4nN1vnbbuv25Oky72SdBt3rL7enafdSeAGuna/fn4uIw7eqwP9ery+rWNbDsmpNwA+saKlt3glKqcZos2isR+4R9GSpKoOIyVJZCRak9Xfsqs5ZVll2dd5yuKnNYVmad0B1/3uo3X+NqnUxdPcCtG7h5gGvtvD3t5gGefnY5d2ud48vNYbr25Fw7XVfO7doyrh5XT84NTtcmBHeHk7ieEJW6WZosWlNNDVQUwxXH16V68/arogSulNgn/xJ7WanDq+TGT+RuXuBe+/IG927WT7du4NXdWu7mZS13/Onmaa/rZr9q5z2tk727vbwuIXjar272pblSqrPTZFFfZRmUnXd4XYDyC/bPi9Z0+UX7denqdG1SaEkjmrs3ePiCpy94+ICHH/j2sJZ7+lrr6k97eIO7T72fXlen3bysKgyllGoDmixKCuGdxVB2zkoOVeVNFDbQLcB++UO3QAiKA09/a97xp6efw7yfnRzsn676sSulOhY9a3l4Wyd8r+HgFWTdr1z7s1ugVX1TO+3pr9/elVJdkiYLDx/4yt+dHYVSSrVr+jVZKaVUszRZKKWUapYmC6WUUs3q8slCRLh45SKdpdsTpZRqC12+gftSxSUmLZmEu4s7wV7BBHcLJtQrlFBv69XTuye9vHvR06cnvXx64ePu4+yQlVLqtuvyycLVuPL9Ud+nqLyIs2VnKSovIq80j8NnD3Ou/Nx15f09/An3DSfcJ5wIvwgifCOI8osiyi+KCN8IPFw9nPAulFKLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ground albedo with different stars\")\n",
"plt.savefig(\"ground_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 25,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.20952110594388035\n"
]
}
],
"source": [
"print teffs[-16],albb[-7]"
]
},
{
"cell_type": "code",
"execution_count": 26,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"groundblend\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 27,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"groundblend_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 28,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: groundblend(965) = (/12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,13.1161, &\n",
" & 13.5867,14.1196,14.7424,15.2969,15.2550,15.6031,15.8681,16.3757, &\n",
" & 16.6847,17.1698,17.6965,18.0291,18.4459,18.8582,19.7512,20.3127, &\n",
" & 20.5441,20.9867,21.2748,21.4852,21.6601,21.8871,22.0959,22.3769, &\n",
" & 22.5555,22.6841,22.8859,23.1235,23.1722,23.3581,23.6036,23.7318, &\n",
" & 23.9446,23.9542,24.0230,24.1734,24.1251,24.1392,24.3469,24.3035, &\n",
" & 24.1023,23.9795,23.6917,23.4389,23.3111,23.2013,23.0616,22.9689, &\n",
" & 23.1830,23.5632,23.7520,24.0554,24.2983,24.4708,24.6850,24.6702, &\n",
" & 24.3875,24.3069,24.4843,24.7049,24.8939,25.0117,25.0568,24.9801, &\n",
" & 24.8849,24.7795,24.5999,24.2513,23.6281,23.0756,22.9904,23.2346, &\n",
" & 23.4023,23.7440,23.9070,24.0748,24.4747,24.6725,25.0065,25.0427, &\n",
" & 25.3064,25.2820,25.3311,24.9252,24.4807,24.1382,24.0793,24.1720, &\n",
" & 24.4702,24.5874,24.3143,23.8518,22.6322,20.9508,20.5339,21.2402, &\n",
" & 21.4860,21.7359,22.3565,22.7591,23.1622,23.1278,23.2192,23.0662, &\n",
" & 22.9350,22.8464,22.6460,22.3771,22.0274,21.9255,21.9643,21.9098, &\n",
" & 21.9174,21.8881,21.8306,21.6983,21.6164,21.5285,21.4726,21.3897, &\n",
" & 21.2695,21.1804,21.1874,21.0888,20.9989,20.8369,20.7698,20.6752, &\n",
" & 20.5616,20.4998,20.3843,20.3119,20.2465,20.1921,20.1192,20.0303, &\n",
" & 19.9051,20.5181,20.5511,20.4673,20.3303,20.3783,20.3147,20.2802, &\n",
" & 20.3099,20.1966,20.1630,20.1259,19.9596,19.8334,19.8770,19.5972, &\n",
" & 19.2134,18.5325,17.8574,16.4800,14.6280,13.8308,13.1163,12.4486, &\n",
" & 11.9491,11.6487,11.3945,11.4007,11.3356,11.3736,11.4299,11.3093, &\n",
" & 11.3615,11.3210,11.3192,11.3509,11.2981,11.3254,11.2479,11.2040, &\n",
" & 11.2245,11.3198,11.1707,11.2782,11.2528,11.1918,11.3169,11.3154, &\n",
" & 11.3594,11.3931,11.4678,11.4829,11.5074,11.5281,11.6097,11.6884, &\n",
" & 11.6797,11.6617,11.7554,11.8200,11.8374,11.9067,12.0302,12.0630, &\n",
" & 12.1658,12.3165,12.4339,12.5477,12.6119,12.6780,12.7953,12.9337, &\n",
" & 12.9967,13.1742,13.2295,13.3202,13.4792,13.5765,13.6835,13.8198, &\n",
" & 13.8555,14.0722,14.1067,14.1761,14.2259,14.2250,14.2846,14.3322, &\n",
" & 14.3424,14.4607,14.5394,14.5393,14.6360,14.7817,14.9949,15.0743, &\n",
" & 15.2085,15.2436,15.2829,15.3453,15.4313,15.5978,15.9001,16.1327, &\n",
" & 16.2750,16.4356,16.5749,16.6471,16.7713,16.8856,16.9990,17.0809, &\n",
" & 17.1626,17.2430,17.3521,17.4067,17.4680,17.5638,17.6095,17.6486, &\n",
" & 17.7019,17.7573,17.7642,17.8256,17.8607,17.9032,17.9301,17.9884, &\n",
" & 18.0488,17.9857,17.9823,17.9251,17.8695,17.7879,17.7272,17.7236, &\n",
" & 17.6404,17.6509,17.6716,17.6807,17.6908,17.6447,17.5986,17.5476, &\n",
" & 17.4500,17.2547,17.1026,16.9764,16.9326,16.9822,17.0983,17.2506, &\n",
" & 17.3612,17.4659,17.5732,17.6433,17.6524,17.6560,17.6229,17.5708, &\n",
" & 17.5651,17.4985,17.4318,17.3933,17.3414,17.2616,17.2423,17.1257, &\n",
" & 17.0959,17.0166,16.9363,16.8619,16.7482,16.6415,16.6052,16.5912, &\n",
" & 16.5002,16.3664,16.2904,16.2502,16.2004,16.1755,16.1584,16.1065, &\n",
" & 15.9991,15.9238,15.8043,15.6901,15.5448,15.4169,15.2921,15.1880, &\n",
" & 15.0799,14.9855,14.8754,14.8085,14.7168,14.6476,14.6086,14.5781, &\n",
" & 14.5634,14.5850,14.6578,14.7004,14.6860,14.6632,14.6701,14.6026, &\n",
" & 14.5375,14.4678,14.3761,14.2805,14.1601,14.0407,13.8858,13.7244, &\n",
" & 13.5898,13.4532,13.3642,13.3278,13.3654,13.3688,13.3402,13.3068, &\n",
" & 13.2451,13.1720,13.0793,13.0060,12.9538,12.8837,12.7927,12.6968, &\n",
" & 12.6361,12.5646,12.4567,12.3606,12.1931,12.0676,11.9173,11.7557, &\n",
" & 11.5970,11.4510,11.3102,11.1767,11.0563,10.9637,10.8623,10.7821, &\n",
" & 10.6982,10.6156,10.5213,10.4711,10.4130,10.3640,10.3020,10.3008, &\n",
" & 10.2512,10.1942,10.1370,10.1063,10.0780,10.0089,9.9590,9.8962, &\n",
" & 9.8242,9.7567,9.7058,9.6345,9.5636,9.4881,9.3874,9.2630, &\n",
" & 9.1781,9.0745,8.9465,8.8267,8.6807,8.5982,8.4913,8.3825, &\n",
" & 8.3243,8.2706,8.1985,8.1500,8.1151,8.0704,8.0800,8.1049, &\n",
" & 8.1130,8.1350,8.1348,8.1288,8.1047,8.0793,8.0591,8.0357, &\n",
" & 7.9936,7.9379,7.8745,7.8325,7.7627,7.6875,7.6269,7.5488, &\n",
" & 7.4562,7.3633,7.2617,7.2284,7.2010,7.2016,7.2001,7.1939, &\n",
" & 7.1617,7.1612,7.1339,7.0978,7.0784,7.0573,7.0481,7.0023, &\n",
" & 6.9599,6.9226,6.8862,6.8443,6.7843,6.7479,6.7064,6.6591, &\n",
" & 6.6226,6.5819,6.5360,6.4752,6.4218,6.3694,6.3328,6.2544, &\n",
" & 6.1890,6.1318,6.0348,5.9585,5.9211,5.8629,5.7906,5.7092, &\n",
" & 5.6701,5.6078,5.5355,5.4860,5.4313,5.3857,5.3313,5.2859, &\n",
" & 5.2385,5.1952,5.1513,5.1139,5.0893,5.0638,5.0550,5.0086, &\n",
" & 4.9703,4.9475,4.9244,4.9099,4.9226,4.9470,4.9421,4.9385, &\n",
" & 4.9427,4.9619,4.9915,5.0244,5.0511,5.0653,5.0664,5.0814, &\n",
" & 5.1122,5.1381,5.1479,5.1766,5.2168,5.2295,5.2354,5.2516, &\n",
" & 5.2754,5.3087,5.3283,5.3277,5.3314,5.3305,5.3169,5.3326, &\n",
" & 5.3326,5.3364,5.3582,5.3414,5.3136,5.2865,5.2521,5.2498, &\n",
" & 5.2160,5.1982,5.1895,5.1839,5.1757,5.1376,5.1120,5.1008, &\n",
" & 5.0761,5.0466,5.0374,5.0125,4.9710,4.9557,4.9417,4.9324, &\n",
" & 4.9203,4.9166,4.8914,4.8886,4.8842,4.8565,4.8489,4.8360, &\n",
" & 4.7995,4.7643,4.7487,4.7143,4.6870,4.6668,4.6179,4.5856, &\n",
" & 4.5697,4.5488,4.5421,4.5111,4.4641,4.4483,4.4327,4.4067, &\n",
" & 4.3810,4.3510,4.3223,4.2969,4.2570,4.2223,4.2106,4.2125, &\n",
" & 4.2110,4.1582,4.1191,4.1079,4.0939,4.0732,4.0522,4.0470, &\n",
" & 4.0512,4.0424,4.0105,3.9693,3.9509,3.9513,3.9344,3.9017, &\n",
" & 3.8649,3.8250,3.7820,3.7754,3.7497,3.7175,3.7048,3.6828, &\n",
" & 3.6612,3.6259,3.5876,3.5685,3.5571,3.5387,3.5138,3.4793, &\n",
" & 3.4621,3.4453,3.4188,3.4017,3.3889,3.3635,3.3374,3.3228, &\n",
" & 3.3096,3.2546,3.2245,3.2081,3.2099,3.1913,3.1489,3.1260, &\n",
" & 3.0983,3.0680,3.0478,3.0227,2.9910,2.9602,2.9270,2.9108, &\n",
" & 2.8865,2.8699,2.8547,2.8316,2.8010,2.7639,2.7441,2.7485, &\n",
" & 2.7655,2.7509,2.7166,2.7018,2.6920,2.6869,2.6813,2.6687, &\n",
" & 2.6681,2.6712,2.6501,2.6224,2.6040,2.6053,2.6114,2.6119, &\n",
" & 2.6208,2.6293,2.6371,2.6762,2.6648,2.6529,2.6583,2.6728, &\n",
" & 2.7383,2.7730,2.7993,2.8363,2.8664,2.8767,2.9176,2.9908, &\n",
" & 3.0922,3.1485,3.2171,3.2823,3.4467,3.5517,3.6423,3.7126, &\n",
" & 3.9180,4.0334,4.1374,4.2246,4.3893,4.4814,4.5543,4.6942, &\n",
" & 4.7526,4.8106,4.9626,5.0164,5.0367,5.0784,5.1650,5.1808, &\n",
" & 5.2165,5.3260,5.3665,5.4005,5.4427,5.5128,5.6723,5.7514, &\n",
" & 5.8222,5.9424,5.9989,6.0508,6.1457,6.1896,6.2694,6.3202, &\n",
" & 6.3431,6.3213,6.2696,6.1697,6.1763,6.2059,6.2143,6.2634, &\n",
" & 6.3905,6.4496,6.5232,6.5432,6.5829,6.5985,6.5988,6.6125, &\n",
" & 6.6226,6.6250,6.6656,6.6790,6.6302,6.6118,6.6070,6.5795, &\n",
" & 6.5072,6.4845,6.4341,6.4042,6.3804,6.3459,6.2554,6.2622, &\n",
" & 6.2601,6.1893,6.1617,6.1390,6.1182,6.1053,6.1012,6.0901, &\n",
" & 6.0498,6.0072,6.0075,5.9882,5.9669,5.9460,5.8917,5.8639, &\n",
" & 5.8464,5.7981,5.7618,5.7696,5.7868,5.7570,5.7041,5.6768, &\n",
" & 5.6499,5.6320,5.6487,5.6801,5.6760,5.6729,5.6779,5.6965, &\n",
" & 5.7084,5.6992,5.7195,5.7890,5.7691,5.7644,5.7810,5.7462, &\n",
" & 5.7309,5.7364,5.7244,5.6696,5.6259,5.6083,5.5939,5.5681, &\n",
" & 5.5307,5.5132,5.4851,5.4321,5.4173,5.4214,5.3740,5.3250, &\n",
" & 5.2817,5.2382,5.2012,5.1801,5.1502,5.1116,5.0813,5.0499, &\n",
" & 4.9904,4.9559,4.8783,4.8600,4.8729,4.8856,4.8827,4.8824, &\n",
" & 4.8918,4.9303,4.9456,4.9209,4.9158,4.9436,4.9400,4.9219, &\n",
" & 4.9391,4.9415,4.9229,4.8960,4.8686,4.8793,4.9081,4.8903, &\n",
" & 4.8385,4.8073,4.8243,4.8351,4.8122,4.8071,4.8227,4.7952, &\n",
" & 4.7427,4.7340,4.6818,4.6315,4.5909,4.5907,4.5551,4.4885, &\n",
" & 4.4819,4.4468,4.3990,4.4123,4.3882,4.3215,4.2887,4.2501, &\n",
" & 4.2489,4.2381,4.2184,4.1917,4.1648,4.1390,4.0738,4.0483, &\n",
" & 4.0298,4.0136,3.9928,3.9654,3.9546,3.8933,3.8531,3.8062, &\n",
" & 3.7705,3.7849,3.7704,3.7301,3.7187,3.7163,3.7524,3.7590, &\n",
" & 3.7283,3.7220,3.6777,3.6713,3.6646,3.6649,3.7132,3.6957, &\n",
" & 3.6641,3.6692,3.6465,3.5626,3.4967,3.4370,3.3826,3.2979, &\n",
" & 3.1938,3.0922,2.9820,2.8385,2.7622,2.7300,2.7205,2.7075, &\n",
" & 2.5697,2.4529,2.4551,2.5290,2.4643,2.3695,2.3853,2.3698, &\n",
" & 2.3235,2.3492,2.3354,2.3328,2.2808,2.1591,2.0505,1.9828, &\n",
" & 2.0443,2.0528,2.1298,2.0987,1.9916,2.0043,1.9213,1.9423, &\n",
" & 2.0312,2.0010,1.7628,1.7760,2.0828,2.0650,1.8917,1.9262, &\n",
" & 1.8328,1.6978,1.8787,2.0174,1.6473,1.3033,1.4262,1.6316, &\n",
" & 1.5811,1.6315,1.3217,1.1069,1.0377 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/.ipynb_checkpoints/combinedspec-ocean-checkpoint.ipynb
+867
View File
@@ -0,0 +1,867 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"sbdartw = np.concatenate((np.ones(41)*0.041,\n",
" np.array([.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.042,\n",
" .043,.044,.044,.046,.047,.049,.050,.052,.054,.055,.056,\n",
" .059,.060,.061,.061,.059,.057,.054,.053,.051,.050,.049,\n",
" .047,.046,.046,.045,.044,.043,.043,.041,.040,.038,.037,\n",
" .037,.036,.033,.032,.031,.029,.027,.024,.023,.021,.018,\n",
" .015,.012,.009,.008,.006,.004,.002,.001,.000,.000,.000]),\n",
" np.zeros(644)))\n",
"wlalb = np.zeros(len(sbdartw))\n",
"for n in range(0,len(wlalb)):\n",
" wlalb[n] = 0.25 + (4.0-0.25)*float(n)/(len(wlalb)-1)"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAX0AAAEACAYAAABfxaZOAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAGuxJREFUeJzt3W1wXNd93/HvHw+LhyXxtAAkEiAJUqQeIEuxbJiyatlOpFih0qkZx9KYSmei6Wiselq+6GQyrfKiqqPJTKpOGrUzUdpwIk1lJQ2lUfqA1kyZuHLs2JFkgpIsiVIpgaRIgqQIEAABgiAIAvvvi72glkuQuwDu4t7F/j4zGO3ee+7eP2zyt4fnnnuuuTsiIlIeKqIuQERElo9CX0SkjCj0RUTKiEJfRKSMKPRFRMqIQl9EpIwo9EVEyohCX0SkjCj0RUTKiEJfRKSMVEVdQK7W1lbv6uqKugwRkZKyf//+M+7elq9d7EK/q6uLvr6+qMsQESkpZna0kHYa3hERKSMKfRGRMqLQFxEpIwp9EZEyotAXESkjCn0RkTKi0JdFGRid5G/eP83QuYtRlyIiC1BQ6JvZNjM7aGb9ZvbEPPtrzOylYP8bZtaVte9OM3vNzA6Y2btmVhte+RKVb39vP9/+Xh9P/s/3oi5FRBYgb+ibWSXwLPAg0A08YmbdOc0eA0bdfTPwDPB0cGwV8GfAd9z9duAXgUuhVS+ROD4yyQenxgH4aHAi4mpEZCEK6elvBfrd/bC7TwO7ge05bbYDLwSvXwHuNzMDHgDecfefA7j7sLvPhlO6ROWHBwcBeKD7Bo4NTzKb9ogrEpFCFRL6HcDxrPcDwbZ527j7DDAGpICbATezvWb2ppn9y6WXLFH7vx8Msqk1yS/d2s70bJqTZy9EXZKIFKjYF3KrgHuBfxz89xtmdn9uIzN73Mz6zKxvaGioyCXJUpy/OMNrh4a579Z2ulJJAD4ePh9xVSJSqEJC/wSwLut9Z7Bt3jbBOH4jMEzmXwU/dvcz7j4J7AE+l3sCd9/l7j3u3tPWlneROInQT/vPMD2b5r7b2tnUFoT+GYW+SKkoJPT3AVvMbKOZJYAdQG9Om17g0eD1Q8Cr7u7AXuAOM6sPvgy+CrwfTukShR8eHGR1TRVf6GqhfXUN9YlKjpyZjLosESlQ3qWV3X3GzHaSCfBK4Hl3P2BmTwF97t4LPAe8aGb9wAiZLwbcfdTM/pDMF4cDe9z9+0X6XWQZ9A9O0L22gerKTH9hQyqp4R2RElLQevruvofM0Ez2tiezXk8BD1/j2D8jM21TVoDT4xe5a33T5fcbW+v5f6fORViRiCyE7siVgrk7p8enuKHh0/vrulJJjo1MMjObjrAyESmUQl8KNj41w8WZNO2ray5v62pNMpN2BkY1bVOkFCj0pWCD41MAtGf19De2ZmbwHNG4vkhJUOhLwU6PZxZXuyG7p5/StE2RUqLQl4KdDnr62WP6rasSJBOVHBvRtE2RUqDQl4INBssotzd82tM3M25oqL28T0TiTaEvBTs9PsXqmirqE1fO9G1dXaN19UVKhEJfCjYwOnlFL39O++oazij0RUqCQl8KcnFmltcODbN1Y+qqfW2razS8I1IiFPpSkNcPj3B+epavdbdfta99dS0TF2eYnJ6JoDIRWQiFvhTkB++fpq66kn9wU+tV+9qCKZwa1xeJP4W+5OXu/OCD03zl5lZqqyuv2q/QFykdCn3J68DJcU6NTfHLt90w7/52hb5IyVDoS14/+OA0ZnDfrVeP58OnPX1dzBWJP4W+5LX/6CjdaxpIrbp6uiZAS32ChtoqDpwcW+bKRGShFPqS1+Gh82xpX3XN/RUVxpe3tPGjD4fIPDBNROJKoS/XNTk9w4mzF7ip7dqhD/DVW9o4PX6RD/RAFZFYU+jLdR0JVs+86To9fYB7N2emcu77eKToNYnI4in05boODWVCf1Nb8rrt1jTWkkxU6nm5IjGn0JfrOjQ4gdmn6+Zfi5mxPpXk6LCWWBaJM4W+XNehoQnWNdfPe1NWrq5UvXr6IjGn0JfrOjx0npvyDO3M2ZBKcnxkktm0ZvCIxJVCX64pnXYOn5lgU56ZO3O6UvVcmnVOntVD0kXiqqDQN7NtZnbQzPrN7Il59teY2UvB/jfMrCvY3mVmF8zs7eDnP4dbvhTTybELTF1K552uOWdDMO5/WM/LFYmtvKFvZpXAs8CDQDfwiJl15zR7DBh1983AM8DTWfsOuftng5/vhFS3LIO5mTuFDu/c3tFAZYXxsyPDxSxLRJagkJ7+VqDf3Q+7+zSwG9ie02Y78ELw+hXgfjOz8MqUKBwemgDyz9Gf01BbzV3rmvjxh2eKWZaILEEhod8BHM96PxBsm7eNu88AY8DcI5Y2mtlbZvYjM/vyEuuVZXRoaIKG2ipSyUTBx3z15jbeOznG8IQWXxOJo2JfyD0FrHf3u4DfAv6rmTXkNjKzx82sz8z6hoaGilySFOr1wyPc0dnIQv7R9pWb23CHn/Srty8SR4WE/glgXdb7zmDbvG3MrApoBIbd/aK7DwO4+37gEHBz7gncfZe797h7T1tb28J/CwndoaEJ+gcneKD7xgUd95mORprrq/nRh/ryFomjQkJ/H7DFzDaaWQLYAfTmtOkFHg1ePwS86u5uZm3BhWDMbBOwBTgcTulSTH994DQAX+ue/8Ep11JZYdy7pY2/++iMVtwUiaG8oR+M0e8E9gIfAC+7+wEze8rMvh40ew5ImVk/mWGcuWmdXwHeMbO3yVzg/Y67a0WuEvD3h85w25oG1jbVLfjYL92UYujcRY6NaEkGkbipKqSRu+8B9uRsezLr9RTw8DzH/SXwl0usUSLQPzjBPZtS+RvOY+5mro+HJy/P3ReReNAduXKViYsznBqbKniqZq4NqXoAjmkdHpHYUejLVS7Pzy/wTtxc7atrqK2u0IqbIjGk0Jer9A9mQn/zInv6Zsb6lnqOakxfJHYU+nKV/sEJqirs8jDNYqxvSXJMPX2R2FHoy1U+PD3BhlQ91ZWL/+OxIVXP0ZHzWmZZJGYU+nKFqUuzvHboDFs3tizpc35hXRNTl9K8e2IspMpEJAwKfbnCTz46w/npWbZ9Zs2SPudLN2Wme/6d7swViRWFvlzh/xz4hIbaqkXP0Z+TWlXDZzoa+Pd/8yEv7zue/wARWRYKfbnCm8dG+eKmFImqpf/ReOzejQD8wV8f1JIMIjGh0JfLpmfSHB2e5OYbVofyed+4q5Onv3kHg+cuXp4GKiLRUujLZR8PZ2bbbLlhcfPz5/Olza2AlloWiQuFvlz20eml3Yk7n87merpS9fxUoS8SCwp9uax/cAKzcEMfMr391w+PcGk2HernisjCKfQFgMFzU+w/Nkpncx11icpQP/veza1MXJzhnYGzoX6uiCycQl9Ip51vPPv3/PjDIW678aqnWS7ZPTelMIOffDQc+meLyMIo9IW+o6OcOHuBf/HLW/j9X78j9M9vqk9wR0ejxvVFYkChL+x59xQ1VRV8+8ubSK2qKco5vrS5lTePjXL+4kxRPl9ECqPQL3PptLPn3VP80i3tJGsKepDaoty7uZWZtHP7v9nL4PhU0c4jIten0C9zfUdHGTx3kV+9c2lr7eTzxU0ptt1+IwAHTo0X9Vwicm0K/TL3/XdOUlNVwf23thf1PJUVxu9uvx2A43q4ikhkFPplLJ12/uq9T4o+tDOnbVUNiaoKhb5IhBT6ZWxuaOcfFnloZ05FhdHZXMfxkQvLcj4RuZpCv4zNDe3cV+ShnWzrW+o5PqqevkhUiv9v+mXyydgUu/cdi7qMkvK/3yn+rJ1c65rrefPo6LKdT0SuVNDfdjPbBvxHoBL4U3f/tzn7a4DvAZ8HhoFvufvHWfvXA+8D33X3Pwin9CudHp/iP/zgo2J89IpVVWF86wvrlvWcm9qSjE/NcOLsBTqa6pb13CJSQOibWSXwLPA1YADYZ2a97v5+VrPHgFF332xmO4CngW9l7f9D4K/CK/tqd3Y2cuT3f7WYp1iRzGxZz/fF4Ilcrx0a5qHPdy7ruUWksDH9rUC/ux9292lgN7A9p8124IXg9SvA/RakiZn9GnAEOBBOyfMzM/0s4me53XLDalqSCV47pHV4RKJQSOh3ANkPOR0Its3bxt1ngDEgZWargH8F/O71TmBmj5tZn5n1DQ3pQdorWUWFcffGFvqOjkRdikhZKvbsne8Cz7j7dZ+V5+673L3H3Xva2tqKXJJEbVNbkoHRC8xofX2RZVfIhdwTQPbVvs5g23xtBsysCmgkc0H3buAhM/t3QBOQNrMpd/+jJVcuJWtdcz2zaefU2BTrWuqjLkekrBQS+vuALWa2kUy47wB+I6dNL/Ao8BrwEPCquzvw5bkGZvZdYEKBL3NBf3x0UqEvsszyhr67z5jZTmAvmSmbz7v7ATN7Cuhz917gOeBFM+sHRsh8MYjMq7M5M1VzYFR35oost4Lm6bv7HmBPzrYns15PAQ/n+YzvLqI+WYHWNtVRYTCgNXhElp2WYZBlV11ZwZrGOo4p9EWWnUJfInHLjat5Z2As6jJEyo5CXyJxz6YUh8+c57SeoiWyrBT6Eol7bsosx/BPX9zP2IVLEVcjUj4U+hKJ29Y0sKk1ydvHz/I/3sq97UNEikWhL5GorDBe/e1fpKOpjtcPax0ekeWi0JdIfXFTijeOjJBOe9SliJQFhb5EqqermZHz03qalsgyUehLpNY01gJwZuJixJWIlAeFvkQqlawBYHhiOuJKRMqDQl8i1bIqAcDIeYW+yHJQ6EukUslM6A8r9EWWhUJfIlVbXUkyUanhHZFlotCXyLWsSjByXhdyRZaDQl8i15Ks0fCOyDJR6EvkUsmELuSKLBOFvkSuRaEvsmwU+hK5zuY6To9PMT6l1TZFik2hL5Hb2tVC2mH/x6NRlyKy4in0JXJ3rW+mutJLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wlalb,sbdartw)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [],
"source": [
"ids = [10,11]"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"seawater\n",
"tapwater\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [],
"source": [
"weights = np.array([0.0,1.0])"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0. 1.]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 10,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 11,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 12,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 13,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 14,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f0ab9cca190>"
]
},
"execution_count": 14,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXcAAAEACAYAAABI5zaHAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4XMXVh9/Zrt5lyZZtufeGK9g002xwDAHTAoQaB0gjIfSSQAgpJHwJCYRAqIkpAVMM2KY7Nti494q7ZdmqVpe2zvfH7GolWbJW0jat532effbuvbP3HsnW75575sw5QkqJRqPRaGILQ6QN0Gg0Gk3w0eKu0Wg0MYgWd41Go4lBtLhrNBpNDKLFXaPRaGIQLe4ajUYTg2hx12g0mhhEi7tGo9HEIFrcNRqNJgbR4q7RaDQxiClSF87MzJT5+fmRurxGo9F0S9auXVsqpcxqb1zExD0/P581a9ZE6vIajUbTLRFCHAhknA7LaDQaTQyixV2j0WhiEC3uGo1GE4NELObeGk6nk4KCAhoaGiJtSrfFZrORl5eH2WyOtCkajSaCBCzuQggjsAY4LKWc1eKYFXgVGA+UAVdKKfd31JiCggKSkpLIz89HCNHRr5/0SCkpKyujoKCAfv36RdocjUYTQToSlvkZsL2NYzcDx6SUA4H/A/7QGWMaGhrIyMjQwt5JhBBkZGToJx+NRhOYuAsh8oCLgH+1MeRi4BXv9tvAOaKTCq2FvWvo3183pXwf1FdE2gpNDBGo5/4X4G7A08bxXsAhACmlC6gEMrps3UnGhg0bWLhwYaTN0IQbKeGpsfDShZG2RBNDtCvuQohZQLGUcm1XLyaEmCuEWCOEWFNSUtLV08UcnRF3l8sVIms0YePgCvVevBU87sjaookZAvHcpwKzhRD7gTeA6UKI/7QYcxjoDSCEMAEpqInVZkgpn5NSTpBSTsjKanf1bESora3loosuYsyYMYwcOZI333yTtWvXcuaZZzJ+/HguuOACjhw5AsDzzz/PxIkTGTNmDJdddhl1dXW43W769euHlJKKigqMRiNLly4F4IwzzuDbb79l1apVnHrqqYwbN47TTjuNnTt34nA4ePjhh3nzzTcZO3Ysb775JrW1tdx0001MmjSJcePG8f777wPw8ssvM3v2bKZPn84555wTsd+VJjiUrV/g/1C0JXKGaGKKdrNlpJT3AfcBCCHOAn4ppby2xbAFwPXACmAO8IWUUnbFsEc+2Mq2wqqunOI4hvdM5lffGXHCMYsXL6Znz5589NFHAFRWVjJz5kzef/99srKyePPNN3nggQd48cUXufTSS/nBD34AwIMPPsgLL7zAT37yE4YMGcK2bdvYt28fp5xyCsuWLWPy5MkcOnSIQYMGUVVVxbJlyzCZTHz22Wfcf//9zJ8/n0cffZQ1a9bw97//HYD777+f6dOn8+KLL1JRUcGkSZM499xzAVi3bh2bNm0iPT09qL8jTfip3rcWm7SSIOzUHNxAYu6YSJukiQE6necuhHgUWCOlXAC8APxbCLEbKAeuCpJ9YWfUqFHceeed3HPPPcyaNYu0tDS2bNnCeeedB4Db7SY3NxeALVu28OCDD1JRUUFNTQ0XXHABAKeffjpLly5l37593HfffTz//POceeaZTJw4EVA3jOuvv55vv/0WIQROp7NVWz755BMWLFjAn/70J0BlEx08eBCA8847Twt7LCAlGTW7WOSZzEWGb6jdv57EyddH2ipNDNAhcZdSLgGWeLcfbrK/Abg8mIa152GHisGDB7Nu3ToWLlzIgw8+yPTp0xkxYgQrVqw4buwNN9zAe++9x5gxY3j55ZdZsmQJoMIv//jHPygsLOTRRx/liSeeYMmSJZx++ukAPPTQQ5x99tm8++677N+/n7POOqtVW6SUzJ8/nyFDhjTbv3LlShISEoL6c2siRPVRktwVHLIOZo/jIBlleyJtkSZG0OUHWlBYWEh8fDzXXnstd911FytXrqSkpKRR3J1OJ1u3bgWgurqa3NxcnE4n8+bNazzHpEmTWL58OQaDAZvNxtixY/nnP//JGWecASjPvVevXoCKn/tISkqiurq68fMFF1zA3/72N3wRrvXr14f0Z9eEH0fRDgASe4/ksMzEXH0owhZpYgUt7i3YvHkzkyZNYuzYsTzyyCM8+uijvP3229xzzz2MGTOGsWPHsnz5cgB+85vfMHnyZKZOncrQoUMbz2G1WunduzdTpkwBVJimurqaUaNGAXD33Xdz3333MW7cuGbZLmeffTbbtm1rnFB96KGHcDqdjB49mhEjRvDQQw+F8TehCQcH9n0LwLChI6i05pDUcESlRmpil12fQBie0EQX5z07zYQJE2TLeu7bt29n2LBhEbEnltC/x+7D1jceYsSOp9j3w92smf8kl5c+A3fvg3g9nxKTSAm/yYJTfwTnPdKpUwgh1kopJ7Q3TnvuGk0kqSqkXCaSnZ6GIa03ALJSh2Zilvpj4HFCYnbIL6XFXaOJIKaaIxSTQYLVhCVFZWHVlB2JsFWakFHrXbyZoMVdo4lp0uv2UmxWk+tx6T0BqC0rjKRJmlBSU6zeteeu0cQwDVVkuY5wNEFNxidnKHGvP6Y995ilpki9a3HXaGIXe5nqc2zL7g9AZnoa1TIOd5UW95hFh2U0mtinYP8uALLzBgKQlWSlRKb4H901sUdNMQgjxKWF/FJa3JtQUVHBM888E/brvvfee2zbti3s19VEltrifQBk9Vbinmg1USZSMdfriqkxS02xCskYQi+9Wtyb0J3EXZf67f4YqgpwSCPJmXmAarRSZUzHZi+NsGWakFFbDAnhqYirxb0J9957L3v27GHs2LH8/Oc/55xzzuGUU05h1KhRjeV29+/fz9ChQ7nmmmsYNmwYc+bMoa6ujtWrV3PppZcC8P777xMXF4fD4aChoYH+/VVMtbUSwcuXL2fBggXcddddjB07lj179rBnzx5mzJjB+PHjOf3009mxQy1Rv+GGG7j11luZPHkyd999d2R+SZqgISsOcURmkJpgbdxXb80k0VkeQas0IcXnuYeBTleFDDmL7oWjm4N7zpxRMPP3bR7+/e9/z5YtW9iwYQMul4u6ujqSk5MpLS1lypQpzJ49G4CdO3fywgsvMHXqVG666SaeeeYZ7rjjDjZs2ADAsmXLGDlyJKtXr8blcjF58mSANksEz549m1mzZjFnzhwAzjnnHJ599lkGDRrEypUruf322/niiy8A1UR8+fLlGI3G4P5uNGFHVhziiMiir9HvY9mtmSTU14CzAcy2CFqnCQm1JZA9PCyXil5xjzBSSu6//36WLl2KwWDg8OHDFBWpNKbevXszdepUAK699lqeeuopfvnLXzJgwAC2b9/OqlWr+MUvfsHSpUtxu92N1SDbKhHclJqaGpYvX87ll/uLbNrt9sbtyy+/XAt7DCClJNtTwoGUic33J2RDBciaIkRa3whZpwkJUkJNMXsbEoivbCAnJbQ37+gV9xN42OFg3rx5lJSUsHbtWsxmM/n5+TQ0NADHN6H2fT7jjDNYtGgRZrOZc889lxtuuAG3280TTzwBtF0iuCkej4fU1NTGp4CW6FK/sUFpZQ3ZHONoZn6z/ek5veEwHC3YT64W99jCW3rgjW0NOBP3hLysuY65N6Fpyd3Kykqys7Mxm818+eWXHDhwoHHcwYMHG0sAv/baa0ybNg1Q1R//8pe/cOqpp5KVlUVZWRk7d+5k5MiRQNslgpteNzk5mX79+vHWW28BysPbuHFj6H94TVgpPrwPg5BYMvo025+eowS9uvRgJMzShBJvjvtRdzLnDesR8stpcW9CRkYGU6dOZeTIkWzYsIE1a9YwatQoXn311WYlfYcMGcLTTz/NsGHDOHbsGLfddhsAkydPpqioqLFu++jRoxk1alSjZ99WieCrrrqKJ554gnHjxrFnzx7mzZvHCy+8wJgxYxgxYkTjZK4mdqg8sheApB79m+2P84q9u0KXIIg5vOsXSkmhX1bon8CjNywTIV577bUTHt+/fz8mk4n//Kdlj3CIi4trFh9/7rnnmh2/7bbbGm8ETZk6depxqZCLFy8+blzTxh6a7k19qXoSTO/ZXNyT07OwSzOySot7zOEtPWBJySE3JS7kl9Oeu0YTAWSFCrskZOU325+ZZKOINC3usYg3LGNNzQnL5doVdyGETQixSgixUQixVQhxXIV5IcQNQogSIcQG7+uW0JgbefLz89myZUukzdB0c6y1hZSL1OPSHc1GA5WmLEy1RyNkmSZk1BTjwkBiangWMQUSlrED06WUNUIIM/CVEGKRlPKbFuPelFL+OPgmajSxR7zzGFXGNFrrt1RjzSLfvjPsNmlCi6wppkymkJkU+pAMBOC5S0WN96PZ+wpZb75Itf2LFfTvr3tgddfQYGx9Uq3e1oN0d5nupRpjuKuPUiJTyEi0hOV6AcXchRBGIcQGoBj4VEq5spVhlwkhNgkh3hZC9O6MMTabjbKyMi1QnURKSVlZGTabXtkY7djcNTiMia0ec8bnYMWh8qI1MYO7qphSmUJGk3IToSSgbBkppRsYK4RIBd4VQoyUUjYNPH8AvC6ltAshfgi8AkxveR4hxFxgLkCfPn1aHiYvL4+CggJKSnRVvM5is9nIy8uLtBmadoiTdVSak1o9JpNVuz17eQFW3Sg7ZhC1JZQyiKykKBJ3H1LKCiHEl8AMYEuT/WVNhv0L+GMb338OeA5gwoQJx7nnZrOZfv36dcQkjaZbkiBrcbUh7sYU1XavuuQg1rzR4TRLEyqkxNRQSomcwOB4c1guGUi2TJbXY0cIEQecB+xoMSa3ycfZwPZgGqnRxBJOt4d4WY/B1npYJi5DRTVrSw+F0yxNKKk/hsHjpFSmkBYfnph7IJ57LvCKEMKIuhn8V0r5oRDiUWCNlHIB8FMhxGzABZQDN4TKYI2mu1NWWUOLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 16,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 20,
"metadata": {},
"outputs": [],
"source": [
"sbdart_winterp = np.interp(wvref,wlalb,sbdartw)*100"
]
},
{
"cell_type": "code",
"execution_count": 48,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.maximum(np.sum(wtspec,axis=0),sbdart_winterp)*2.1"
]
},
{
"cell_type": "code",
"execution_count": 49,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xd0W8eZ9/HvgCBAsIGdFItEqnfJkixXyU6i2ErikuIUxylOk7OJs3bi3WzWu3nj9E3W690kTvPaKWvHTlzSZCdyb3KRrW71Rkqk2CtIsIAA5v0DBERSpFhw0S6ezzk+JsGLi6EI/DCY+8yM0lojhBAi8Vli3QAhhBDGkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTsEbzwQoKCnRlZWU0H1IIIRLejh07WrXWhRMdF9VAr6ysZPv27dF8SCGESHhKqZOTOU6GXIQQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0COgtr2Xzl5PrJshhEgyEugG6x/08d6fvsJ//P1QrJsihEgyEugG+/u+BtrcHk6198a6KUKIJCOBbrAHt50CoMnVH+OWCCGSjQS6gY41d/NmTQcZthSauwdi3RwhRJKRQDfQ/noXAFcsKaG730ufxxfjFgkhkokEuoEauwLDLMvLnQA0d8uwixAieiTQDdTkGiDDlsLswkwAGXYRQkSVBLqBmlz9FGenUZRlB6DZJYEuhIgeCXQDBQO9ODst9L0QQkSLBLqBmrr7Kc62k5ueSmqKkiEXIURUTRjoSqlfKaWalVL7ht32n0qpQ0qpvUqpPymlciLbzPintabJNUBxdhpKKQoz7XJRVAgRVZPpof8G2DjqtqeBpVrr5cAR4F8NblfC6ewdxOP1h4ZbirLTaJEeuhAiiiYMdK31S0D7qNue0lp7h759HSiPQNsSSuPQeHko0LPsMoYuhIgqI8bQPw383YDzJLRgeJc4AxUuRdl2GUMXQkRVWIGulPo3wAv87hzHbFJKbVdKbW9paQnn4eJaMNCLstJC/+/sHWTAK7NFhRDRMe1AV0rdCFwF3KC11uMdp7W+R2u9Rmu9prCwcLoPF/eahmrOi7IDPfTibKlFF0JE17QCXSm1EfgqcI3WWtaJJdBDz8uwYbemAGd66jLsIoSIlsmULT4EvAYsUErVKaU+A9wNZAFPK6V2K6V+EeF2xr0mV39ohihA4dDXLVK6KISIEutEB2itrx/j5vsi0JaEdqSphyWl2aHvz8wWlR66ECI6ZKaoAdqHdihaWXFmflV+ho0Ui5LJRUKIqJFAN8Ceuk4AVgwLdItFUZBpk4uiQoiokUA3wJ7aTpSCpWXOEbcXZ6fRJBdFhRBRIoFugD21ncwryiTTPvKSRFGWnWaZLSqEiBIJ9DBprdlT18WK8rPXJyvMkvVchBDRI4EeprqOPtrdnhHj50HF2Xba3B4Gff4YtEwIkWwk0MN0otUNwPzirLN+FpxcJL10IUQ0SKCHqWloY+gZzrSzfhbaik4CXQgRBRLoYQoumxtcw2W4otB6LnJhVAgReRLoYWro6id/2Bouw8neokKIaJJAD1NwY+ixFGbasaVYqOvoi3KrhBDJSAI9TA1d/WOOn0NgtmhZroPaDlmQUggReRLoYWpy9VM8TqADlOc6pIcuhIgKCfQw9A/6aHd7KBlnyAWgIi+d2nbpoQshIk8CPQzBhbdKJuihd/QO0jPgHfcYIYQwggR6GIIli+fsoeemA1An4+hCiAiTQA9DQ1dgbHy8i6IQGHIBqG2XcXQhRGRJoIchWF8+0UVRkB66ECLyJNDD0Ng1QIYthSz7+Dv55WfYcKSmSA9dCBFxEuhhaHT1UexMQyk17jFKKSrypBZdCBF5EuhhqG3voyzHMeFx5bnpUosuhIg4CfRp0lpT0+pmdkHGhMdW5Dqoa+9Fax2FlgkhkpUE+jS19njoHvBSOZlAz0une8BLV99gFFomhEhWEujTVNMW2NiiahKBfqbSRYZdhBCRI4E+TdUtUwn0YC26XBgVQkTOhIGulPqVUqpZKbVv2G15SqmnlVJHh/6fG9lmxp/qNjepKWpSF0VDk4uk0kUIEUGT6aH/Btg46ravAc9qrecBzw59n1SqW9xU5KVjTZn4n9DpSCUrzSpDLkKIiJowjbTWLwHto26+Fvjt0Ne/Bd5rcLviXvUkK1yCKnJl1UUhRGRNdwy9WGvdMPR1I1A83oFKqU1Kqe1Kqe0tLS3TfLj44vdratrckxo/D6rIk3XRhRCRFfZFUR0orh63wFprfY/Weo3Wek1hYWG4DxcXGlz9DHj9kypZDApOLpJadCFEpEw30JuUUjMAhv7fbFyT4l9N6+QrXIJm5afTN+jjlAy7CCEiZLqB/lfgk0NffxL4izHNSQwnphHob19YBMCfd9VHpE1CCDGZssWHgNeABUqpOqXUZ4D/AN6plDoKbBj6PmnUtLpxpKZQnDX+srmjleemc/GcfB7bWSfDLkKIiBh/3dchWuvrx/nROwxuS8KobnUzKz8di2X8VRbHct3qcr7y8B7erOlgbVVehFonhEhWMlN0Gmpa3cwunPxwS9AVS0pQCl473haBVgkhkp0E+hQN+vycau+lMn/qgZ5pt1KZn8HBBlcEWiaESHYS6FNU19GH16+ndEF0uEUzsjjYKIEuhDCeBPoUBUsWpzPkArCoJJuTbb30DHiNbJYQQkigT1WwZHE6Qy4Ai2ZkA3BYeulCCINJoE9RTaub7DQreRm2ad1/UWkg0A80dBvZLCGEkECfqhOtPVQVZJxzY+hzKXWmkZ1m5UC99NCFEMaSQJ+CZlc/b1Z3cN7M6S//rpRiTWUeLx5uxu+XCUZCCONIoE/Bb1+rYdDv51OXVIZ1nmtXllLf1c+26tGrEgshxPRJoE+Se8DLA6+fYuOSEmZN84Jo0BWLS8iwpfDnXacNap0QQkigT9oTexvo6hvks+uqwj6Xw5bClUtK2LK/UdZ1EUIYRgJ9kl6vbiM/w8aqMMbPh1tcmk1X3yBdfYOGnE8IISTQJ2nHyQ5Wz8qddnXLaMHNpU93yi5GQghjSKBPQkv3ACfbellTaUzvHKB0KNDrO/sNO6cQIrlJoE/CjpOBapTVs4xb8vZMoEsPXQhhDAn0Sdhe04HNamFpWbZh58zPsGGzWiTQhRCGmXCDi3jQ1jNAd3/sFrN6vbqNFeVO7NYUw85psSjKchzUSaALIQySEIH+P88c5f7XT8a0DV982xzDz1makyY9dCGEYRIi0D+wupxVs3Ji9vgWpbh8QZHh5y11OnjpaIvh5xVCJKeECPSVFTmsrIhdoEdKaY6D5u4BPF4/Nqtczkg2bT0D5GfaY90MYSKSIjFUluNAa2hySelistl3uovV33mG379xKtZNESYigR5DZbkyuShZ3f3cMQDufOpwjFsizEQCPYaCteinOyTQk0n/oI8XjjQD0NrjCW1rKES4JNBjaIYzDZDJRcnmteNt9A/6+fZ7lwLw8rHWGLdImEVYga6U+rJSar9Sap9S6iGlVJpRDUsGaakpFGTaqO+SQE8m26rbSU1RfHB1Obnpqew/3RXrJokI8nj9NHT1RWVDm2kHulKqDPhHYI3WeimQAnzEqIYli9IcB6dlPZekcrjRxZzCTNJSU1hS6mRfvQS6mR1scHHR95/j6YNNEX+scIdcrIBDKWUF0oH68JuUXEqdDhlySTJHmnpYUJIFwMKSLI429ch2hCZW0xa4RlJVEN7GOJMx7UDXWp8G7gROAQ1Al9b6KaMalizKch2c7uiTjS6SxOnOPk539rGkNLAu0OzCTAa8fhqkdNW0qlvdKAUz89Ij/ljhDLnkAtcCVUApkKGU+tgYx21SSm1XSm1vaZFZkaOV5jjoG/TR2SsbXSSD14+3AXDZ/MDM48qCwIu8ukUqXcyqptVNqdNBWqpxa0GNJ5whlw1Atda6RWs9CPwRuHj0QVrre7TWa7TWawoLC8N4OHMqywlcR5Za9ORwoMFFWqqFuUWZAMwuCPy/urUnls0SEVTT1ht64460cAL9FHChUipdBbbxeQdw0JhmJQ9ZFz25HKh3saAkmxRLYOer4mw7jtQUTkgtumnVtLnD3lh+ssIZQ98GPArsBN4aOtc9BrUraQS3opMXtPlprdlf38XiGWfW1VdKUVWQQbX8/U2ps9dDZ+8gVfEe6ABa629orRdqrZdqrT+utR4wqmHJIj/TzuIZ2Ty5vzHWTRERdrqzD1e/N3RBNKiqUALdrIJ/18ooVLiAzBSNC1evKGXXqU5q23tj3RQRQQfqXQAsHhXocwozqW3vpX/QF4tmiQg62RZ4TVfmx/8YujDIVctnALB5r5Txm9mBBhdKBWrPh5tfnIlfw/EWuTBqNsGSxYoolCyCBHpcqMhLZ25RJrtPdca6KSKCDtS7qCrIIN02chuCeUWBgD/WLIFuNjVt0StZBAn0uFGUZafd7Yl1M0QEHWx0jbggGlRVkIHVojjS1B2DVolIimbJIkigx438TDttEuim5fdrGjr7x/zobbNaqCzI4EiT9NDNpqbVTWWUKlxAAj1u5GfYaO2RIiGz6uobxOvXFI6z5dz84kyOSg/dVDrcHrr6BqOyhkuQBHqcKMi00d3vZcArlQ5mFHyzLsgaO9DnFWVxUipdTKV6aFGuaE0qAgn0uBHcLFjG0c0p+HfNz7CN+fP5xVloLRdGzeRkaJVFGUNPOnlDL/S2Hgl0M+roDfxdc9PHC/TAmi5Hm2XYxSyqW3ujWrIIEuhxoyBzKNClh25K7e7Aapq5Galj/ryyIIPUFCUXRk0kuMqi3RqdkkWQQI8b+RmBIZc2uTBqShP10FNTLFQVZMiFUROpaXNH9YIoSKDHjfxMGXIxsw63h3RbyjknmMwrzpIeukloraludUe1Bh0k0ONLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 68,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYIAAAEeCAYAAACHXhKxAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4VFX6xz9veg/pCYSQ0ANpCAhINwriIioINkRsrLg2XAu6Lrquuu7qz66rrKxlVXBFQVdFAUFFRKSI9E4aBBIS0hPSzu+POzMkpE3KZDLhfJ5nnsyce+4579wk93vPe855X1FKodFoNJpzFyd7G6DRaDQa+6KFQKPRaM5xtBBoNBrNOY4WAo1GoznH0UKg0Wg05zhaCDQajeYcRwuB5pxBRPqJyDYRKRSRu0XkHRF50t52ORIiokSktxX1xolIRnvYpGk9Wgg0AIjIwyKy4qyyAw2UXWNFe4+LyPttbOPjIlIhIkUikiciP4nIiGY08SCwVinlq5R6uY1smi0iP7ZFW22JiHxnumknnlW+zFQ+zk6maTogWgg0Zn4ALhARZwARiQBcgUFnlfU21bUpIuLSwKGPlFI+QDCwFvi4Gc32AHa11jYHYj8wy/xBRIKAEUC23SzSdEi0EGjMbMK48SeZPo/GuNHuO6vskFLqGICIvCQi6SJSICJbRGS0qfwS4BHgatPT+2+mcn8RWSQimSJyVESerCEys0VkvYi8ICI5wOONGauUqgQ+ALqJSIi5XEQmm9w/5hFDgql8DTAeeNVkU9+z22zoXNOx7iLyqYhki0iOiLwqIrHAG8AI8yjFVPd3IvKr6bqki8jjNdqJNj2R3ygiaSJyUkT+VOO4s4g8IiKHTC6sLSLS3XSsv4isEpFcEdknIjMau0am63O1+RoD1wLLgPIa/bmLyIsicsz0elFE3Gscf8D0+zomIjefdb3cReQ50/c4ISJviIhnfYaIyEOm33mhyfbkJmzXtCNaCDQAKKXKgY3AGFPRGGAd8ONZZTVHA5swRCIQ+BD4WEQ8lFJfA09jenpXSpndE+8AlRijikHABODWGu0NAw4DYcBTjdkrIm4YT7s5wClT2SDg38DvgSDgTeBzEXFXSl1o+j53mmzaf1Z7DZ5rupF+AaQC0UA3YIlSag9wO7DB1GYXU3PFJtu6AL8D5orIFWd9hVFAPyAZWGASFYD7MG7YlwJ+wM1AiYh4A6tM1zkUuAZ4XUQGNHKZjgG7Ma4zJpveO6vOn4DhGL/HROB84FHTNbkEuB+4GOgDXHTWuc8AfU3n9jZdlwVnGyEi/YA7gaFKKV9gIpDSiN2a9kYppV/6hVIKjKfwZab3v2H8819yVtmNjZx/Ckis0db7NY6FAacBzxpl12L47AFmA2lW2FcO5AFVGCIwrsbxfwJ/PeucfcBY0/vvgFtrHHsHeLKpcznjTnGpx6bZwI9N2P0i8ILpfTSggMgax38BrqnR5+X1tHE1sO6ssjeBxxro8zsMkZ0JLAb6A/tNxzLM1w04BFxa47yJQIrp/b+BZ2oc62uyvTcgGILXq8bxEcAR0/txQIbpfW8gC0NIXO39d65fdV96RKCpyQ/AKBEJBEKUUgeAnzDmDgKBOGqMCETkfhHZIyL5JreIP4bvvj56YLieMk2ulzyMG1lojTrpVtj4X2U8eYcBO4HBZ/XxR3P7pj66A12taLexc7sDqcpwRzWJiAwTkbUmN1I+xqjh7OtyvMb7EsDH9L47xs25PvuGnWXf9UB4E+Z8ClyI8UT+n3qOd8UY6ZhJ5cz16krt30nNeiGAF7Clhj1fm8proZQ6CNyLIeRZIrJERKz5nWjaCS0EmppswLiZ3wasB1BKFWC4GG4DjimljgCY5gMeBGYAAaabcz7GkyIYT441SccYEQQrpbqYXn5KqYE16lgdClcpdRKYAzxumsQ29/FUjfa7KKW8lFKLrWiysXPTgagGJrDrs/lD4HOgu1LKH2MeQeqp15AdvRoo//4s+3yUUnMba0wpVQKsAOZSvxAcwxAZM1GmMoBMDGGqeczMSaAUGFjDHn9lTOTXZ8eHSqlRpr4U8PfG7Na0L1oINBaUUqXAZgw/9boah340ldWcH/DF8PdnAy4isgDDp23mBBAtIk6mtjOBlcD/iYifiDiJSC8RGdsKe/cB32AIEsC/gNtNT+QiIt6miVtfK5pr7NxfMG6Kz5jKPURkZI3vGWmaszDjC+QqpcpE5HzgumZ8rbeAv4pIH5MdCWKs9vkC6CsiN4iIq+k1tMbcQmM8guEeS6nn2GLgUREJEZFgDB+/ednvf4HZIjJARLyAx8wnKaWqMa7ZCyISCiAi3URk4tkdiLF/40LTJHQZhoBUW3c5NO2BFgLN2XyP4a6puTZ+namsphB8g+EK2I/hMiijthvBvKwzR0S2mt7PAtwwJjBPAUuBCFrHs8AcEQlVSm3GGLm8amr/IIYPv0kaO1cpVQVchuHrTsPwsV9tOnUNxpLU4yJy0lR2B/CEiBRi3Fj/24zv87yp/kqgAFiEMa9SiDHpew3GE/txjKdq9wbaqfndjimlGtrr8CSG+G8HdgBbTWUopVZgzG+swbgea8469yFT+c8iUgCsxpgAPxt3jInlkya7Q4GHm7Jb036IUjoxjUaj0ZzL6BGBRqPRnONoIdBoNJpzHC0EGo1Gc46jhUCj0WjOcbQQaDQazTlOQxEeOxTBwcEqOjra3mZoNBqNQ7Fly5aTSqk6u73PxiGEIDo6ms2bN9vbDI1Go3EoRCS16VraNaTRaDTnPFoINBqN5hxHC4FGo9Gc4zjEHIFG09mpqKggIyODsrIye5uicUA8PDyIjIzE1dW1RedrIdBoOgAZGRn4+voSHR2NiLURqzUaI7lYTk4OGRkZxMTEtKgN7RrSaDoAZWVlBAUFaRHQNBsRISgoqFWjSS0EnZiU/BSKK4rtbYbGSrQIaFpKa/92tBB0Uk6VnWL6/6bz753/trcpGgfB2dmZpKQky+uZZ54BjPmL+fPn06dPH8477zxGjBjBihUrAMjPz2fWrFn07t2bXr16MWvWLPLz8wGorq7m7rvvJi4ujvj4eIYOHcqRI0cYNmwYSUlJREVFERISYukvJSWF6Oho4uPjSUhIYOzYsaSmpjZp3xdffMGgQYNITExkwIABvPnmmwDs27ePcePGkZSURGxsLHPmzKn1fXfs2GFpKzAwkJiYGJKSkrjoootsfq1r8umnn7J379527bMO9k6abM1r8ODBStM83t7xtop7J049+P2D9jZFYwW7d++2twnK29u73vKHHnpIzZo1S5WVlSmllDp+/Lj66KOPlFJKTZs2TT322GOWugsWLFBXXXWVUkqpDz/8UE2bNk1VVVUppZRKT09Xubm5lrpvv/22+sMf/lCrrx49eqjs7GxLW7feemuj9pWXl6uIiAiVnp6ulFKqrKxM7d27Vyml1IQJE9Ty5cstdbdv397gd7/xxhvVxx9/3OBxW3L99derZcuWNeucioqKOmX1/Q0Bm5VOXn9uUq2qWXpgKQDZpdl2tkbjyJSUlPCvf/2LV155BXd3IxlaWFgYM2bM4ODBg2zZsoU///nPlvoLFixg8+bNHDp0iMzMTCIiInByMm4zkZGRBAQEWN33iBEjOHr0aKN1CgsLqaysJCgoCAB3d3f69TOSpGVmZhIZGWmpGx8fb3XfBQUFXHjhhZx33nkkJCTwxRdfAHDw4EEGDhzINddcQ2xsLDNmzKC0tJQNGzYwY8YMAD755BO8vb2pqKiguLiY3r17A/DGG28wdOhQEhMTmT59OqWlpaxbt46vvvqKefPmWUZFBw4cYOLEiQwePJgxY8awf/9+AGbOnMncuXM5//zzeeSRR6z+LtagVw11QrZnbye1IBVPF0+yS7QQOBp/+d8udh8raNM2B3T147HLBjZap7S0lKSkJMvnhx9+mNjYWKKiovDz86tTf/fu3SQlJeHs7GwpM7tvdu3axYwZMxg1ahTr1q0jOTmZmTNnMmjQIKtt/vrrr7niiisate/qq69mypQp9OjRg+TkZCZPnsy1116Lk5MT8+bN48ILL+SCCy5gwoQJ3HTTTXTp0sWqvj09PVm+fDl+fn5kZWUxcuRIJk+ebPneixYtYvjw4cyaNYs333yTO+64gy1btgCwbt06BgwYwNatWykqKmLEiBEATJ8+ndtvvx2A+fPn88477zB37lwuvfRSrrrqKst3HT9+PG+99Ra9evVi/fr13HnnnaxcuRIwxO3nn3+2iGtboYWgE5JWmAbAeWHn8VvWb3a2RuMoeHp6sm3btlpl27dvb3F7kZGR7Nu3jzVr1rBmzRqSk5P5+OOPSU5ObvS88ePHk5ubi4+PD3/9618btQ/grbfeYseOHaxevZrnnnuOVatW8c4773DTTTcxceJEvv76az777DPefPNNfvvtN8vIpjGUUsyfP58ff/wRJycn0tPTOXnSSEkdExPD8OHDAeMpfeHChdx7771ERUVx4MABNm/ezL333ssPP/xAcXExo0ePBoxruWDBAvLy8igsLLQIS03y8vL4+eefmTZtmqWssrLS8n769OltLgKghaBTklWSBcDAoIGsP7qekooSvFy97GyVxlqaenJvT3r37k1aWhoFBQV1RgUDBgxg27ZtVFdXW25O1dXVbNu2jQEDBgCGq2bSpElMmjSJsLAwli9f3qQQrF27li5dunD99dfz2GOP8fzzzzdpZ3x8PPHx8dxwww3ExMTwzjvvANC1a1duvvlmbr75ZuLi4ti5cyeDBw9usr333nuP/Px8tm7diouLC5GRkZblmWev0DF/HjNmDF9++SWenp4kJyczZ84cSkpKeOWVVwCYNWsWK1asIC4ujrfeeouff/65Tr9KKYKDg+sVPABvb+8mbW8Jeo6gE5JVkoWvqy9RvlEAnCw9aWeLNI6Kl5cXt9xyC/fccw/l5eUAZGdLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,np.sum(wtspec,axis=0),label=\"ECOSTRESS Tapwater\")\n",
"plt.plot(wlalb,sbdartw*100,label=\"SBDART Seawater\")\n",
"plt.plot(wvref,netspec,label=\"New Spectrum\")\n",
"plt.xscale('log')\n",
"plt.xlabel(\"Wavelength [$\\mu$m]\")\n",
"plt.ylabel(\"Reflectance [%]\")\n",
"plt.legend()\n",
"plt.title(\"Water Reflectance Models\")\n",
"plt.savefig(\"ocean_refl_components.pdf\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 51,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 51,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAW4AAAEACAYAAACTXJylAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8VNX5+PHPyUbY1yDIDiI7BIwsIjtWqIqKWlGpC7baWm217lZttd/6rdVu7kVx+xUViwvWvdYF/KJAQJR9iWwJWwiQkATIdn5/PHMzk5BlZnJnyzzv1yuvO3Pnzp2TZZ6cee45zzHWWpRSSsWOhEg3QCmlVGA0cCulVIzRwK2UUjFGA7dSSsUYDdxKKRVjNHArpVSM0cCtlFIxRgO3UkrFGA3cSikVYzRwK6VUjEkKxUk7dOhge/bsGYpTK6VUo7Ry5coD1to0f44NSeDu2bMnmZmZoTi1Uko1SsaYHf4eq6kSpZSKMRq4lVIqxmjgVkqpGBOSHLdSqvEqLS0lOzubY8eORbopMSk1NZWuXbuSnJwc9Dn8CtzGmFuAnwAWWANcY63V35pScSg7O5uWLVvSs2dPjDGRbk5MsdaSl5dHdnY2vXr1Cvo89aZKjDFdgF8CGdbawUAiMCvoV1RKxbRjx47Rvn17DdpBMMbQvn37Bn9a8TfHnQQ0NcYkAc2A3Q16VaXi0dFDcHBbpFvhCg3awXPjZ1dv4LbW5gCPAjuBPUC+tfbjBr+yUvHmhXPgsXSoKI90S1SQVq9ezfvvvx/pZviVKmkLnA/0Ak4GmhtjZtdw3HXGmExjTGZubq77LVUqlhXsgf3r5HbWp5FtiwpaMIG7rKzM9Xb4kyqZCmyz1uZaa0uBN4Ezqh9krZ1rrc2w1makpfk1a1Op+LHxXe/tDe9Erh2NQFFREeeccw7Dhg1j8ODBLFiwgJUrVzJhwgROO+00zj77bPbs2QPAs88+y+mnn86wYcO46KKLKC4upry8nF69emGt5fDhwyQmJrJ48WIAxo8fz5YtW1i+fDljxoxh+PDhnHHGGWzatImSkhLuv/9+FixYQHp6OgsWLKCoqIg5c+YwcuRIhg8fzqJFiwB48cUXmTFjBpMnT2bKlCmu/wz8GVWyExhtjGkGHAWmADqfXalA5KyCFidB52Gwc1mkW+OaB/69jvW7C1w958CTW/Hb8wbV+viHH37IySefzHvvvQdAfn4+06dPZ9GiRaSlpbFgwQJ+85vf8PzzzzNz5kx++tOfAnDvvfcyb948brrpJvr168f69evZtm0bI0aMYMmSJYwaNYpdu3bRt29fCgoKWLJkCUlJSXzyySfcc889vPHGGzz44INkZmbyxBNPAHDPPfcwefJknn/+eQ4fPszIkSOZOnUqAKtWreK7776jXbt2rv58wI/Aba1dZoxZCKwCyoBvgLmut0Spxmz/OjhpEHQbCVs+hmMFkNoq0q2KSUOGDOHWW2/lzjvv5Nxzz6Vt27asXbuWs846C4Dy8nI6d+4MwNq1a7n33ns5fPgwhYWFnH322QCMGzeOxYsXs23bNu6++26effZZJkyYwOmnnw7IP4OrrrqKLVu2YIyhtLS0xrZ8/PHHvPPOOzz66KOAjLjZuXMnAGeddVZIgjb4OY7bWvtb4LchaYFSjV1FBRzYAqeNhbQBsi9vC3Q5LbLtckFdPeNQOfXUU1m1ahXvv/8+9957L5MnT2bQoEF89dVXJxx79dVX8/bbbzNs2DBefPFFPv/8c0BSIk8//TS7d+/mwQcf5JFHHuHzzz9n3LhxANx3331MmjSJt956i+3btzNx4sQa22Kt5Y033qBfv35V9i9btozmzZu7+n370invSoVaQTaUFkOHvvIFcGBrZNsUw3bv3k2zZs2YPXs2t99+O8uWLSM3N7cycJeWlrJunVwIPnLkCJ07d6a0tJT58+dXnmPkyJEsXbqUhIQEUlNTSU9P5x//+Afjx48HpMfdpUsXQPLVjpYtW3LkyJHK+2effTaPP/441loAvvnmm+C+qeKDAR2ugVupUDuwWbYd+kHbnmASpMetgrJmzRpGjhxJeno6DzzwAA8++CALFy7kzjvvZNiwYaSnp7N06VIAfv/73zNq1CjGjh1L//79K8/RpEkTunXrxujRowFJnRw5coQhQ4YAcMcdd3D33XczfPjwKqNCJk2axPr16ysvTt53332UlpYydOhQBg0axH333RfcN7Xpg4AON85/CjdlZGRYrcetlMdXT8FHd8NtW6FFGvxtKHTNgIufj3TLgrJhwwYGDBgQ6WbEtBN+hp88gDnrdyuttRn+PF973EqF2oHN0LQtNO8g99t0h/ycyLZJRZdD2wM6XAO3UqF2YDN0OBWcqc6tukCBBm7lo3BfQIdr4FYq1HI3SeB2tO4KBbuh3P0ZdSpGHdkb0OEauJUKpeKDUHwA0nyGi7XuCrYcCgN7s6pGrHB/QIdr4FYqlCpHlPj2uLvJNj87/O1R0aekCEqO1H+cDw3cSoVSjYFbxgdr4FaAFCALkAZupUIpdxMkNpGRJI5WGrgb4vDhwzz11FNhf923336b9evXu3/i/J0BP0UDt1KhdGCzzJZMSPTuS20Fqa01cAcplgK3XyVdg/g70MCtVCg5gbu6Vl01cAfprrvuIisri/T0dG655RamTJnCiBEjGDJkSGVZ1e3bt9O/f3+uuOIKBgwYwMUXX0xxcTErVqxg5syZACxatIimTZtSUlLCsWPH6N27N1BzKdilS5fyzjvvcPvtt5Oenk5WVhZZWVlMmzaN0047jXHjxrFx40ZA6qP87Gc/Y9SoUdxxxx31f0P52UBgq+LoKu9KhUrpMTi0A4ZeeuJjbbpD/q7wt8ltH9wFe9e4e85OQ2D6H2t9+I9//CNr165l9erVlJWVUVxcTKtWrThw4ACjR49mxowZAGzatIl58+YxduxY5syZw1NPPcXNN9/M6tWrAViyZAmDBw9mxYoVlJWVMWrUKIBaS8HOmDGDc889l4svvhiAKVOm8Mwzz9C3b1+WLVvGDTfcwKefyiIZ2dnZLF26lMTExOrNP1F+NrTsDOT7/SPSwK1UqBzMAmzVC5OOtj1h+xKw1jsxRwXMWss999zD4sWLSUhIICcnh337ZDJLt27dGDt2LACzZ8/mscce47bbbqNPnz5s2LCB5cuX8+tf/5rFixdTXl5eWRmwtlKwvgoLC1m6dCmXXHJJ5b7jx49X3r7kkkv8C9oggbt1V2Cj39+3Bm6lQuWAp5BUTamStj2gpBCK87xT4WNRHT3jcJg/fz65ubmsXLmS5ORkevbsWbmCevVFeZ3748eP54MPPiA5OZmpU6dy9dVXU15eziOPPALUXgrWV0VFBW3atKnsvVcXUEnX/GzoPNT/49Ect1Kh4wTu9qec+FjbnrI9tCNszWksfEur5ufn07FjR5KTk/nss8/YscP789y5c2dlqddXXnmFM888E5BKgH/7298YM2YMaWlp5OXlsWnTJgYPHgzUXgrW93VbtWpFr169+Ne//gVIz//bb78N/JuxVsoftO4a0NP8WSy4nzFmtc9XgTHm5sBbqFScObBZJtuk1ND7atNDtoe2hbdNjUD79u0ZO3YsgwcPZvXq1WRmZjJkyBBefvnlKqVb+/Xrx5NPPsmAAQM4dOgQP//5zwEYNWoU+/btq6y9PXToUIYMGVLZI6+tFOysWbN45JFHGD58OFlZWcyfP5958+YxbNgwBg0aVHlhNCDFeVB2TC5WByCgsq7GmEQgBxhlra21q6BlXZUCnp8GJhGuee/Ex0qK4KGTYfJ9MP628LetAWKhrOv27ds599xzWbt2baSbUqPKn+Hub2DuRLh0PmbgeSEr6zoFyKoraCulPIoPQrNa1hxMaQ7NO8JhfSvFNae8rzOb1k+BBu5ZwKsBPkep+HT0UO2BG+QCZYB1mJV/evbsGbW97SqcsfxO/Ro/+R24jTEpwAzgX7U8fp0xJtMYk5mbmxtQI5RqdKyVwN20be3HtO2pFyfjXUE2JKVCs/YBPS2QHvd0YJW1tsaK39baudbaDGttRlpaWkCNUKrRKSmCitK6A3ebHtLjKi8NX7tcEoolD+NFlZ9dfrbUrglwLH8ggfsyNE2ilH+OeWbBpbau/Zi2PaUud4xNfU9NTSUvL0+DdxCsteTl5ZGamio78nMCzm+DnxNwjDHNgbOA6wN+BaXi0fEC2TZpVfsxzljuwzugXa+QN8ktXbt2JTs7G02JBic1NZWuXT3D/wp2Q6/xAZ/Dr8BtrS0CAkvCKBXPKnvcdQVuZyz39pA3x03Jycn06hU7/2iiVkU5HNkDrU4O+Kk6c1KpUDjm9LjrSJW06gIJSTEXuJVLCvdLqkwDt1JRwkmV1JXjTkiUYWA6siQ+FeyWbavAc9wauJUKhWOHZVtXqgQ8QwK3h7o1KhoVeCbfaI9bqShxzI+LkyCBW2dPxqfKHrcGbqWiw/ECSEiG5KZ1H9e2hxQacgK9ih8FOUFNvgEN3EqFxrF8SZPUN7HCd0igii8FOdLbDmIhDQ3cSoXC8SPQpGX9x1WWd9XAHXfyc4K6MAkauJUKjZIiSPEjcFcuqKB1ueNOwW4N3EpFlZJCSGlW/3FN20qO88Dm0LdJRY+KcjiyO6jp7qCBW6nQKCmGZD8CtzHQcSDsWx/6NqnoUbgfKsqCGlECGriVCo3S4pqXLKtJx4GQuxEqKkLbJhU9KocCBrZkmUMDt1KhUFIUQOAeIKmV/J2hbZOKHgWeipDa41YqipT6mSoBOGmQbPdvCF17VHRxetwBru7u0MCtVCgE0uNO86wkvm9d6Nqjokt+NiQ1rXuhjTpo4FbKbRUVgfW4U1tB6+6wXy9Qxo0GTL6BxhK4dSUOFU3KjsrWn+GAjo4DYP/G0LRHRZ+C4IcCgp+B2xjTxhiz0Biz0RizwRgzJuhXdFvpUfjrYPh2QaRbopQLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0)*2,label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 52,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 53,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 54,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 55,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 56,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt0G/Wd///nZ0Yj2SPLNxk7CXaCE3NnKaVpC70AZU+hmxAuhXR7oaVAoQuc3Z5Settt+UJhd6Ht9rqlTSkLaVi+219bTigU2kIpt3YTIAFKgQYChsjkYuSrrLFuM5/fH5KdBEuyZFsX+L4f5+ScoBnp8/JIOO/56DPvUVprhBBCCCGEEPXFqHUAIYQQQgghxExSqAshhBBCCFGHpFAXQgghhBCiDkmhLoQQQgghRB2SQl0IIYQQQog6JIW6EEIIIYQQdUgKdSGEECVRSmmlVF+tcwghxP8rpFAXQogFoJT6pFLqaaWUo5TarZT6oVKqtda5Xk8p9Q6l1N1KqVGl1LBS6lGl1Pm1ziWEEGImKdSFEGKelFKfA64HPg+0AMcBy4B7lVL+Wmbbl1LqeOB+4EGgDwgDlwB/V+FxfZV8fSGEeLOSQl0IIeZBKdUMXA38o9b6N1rrtNb6ZeBDwEHAubn9TKXUPyulXlRKxZRSW5RSPblthyml7s3NcG9TSn1on9dfrZR6Qik1rpSKKKWu2mfbQbnlKOcppXYopaJKqX8pEvcbwHqt9fVa66jO2qK13ne8i5RS23NZfqWUWlLg525RSv1UKfWaUuoVpdRXlFJGbtsnlVJ/VEp9Wyk1BFyV7zWEEEIUJ4W6EELMz7uABuD2fR/UWk8AdwPvzz10OfARYBXQDFwAOEqpIHAvcBvQCXwYuEEpdUTueXHgE0ArsBq4RCl15usyvAc4FPhb4Eql1OGvD6mUsoHjgV8U+kGUUicD/072JGMx8ArwPwV2/z7Zbw+WAyfmMu67hOadwEtAF/CvhcYUQghRmBTqQggxPx1AVGudybNtV247wKeAr2itt+Vmsp/SWg8BpwEva61v1lpntNZPAL8E1gJorR/QWj+ttfa01n8G/i/ZwnhfV2utJ7XWTwFPAW/Jk6WN7O/8XUV+lo8B/6W13qq1TgJfBo5XSh20705KKZPsCcWXtdax3DcI/wF8fJ/ddmqtv5/7mSaLjCmEEKIAKdSFEGJ+okBHgXXYi3PbAXqAF/Psswx4Z+7izlGl1CjZgnkRgFLqnUqpP+SWmIwB/8De4n/K7n3+7gBNecYZAbxcpkKWkJ1FB6a/FRgCDnzdfh2Ate++ub/vu1+kyDhCCCFKIIW6EELMz/8CSeCD+z6olGoie5Hm73MPRYAVeZ4fAR7UWrfu86dJa31JbvttwK+AHq11C/AjQJUbUmvt5LKeXWS3nWRPHKZ+hiDZC05ffd1+USC9777A0tftp8vNKIQQYn9SqAshxDxorcfIXkz6faXUB5RSVm6pyP8HDAAbcrv+BLhGKXWwyjpaKRUG7gIOUUp9PPdcSyn19n3WmYeAYa11Qin1DuCj84j7BeCTSqnP58ZGKfUWpdTUOvT/C5yvlDpGKRUA/g3YnFvasu/P7OZ+vn9VSoWUUsvIrsG/dR7ZhBBCvI4U6kIIMU9a668D/wx8ExgHNpOdKf/b3FpvgG+RLW5/l9vnJqBRax0DTiG75nsn2WUs1wOB3PMuBb6mlIoBV+ZeY645/wScnPvzklJqGPgx2Yte0VrfB3yV7Br5XWS/AfhwgZf7R7IXur4EPEJ25v+/5ppNCCHETEpr+XZSCCGEEEKIeiMz6kIIIYQQQtQhKdSFEEIIIYSoQ1KoCyGEEEIIUYekUBdCCCGEEKIO5btBR0Gtra16yZIllcoihBBCCCHEm95zzz0X1VofMNt+ZRXqS5YsYcOGDbPvKIQQQgghhMhr5cqVr8y+lyx9EUIIIYQQoi5JoS6EEEIIIUQdkkJdCCGEEEKIOiSFuhBCCCGEEHVICnUhhBBCCCHqkBTqQgghhBBC1CEp1IUQQgghhKhDUqi/AVx88cWsWbNmv8euuuoqVq5cWaNElfFm/JmEEEIIIeaqrBseCRgYGGD9+vVs3bqV3bt34/f7CYfDHHnkkaxZs2a/QnPdunUceuihnHTSSbULXAGZTIZf//rX/Pa3v+X5559nYmKCYDBIX18f73vf+zjzzDNpaGiodUwhhBBCiDc0KdTL8Oyzz3LxxRfj8/lYvXo1y5cvJ5lMEolE2LRpE7Zt71eo33jjjZx22mlvqkJ9ZGSEyy+/nKeffpqjjjqKj3zkI3R0dBCLxXjiiSf49re/zZNPPsl1111X66hCCCGEEG9oUqiX4cYbbySRSHDbbbdxyCGHzNgejUZrkGrhZDIZXNclEAjk3a615otf/CJPP/00V1xxBR/+8If3237uueeyY8cO7rvvvmrELUkikcDn8+HzyUddCCGEEG8sUr2UYceOHbS0tOQt0gE6OjoA2LlzJ6effjoAd911F3fdddf0Po8//vj03zdv3sxPf/pTnnnmGVKpFEuXLuWcc87hnHPOmVO+l19+mf/5n/+ZXpbjui69vb2cc845nHnmmfvtu27dOm688UZ+9rOfcccdd3DfffcRjUa54YYbCq4Tf/jhh9m6dSvvf//7ZxTpU5YuXcoFF1yw32Nbt27lJz/5Cc888wyZTIaDDjqItWvXzshUyAsvvMC6det44oknmJyc5MADD+S0007j3HPPxTTN6f2uuuoq7rrrLu69916+973v8cc//pGRkRHuuOMOlixZUtJYQgghhBD1Qgr1MnR3d/PKK69w//33c/LJJxfcr62tja997WtceeWVvPWtb+Wss86asc/tt9/Ov//7v/M3f/M3XHDBBTQ2NrJ582auu+46Xn31VT7zmc+Une/xxx9n69atvOc972HJkiUkEgnuu+8+rr32WkZGRjj//PNnPOerX/0qgUCAj33sYyilpk828vn9738PwAc/+MGSMz300EN8/vOfJxwOc+6552LbNr/73e+49tprefXVV7nsssuKPn/f5UZr164lHA7z8MMP8/3vf58XXniBa6+9dsZzLrvsMsLhMBdeeCGTk5PYtl1yXiGEEEKIeiGFehkuvPBCNm/ezBe+8AWWLl3KW97yFo488kje9ra30dvbO71fY2Mjq1at4sorr+TAAw9k1apV+71ONBrlm9/8Jqeccgr/+q//Ov342rVr+eY3v8l///d/c/bZZ9Pd3V1WvtWrV8+Yjf/oRz/KP/zDP3DLLbfw8Y9/fMYSkKamJm644YaSloa8+OKLAAW/UXg913X5+te/TmNjI+vXr+eAAw4A4EMf+hCf/vSnWb9+PWvWrGHp0qUFX+Ob3/wm6XSam2++mYMPPhiAv//7v+fLX/4yv/nNbzj99NN5xzvesd9zVqxYwTXXXFNSRiGEEEKIeiXtGctw9NFHc+utt3LaaacxMTHBnXfeyXXXXcfatWu56KKLGBgYKOl17rvvPlKpFGeccQajo6P7/Xnve9+L53k8+uijZedrbGyc/nsymWR0dJTx8XGOO+444vE4L7/88oznfPSjHy15/XY8HgcgGAyWtP9zzz3H7t27Of3006eLdADLsvjEJz6B53k8+OCDBZ8/PDzMn//8Z0444YTpIh1AKTW9vOYPf/jDjOede+65JeUTQgghhKhnMqNepr6+Pq666ioAdu3axZYtW7jjjjt44okn+NznPsett96KZVlFX2OqYL700ksL7jM8PFx2Nsdx+PGPf8y9997Lnj17ZmwfHx+f8Vix2ezXmyrQHcehubl51v137twJwPLly2dsW7FiBQCvvvrqnJ7f29uLYRh5n79s2bJZswkhhBBC1Dsp1Odh8eLFnHbaaaxevZpPfepTPPXUUzzzzDMcc8wxRZ+ntQbg6quvLrgm/MADDyw7z7/8y7/wyCOPcNZZZ3HsscfS0tKCYRj88Y9/5LbbbsPzvBnPKaff+YoVK/jrX//Ktm3bePvb3152vmqRHu5CCCGEeDOQQn0BKKU46qijeOqppxgcHJx1/56eHgBaW1t55zvfuSAZYrEYjzzyCKtWreKf//mf99s2l2U0+Zx88sn8+te/ZuPGjSUV6lMnGy+99NKMbVOPFTshmerUku/5L7/8Mp7nzemERgghhBDijUDWqJdh06ZNZDKZGY8nEgk2bdoE7L9Mw7ZtxsbGZuz//ve/H7/fz7p160gkEjO2T0xMkEqlyspmGNm3cmq2fko0GmXjxo1lvVYhJ5xwAsceeyy//e1v+fnPf553n0gkws033wzAYYcdxqJFi7jzzjv36zGfyWTYsGEDSilOPPHEguO1t7dz9NFH89BDD7F9+/bpx7XW02O8733vW4gfTQghhBCi7siMehm+9a1vMTY2xgknnEBfXx8NDQ3s2bOH3/zmN+zYsYPVq1fT19c3vf9RRx3Fo48+yi233MKiRYtQSnHqqafS1dXFl770Ja699lrWrl3LqlWrWLx4MSMjI2zfvp0HHniAn//852X1/g4Ggxx33HHcc889BAIBjjzySHbt2sXtt9/OgQcemPeEoVxKKa6//no++9nPcv3113P33XdzwgknEA6HicViPPnkkzz00EPTrStN0+QLX/gCn//85znvvPM466yzsG2be++9l6effprzzz9/1jXyV1xxBRdffDEXXXTRdHvGRx55hP/93//lAx/4wIyOL0IIIYQQbxZSqJfh8ssv58EHH+TJJ5/k/vvvZ2JigqamJvr6+jjvvPNYs2bNfvt/6Utf4vrrr+fmm2+e7phy6qmnAnD66aezdOlSbr31Vm6//XZisRitra0sW7aMSy65hHA4XHa+a665hu9///s8/PDD/PrXv6anp4dLL70Un8/H1VdfPf8DQLZH/E9+8hPuuusufve733HrrbdOH4eDDz6YK664Yr/jcMIJJ3DDDTdw0003sWHLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s]*3.25,s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ocean Color\")\n",
"plt.savefig(\"colorgrid_ocean.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 57,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 58,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 59,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xl8FfW9+P/XOyf7HhLWLIQdQRYxICoiiiBVFFGpqFUrtipqi3a1t/16rT9vq733tvd6tfW27larBWXRiwuIoiwCQfY9rAkEspJ9Ocvn98dMwklIciLk5GR5Px+PeczMZz4z8z4T+LzPLGc+YoxBKaWUaklQoANQSinV8WmyUEop5ZMmC6WUUj5pslBKKeWTJgullFI+abJQSinlkyYL1WGJSLqIGBEJtue/EJEftNG2nxSRv7fFtprZfpqIlIuIo4U6RkQGn+P2p4hIjtf8LhGZYk+LiLwqIsUistEumy8ip+yYEs9ln6p702TRhYnI90Vkh4hUishJEfmLiMQHOq7uwBhzzBgTbYxxQ9smumb2N9IY84U9OwmYBqQYYyaISAjwR2C6HVOhv+Joioi8JiJPt/e6qm1psuiiROSnwLPAz4E4YCLQH1ghIqGBjE35XX/giDGmwp7vDYQDu85lYy2dHXV0dWelqg0YY3ToYgMQC5QD321UHg3kA/PseQfwL8BBoAzYDKTay4YDK4AiYJ/3toDrgS1AKZANPOm1LB0wwD3AMaAA+HULsbZmW8H2/BfA74GNdv2lQA+v+hOBdcBpYBswxWvZAGC1/TlXAM8Df/dafiNWY3ra3s8FzcT7W+B/7OkQoAL4d3s+AqgGenjHDvwb4LaXlQPP2/UN8CBwwN7vC4A0s98I4DWgGNiN9SUgx2v5EeAa4D57P257X/+wYzT2/KpW/H1fA/4CLLfXvQYIA/7D/pueAl4EIuz6U4Ac4KdAHpAL3Gsvux9wArX2/j9o4rMJ8Cd73VJgB3Bhc+sCj3Pm3+xuYLbXtr4PrLW3Vwg8DQy2//YlWP8e3w30/9HOOAQ8AB388EeFGYALu5FttOx14B/29M/t/5jD7P+wY4BEIAqr4b7Xbuwusv+TjbDXmwKMwjozHW03HjfZy9LthulvdgM3Bqih+ca3NdvyThbH7YYkCngPu8EHku3G4Tp7W9Ps+Z728vVYl2LCgMl2Q1O37lC7UZyGlQB+AWQBoU3EezWww56+zG60Nngt29ZC7D9otC0DfAjEA2lYiXxGM8fpGeArrESUCuykiWRhT38fWOO1rHEsvv6+r2E1rJfbxzIcq/FdZu8/BvgA+L3X39AFPGUfv+uASiDBa3tPt/Dv9VqsLyrxWP8OLwD6NrcuMAfoZ8d2m/236+v12V3Aj+zPFoGVMH/t9VkmBfr/aGcc9DJU15QEFBhjXE0sy7WXA/wA+I0xZp+xbDPW9eyZWJcxXjXGuIwxW7Aa5jkAxpgvjDE7jDEeY8x2rP+MVzbaz2+NMVXGmG1Y3/LHNBVoK7fl7U1jzE5jXWL5f8B37csk3wOWG2OW29taAWQC14lIGjAe+H/GmBpjzJdYjV2d24D/M8asMMY4sb5BR2Alg8bWA0Psm8STgZeBZBGJtuNe3ULsTXnGGHPaGHMM+BwY20y97wL/ZowpMsZkA899y/14a/Hva1tqjFlrjPFgJfv7gcfs/ZcBvwPmetV3Ak8ZY5zGmOVYZwLDWhmPEysBDcc6s9pjjMltrrIxZqEx5oT9d34X68xsgleVE8aY/7E/W5W9/f5AP2NMtTFmTSvjUl40WXRNBUBSM9dr+9rLwfqGerCJOv2BS0TkdN0A3An0ARCRS0TkcxHJF5ESrEspSY22cdJruhLrEthZWrktb9le00exvskm2THPaRTzJPvz9gOKzZlr+HXr1unnPW83kNlYZysN2I1PJlZimIyVHNZhfQs/l2TRquNkx9j4s5+rFv++Nu999QQigc1e9T+2y+sUNvpy0tJnacAYswrrsuALQJ6I/FVEYpurLyJ3i8hWr1gupOG/mexGq/wC64xlo/3U2LzWxKUa0mTRNa3H+jZ4s3eh/e33O8BndlE2MKiJ9bOB1caYeK8h2hgz317+NtYliVRjTBzW9Ws5x1i/7bZSvabTsL41Ftgxv9ko5ihjzDNYZ1MJIhLVaN06J7AaUMB69NTez/FmYliNdcnpImCTPX8t1rfbL5tZ53xf75zL2Z/9XPn6+0LDeAuAKmCkV/04Y0yrkgGt+OzGmOeMMRcDI7AuC/68qXVFpD/WJc5HgERjTDzWJTnvfzMN1jHGnDTG/NAY0w94APjzuT6y3J1psuiCjDEl2DdiRWSGiISISDrwT6wbkW/aVV8C/j8RGWI/mz/avrzyITBURO6y1w0RkfEicoG9XgxQZIypFpEJwB3nEe633db3RGSEiERiXSNfZKzHU/8O3CAi14qIQ0TC7d8ipBhjjmKdDfxWREJFZBJwg9c2/wlcLyJT7cdMf4qVbNc1E8Nq4G5gtzGmFvt+BHDYGJPfzDqngIE+PltL/gn8SkQSRCQF65r8ufL1923APtP6G/AnEekFICLJInJtK/fX4me3932JfewrsG7Qe5pZNworGeTb696LdWbRLBGZYx8zsB4QMF7bV62kyaKLMsb8AetJp//AesJkA9Y3yqnGmBq72h+xGqFP7TovYz3hUgZMx7omfQLrUsmzWDeHAR4CnhKRMuAJexvn6ttu602sm54nsW5W/tj+vNnALPsz59uf9eec+Td+B3AJ1tM//wq8UbdBY8w+rHse/4P1LfoG4AY7ETRlHdY9jbqziN1YDVxzZxUA/w3cav9Q7lzuN/wW69LTYay/15stV29eK/6+Tfkl1k3/r0WkFFhJ6+9JvAyMsC8bLWlieSxWMirG+oyFwL83ta4xZjfwn1hnz6ewHo5Y62P/44ENIlKOdRa7wBhzqJWxK5sYo50fKaWUapmeWSillPJJk4VSSimfNFkopZTySZOFUkopnzRZKKWU8qnLvJExKSnJpKenBzoMpZTqVDZv3lxgjOnpq16XSRbp6elkZmYGOgyllOpURKRVr47Ry1BKKaV80mShlFLKJ78mC/u9RPtEJEtEHm9ieZiIvGsv32C/vwj7/T2v2l2CbhO7b2GllFKB4bdkYfcx8ALWW05HALeLyIhG1e7DenX0YKzOVZ61y38IYIwZhdUhzX+KiJ4FKaVUgPizAZ4AZBljDtkvZHsH60Vv3mZh9dwGsAiYar8eegSwCsAYk4fV5WSGH2NVSinVAn8mi2QadkKSw9mdydTXsTtOKcHq1nMbcKOIBIvIAOBiGr7LXymlVDvqqI/OvoLVD28m1iuL12F1QN+AiNyP1d0jaWnn0xeMUkr5hzEGjwGXx4PbY3B5DB573NR83eAxXsvt6fp6xpquq9c7NpyL0hL8+jn8mSyO0/BsIIWzex6rq5NjdwEah9U9owEeq6skIuuA/Y13YIz5K/BXgIyMDH3XulJdlDGGWreHWpc9uD04XYZat5salwen21Dr8uB0e+rrOd11g7HGdfXscldduT12eTzUugwuz5llLo81dnsMLre9zGNwug0uu9zp8eB2n2ns6+t7JQN/mzm6L8/f0XmTxSasju0HYCWFuZzdC9oy4B6sjkxuBVYZY4zdC5oYYypEZBrgsjs9UUoFkMdjqHF5qHK6raHWTbWzbvBQbZdXO91UuzzUOK3GvNp77PRQ47LmraGuzJqutcu9x7Xutu/YLkgg2BFEmCOIYIcQ7AgitG46SAipnw4ixB6HhQQTHGTVDQ4SHHX17Om6+memBYdY9R11deyx93yQWPWDpGGZdz2H13yQ13yQCHGRIW1+fBrzW7IwxrhE5BHgE8ABvGKM2SUiTwGZxphlWL1gvSkiWVg9mM21V+8FfCIiHqxEc5e/4lSqK6p1eSivcVFR46Ki1kVFjZtK73Gtmyqv+cpaq+GvrHVT6XRTXeum0mmVV9e665NDtfPcGm0RCAsOIjzEQVhwEGHBDsJDrHFocBBhwUHEhAc3mA+1hwZljjPlddMhDmtZiMNq1EPrp+uWWw16qCOIkOCg+kTgCDrXbuO7py7TU15GRobR132ozq7a6aa02klZtYvSKiflNS7Kql2UV7sorbbmy6tdVrnXdIVdz0oMLpzu1v+/Dg8JIio0mIhQB5GhDiJCg4kICSLSLosIsctDHISHOOrLwkOsxr+u/My0nRRCziSFUEcQ1oOOqqMRkc3GGJ9Pm3bUG9xKdUrGGKqcbk5XOq2hqpaSSiclVU5OV1njkionpVVOSqtdlFQ5KatyUlrtpLTK1arLLZGhDmLCg4kOs4fwYJKiI4my5+vHoQ4i7emIUAfRYcFEhjqIDA0mKswaR4Q49Bu2ahVNFko1wxhDeY2L4gonRZW1FFXUUFThpLiilqLKWk5X1tYvO11ZS3Glk5JKZ4sNfnCQEBcRQqw9xEWEkJIQQVxECDHhwcSGhxAbHkxMuDV/ZmxNR4cFa+OuAkKThepWXG4PRRW15JXVUFBeQ0F5LYXlNRRW1FJQXkNhuTUuqqilsKKWWlfTDX9wkBAfGUpCZAgJUaEMSIpiXGQocZEhxEdY5fGRVkKIjwglPtJKDJGhDr0cozolTRaqS6h2uskrreFUWbU1Lq0mr6yGvLJq8stq6oeiylqauk0XFhxEUnQYSdGh9IoJ44K+sSRGhdLDHhKjQ0mItKYTokKJCQvWRl91K5osVIdmjKG0ykVuaRW5JdXknq7mZEkVJ0urOVlaw6mSak6VVXO60nnWuiEOoVdMOEkxYaT2iGRc/wSSosPoGRNGz+hQOzmEkRQTRpR+41eqRZosVEC53B5yS6o5frqK48VVnDhdxYmSKo6frubE6SpyT1dRUdvwx/si0DM6jD5x4aQlRjJhQA96x4bRKzac3rHh1nRMOAmRIZoAlGojmiyUX3k8hryyGo4VVXKsqJLLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ocean albedo with different stars\")\n",
"plt.savefig(\"ocean_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 63,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.06915802680817525\n"
]
}
],
"source": [
"print teffs[-16],albb[-16]"
]
},
{
"cell_type": "code",
"execution_count": 64,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"oceanblend\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 65,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"oceanblend_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 66,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: oceanblend(965) = (/8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &\n",
" & 8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &\n",
" & 8.6100,9.0300,9.2400,9.8700,10.5000,11.3400,11.7600,12.6000, &\n",
" & 12.8100,11.9700,11.1300,10.5000,9.8700,9.6600,9.2400,9.0300, &\n",
" & 8.4000,7.7700,7.5600,6.7200,6.0900,5.7601,5.2149,5.5982, &\n",
" & 5.7401,5.5656,5.5656,5.5772,5.7763,5.4407,5.6099,5.2616, &\n",
" & 5.2769,5.4863,5.4848,5.1626,5.5163,5.3296,5.1626,5.1626, &\n",
" & 4.9919,4.9946,4.9925,4.9936,5.1828,4.9789,4.7697,4.9237, &\n",
" & 4.3877,4.7231,4.7095,5.0749,4.6813,4.4959,4.4982,4.4778, &\n",
" & 4.4371,4.6061,4.6353,4.6231,4.6032,4.5761,4.2170,4.5816, &\n",
" & 4.7636,4.3989,4.7510,4.1914,4.5454,4.3672,4.5536,4.5497, &\n",
" & 4.1914,4.3672,4.3596,4.3672,4.3825,4.1786,4.5268,4.1822, &\n",
" & 4.5081,4.5196,4.0234,4.5431,3.9995,3.9850,4.0223,4.0074, &\n",
" & 4.0089,3.9866,4.0200,4.4012,4.0167,4.0377,4.0851,4.1132, &\n",
" & 4.0926,4.0534,4.0568,3.9984,3.9687,3.9475,3.9339,3.9033, &\n",
" & 3.8861,3.8625,3.8395,3.8147,3.8004,3.8197,3.7830,3.7617, &\n",
" & 3.7403,3.7296,3.7065,3.6817,3.6779,3.6339,3.6330,3.5962, &\n",
" & 3.5901,3.5694,3.5316,3.4858,3.4517,3.4235,3.4039,3.3566, &\n",
" & 3.3312,3.2894,3.2250,3.1374,3.0939,2.9001,2.7200,2.7455, &\n",
" & 2.6507,2.6178,2.6916,2.5111,2.2680,2.1656,2.6132,2.4038, &\n",
" & 2.1991,1.6537,1.7645,1.8315,1.7004,1.3285,1.1074,1.3145, &\n",
" & 0.9778,1.2685,1.2194,1.2591,1.4264,1.5254,1.6796,1.9632, &\n",
" & 2.1370,2.4615,2.7867,3.0683,3.4834,3.8237,4.2527,4.6603, &\n",
" & 4.9764,5.4629,5.8116,6.2535,6.5925,6.8511,7.1084,7.2837, &\n",
" & 7.4632,7.5555,7.6641,7.7101,7.7935,7.8964,7.9813,8.0281, &\n",
" & 8.1326,8.2135,8.2674,8.3340,8.3735,8.3848,8.4327,8.3861, &\n",
" & 8.3656,8.3182,8.2603,8.1835,8.0998,7.9879,7.8703,7.7641, &\n",
" & 7.6862,7.5938,7.4870,7.3975,7.2890,7.2033,7.1054,7.0528, &\n",
" & 6.9413,6.8987,6.7921,6.7285,6.6563,6.5862,6.5230,6.4614, &\n",
" & 6.3768,6.3468,6.2919,6.2568,6.1882,6.1617,6.0936,6.0290, &\n",
" & 6.0019,5.9537,5.9117,5.8579,5.8185,5.7956,5.7597,5.7276, &\n",
" & 5.7010,5.6725,5.6259,5.5939,5.5776,5.5342,5.5207,5.4968, &\n",
" & 5.4731,5.4575,5.4180,5.4202,5.3891,5.3712,5.3543,5.3331, &\n",
" & 5.3131,5.2817,5.2771,5.2617,5.2293,5.2337,5.2035,5.1973, &\n",
" & 5.1769,5.1593,5.1449,5.1297,5.1086,5.0837,5.0866,5.0680, &\n",
" & 5.0597,5.0457,5.0301,5.0094,4.9950,4.9808,4.9662,4.9647, &\n",
" & 4.9528,4.9331,4.9142,4.9043,4.8923,4.8907,4.8904,4.8686, &\n",
" & 4.8508,4.8395,4.8280,4.8225,4.8098,4.8114,4.7849,4.7709, &\n",
" & 4.7629,4.7472,4.7433,4.7357,4.7302,4.7239,4.7186,4.7100, &\n",
" & 4.7005,4.6854,4.6742,4.6800,4.6643,4.6502,4.6384,4.6288, &\n",
" & 4.6323,4.6289,4.6217,4.6238,4.6136,4.6042,4.6039,4.5949, &\n",
" & 4.5817,4.5781,4.5768,4.5680,4.5594,4.5486,4.5470,4.5530, &\n",
" & 4.5441,4.5366,4.5282,4.5239,4.5283,4.5201,4.5079,4.5091, &\n",
" & 4.5079,4.5028,4.4928,4.4850,4.4875,4.4824,4.4794,4.4929, &\n",
" & 4.4842,4.4760,4.4827,4.4816,4.4796,4.4805,4.4821,4.4741, &\n",
" & 4.4721,4.4715,4.4692,4.4763,4.4856,4.4798,4.4675,4.4702, &\n",
" & 4.4730,4.4727,4.4729,4.4783,4.4735,4.4683,4.4692,4.4639, &\n",
" & 4.4684,4.4657,4.4453,4.4400,4.4552,4.4601,4.4572,4.4445, &\n",
" & 4.4354,4.4432,4.4429,4.4296,4.4321,4.4041,4.3918,4.4105, &\n",
" & 4.4310,4.4194,4.4144,4.3459,4.3066,4.3317,4.3847,4.3818, &\n",
" & 4.3841,4.3496,4.3021,4.2975,4.3190,4.3124,4.3100,4.2832, &\n",
" & 4.1842,4.1561,4.2184,4.2842,4.2751,4.2073,4.0766,4.0114, &\n",
" & 4.0714,4.1286,4.1431,4.1598,4.1786,4.1482,4.0526,3.9942, &\n",
" & 4.0275,4.0987,4.1354,4.1168,3.9071,3.7592,3.8145,4.0101, &\n",
" & 4.0623,4.0533,4.0281,3.7681,3.6266,3.6794,3.9063,3.8414, &\n",
" & 3.6487,3.5340,3.6221,3.7912,3.8620,3.7787,3.7152,3.7026, &\n",
" & 3.6401,3.5811,3.4539,3.3147,3.3155,3.3826,3.5150,3.5338, &\n",
" & 3.4505,3.2138,2.9946,3.0031,3.1687,3.2797,3.2421,3.1923, &\n",
" & 3.0661,2.9014,2.8597,2.8950,2.9967,2.7877,2.5615,2.5773, &\n",
" & 2.7607,3.1036,3.1137,2.7483,2.4580,2.4524,2.6601,2.8446, &\n",
" & 2.6615,2.3116,2.0539,2.0871,2.3828,2.7313,2.6384,2.3990, &\n",
" & 2.3777,2.5154,2.7626,2.7618,2.7011,2.8689,3.0405,3.3237, &\n",
" & 3.5784,3.2856,3.0299,2.7883,2.7653,3.2715,3.8505,4.0199, &\n",
" & 4.0043,3.9528,4.0513,4.4006,4.6546,4.6538,4.5513,4.4284, &\n",
" & 4.4509,4.5898,4.7203,4.9886,5.0597,5.0029,5.0255,5.0112, &\n",
" & 4.9786,4.9478,4.9211,4.9202,4.9346,4.9485,4.7265,4.3834, &\n",
" & 4.1913,3.9960,3.9525,4.1482,4.2598,3.9459,3.4997,3.0630, &\n",
" & 2.9382,3.1959,3.8237,4.1536,4.0049,3.5234,3.0505,2.9005, &\n",
" & 2.9765,3.3332,3.7483,3.8791,3.7534,3.5495,3.2767,3.0490, &\n",
" & 3.0996,3.3365,3.6030,3.5365,3.2100,3.0448,3.1009,3.3088, &\n",
" & 3.5731,3.8200,3.7998,3.6323,3.5885,3.6466,3.7144,3.8311, &\n",
" & 4.0670,4.2050,4.0256,3.6766,3.4791,3.4644,3.5290,3.7098, &\n",
" & 3.9504,3.9272,3.5399,3.2743,3.2254,3.2825,3.4470,3.7412, &\n",
" & 3.9700,4.0312,4.0746,4.0301,3.9083,3.7810,3.6711,3.6335, &\n",
" & 3.7157,3.8702,3.9714,3.9317,3.7918,3.6433,3.5464,3.5514, &\n",
" & 3.6543,3.8265,4.0059,4.0443,4.0000,3.9565,3.9003,3.8198, &\n",
" & 3.6990,3.6177,3.6058,3.6248,3.6684,3.7298,3.7971,3.8520, &\n",
" & 3.8600,3.9001,3.9419,3.8995,3.8114,3.7541,3.7381,3.7709, &\n",
" & 3.8030,3.7982,3.7536,3.7003,3.6817,3.6954,3.7392,3.8079, &\n",
" & 3.8586,3.8572,3.8642,3.8726,3.8458,3.7821,3.7149,3.6632, &\n",
" & 3.6446,3.6640,3.7137,3.7799,3.8273,3.8425,3.8233,3.8025, &\n",
" & 3.7799,3.7553,3.7293,3.7070,3.7059,3.7144,3.7289,3.7415, &\n",
" & 3.7523,3.7517,3.7473,3.7398,3.7391,3.7383,3.7399,3.7386, &\n",
" & 3.7303,3.7198,3.7107,3.7008,3.6964,3.6988,3.7034,3.7045, &\n",
" & 3.6975,3.6886,3.6802,3.6684,3.6677,3.6677,3.6677,3.6659, &\n",
" & 3.6579,3.6543,3.6550,3.6588,3.6692,3.6701,3.6669,3.6608, &\n",
" & 3.6468,3.6382,3.6330,3.6330,3.6397,3.6422,3.6466,3.6483, &\n",
" & 3.6446,3.6377,3.6318,3.6220,3.6045,3.5985,3.5972,3.5957, &\n",
" & 3.5962,3.5938,3.5844,3.5751,3.5686,3.5644,3.5535,3.5462, &\n",
" & 3.5445,3.5448,3.5461,3.5438,3.5438,3.5408,3.5234,3.5110, &\n",
" & 3.5034,3.4873,3.4781,3.4674,3.4500,3.4417,3.4332,3.4303, &\n",
" & 3.4304,3.4311,3.4323,3.4355,3.4369,3.4278,3.4235,3.4144, &\n",
" & 3.3924,3.3796,3.3611,3.3542,3.3524,3.3547,3.3579,3.3531, &\n",
" & 3.3376,3.3269,3.3050,3.2932,3.2900,3.2904,3.2855,3.2808, &\n",
" & 3.2770,3.2718,3.2571,3.2477,3.2381,3.2320,3.2197,3.2102, &\n",
" & 3.2061,3.1836,3.1709,3.1442,3.1226,3.1107,3.0931,3.0835, &\n",
" & 3.0655,3.0503,3.0490,3.0504,3.0510,3.0451,3.0336,3.0236, &\n",
" & 3.0066,2.9815,2.9726,2.9564,2.9434,2.9370,2.9328,2.9281, &\n",
" & 2.9157,2.9023,2.8746,2.8481,2.8380,2.8201,2.8108,2.7930, &\n",
" & 2.7838,2.7673,2.7500,2.7285,2.7204,2.7148,2.7005,2.6834, &\n",
" & 2.6753,2.6623,2.6541,2.6351,2.6275,2.6191,2.6050,2.5848, &\n",
" & 2.5662,2.5553,2.5354,2.5141,2.4971,2.4784,2.4593,2.4345, &\n",
" & 2.4208,2.4068,2.3911,2.3759,2.3648,2.3510,2.3356,2.3197, &\n",
" & 2.3095,2.3013,2.2720,2.2553,2.2397,2.2213,2.2013,2.1794, &\n",
" & 2.1650,2.1463,2.1311,2.1186,2.1050,2.0864,2.0737,2.0565, &\n",
" & 2.0429,2.0195,2.0062,1.9902,1.9761,1.9637,1.9596,1.9513, &\n",
" & 1.9457,1.9323,1.9214,1.9073,1.8947,1.8887,1.8845,1.8754, &\n",
" & 1.8665,1.8625,1.8667,1.8683,1.8688,1.8629,1.8604,1.8566, &\n",
" & 1.8581,1.8605,1.8759,1.8851,1.8904,1.8910,1.8985,1.9127, &\n",
" & 1.9223,1.9357,1.9488,1.9619,1.9857,2.0006,2.0286,2.0463, &\n",
" & 2.0739,2.0935,2.1283,2.1477,2.1855,2.2233,2.2515,2.2917, &\n",
" & 2.3225,2.3720,2.4281,2.4597,2.5075,2.5498,2.5800,2.6260, &\n",
" & 2.6819,2.7217,2.7875,2.8485,2.9179,2.9587,3.0250,3.0838, &\n",
" & 3.1427,3.1808,3.2408,3.3011,3.3685,3.4349,3.5062,3.5745, &\n",
" & 3.6213,3.6889,3.7709,3.8521,3.9392,4.0205,4.1067,4.1912, &\n",
" & 4.2751,4.3477,4.4270,4.5041,4.5897,4.6982,4.7881,4.8784, &\n",
" & 4.9677,5.0490,5.1315,5.2068,5.3118,5.3850,5.4600,5.5371, &\n",
" & 5.6523,5.7281,5.8095,5.8904,6.0019,6.0819,6.1578,6.2592, &\n",
" & 6.3457,6.4465,6.5356,6.6451,6.7307,6.8207,6.8903,6.9704, &\n",
" & 7.0388,7.1376,7.2289,7.3337,7.4116,7.4993,7.6031,7.6662, &\n",
" & 7.7564,7.8537,7.9795,8.0533,8.1285 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": 41,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"sbdart_winterp = np.interp(wvref,wlalb,sbdartw)\n",
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = sbdart_winterp*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 89,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xl0W/Wd///n515dyb6yvMnYSbACJmZnKKVpC12AMqfQSQhLIZ0utBQodIAz01NKt5mWLxRmBtpO1yltShlIw/Cd/tpyQqHQFkrZ2iFAApQCDZshMlmMvMq61nbv5/eHZCfBkizZ1gLf9+OcnBN0r/R5+Uo47/vR576v0lojhBBCCCGEaCxGvQMIIYQQQgghZpNCXQghhBBCiAYkhboQQgghhBANSAp1IYQQQgghGpAU6kIIIYQQQjQgKdSFEEIIIYRoQFKoCyGEKItSSiul+uudQwgh/l8hhboQQiwCpdQnlVJPKaUcpdROpdQPlVLt9c71ekqpdyil7lRKjSmlRpRSjyilzq13LiGEELNJoS6EEAuklPoccC3weaANOAbYD7hbKeWvZ7Y9KaWOBe4F7gf6gTBwEfB3VR7XV83XF0KINysp1IUQYgGUUq3AlcA/aq1/o7XOaK1fBj4E7A+cnd/PVEr9s1LqRaVUXCm1WSkVyW87RCl1d36Ge6tS6kN7vP5qpdTjSqkJpVRUKXXFHtv2zy9HOUcptU0pFVNK/UuJuN8A1mutr9Vax3TOZq31nuNdoJR6IZ/lV0qpZUV+7jal1E+VUq8ppV5RSn1FKWXkt31SKfVHpdS3lVLDwBWFXkMIIURpUqgLIcTCvAtoAm7d80Gt9SRwJ/D+/EOXAh8BVgGtwHmAo5QKAncDtwDdwIeB65RSh+WflwA+AbQDq4GLlFKnvy7De4CDgb8FLldKHfr6kEopGzgW+EWxH0QpdSLw7+ROMpYCrwD/U2T375P79uAA4Ph8xj2X0LwTeAnoAf612JhCCCGKk0JdCCEWpguIaa2zBbbtyG8H+BTwFa311vxM9pNa62HgFOBlrfWNWuus1vpx4JfAWgCt9X1a66e01p7W+s/A/yVXGO/pSq31lNb6SeBJ4C0FsnSQ+52/o8TP8jHgv7TWW7TWKeDLwLFKqf333EkpZZI7ofiy1jqe/wbhP4CP77Hbdq319/M/01SJMYUQQhQhhboQQixMDOgqsg57aX47QAR4scA++wHvzF/cOaaUGiNXMC8BUEq9Uyn1h/wSk3HgH9hd/E/bucffHaClwDijgJfPVMwycrPowMy3AsPAvq/brwuw9tw3//c994uWGEcIIUQZpFAXQoiF+V8gBXxwzweVUi3kLtL8ff6hKLCiwPOjwP1a6/Y9/rRorS/Kb78F+BUQ0Vq3AT8CVKUhtdZOPuuZJXbbTu7EYfpnCJK74PTV1+0XAzJ77gssf91+utKMQggh9iaFuhBCLIDWepzcxaTfV0p9QCll5ZeK/H/AILAhv+tPgKuUUgeqnCOVUmHgDuAgpdTH88+1lFJv32OdeQgY0VonlVLvAD66gLhfAD6plPp8fmyUUm9RSk2vQ/+/wLlKqaOUUgHg34BN+aUte/7Mbv7n+1elVEgptR+5Nfg3LyCbEEKI15FCXQghFkhr/XXgn4FvAhPAJnIz5X+bX+sN8C1yxe3v8vvcADRrrePASeTWfG8nt4zlWiCQf97FwNeUUnHg8vxrzDfnn4AT839eUkqNAD8md9ErWut7gK+SWyO/g9w3AB8u8nL/SO5C15eAh8jN/P/XfLMJIYSYTWkt304KIYQQQgjRaGRGXQghhBBCiAYkhboQQgghhBANSAp1IYQQQgghGpAU6kIIIYQQQjSgQjfoKKq9vV0vW7asWlmEEEIIIYR403v22WdjWut95tqvokJ92bJlbNiwYe4dhRBCCCGEEAWtXLnylbn3kqUvQgghhBBCNCQp1IUQQgghhGhAUqgLIYQQQgjRgKRQF0IIIYQQogFJoS6EEEIIIUQDkkJdCCGEEEKIBiSFuhBCCCGEEA1ICvU3gAsvvJA1a9bs9dgVV1zBypUr65SoOt6MP5MQQgghxHxVdMMjAYODg6xfv54tW7awc+dO/H4/4XCYww8/nDVr1uxVaK5bt46DDz6YE044oX6BqyCbzfLrX/+a3/72tzz33HNMTk4SDAbp7+/nfe97H6effjpNTU31jimEEEII8YYmhXoFnnnmGS688EJ8Ph+rV6/mgAMOIJVKEY1Gefjhh7Fte69C/frrr+eUU055UxXqo6OjXHrppTz11FMcccQRfOQjH6Grq4t4PM7jjz/Ot7/9bZ544gmuueaaekcVQgghhHhDk0K9Atdffz3JZJJbbrmFgw46aNb2WCxWh1SLJ5vN4rougUCg4HatNV/84hd56qmnuOyyy/jwhz+81/azzz6bbdu2cc8999QiblmSySQ+nw+fTz7qQgghhHhjkeqlAtu2baOtra1gkQ7Q1dUFwPbt2zn11FMBuOOOO7jjjjtm9nnsscdm/r5p0yZ++tOf8vTTT5NOp1m+fDlnnXUWZ5111rzyvfzyy/zP//zPzLIc13Xp6+vjrLPO4vTTT99r33Xr1nH99dfzs5/9jNtuu4177rmHWCzGddddV3Sd+IMPPsiWLVt4//vfP6tIn7Z8+XLOO++8vR7bsmULP/nJT3j66afJZrPsv//+rF27dlamYp5//nnWrVvH448/ztTUFPvuuy+nnHIKZ599NqZpzux3xRVXcMcdd3D33Xfzve99jz/+8Y+Mjo5y2223sWzZsrLGEkIIIYRoFFKoV6C3t5dXXnmFe++9lxNPPLHofh0dHXzta1/j8ssv561vfStnnHHGrH1uvfVW/v3f/52/+Zu/4bzzzqO5uZlNmzZxzTXX8Oqrr/KZz3ym4nyPPfYYW7Zs4T3veQ/Lli0jmUxyzz33cPXVVzM6Osq555476zlf/epXCQQCfOxjH0MpNXOyUcjvf/97AD74wQ+WnemBBx7g85//POFwmLPPPhvbtvnd737H1Vdfzauvvsoll1xS8vl7Ljdau3Yt4XCYBx98kO9///s8//zzXH311bOec8kllxAOhzn//POZmprCtu2y8wohhBBCNAop1Ctw/vnns2nTJr7whS+wfPly3vKWt3D44Yfztre9jb6+vpn9mpubWbVqFZdffjn77rsvq1at2ut1YrEY3/zmNznppJP413/915nH165dyze/+U3++7//mzPPPJPe3t6K8q1evXrWbPxHP/pR/uEf/oGbbrqJj3/847OWgLS0tHDdddeVtTTkxRdfBCj6jcLrua7L17/+dZqbm1m/fj377LMPAB/60If49Kc/zfr161mzZg3Lly8v+hrf/OY3yWQy3HjjjRx44IEA/P3f/z1f/vKX+c1vfsOpp57KO97xjr2es2LFCq666qqyMgohhBBCNCppz1iBI488kptvvplTTjmFyclJbr/9dq655hrWrl3LBRdcwODgYFmvc88995BOpznttNMYGxvb68973/tePM/jkUceqThfc3PzzN9TqRRjY2NMTExwzDHHkEgkePnll2c956Mf/WjZ67cTiQQAwWCwrP2fffZZdu7cyamnnjpTpANYlsUnPvEJPM/j/vvvL/r8kZER/vznP3PcccfNFOkASqmZ5TV/+MMfZj3v7LPPLiufEEIIIUQjkxn1CvX393PFFVcAsGPHDjZv3sxtt93G448/zuc+9zluvvlmLMsq+RrTBfPFF19cdJ+RkZGKszmOw49//GPuvvtudu3aNWv7xMTErMdKzWa/3nSB7jgOra2tc+6/fft2AA444IBZ21asWAHAq6++Oq/n9/X1YRhGwefvt99+c2YTQgghhGh0UqgvwNKlSznllFNYvXo1n/rUp3jyySd5+umnOeqoo0o+T2sNwJVXXll0Tfi+++5bcZ5/+Zd/4aGHHuKMM87g6KOPpq2tDcMw+OMf/8gtt9yC53mznlNJv/MVK1bw17/+la1bt/L2t7+94ny1Ij3chRBCCPFmIIX6IlBKccQRR/Dkk08yNDQ05/6RSASA9vZ23vnOdy5Khng8zkMPPcSqVav453/+5722zWcZTSEnnngiv/71r9m4cWNZhfr0ycZLL700a9v0Y6VOSKY7tRR6/ssvv4znefM6oRFCCCGEeCOQNeoVePjhh8lms7MeTyaTPPzww8DeyzRs22Z8fHzW/u9///vx+/2sW7eOZDI5a/vk5CTpdLqibIaReyunZ+unxWIxNm7cWNFrFXPcccdx9NFH89vf/paf//znBfeJRqPceOONABxyyCEsWbKE22+/fa8e89lslg0bNqCU4vjjjy86XmdnJ0ceeSQPPPAAL7zwwszjWuuZMd73vvctxo8mhBBCCNFwZEa9At/61rcYHx/nuOOOo7+/n6amJnbt2sVvfvMbtm3bxurVq+nv75/Z/4gjjuCRRx7hpptuYsmSJSilOPnkk+np6eFLX/oSV199NWvXrmXVqlUsXbqU0dFRXnjhBe677z5+/vOfV9T7OxgMcswxx3DXXXcRCAQ4/PDD2bFjB7feeiv77rtvwROGSimluPbaa/nsZz/Ltddey5133slxxx1HOBwmHo/zxBNP8MADD8y0rjRNky984Qt8/vOf55xzzuGMM87Atm3uvvtunnrqKc4999w518hfdtllXHjhhVxwwQUz7Rkfeugh/vd//5cPfOADszq+CCGEEEK8WUihXoFLL72U+++/nyeeeIJ7772XyclJWlpa6O/v55xzzmHNmjV77f+lL32Ja6+9lhtvvHGmY8rJJ58MwKmnnsry5cu5+eabufXWW4nH47S3t7Pffvtx0UUXEQ6HK8531VVX8f3vf58HH3yQX//610QiES6++GJ8Ph9XXnnlwg8AuR7xP/nJT7jjjjv43e9+x8033zxzHA488EAuu+yyvY7Dcccdx3XXXccNN9zLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s]*3.25,s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ocean Color\")\n",
"plt.savefig(\"colorgrid_ocean.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 43,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 44,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = sbdart_winterp*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 45,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"Text(0.5,1,'Ocean albedo with different stars')"
]
},
"execution_count": 45,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8VPW5+PHPk5nsCVvYkwAB2VcxbAURRRGFam3VotYNW9xqtYut3t5rrde22nt/7b0WW691oXprsdpbSxFUFEGQCATZERQhkBAgIYGQPZPM8/vjnIQhJJkAmazP+/Wa15zle8555kxynjnne873K6qKMcYY05Cwlg7AGGNM62fJwhhjTFCWLIwxxgRlycIYY0xQliyMMcYEZcnCGGNMUJYsTKslIgNEREXE646vEpFvN9G6HxeR/22KddWz/n4iUiQingbKqIhccI7rnyEiWQHjO0VkhjssIvKyiBwXkQ3utHtF5KgbU8K5bNN0bJYs2jERuUNEtotIiYgcEZE/iEiXlo6rI1DVg6oap6pV0LSJrp7tjVTVVe7oNOAKIElVJ4pIOPAbYJYbU16o4qiLiCwSkSebe1nTtCxZtFMi8kPgaeBhoDMwGegPrBCRiJaMzYRcfyBDVYvd8V5AFLDzXFbW0NlRa1d9VmqagKraq529gE5AEXBjrelxQC4w3x33AP8CfAkUApuAZHfeMGAFkA/sCVwXMAfYDJwEMoHHA+YNABS4HTgIHAN+2kCsjVmX1x1fBfwK2OCW/wfQLaD8ZGAdcALYCswImJcCrHY/5wpgIfC/AfOvwTmYnnC3M7yeeH8O/M4dDgeKgf9wx6OBMqBbYOzAL4Aqd14RsNAtr8A9wBfudp8FpJ7tRgOLgOPALpwfAVkB8zOAy4G73O1Uudv6ixujuuMrG/H9LgL+ACxzl70ciAT+0/1OjwLPAdFu+RlAFvBDIAc4DNzpzlsA+IAKd/v/rOOzCfBbd9mTwHZgVH3LAo9w6m92F3BdwLruAD5215cHPAlc4H73BTh/j6+39P9oW3y1eAD2CsGXCrOBStyDbK15fwL+4g4/7P5jDnX/YccCCUAszoH7Tvdgd6H7TzbCXW4GMBrnzHSMe/D4mjtvgHtg+qN7gBsLlFP/wbcx6wpMFofcA0ks8DfcAz6Q6B4crnbXdYU73sOdn4ZzKSYSmO4eaKqXHeIeFK/ASQA/BvYCEXXEexmw3R3+invQWh8wb2sDsX+71roUWAp0AfrhJPLZ9eynp4A1OIkoGdhBHcnCHb4DWBswr3Yswb7fRTgH1qnuvozCOfgucbcfD/wT+FXAd1gJPOHuv6uBEqBrwPqebODv9UqcHypdcP4OhwN96lsWuAHo68b2Tfe76xPw2SuBB9zPFo2TMH8a8FmmtfT/aFt82WWo9qk7cExVK+uYd9idD/Bt4F9VdY86tqpzPXsuzmWMl1W1UlU34xyYbwBQ1VWqul1V/aq6Deef8ZJa2/m5qpaq6lacX/lj6wq0kesK9Kqq7lDnEsu/ATe6l0m+BSxT1WXuulYA6cDVItIPmAD8m6qWq+pHOAe7at8E3lbVFarqw/kFHY2TDGpLAwa7lcTTgReBRBGJc+Ne3UDsdXlKVU+o6kHgQ2BcPeVuBH6hqvmqmgk8c5bbCdTg9+v6h6p+rKp+nGS/APi+u/1C4JfAvIDyPuAJVfWp6jKcM4GhjYzHh5OAhuGcWX2mqofrK6yqb6hqtvs9v45zZjYxoEi2qv7O/Wyl7vr7A31VtUxV1zYyLhPAkkX7dAzoXs/12j7ufHB+oX5ZR5n+wCQROVH9Am4BegOIyCQR+VBEckWkAOdSSvda6zgSMFyCcwnsDI1cV6DMgOEDOL9ku7sx31Ar5mnu5+0LHNdT1/Crl63WN3DcPUBm4pytnMY9+KTjJIbpOMlhHc6v8HNJFo3aT26MtT/7uWrw+3UFbqsHEANsCij/jju9Wl6tHycNfZbTqOpKnMuCzwI5IvK8iHSqr7yI3CYiWwJiGcXpfzOZtRb5Mc4Zywb3rrH5jYnLnM6SRfuUhvNr8OuBE91fv1cBH7iTMoFBdSyfCaxW1S4BrzhVvded/xrOJYlkVe2Mc/1azjHWs11XcsBwP5xfjcfcmF+tFXOsqj6FczbVVURiay1bLRvnAAo4t5662zlUTwyrcS45XQhsdMevxPl1+1E9y5xv886HOfOzn6tg3y+cHu8xoBQYGVC+s6o2KhnQiM+uqs+o6kXACJzLgg/XtayI9Me5xPldIEFVu+Bckgv8mzltGVU9oqrfUdW+wN3A78/1luWOzJJFO6SqBbgVsSIyW0TCRWQA8FecishX3aIvAP8uIoPde/PHuJdXlgJDRORWd9lwEZkgIsPd5eKBfFUtE5GJwM3nEe7ZrutbIjJCRGJwrpG/qc7tqf8LfFVErhQRj4hEuc8iJKnqAZyzgZ+LSISITAO+GrDOvwJzRGSme5vpD3GS7bp6YlgN3AbsUtUK3PoIYL+q5tazzFFgYJDP1pC/Ao+KSFcRScK5Jn+ugn2/p3HPtP4I/FZEegKISKKIXNnI7TX42d1tT3L3fTFOBb2/nmVjcZJBrrvsnThnFvUSkRvcfQbODQIasH7TSJYs2ilV/TXOnU7/iXOHyXqcX5QzVbXcLfYbnIPQe26ZF3HucCkEZuFck87GuVTyNE7lMMB9wBMiUgg85q7jXJ3tul7FqfQ8glNZ+T3382YC17qfOdf9rA9z6m/8ZmASzt0/PwNeqV6hqu7BqfP4Hc6v6K8CX3UTQV3W4dRpVJ9F7MI5wNV3VgHw38D17oNy51Lf8HOcS0/7cb6vVxsuXr9GfL91+QlOpf8nInISeJ/G10m8CIxwLxu9Vcf8TjjJ6DjOZ8wD/qOuZVV1F/D/cM6ej+LcHPFxkO1PANaLSBHOWeyDqrqvkbEbl6ha50fGGGMaZmcWxhhjgrJkYYwxJihLFsYYY4KyZGGMMSYoSxbGGGOCajctMnbv3l0HDBjQ0mEYY0ybsmnTpmOq2iNYuXaTLAYMGEB6enpLh2GMMW2KiDSq6Ri7DGWMMSYoSxbGGGOCsmRhjDEmKEsWxhhjgrJkYYwxJihLFsYYY4JqN7fOGmNMW6Kq+KqUSr8fX5VS5Vcqq/xU+p1hX5XffXfH/X63jFvW76eySqn0K706RXJhv64hjdeShTGmXais8lNR5aei8tS7r0rddz/l7nv1uK/KT0XAfF/AMr4qv7s+rZnnCxiurFIq3DKVfmcdle7BPjABVJetHq8uX50QmsrcMX1YeLMlC2NMK6fqHDzLfH7KfFWU+/yUVVY5w5WnppVX+imvrKLM57yXV/rd6VU186rLVbjjFVVOmeoEcGqenwp3fkWlnyY89taI8IYRHiaEe8MI9zjDXk8Y4R5xxgOGo8M9eKO8eMOcad6a8qeGPTXz5LRy3jBnHZ4wwRt2aponTAj3OMt5w04t56kZdsY7x4Q3/YevxZKFMe2c36+U+qooqaiitKKKEl8lpdXDFVWU+Kooq6iipKKSUp+fUp9zkC+tqKLU57zK3OEyXxWlPj/lvlPjZW5iOJ9+1MI9QqTXQ6Q3jAhvWM27M+xMj4vyutM9RHhqlfOcKl8zHDAt3FP9LjXTqw/0ER4P4d5TB/8IT1jNgdjpjt2AJQtjWhVVpcznp6i8kqLySooD3osrqpz38kqKy52De1F5JSXu9JKKKoornERQXFFJSbmbIHxVZx1HVHgYMRFeosM9RIY7v5qjwz3ERHjpFushKjyMKHdadISHKG8YkeEeosKdA3tUuFMm0nuqbPX0SO+p6ZFeDxFe55eyad0sWRjTRHxVfgrLKiks83Gy1H13x53plRSV+ygqr+RkWSVFZc7Bvvq9sMxHcUVVo69lR4WHERvhJTbSS0yEh5gID3GRXnrGRzoH+ggPsREeoiOc+YHD0REeYtwDfUyEp+bAHxPhJSo8zH5RmzOENFmIyGycjuo9wAuq+lSt+ZHAK8BFOJ20f1NVMwLm9wN2AY+r6n+GMlZjAMp8VRSU+jhR4nPfKygodYZPVr+XVdaMnyyrnlfZqF/w0eEe4qO8xEV6nfcoLwmxMcRHhRMf5SU20kNcZDhxUV7iIj3ERjhlY2teHuc9wmu/xk2zClmyEBEP8CxwBZAFbBSRJaq6K6DYXcBxVb1AROYBTwPfDJj/G2B5qGI07ZffrxSWVZJfUkF+cQUn3PfjJRUcL3GSwPFiHydKKzhR4iSHE6UVlPn89a5TBDpFhdMp2kvn6HDiI8MZ2D2OTtFe4qPC6RwdTqcoZ7hTtHPwj4/y0slNBHGRXrwee7TJtE2hPLOYCOxV1X0AIrIYuBbnTKHatcDj7vCbwEIREVVVEfkasB8oDmGMpo1QVQpKfRwrKudYkXPgzwsYzi+uIK+4vGb4eImv3ss53jChS0wEXWPC6RoTQXK3GEYnhtM1NoLO0c5Bv2vMqeEuMe7BP9JLmP2aNx1UKJNFIpAZMJ4FTKqvjKpWikgBkCAiZcBPcM5KfhTCGE0LUlVOllWSW1hOTmEZuYXlzquonGOFFe57OXnF5eQVVVBZz8G/S0w43WIjSIiNIKV7LBf170a32HC6xUbSLTacLjERdIuJoGtMBF1inYO+XZM35uy01grux4HfqmpRQ//UIrIAWADQr1+/5onMBKWqFJZXknOyjCMF5Rw9WcbRwjJyTrrDJ8vIcRNDeeWZl30iPGF0j4uge3wkvTtHMSqxE93jIukeF0lCXETNe7dYJwnYpR1jQi+UyeIQkBwwnuROq6tMloh4gc44Fd2TgOtF5NdAF8AvImWqujBwYVV9HngeIDU1NQSP5Jjaqi8HZZ8o43BBKYcLyjhSUOa8nzw1XlJxZmVvfJSXXp2i6BkfSWr/rvTsFEWPuEh6doqkR3wkPeMj6REXRado++VvTGsTymSxERgsIik4SWEecHOtMkuA24E04HpgpaoLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ocean albedo with different stars\")\n",
"#plt.savefig(\"ocean_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/.ipynb_checkpoints/combinedspec-snow_ice-checkpoint.ipynb
+664
View File
@@ -0,0 +1,664 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 197,
"metadata": {},
"outputs": [],
"source": [
"ids = [4,5,7,8,9]"
]
},
{
"cell_type": "code",
"execution_count": 198,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"clearice\n",
"coarsesnow\n",
"finesnow\n",
"frost\n",
"mediumsnow\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 339,
"metadata": {},
"outputs": [],
"source": [
"weights = np.array([0.26,0.185,0.185,0.185,0.185])"
]
},
{
"cell_type": "code",
"execution_count": 340,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0.26 0.185 0.185 0.185 0.185]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 341,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 342,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 343,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 344,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 345,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7fce92aae250>"
]
},
"execution_count": 345,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXoAAAEACAYAAAC9Gb03AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xl4VdX18PHvufO9SW5mkpCETEyBJMwgQhBBcEakUkdwaqVo0epTKrZWeP2hVUvrrFgtKhUVRYsFsTIIBQRBQGQmQEhCQuZ5vtN+/zg3ISEJmUkC+/M8PEnOdM8NYbGyzt5rK0IIJEmSpEuXpqtvQJIkSepcMtBLkiRd4mSglyRJusTJQC9JknSJk4FekiTpEicDvSRJ0iVOBnpJkqRLnAz0kiRJlzgZ6CVJki5xMtBLkiRd4nRdfQMAAQEBIjIysqtvQ5IkqUfZu3dvnhAisLnjukWgj4yMZM+ePV19G5IkST2KoiipLTlOlm4kSZIucTLQS5IkXeJkoJckSbrENVujVxRlGXATkCOEiHNv8wNWApFACvBLIUShoigK8CpwA1AB3CeE2Nc5ty5JUkez2+2kp6dTVVXV1bci1WEymQgLC0Ov17fp/JY8jP0AeANYXmfbAmCTEOIFRVEWuL9+Erge6Of+MwZ42/1RkqQeID09HS8vLyIjI1HzNqmrCSHIz88nPT2dqKioNl2j2dKNEGIrUHDe5luAD92ffwhMr7N9uVD9APgoihLSpjuTJOmiq6qqwt/fXwb5bkRRFPz9/dv1W1Zbh1cGCSEy3Z9nAUHuz0OBM3WOS3dvy+Q8iqI8BDwE0KdPnzbeRscRTifOggIUkwlFq8WekYEj3/3/m6KgaBRQav5oQFH/AtBo1G0ooFFQtFr0oaFovbwQNhvo9fIfjdSjyJ/X7qe9fyftHkcvhBCKorR64VkhxD+AfwCMHDmyTQvXVp88SdWRIwiXCxwO7Dk52DMycJWWIVxOcLpqP+Jy4nI6weFEOBzY83Jx5ucjjAYwmyC/EMXuaMttNP7+DHoUmx20GvD0ROPliUarQ6PRouj16IKD0IeGYoyKwhQXhz4kBJ2/P4rB0GH3IEmXikWLFuHp6cnvf//7dl9rz549LF++nNdee60D7qxnaGugz1YUJUQIkekuzeS4t2cA4XWOC3Nv6xRn/rsa+xv/rLetwttElUWLUwGnInAqAofiwiYc2BUnLkXBpYFibyjuDXqnDXN1GYWRkGfVoHOAxWXF5R2DxhKCSW9Cg4LDacfutOEQdnSKFic28m3pVFGIQylBKHYAdE4ILgSvSgcVRg0Gh8CjqhRLVSkaAVo0WBUzgacz8d67G0N5db371/r5YQgPR9+nD4bwMPThfTD0CccQHY3O17ezvpWSdFlwOByMHDmSkSNHdvWtXFRtDfT/Ae4FXnB//KrO9t8qivIp6kPY4jolng63c4QHH87RIhTQ6vQ4fbzQmy2YdWYsOvWjWWfGrDfja/TFavCGSg3OEi2eVb6EVVsRJTocJQqmCg29yhVsZU6cLgHFqH8uoO68Y51Ri8VLj9nXgD5a4DBWYbM5EHonWOw4TdU4vCopNGfxU/lpUktSSStNw6tYS1Q29HP6E+PwJ6rai+AiqNy7l5KvvwaXy/0COjyvugrT4EEYIyMxREZiiIhA4+HRWd9eSeoyy5cvZ8mSJSiKQkJCAjExMbX7Tp06xSOPPEJubi4Wi4V3332XgQMHsmbNGhYvXozNZsPf358VK1YQFBTEokWLOHXqFMnJyfTp04c5c+awZMkS1q5dS1lZGfPmzWPPnj0oisLChQv5xS9+wfr161m4cCHV1dXExMTw/vvv4+np2YXfkfZpyfDKT4CJQICiKOnAQtQA/5miKA8CqcAv3YevQx1aeRJ1eOX9nXDPta6Nv41REdfgrfHB4DJTXW6nosRORYmNylIbpblVFGaWU5JfhdPhwmlz4XIJtECl+4/RosPTz4SHjwFLbzDrK/BwZuBbsAFr4TZAAAoCBaHoweKPsPjjNPWiQhtCJQFUOK1UOjypsJmoqDJQeFJLVbkTnVGLrRKESwMYASsext5cN3AykQkBhE30IcV+ku8zvudw/mE25R8mr/IEPkYffE2+eIhY+lZ7E1cdyJAUqPrfbso2bar3PTD0jcF67XX4/HIm+qAgJKmj/L81hzlytqRDrzmot5WFNw++4DGHDx9m8eLF7Nixg4CAAAoKCuqVWR566CGWLl1Kv3792LVrFw8//DDfffcd48eP54cffkBRFN577z1eeukl/va3vwFw5MgRtm/fjtlsZsuWLbXX+r//+z+8vb05ePAgAIWFheTl5bF48WI2btyIh4cHL774In//+9955plnOvR7cTE1G+iFEHc2sWtyI8cK4JH23lRLndlezg+rz1D/+a9KUcBiNeAb4kHMsEB0Bi1aLXiaKvDSFeClnMXLfgpD2SkoTFH/5Bedu0DgQLj6LvDsBRot2CqgIh/KcqA8B8p+hsL1UFkArvNq+2YgpA8EJyC8QqnSBFImAinS9ONsvi8phwo5/XMeKBAUaWVUwvXcPeo+vPxNbE3fysa0jVQ6KqmwV/Czks5X1T+ijdby+q9eR6myMajSD216NrbTyZT/sIu8t94ib+lSvCZPxveuu7CMGS0fqEk91nfffcfMmTMJCAgAwM/Pr3ZfWVkZO3bsYObMmbXbqqvV8md6ejq33347mZmZ2Gy2ekMRp02bhtlsbvBaGzdu5NNPP6392tfXl7Vr13LkyBHGjRsHgM1mY+zYsR37Ji+ybtHUrK3CY/3Q6bXoTVr0Bi0mDx0WbQlmVxamqjQ0JalQlAqFqZCbCsUZIJznLqDRg08f8I2E0BHqR99ICOgPgQPco2maIQRUl0JloRr0y/Mg+zBk7oesQygp2zBXFWNGLfX005mYMGAMef0fI6UwmpQDeez6KpldXyUTOsCHodcM5v/GXVXvJfIq87j/v/czd+NcAPxMfowPHc+06dMYM3cutjNnKPz0U4pXfUHp+vUYIiPxvGoCuqBgtH6+6Pz80IeHY2zjGFzp8tRc5t0VXC4XPj4+7N+/v8G+efPm8cQTTzBt2jS2bNnCokWLavd5tKLEKYRgypQpfPLJJx1xy91Cjw70vThML8daOJMCBclqVm6vqH+QZxD4RED4GIh3B3XfKPWjtbearbeHooDJqv7xjVC39ZtS/xiXU/1NIGMPpO5EOfofAtfPIHDsbxn11HOU5FeStCuLozsy+fqtA1xxSzTegRZ69/PBYjUQYA7gzclv8q8j/2J40HDWJa9jW/o21pxawx0D7+A3Q35D0Pz5BM6bR8k3/6X4q68o/PgThN1e7za8Z8yg1/zfy4e6Urc2adIkbr31Vp544gn8/f0pKDg3jcdqtRIVFcXnn3/OzJkzEUJw4MABhgwZQnFxMaGhoQB8+OGHTV2+nilTpvDmm2/yyiuvAGrp5oorruCRRx7h5MmT9O3bl/LycjIyMujfv3/Hv9mLpEcHejL3w4/vqUHbLxqirwY/dxD3iQCfcNA3/HXtotNowRoC1psh9ma4ZiF88yTsfANs5Vgd1YwccS9DrxnDf/9xiB9WJwOgaBQi4vyJvTKEiPgw/nTFnwC4Pup6Kh2V/H3P31l5fCXfpnzLvGHz6OPVh9G3Tsfn1ukIIXCVleEsKMCRX0DZd5vI/+BDyrZtJeKDDzDWebglSd3J4MGD+dOf/sRVV12FVqtl2LBh1F2vYsWKFcydO5fFixdjt9u54447GDJkCIsWLWLmzJn4+voyadIkTp8+3exrPf300zzyyCPExcWh1WpZuHAhM2bM4IMPPuDOO++sLQstXry4Rwd6RS2rd62RI0eKNvWjd9hAo1MnLfU0Tjt8NANObwWDJ9jKIO4XuCYtIr/MF5dTcGpfDsd3ZVFRYsPT18hVdw0gMj6g3mWSCpN4YssTpJaobalvir6JZ698Fr22YU+MqmPHSPvVr1EUhYh/LccgF3uRznP06FFiY2O7+jakRjT2d6Moyl4hRLNjRXt2oO/pHNVqfV9vhu2vwA73yIIrH4XxvwODBy6ni9TDBfyw+hQFZ8sZeEUw42b2w+RxLpBXO6tJK0ljY+pG3vr5LUYHj6a/b3/8zf4EWYKIC4gjwhqBRtFQffIkqbPvRdjt+M2ahfWmG9EFBKC1WrvomyB1JzLQd18y0F8qis7AxoVw6Avw6g2//BDCRwPgtLvY800Ke/+bitlLz7ApfRh4RQgmz/qZ+0dHPuKdA+9gc9qocJx7XhHsEcwbk95ggN8Aqk+fJvfvL1O6YUPtfsuoUQT+7jEsI0ZcnPcqdUsy0HdfMtBfatJ+gNVz1Qe4Q+6A3sNh6F2gKOSmlfK/T46TfboEk4eeq+8ZSPSwxpeMrHRUkl6azsG8g7z989uU28tZes1SEgITAKg+dYqqw4fVUTuffIozL4+Q55/HZ8atF/PdSt2IDPTdlwz0l6KSTPhsFuQeh+oS6H+9muHrjADkpZey+V/HyE0rZeqv4ug7otcFL3e27CwPfvsgxdXFrJ2xFj+TX739rooKzsx9mMr9+4n89BNM8h/7ZUkG+u6rPYG+Bz7FvExYQ+BXG2FBGlz7F0j6BtY8VtsSISDMi1seH0ZwjDfr/3mY5J9yL3i53p69eXPym5Q7ynnv4HsN9mssFkL//je03t6kP/oYjoLzO1NLktRTyUDf3SkKjH0YJv4Rfv4EvngA7JUAGEw6bvrtEIIivVj/z8Nkn77wdPVon2imxUxj5bGVZJY1bEGk8/cn7LVXceTkkD73YVxylSFJuiTIQN9TXPUHmPIsHF4NH9wIRWmAGuxvfHgIHj4G1i09QHlR9QUv8/CQhxEI/rL7L+RWNPwtwDx0KL3/+hKVBw6Q/fxfOuWtSJJ0cclA31MoCox7DO5YATnH4PWRsOsdAEyeem6Ym4Ctysm6pQdxOl1NXibEM4SLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 346,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 347,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.sum(wtspec,axis=0)"
]
},
{
"cell_type": "code",
"execution_count": 348,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3XmcnFWd7/HPr5auqt7TSW/pLB1CdiAsTZB9jwEdwRXREXRwoo7jbM7cwbnj7M7F64DK6OhERVEZBBEFRVlugESRJZ2EkI3s6ezpfV+quurcP6q6SUKnuzpd3dVd/X2/XnlV1VPP89SPpPj26fOc5xxzziEiIhOfJ90FiIhIaijQRUQyhAJdRCRDKNBFRDKEAl1EJEMo0EVEMoQCXUQkQyjQRUQyhAJdRCRDKNBFRDKEbyw/bNq0aa6ysnIsP1JEZMJbv359vXOueKj9xjTQKysrqa6uHsuPFBGZ8MysJpn91OUiIpIhFOgiIhlCgS4ikiEU6CIiGUKBLiKSIRToIiIZYkyHLY43kWiMPXXt1LeFiTpHLOZwOIJ+L7kBH9lZPnICXnICPnKyfHg9lu6SRUROK6MCPRKN0dIVobkzTFNnhKaOMM2dEZo6wzR3RWho7+Fwcxe1rT10hqPUtfUQjsaSPn/Q7yEny0dOwEdByM+80lzK8oMEfF4Cfg8FIT+l+QFK8oLMLc4llOUdxf9aEZGTTYhA33igiQONnfGA7or0h3RTZ194h2nuiNDW03vac/g8RlFOFtMLQ8wtziUn4GNabhaLp+dTlh/E5zU8ZpgZXeEoneFe2nt66QxH6ejppaMnSke4N/G8l4aOML/bVU9TZ5hI9O0Lbfs8xpLp+Vw0u4jbLp7JgrK80fwrEhGZGIF+/+pdvLCjrv91XtDHlOwspmT7mZKdxVnTcijMzqIw8brvse95Ybaf3IAPs9HpMonGHD29UZo6I9S2dnOspZvNh1tYX9PEQ6/W8MBL+5hXksvC8nxuXFzKdQtLyA1MiL96EZlAzLm3ty5HS1VVlTuTW//31XcQjTmmZPspCPnxeSfOtdymjjAPrzvAxgPNbDzQTH17D1k+D7csnc4nrzyLs0ty1TcvIoMys/XOuaoh95sIgZ4pojHHhgNNPPn6ER6pPki4N0ZewMfN55Zz3swCrppXzMyi7HSXKSLjjAJ9nDvW0s1vd9Xx8t4GntlyjI5wFID3XVDBv7/vXIJ+XVAVkbiUBbqZLQAeOWHTWcA/AD9MbK8E9gMfcs41DXYuBfrAYjHHgcZOHl53gP9es5e5xTm894IK7riskvygP93liUiajUoL3cy8wGHgEuCzQKNz7h4zuxuY4pz728GOV6AP7dmtx/jvtXtZX9NEYbafm84p59NXn8XsqTnpLk1E0mS0An058I/OucvNbAdwjXPuqJmVAy865xYMdrwCPXlbDrfw7TV7WL29lphz/P27F/OHl8watZE6IjJ+JRvowx0u8mHg4cTzUufc0cTzY0DpMM8lgzinooBvfORCnv/rq3nHWVP54i+28MUnthCLjd01DxGZWJIOdDPLAt4D/PTU91y8mT9g0pjZSjOrNrPqurq6gXaRQZQXhPj+xy9m5VVn8eNXDvB3P9+sUBeRAQ3n7pabgA3OueOJ18fNrPyELpfagQ5yzq0CVkG8y2VE1U5SHo/xhZsWkuX18I0XdtMbc3z5/edp/LqInGQ4gX47b3W3ADwJ3Anck3h8IoV1ySnMjM8vn4/XY3x99S5iMcdXPrhUoS4i/ZIKdDPLAW4EPnXC5nuAR83sLqAG+FDqy5MTmRl/eWM81O97bifNXRE+v3w+i8ry8SjYRSa9pALdOdcBTD1lWwNw/WgUJYP7s+vnkRf08ZVndvCu+39HQcjPkun5VBSGuHFxKcuXlKW7RBFJA90pOoHVt/fw4o461u1rZGdtGwcaOmnuivD4Zy5j6czCdJcnIimiW/8noZauCCu+tpZQlpenPnel5mMXyRCjNQ5dxrGCkJ+vfGApe+s6uPfZHekuR0TGmAI9w1wxbxrvv3AGP361hubOcLrLEZExpEDPQHddMYfuSIyfVh9KdykiMoYU6Blo8fR8llUW8cNX9hPVXaUik4YCPUPdeVklBxu7eOHNAW/gFZEMpEDPUMuXlFJRGOJfn9pGQ3tPussRkTGgQM9Qfq+H+2+/gGMt3fzxD6vpjkTTXZKIjDIFega7aPYUvnbb+Ww82Mx7/+v3bD3Sku6SRGQUKdAz3E3nlvPdO6qob+/hlm+8xOMbNPJFJFMp0CeB6xeV8txfXsWyOUX81aOb+PErNekuSURGgQJ9kijMzuKBj1/MdQtL+OITWzjY2JnukkQkxRTok0jQ7+VL7z0HA36y7kC6yxGRFFOgTzLlBSGuW1jCI+sOEYnG0l2OiKSQAn0S+sgls6hv7+G5bceH3llEJgwF+iR09fwSKgpDPLLuYLpLEZEUUqBPQl6PcfO5Zby8p4H2nt50lyMiKZJUoJtZoZk9ZmZvmtl2M7vUzIrM7Dkz25V4nDLaxUrqXLewlHA0xu921ae7FBFJkWRb6F8HnnbOLQSWAtuBu4HVzrl5wOrEa5kgqiqnkBf0afIukQwyZKCbWQFwFfA9AOdc2DnXDNwCPJjY7UHg1tEqUlLP7/Vw1fxiXthRS0xT7IpkhGRa6HOAOuD7ZrbRzL5rZjlAqXPuaGKfY0DpaBUpo+O6BSXUtvWw9UhruksRkRRIJtB9wIXAt5xzFwAdnNK94uIrTQ/YzDOzlWZWbWbVdXV1I61XUuiaBcUArN2lfxeRTJBMoB8CDjnnXk28fox4wB83s3KAxOOAnbHOuVXOuSrnXFVxcXEqapYUmZobYH5pLuv2N6a7FBFJgSED3Tl3DDhoZgsSm64HtgFPAncmtt0JPDEqFcqoqqosYv3+Ji1VJ5IBkh3l8jngITN7Azgf+HfgHuBGM9sF3JB4LRPMxZVTaOvpZcextnSXIiIj5EtmJ+fc60DVAG9dn9pyZKxdXFkEQHVNI4un56e5GhEZCd0pOslVFIYoLwjy2r7T96M//NoB/uSh9VSrr11kXFOgT3JmRlVlEev2NxIfrHSyNTvr+N8/38wzW4/zgW+/zG82Hx3gLCIyHijQhWVzijje2sPe+o6Ttm880MTn/mcD80vzePXvrmdWUTY/fFmrHYmMVwp04fqFJQA8u/Wt6XRf2l3P7d95hcLsLL5zRxXTcgN84KIZvLy3QasdiYxTCnRhemGIpTMKeHrrsf5t9/zmTcryg/zsM5cxsygbgPdfNAMzeGy9FpoWGY8U6ALA8iVlbDrYzNGWLvbVd7D5cAsfvWQ2xXmB/n0qCkNcNncqv3rjSBorFZHTUaALACvOKQPi3S6/3HQEM3j30vK37XfZ3GnsqeugsSM81iWKyBCSGocumW9ucS4LSvP4+updZHk9XFxZRHlB6G37Vc2OT3u/8UAT1y/SfGwi44la6NLvmx+9kNL8IMdau3nP0ukD7nPejEJ8HmN9TdMYVyciQ1ELXfqdXZLLLz57GS/uqOsf+XKqUJaXJdPzFegi45Ba6HKSgM/LO5eU4fOe/qtx4ewpbDrUTCQaG8PKRGQoCnQZtqrZRXRHYmw/qoUxRMYTBboM24KyXAD21nUMsaeIjCUFugzbjCnZmEFNg+4YFRlPFOgybEG/l/L8IDUNaqGLjCcKdDkjs6fmsF+BLjKuKNDljFROy+aAJukSGVcU6HJGZhXlUN8epq07ku5SRCQhqUA3s/1mttnMXjez6sS2IjN7zsx2JR6njG6pMp5UTo3PwKgLoyLjx3Ba6Nc65853zvWtLXo3sNo5Nw9YnXgtk8TsqTmAAl1kPBlJl8stwIOJ5w8Ct468HJkoZvW10Bt1YVRkvEg20B3wrJmtN7OViW2lzrm+BSaPAZp6bxLJDfiYlhugpl4tdJHxItnJua5wzh02sxLgOTN788Q3nXPOzN6+wjCQ+AGwEmDWrFkjKlbGl4opIY60dKW7DBFJSKqF7pw7nHisBX4OLAOOm1k5QOKx9jTHrnLOVTnnqoqLi1NTtYwL0wuCHGlWoIuMF0MGupnlmFle33NgObAFeBK4M7HbncATo1WkjE/lBSGOtnTj3IC/nInIGEumy6UU+LmZ9e3/P865p81sHfComd0F1AAfGr0yZTwqLwjSGY7S2tVLQbY/3eWITHpDBrpzbi+wdIDtDcD1o1GUTAzlhUEAjrZ2KdBFxgHdKSpnrG/N0aPN3WmuRERAgS4jMD3RQtdIF5HxQYEuZ6wkL4jXY2qhi4wTCnQ5Y16PUZIXUAtdZJxQoMuIlBcEOdaiFrrIeKBAlxEpL4yPRReR9FOgy4j03S2qm4tE0k+BLiNSURiipzdGXXtPuksRmfQU6DIis6fF50U/oHnRRdJOgS4jMrtIKxeJjBcKdBmRGVOy8RjUNGihC5F0U6DLiGT5PEwvDFHTqBa6SLop0GXEZk/NVpeLyDigQJcRm1WUoy4XkXFAgS4jVjk1m6bOCC1dkXSXIjKpKdBlxGZPjY900dBFkfRSoMuIzZ4aH4v+5rHWNFciMrkp0GXE5pfmMbc4h1Vr9xKNaQoAkXRJOtDNzGtmG83sV4nXc8zsVTPbbWaPmFnW6JUp45nXY3x++QJ21bbzsw2H3vZ+dyTK7tr2NFQmMrkMp4X+58D2E15/Gfiqc+5soAm4K5WFycRy0zllnD+zkH96ciu/3VXHm8da6Y3G2F3bzq3ffIkbv7qG57YdT3eZIhnNkpklz8xmAA8CXwL+CvgDoA4oc871mtmlwD8559452HmqqqpcdXX1yKuWcam2tZsP/vfL/WPSp+Zk0dQZJi/opyw/yKGmTp76syupTMz/IiLJMbP1zrmqofbzJXm+rwH/C8hLvJ4KNDvnehOvDwEVw65SMkpJfpCffupSXthRi8eMF3fUMWtqNp+4vJJozHHdf6zhvud2cv/Line truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 349,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 349,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd4lFXa+PHvmT6TOikkIYEUIKElIXSEIAuWV1FEsSMguq+uuliXn6uvK+yKu7Ji2xVXLKgo7goqosgqXYoFA9JLAiEEAqT3MvX8/pgQQYEUkkzK+VxXrpl56j0h3HPmPOe5j5BSoiiKorR/Gm8HoCiKojQPldAVRVE6CJXQFUVROgiV0BVFUToIldAVRVE6CJXQFUVROgiV0BVFUToIldAVRVE6CJXQFUVROgiV0BVFUToIXWueLCQkRMbExLTmKRVFUdq9bdu2FUgpQ+vbrlUTekxMDGlpaa15SkVRlHZPCHG0IdupLhdFUZQOQiV0RVGUDkIldEVRlA6iVfvQFUVpGxwOB8ePH6empsbboShnMJlMREVFodfrm7S/SuiK0gkdP34cPz8/YmJiEEJ4OxwFkFJSWFjI8ePHiY2NbdIxVJeLonRCNTU1BAcHq2TehgghCA4OvqhvTR2mhe5yuSnJraKqzI50S6QbpFui0Qp0Ri16oxa9ofbRqEVn1KLRqD9mpfNSybztudh/kzaZ0J12F7YqJzVVDmxVztofB7bK2scqJ5WldiqKa7BVOXHaXVSV2XG7Gjc/qlanqU3uGvRGHX5BRgLDLOiNWrQ6DVq9BpNFj9nfgMXPQEAXMyafpvVtKYpyYbNnz8bX15c//OEPF32stLQ0Fi1axD/+8Y9miKz9aNWEXlPpYOfaY2ck6trHMxK1rcqJy+m+4HEMZh0WfwO+ViN+wSb0Bi1mfwPBXX3wCTSi0QhE7Y/bJXHaXDhsLhz22kebC+eZz20u7DYXZQXVnDxUitPu4nxzZ/uHmgmL9qNb32B6De6CzqBtgd+UoihN5XQ6GTx4MIMHD/Z2KK2uVRN6WUENm5dmAJ6kbLSc/tETFOFT99zoU/to0WGqe+1ZZjDrWqWrxO1y43S4qal0UF3uoKrMTtGJCvKPlnPycCkZaXlsWpKONcxCl2h/ovsHE9nbil4leEVpkEWLFjFv3jyEECQlJdGjR4+6dYcPH+aBBx4gPz8fi8XCm2++Se/evfniiy+YM2cOdrud4OBgFi9eTFhYGLNnz+bw4cNkZmbSvXt37r33XubNm8eKFSuoqKhgxowZpKWlIYRg1qxZTJo0iVWrVjFr1ixsNhs9evTgnXfewdfX14u/kYvXqgk9ONKHu19IbbWkfDE0Wg0GrQaDSYd/sBmA2KQQwHM1+kRGCYfS8ijJq+LAD6fYszEHrV5Dr0Fd6D8miuBIH3R6ldyVtu/PX+xl34myZj1m367+zLq233nX7927lzlz5vDtt98SEhJCUVHRWd0j99xzD6+//jq9evXihx9+4P7772fdunWMGjWK77//HiEEb731Fn//+9954YUXANi3bx+bN2/GbDazYcOGumM988wzBAQEsHv3bgCKi4spKChgzpw5rFmzBh8fH+bOncuLL77I008/3ay/h9bWqgldq9N0iD5oIQSR8VYi460AuBxuTmSUkLkjnwPfneTA96cQGkFUbyuR8YEEdfWle58gtHo1qEhRANatW8dNN91ESIinkRQUFFS3rqKigm+//ZabbrqpbpnNZgM8wy1vueUWTp48id1uP2t434QJEzCbzb8615o1a/jPf/5T99pqtbJixQr27dvHyJEjAbDb7YwYMaJ536QXtMmLou2NVq+hW98guvUNYui1sRw/WEx+djmHf8rn2L4iAIwWHam3xJMwLNzL0SrK2S7UkvYGt9tNYGAgO3bs+NW6GTNm8OijjzJhwgQ2bNjA7Nmz69b5+Pg0+BxSSi6//HL+/e9/N0fIbUa9TUYhRIIQYscZP2VCiIeFEEFCiNVCiIzaR2trBNzWmf0M9BocxiU39GTKMyP435dHc+2MZIK6+rDmnX189uJ2dq47hsPu8naoiuI1Y8eOZenSpRQWFgJQVFRUt87f35/Y2FiWLl0KeJLvzp07ASgtLSUyMhKA9957r0Hnuvzyy5k/f37d6+LiYoYPH86WLVs4dOgQAJWVlaSnp1/8G/OyehO6lPKglHKAlHIAMAioApYBfwTWSil7AWtrXyu/YDDp6N4vmOseSWHYhFhqKh1sXpLBoie+Ze27+yg4Xu7tEBWl1fXr14//+7//49JLLyU5OZlHH330rPWLFy/m7bffJjk5mX79+rF8+XLAM7TxpptuYtCgQXXdNfV56qmnKC4upn///iQnJ7N+/XpCQ0N59913ue2220hKSmLEiBEcOHCg2d9naxPyfOPzzrWxEFcAs6SUI4UQB4ExUsqTQogIYIOUMuFC+w8ePFiqeuhwIqOEPd8c5+jeIuw1TpLGRDHi+h5qCKTSavbv30+fPn28HYZyDuf6txFCbJNS1jsOs7F96LcCpzudwqSUJ2ufnwLCGnmsTqtrr0C69gqkptLB1s8z2bX+ODkZJVz7+2R8Ao3eDk9RlHaqwcMuhBAGYAKw9JfrpKeZf86mvhDiHiFEmhAiLT8/v8mBdkQmHz2jb0tg/ANJlOVX8/Hf0yg6WentsBRFaacaM47uKmC7lDK39nVubVcLtY9559pJSvmGlHKwlHJwaGi9U+J1SjGJIVz/2EBcTsmnz2/j5KESb4ekKEo71JiEfhs/d7cAfA5Mq30+DVjeXEF1RqHd/Zg0cxAmXz3LX9lB5g71bUZRlMZpUEIXQvgAlwOfnrH4OeByIUQGcFnta+UiBISamfT/BhES5ctXC3azeUkGhTkVuN2NKzqmKErn1KCLolLKSiD4F8sKgXEtEVRnZvY1cN0jKWz6Tzq7Nhxn57pj6IxagiJ88A00EhbrT8rl3RFtvHSCoiitT90p2gbpDVrGTu3DkGtiOZFeTO6RMopzqyg6WVnXFTPwymgvR6koSlujEnob5hdkImF4BAnDIwDPHXNfv7mX75dnEh4XQNdegV6OUFHaBqfTiU6n0pmqFtWOCCEYO6U3/iEmVr21B1u109shKUqTLVq0iKSkJJKTk5kyZQpZWVmMHTuWpKQkxo0bR3Z2NgBffPEFw4YNIyUlhcsuu4zcXM9Au9mzZzNlyhRGjhzJlClT2Lt3L0OHDmXAgAEkJSWRkeEp1f3BBx/ULb/33ntxuVy4XC7uvPNO+vfvT2JiIi+99BIAY8aM4fHHH2fo0KHEx8ezadMmwDNl3/Tp00lMTCQlJYX169cDMH78eHbt2gVASkoKf/nLXwB4+umnefPNN1vvl1lLfaS1Mwazjsun9+PjuWns3Zijul6Ui/ffP8Kp3c17zPBEuOr84yTOVT532rRpdT8LFy7kwQcf5LPPPmtwydwZM2bw0EMPMXnyZOx2Oy6Xi/379/PRRx+xZcsW9Ho9999/P4sXL6Zfv37k5OSwZ88eAEpKfh4q7HQ62bp1KytXruTPf/4za9asYf78+Qgh2L17NwcOHOCKK64gPT2d1NRUNm3aRHR0NDqdji1btgCwadMmXn/99eb9nTaAaqG3Q2Gx/nTrG8SOtcdwOlSRL6X9OVf53O+++47bb78dgClTprB582bAUzL3yiuvJDExkeeff569e/fWHefMkrkjRozgr3/9K3PnzuXo0aOYzWbWrl3Ltm3bGDJkCAMGDGDt2rVkZmYSFxdHZmYmM2bM4KuvvsLf37/umDfccAMAgwYNIisrC4DNmzdzxx13ANC7d2+io6PrEvrGjRvZsmUL48ePp6KigqqqKo4cOUJCwgUrobQI1UJvpwZeGc3yl37iwHen6D860tvhKO3ZBVrSbUFDS+befvvtDBs2jC+//JKrr76aBQsWIKVk2rRp/O1vf/vVcXfu3MnXX3/N66+/zpIlS1i4cCEARqOn/IZWq8XpvHC35pAhQ0hLSyMuLo7LL7+cgoIC3nzzTQYNGtQM77zxVAu9nYqMD6RLjD8/rTqK23XhOVgVpa05V/ncSy65pG4iisWLF5Oamgo0vGTu6Zb3gw8+yHXXXceuXbsYN24cH3/8MXl5eXXnOXr0KAUFBbjdbiZNmsScOXPYvn37BeNNTU1l8eLFAKSnp5OdnU1CQgIGg4Fu3bqxdOlSRowYQWpqKvPmzWP06NEX9wtqItVCb6eEEAy+KpqV/9rN+g8OMHZKHzU2XWk3ziyfq9VqSUlJ4Z///CfTp0/n+eefJzQ0lHfeeQf4uWSu1Wpl7NixHDly5JzHXLJkCe+//z56vZ7w8HCefPJJgoKCmDNnDldccQVutxu9Xs/8+fMxm81Mnz4dt9vTGDpXC/5M999/P/fddx+JiYnodDrefffdupZ8amoqa9euxWw2k5qayvHjx+s+jFpbo8rnXixVPrf5/fBFJmlfZpF4aSSpt8SrpK40iCqf23a1ZvlcpY0Zek0sTrubHauzycsu59LbEgjt7uftsBRF8QLVh97OCSG45IYejLuzD2UF1Sz924/s3nDc22EpiuIFqoXeAQgh6D08gtikENa8u5+N/0mntKCakZN6IoTqglGUzkK10DsQo0XPVb9LpP+lkexcc4zsfUX176QoSoehEnoHo9EIRt3UC0uAgZ1rj3k7HEVRWpFK6B2QVqchcUwUx/YVUZhT4e1wFEVpJSqhd1D9UyPR6TXsXKda6Urb9I9//IM+ffpgtVp57rm2fbdqe6EuinZQJl89CSMiOPDtSUZO6onRovd2SIpyltdee401a9YQFRXl7VA6DNVC78B6Dw/H5XSTtbvQ26Eoyll+97vfkZmZyVVXXcVLL73E73//ewDuvPNOHnzwQS655BLi4uL4+OOP6/Z5/vnnGTJkCElJScyaNQuAyspKxo8fT3JyMv379+ejjz4CICYmhlmzZjFLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0),label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 350,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 351,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 352,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 353,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 354,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt4nHWd///n577nnknuyeQ0IekhKYaWcxcRq4IHQPYraEs5CHU9oAgIrnDteomIuqssCLsL6uJpRSuyUIvseqn8ipxUEDnptkALiJwPgU5omzA5TubOnO778/tjJmlLZiYzSeYA+35cV6+rnfue+bxyT5q878987vettNYIIYQQQggh6otR6wBCCCGEEEKImaRQF0IIIYQQog5JoS6EEEIIIUQdkkJdCCGEEEKIOiSFuhBCCCGEEHVICnUhhBBCCCHqkBTqQgghhBBC1CEp1IUQQsybUupepdRnap1DCCHeTKRQF0KIWSil3quU+rNSakwpNayU+pNS6h01yPGsUuoApdQNSqkrKvD6i5VS1ymldiqlYkqpZ5RSlymlggs9lhBCiNlJoS6EEEUopZqB24AfAO3AUuAyIFnlHMsBU2v9XIVevx34X6AROEprHQI+ALQCyysxZm5cX6VeWwgh3uikUBdCiOIOANBa/7fW2tVaT2qtf6+1/guAUurTSqkHlVLfVkqNKKX6lFIfmnqyUmqJUuo3uZn4F5RS5+Yeb1BKTSqlOnL//melVCZ3YoBS6nKl1Hf3yLEGuCNfwD1m/EeVUhGl1KdzjwdyubYrpQaUUj9WSjUW+DovBGLAGVrrl3Nfc0Rr/fk9vtZ3K6Uezn2y8LBS6t0F8hhKqa8ppV5RSg0qpX6mlGrJbXuLUkorpc5RSm0H7pn9LRBCiP+bpFAXQojingNcpdQGpdSHlFJtefZ5F/As0AF8E7hOKaVy2/4H6AeWAKcD/6aUOk5rnQAeBo7J7XcM8Arwnj3+fd8eY6wGbn/9wEqpfYE7yc747wMcDjyW23wl2RONw4EVZD8NuKTA1/n/gJu11l6+jbkZ99uB7wNh4GrgdqVUOM/un879eT+wH9AE/Ofr9jkGOBg4oUAeIYT4P08KdSGEKEJrPQ68F9DAtcBruRnyrj12e0Vrfa3W2gU2AIuBLqVUD9nC+8ta64TW+jHgp8Cncs+7Dzgmt/zjMLJF8DFKqQbgHcD9AEopO/fve/NE/Dhwd27GP621HtJaP5Y7UTgP+ILWelhrHQP+DfhogS81DOwscijWAM9rrTdqrTNa6/8GngHW5tn3E8DVWuuXtNYTwFeBj75umculWuu41nqyyJhCCPF/mhTqQggxC63101rrT2utu4GVZGfH91yWsmuPfZ3cX5ty+00VyVNeITuzDdlC/VjgCOAJ4C6yM81HAi9orYdy+/0t8Getdb518T3Ai3ke3wewga25JTGjwG9zj+czRPYEo5Aluex72vNrKbbvK4AP2PPkJlJkLCGEEEihLoQQZdFaPwPcQLZgn80OoF0pFdrjsWXAq7m//xk4EDgVuE9r/VRu+2pmLnvJuz6dbMGb72LPKDAJHKq1bs39adFaNxV4nbuBU5VShX4v7AD2fd1je34txfZdBmSAgT0e0wXGEUIIkSOFuhBCFKGUOkgp9UWlVHfu3z3Ax4DNsz1Xax0hW4z/e+7i0cOAc4Abc9sdYCtwAbsL8z8Df8/ehfqHyLM+PefnwP9TSn1EKeVTSoWVUofn1ppfC3xHKdWZy75UKVVoTfjVQDOwIbfufWr/q3O57wAOUEp9PDfO3wGHkO2I83r/DXxBKdWrlGoiu+TmF1rrTNEDJoQQYi9SqAshRHExsheLblFKxckW6H8Fvlji8z8GvIXsLPP/B/yL1vruPbbfB1jAQ3v8O8Tu9ekrgQmt9fZ8L557fHUuzzDZC0nfmtv8ZeAFYLNSapzsrPmBBV5nGHg3kM59rTHgD8AYu5fhnJgbZwi4GDhRax3N83L/BWzMfQ19QAL4h7xHRwghREFKa/n0UQgh6pVS6mKgQ2t9ca2zCCGEqC650YQQQtS3l4Fbax1CCCFE9cmMuhBCCCGEEHVI1qgLIYQQQghRh8pa+tLa2qqXLFlSqSxCCCGEEEK86T399NNRrXWh+1pMK6tQX7JkCRs3bpx7KiGEEEIIIf6PW7Vq1etvIJeXLH0RQgghhBCiDkmhLoQQQgghRB2SQl0IIYQQQog6JIW6EEIIIYQQdUgKdSGEEEIIIeqQFOpCCCGEEELUISnUhRBCCCGEqENSqL8BnHfeeaxdu3avxy699FJWrVpVo0SV8Wb8moQQQggh5qqsGx4J6O/vZ8OGDWzbto1du3bh9/sJh8MceuihrF27dq9Cc/369Rx44IEce+yxtQtcAZlMhttvv53f/e53PPfcc0xMTBAMBlmxYgXvf//7OeWUU2hoaKh1TCGEEEKINzQp1Mvw1FNPcd555+Hz+VizZg377bcfyWSSSCTC5s2bsW17r0L92muv5cQTT3xTFeojIyNceOGFPPHEE6xcuZKPfexjdHR0EIvFePTRR/nOd77DY489xpVXXlnrqEIIIYQQb2hSqJfh2muvJZFIcNNNN3HAAQfM2B6NRmuQauFkMhlc1yUQCOTdrrXmy1/+Mk888QQXXXQRH/3oR/fafsYZZ7B9+3buvvvuasQtSSKRwOfz4fPJt7oQQggh3likeinD9u3baWlpyVukA3R0dACwY8cOTjrpJABuu+02brvttul9Hnnkkem/b9myhZ/97Gc8+eSTpFIpli1bxumnn87pp58+p3wvv/wy//M//zO9LMd1XXp7ezn99NM55ZRT9tp3/fr1XHvttfziF7/glltu4e677yYajXLNNdcUXCf+wAMPsG3bNj7wgQ/MKNKnLFu2jLPPPnuvx7Zt28ZPf/pTnnzySTKZDG95y1tYt27djEyFPP/886xfv55HH32UyclJli5dyoknnsgZZ5yBaZrT+1166aXcdttt3HXXXXz/+9/nT3/6EyMjI9xyyy0sWbKkpLGEEEIIIeqFFOpl6O7u5pVXXuGee+7huOOOK7hfW1sb3/jGN7jkkkt429vexqmnnjpjn5tvvpl///d/52/+5m84++yzaWxsZMuWLVx55ZW8+uqrfP7zny873yOPPMK2bdt473vfy5IlS0gkEtx9991cccUVjIyMcNZZZ814zte//nUCgQCf+MQnUEpNn2zk84c//AGAD3/4wyVnuv/++/nSl75EOBzmjDPOwLZtfv/733PFFVfw6quvcsEFFxR9/p7LjdatW0c4HOaBBx7gBz/4Ac8//zxXXHHFjOdccMEFhMNhzjnnHCYnJ7Ftu+S8QgghhBD1Qgr1Mpxzzjls2bKFiy++mGXLlvHWt76VQw89lLe//e309vZO79fY2Mjq1au55JJLWLp0KatXr97rdaLRKN/+9rc5/vjj+dd//dfpx9etW8e3v/1tfv7zn3PaaafR3d1dVr41a9bMmI3/+Mc/zt///d9zww038MlPfnLGEpCmpiauueaakpaGvPjiiwAFP1F4Pdd1+eY3v0ljYyMbNmxgn332AeAjH/kIn/3sZ9mwYQNr165l2bJlBV/j29/+Nul0muuvv579998fgL/7u7/jq1/9Kr/97W856aSTeOc737nXc5YvX87ll19eUkYhhBBCiHol7RnLcNhhh3HjjTdy4oknMjExwa233sqVV17JunXrOPfcc+nv7y/pde6++25SqRQnn3wyo6Oje/153/veh+d5PPTQQ2Xna2xsnP57MplkdHSU8fFxjjzySOLxOC+//PKM53z84x8vef12PB4HIBgMlrT/008/za5duzjppJOmi3QAy7L41Kc+hed53HfffQWfPzw8zF/+8heOPvro6SIdQCk1vbzmj3/844znnXHGGSXlE0IIIYSoZzKjXqYVK1Zw6aWXArBz5062bt3KLbfcwqOPPsoXv/hFbrzxRizLKvoaUwXz+eefX3Cf4eHhsrM5jsNPfvIT7rrrLgYGBmZsHx8fn/FYsdns15sq0B3Hobm5edb9d+zYAcB+++03Y9vy5csBePXVV+f0/N7eXgzDyPv8fffdd9ZsQgghhBD1Tgr1eVi8eDEnnngia9as4TOf+QyPP/44Tz75JIcffnjR52mtAbjssssKrglfunRp2Xn++Z//mQcffJBTTz2VI444gpaWFgzD4E9/+hM33XQTnufNeE45/c6XL1/OM888w7PPPss73vGOsvNVi/RwF0IIIcSbgRTqC0ApxcqVK3n88ccZHBycdf+enh4AWltbede73rUgGWKxGA8++CCrV6/mn/7pn/baNpdlNPkcd9xx3H777WzatKmkQn3qZOOll16asW3qsWInJFOdWvI9/+WXX8bzvDmd0AghhBBCvBHIGvUybN68mUwmM+PxRCLB5s2bgb2Xadi2zdjY2Iz9P/CBD+D3+1m/fj2JRGLG9omJCVKpVFnZDCP7Vk7N1k+JRqNs2rSprNcq5Oijj+aII47gd7/7Hb/85S/z7hOJRLj++usBOOigg1i0aBG33nrrXj3mM5kMGzduRCnFMcccU3C89vZ2DjvsMO6//35eeOGF6ce11tNjvP/971+IL00IIYQQou7IjHoZrr76asbGxjj66KNZsWIFDQ0NDAwM8Nvf/pbt27ezZs0aVqxYMb3/ypUreeihh7jhhhtYtGgRSilOOOEEurq6+MpXvsIVV1zBunXrWL16NYsXL2ZkZIQXXniBe++9l1/+8pdl9f4OBoMceeSR3HnnnQQCAQ499FB27tzJzTffzNKlS/OeMJRLKcVVV13FF77wBa666iruuOMOjj76aMLhMLFYjMcee4z7779/unWlaZpcfPHFfOlLX+LMM8/k1FNPxbZt7rrrLp544gnOOuusWdfIX3TRRZx33nmce+650+0ZH3zwQf73f/+XD37wgzM6vgghhBBLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.amax(rgbs[s])*albs[s],s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Snow/Ice Color\")\n",
"plt.savefig(\"colorgrid_snow.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 355,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 356,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 357,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd8VFX6+PHPk0IPvSchoQQINWgAFUEsICor66orlnXR3UVd67q66jb9ol9Xd/fnfi2sZbGviB2xoGJBRRAIndB7EloKNRBIZp7fH+cmGUKSCWWYlOf9es1r5pZz7zOTyXnmnnPvPaKqGGOMMZWJCHcAxhhjqj9LFsYYY4KyZGGMMSYoSxbGGGOCsmRhjDEmKEsWxhhjgrJkYYwxJihLFqbGEpFNInKB9/ohEfnvSdrucBHJPBnbqmQf6SIyvJLlM0Xk1yewfRWRbt7r50TkLwHLbhGRHSKyX0RaicgQEVnrTf/0ePdpajdLFjWUiJwtIrNFZI+I5InIDyIyMAxxrBaR7iLyiog8cqr3X1Opam9VnQknN9FVsK+bVfVhb1/RwBPASFVtoqq5wATgGW96aqjiKI+IjBORWae6rDl2UeEOwBw7EWkKfAzcArwN1AOGAodOcRxdgUhVXSMip3LX5vi1AxoA6QHzEspMV5mIRKlq0ckI7FSrybGHgx1Z1EzdAVT1TVX1qepBVf1CVZdC6S8uEfmniOwSkY0iclFxYRHpKCLTvCOSdSLyG29+AxE5KCKtvek/iUiRl5wQkYdF5P8C4rgE+LS8AAOOfHaLSIaIjPPm1/fi2uI1hTwnIg0r2EZXEflaRHJFJEdE3hCR5pV8Lg1E5C0R2SciC0Wkf5n3/J6IZHufxx0Byxp6R0a7RGQFcMQRmogke81Cu73mo0sriPdcEVkWMD1DROYHTH9f3MxT3IQmIqOAPwJXec1ASwI2meAdMe4TkS+K/y4V7PteEdkmIltF5MYyy14RkUdEpDuw2pu92/ts1wNdgI+8/dcXkWYi8qK3vSyvbKS3rXFeTP8SkVzgIW/+jSKy0vsMPxeRhID9q4jc7DV17RaRieIkA88BZ3r73l3BexsnIhu8z2GjiFxbUVkRuUREFonIXu9791DAdhK9WH4lIluAr73v/H+979huEZkvIu0q+pzrNFW1Rw17AE2BXOBV4CKgRZnl44BC4DdAJO4IZCsg3vLvgH/jfmGmANnAeQHLLvdefwGsBy4KWHZZwH4+Ay70Xr8CPOK9TgD2AVcD0UArIMVb9i9gGtASiAE+Av5WwfvsBowA6gNtvP3/X8DyTcAF3uuHvPd8hbfPe4CN3usIYAHwV9xRWBdgQ0DsjwHfezHFA8uBTG9ZNLAOV6HXA87z3luPcuJtCBQArb1yO4As7302BA4CrSqI/b9ltjXT++y7e2VnAo9V8DmN8vbVB2gMTAYU6FbO3ybRWxZV3ufoTX8APO9tqy0wD7gp4LtVBNyOa5loCIzxPqNkb96fgdkB21PckXBzoBPu+zYqYHuzKvmuNwb2Fn/eQAegd0VlgeFAX+9v3s/7XH5a5r2/5m23IXAT7jvYCPe/cjrQNNz/49XxYUcWNZCq7gXOxn3x/wNke0cKgb+INqvqf1TVh0sqHYB2IhIPDAHuU9UCVV0MTAKu98p9C5wjIlG4f7anvOkGuF/c3wGISCNvemY5IV4DfKnuyKdQVXNVdbGICDAe+J2q5qnqPuBRYGwF73Odqs5Q1UOqmo1raz+nko9mgaq+q6qF3roNgDO8ONuo6gRVPayqG7zPrXi/Pwf+14spw3vPxc4AmuAq6sOq+jWu4ru6nHgPAvOBYbhKZwnwA+7zPgNYq66PoKpeVtU13nbfxiX28vzcW3e5qubj/do/Ht536GLgLlXNV9WduAQf+DfaqqpPq2qRF9vNuIS/Ul2zzqNASuDRBe7z262qW4BvKnkv5fEDfUSkoapuU9UKm8xUdaaqLlNVv7oj7Tc5+jvzkPfeDuJ+YLTCJVafqi7w/r9MGZYsaijvH3OcqsbhflF2BAKbiLYHrHvAe9nEW6+4oi62GYj1Xn+L+3V2GrAMmIH7ZzsDWBdQ2Z2P+/VYXj9JPO5XcVltcL/gFniH/LtxRydtynuPItJORKZ4TSF7gf/ifrVXJCPgPfuBTO/9JgAdi/fp7fePuPZ7vHUyArazOeB1RyDD217g8ljKV/z5DfNez8R9fud408die8DrA7i/X3kqi/9YJeCOirYFfFbP444wimWUU+bJgPXzAOHIz6iq7+UIXvK7CpeQtonIJyLSs6L1RWSwiHzjNTfu8cqV/c4Exv868DkwxWvC+7u4kwBMGZYsagFVXYVrauhThdW3Ai1FJCZgXidccwnAbKAHcBnwraqu8JZfzJGV3cVU0F+B+2fsWs78HFxTTG9Vbe49mqlqRRXHo7ijp76q2hS4DlcJVSS++IWIRABxuPebAWwM2GdzVY1R1Yu91bcFlvXeb7GtQLy3vcDlWZSvbLL4luDJ4kTHCags/mOVgTtRonXAZ9VUVXsHrFM23gxcM1Xg59tQVWdXYX9B37uqfq6qI3BHx6twR4UVlZ2Ma+aMV9VmuH6Nst+ZknLeke//qGov4CxgNKVH2SaAJYsaSER6isjvRSTOm47HNYv8GKys18wyG/ib17nXD/gV7ld78VHIAuBWSiu32bhfaIGV3UXAJxXs5g3gAhH5uYhEiTuXP8X7df4f4F8i0taLPVZELqxgOzHAfmCPiMQC9wZ5e6eLyM+8JrS7cJXej7g2930icp+4zuxIEekjpacavw08ICItvM/09oBtzsX9Ev6DiESLuzbiJ8CUCmIoTraDgHlek0kCMBivCa8cO4DEMgnpWLwNjBORXl7z4IPHuR1UdRuur+r/iUhTEYkQd6JBZc1/z+E+v94AXgf5lVXc5Q4gTkTqlbfQO7ocIyKNcX/P/bhmqYrKxuCOnAtEZBCuSbRC4k5K6Ot14O/FNUv5KytTV1myqJn24SqfuSKSj6sQlwO/r2L5q3GdfVtxnZkPquqXAcu/xTVFzAuYjqG0v6IPsN9rfz6KN/9iL548YDFQfGbSfbjO0B+9pqUvcZVref4H1xy2B5eY3g/yvj7ENVnsAn4B/Mz75ejD/WJMwXV65+D6aZoF7Gezt+wLXNNE8Xs5jEsOF3nl/g1c7x3Nlffe84GFQLpXFmAOrg9pZwVxv+M954rIwiDvsbx9Tsc1QX6N+2y/PtZtlHE9rjN/Be6zfBf3q76i/X8API5rytmL+y5eVNH6ZXyNO213u4jklLM8Argb913Nwx2h3VJJ2d8CE0RkH+6EhreD7L897v3tBVbivuuvV1qijio+O8aYKhORP+CaKf4Q7liMMaeGXZRnjscm3OmGxpg6wo4sjDHGBGV9FsYYY4KyZGGMMSaoWtNn0bp1a01MTAx3GMYYU6MsWLAgR1XLvTA2UK1JFomJiaSlpYU7DGOMqVFEpEpX/FszlDHGmKAsWRhjjAnKkoUxxpigLFkYY4wJypKFMcaYoCxZGGOMCarWnDprjDEVUVX8Cn5VNOBZcfOLl2vAcr+3XJXSMhy5Tvnzve36KykfsL4Cfr+b5/dmBO67uBxHxF36GpSmDaM5q2tl44KdOEsWxgQRWNH4/Fr67AdfmXlHLPfKFc9XPXp9v7rt+FXxqeL3l5ZRb15J2ZJtlsYTuH55y3z+4krF236ZcsUVTmC8/oDXWmabpRXp0euWtzzwsztie35KKswKy/sDKnGO3t5RFXY523D7CPc3KPRS4psz9VZLFuYUUlWK/EqRTyny+/H5lUKfes9uusir/IqXF08fsdxXOt9VeH6KfFqmvDff7yqvwOfA9XxHLfPj8yqqkmUauI6/pCIvWd/vrR9QqfvKlCupyP3FFXdp5V4bREYIkSIgEClCZIQgQESEECEQIXLkaxEiIkDw1nVFiYxwy0q2ecR2jtymSERpWREivecIARAiI9y+JGCf4sUnJfPLX6f4WfBiDohDoGQ7eDFFBsyXI7ZDyfuJkOK4S58D91HyOmBbJXEUl6F0u1L8eZSsU7q8smWl7y0whiPfc2CZRvUiQ/79sWRxEvj9ymGfq/QKi/wU+v0U+tzrIr+fw0WuAiv0efN9ruIsLC7jzS/y+Sn0e8/ePJ+/dL7bXkD5gAq4eFtF3vqBy4vn+fxuns+nFAZU8KWVuJ/qUC9GR0pJxRYZIURFRhAhQpRXMUVEQFREBBFSXFlFEBXh/oGL14mMEOpFRJS8jhBXMRWvH+lVLlFHLC99PrJMhBeLV+F5sUVEuMovMqL4delz8bwIr8KKCNheRMA2SrYXUVqBRXqVdGBMxe81ImAfxZVRZERpZRlZpjItXiZS2Wi0xgRX55PF3oJC/jp1OYU+V+EXeo/DRX4OexV+cUV8OOB1YZG/ZP1TUcHWi4wgKtJVbtElryuYFyFERQpNoqO8yjCC6EhX6UZ5FWSUVyFHecsiS56Ll0eUVKSBr4vXjRQp2XdEhBDtVczF86IiIkoq9eLKt2S/4rYZOD+wAjbGVD91PlmoHxZl7CY6MsJ7CPW81w2ihfpREV5FHOHNdxVedMl0xBHTxa+jvYo7OiqCegGvo73lgRV8dGQE0cUVv7f/wIrdHcZbJWqMCZ86nyyaNYrm23vPDXcYxhhTrdl1FsYYY4KyZGGMMSYoSxbGGGOCsmRhjDEmKEsWxhhjggppshCRUSKyWkTWicj95Sz/l4gs9h5rRGR3wLJfisha7/HLUMZpjDGmciE7dVZEIoGJwAggE5gvItNUdUXxOqr6u4D1bwcGeK9bAg8CqbhbyCzwyu4KVbzGGGMqFsoji0HAOlXdoKqHgSnAmErWvxp403t9ITBDVfO8BDEDGBXCWI0xxlQilMkiFsgImM705h1FRBKAzsDXx1rWGGNM6FWXDu6xwLuq6juWQiIyXkTSRCQtOzs7RKEZY4wJZbLLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Snow/Ice albedo with different stars\")\n",
"plt.savefig(\"snow_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 358,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.6081278005235092\n"
]
}
],
"source": [
"print teffs[-16],albb[-7]"
]
},
{
"cell_type": "code",
"execution_count": 359,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"glacalbmin\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 360,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"glacalbmin_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 361,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: glacalbmin(965) = (/72.8542,72.9169,72.9924,73.0412,73.1245,73.1644,73.2082,73.2917, &\n",
" & 73.3266,73.4138,73.4452,73.5745,73.5945,73.5915,73.5567,73.5425, &\n",
" & 73.4823,73.4565,73.4276,73.4128,73.3099,73.2983,73.2757,73.2244, &\n",
" & 73.1708,73.0729,72.9367,72.7057,72.6339,72.4826,72.3225,72.0748, &\n",
" & 71.9929,71.8206,71.7562,71.5810,71.2042,71.0782,70.8433,70.7119, &\n",
" & 70.4518,70.1351,69.7505,69.4219,68.9788,68.5827,68.3783,68.2024, &\n",
" & 68.1186,67.0826,65.4401,64.6529,64.2082,63.5866,62.0006,59.8770, &\n",
" & 57.2722,55.3844,54.9615,56.6265,57.1334,57.8229,57.5637,56.1472, &\n",
" & 53.8247,50.1078,45.5646,41.9340,41.0004,40.4871,40.5442,40.3640, &\n",
" & 40.5799,40.9390,40.3964,39.5441,37.3746,26.0959,12.8617,9.3138, &\n",
" & 7.2958,6.3800,6.7451,6.9265,8.1285,9.3163,9.9370,10.0377, &\n",
" & 12.6225,13.3656,15.2587,16.5017,17.2778,17.7109,19.1999,19.6744, &\n",
" & 21.4847,22.2720,23.9955,21.8609,14.9959,9.8172,6.5213,4.9702, &\n",
" & 3.8115,3.3320,3.1551,3.3185,3.7408,4.0751,4.7478,5.7747, &\n",
" & 7.2595,9.2924,10.9134,12.2323,14.2970,15.8103,16.3385,16.2042, &\n",
" & 15.8641,15.2582,14.4248,13.5320,12.6980,11.9201,11.1876,10.5997, &\n",
" & 10.0870,9.6745,9.3800,9.1306,8.9382,8.7881,8.6507,8.5293, &\n",
" & 8.3879,8.2432,8.1174,7.9783,7.8345,7.6832,7.5541,7.4147, &\n",
" & 7.2791,7.1757,7.0882,6.9888,6.9140,6.8800,6.7836,6.7129, &\n",
" & 6.6459,6.4281,6.3425,6.2631,6.0780,5.8727,5.8125,5.4591, &\n",
" & 4.9874,4.3480,4.0747,3.6282,3.1111,2.5979,2.0897,1.7067, &\n",
" & 1.3015,1.0110,0.7642,0.6004,0.4859,0.4031,0.3389,0.3063, &\n",
" & 0.2737,0.2647,0.2656,0.2695,0.2799,0.3094,0.3648,0.4764, &\n",
" & 0.5959,0.7533,0.9231,1.0931,1.2799,1.4415,1.5724,1.7394, &\n",
" & 1.8669,2.0694,2.2779,2.5575,2.8577,3.2019,3.6007,4.0313, &\n",
" & 4.4167,4.7115,4.9205,4.9400,4.8628,4.6840,4.5168,4.3932, &\n",
" & 4.3259,4.2764,4.2305,4.1767,4.1204,4.0214,3.9008,3.7651, &\n",
" & 3.6248,3.4843,3.3561,3.2507,3.1547,3.0483,2.9600,2.8859, &\n",
" & 2.8247,2.7650,2.7046,2.6630,2.6280,2.5960,2.5669,2.5453, &\n",
" & 2.5180,2.4996,2.5020,2.5010,2.5077,2.5230,2.5366,2.5569, &\n",
" & 2.5872,2.6356,2.6881,2.7370,2.7895,2.8528,2.9151,2.9909, &\n",
" & 3.0656,3.1356,3.2098,3.2863,3.3633,3.4356,3.5053,3.5694, &\n",
" & 3.6327,3.6887,3.7297,3.7743,3.8137,3.8357,3.8501,3.8536, &\n",
" & 3.8434,3.8315,3.8193,3.7871,3.7438,3.7040,3.6542,3.6031, &\n",
" & 3.5494,3.4897,3.4284,3.3651,3.3083,3.2526,3.1980,3.1383, &\n",
" & 3.0739,3.0191,2.9699,2.9208,2.8716,2.8281,2.7824,2.7406, &\n",
" & 2.7040,2.6583,2.6122,2.5718,2.5324,2.4954,2.4660,2.4336, &\n",
" & 2.3981,2.3670,2.3374,2.3072,2.2817,2.2589,2.2273,2.1921, &\n",
" & 2.1671,2.1507,2.1353,2.1227,2.1073,2.0898,2.0727,2.0518, &\n",
" & 2.0274,2.0057,1.9835,1.9573,1.9384,1.9241,1.9054,1.8869, &\n",
" & 1.8679,1.8440,1.8214,1.8061,1.7920,1.7668,1.7389,1.7191, &\n",
" & 1.7086,1.6967,1.6782,1.6599,1.6477,1.6390,1.6301,1.6210, &\n",
" & 1.6118,1.6025,1.6031,1.6083,1.6064,1.6009,1.5974,1.6022, &\n",
" & 1.6083,1.6131,1.6181,1.6290,1.6442,1.6592,1.6725,1.6864, &\n",
" & 1.7027,1.7190,1.7366,1.7597,1.7854,1.8074,1.8231,1.8418, &\n",
" & 1.8622,1.8860,1.9112,1.9338,1.9619,1.9894,2.0083,2.0316, &\n",
" & 2.0575,2.0802,2.1056,2.1289,2.1485,2.1664,2.1871,2.2092, &\n",
" & 2.2271,2.2447,2.2611,2.2835,2.3055,2.3240,2.3410,2.3582, &\n",
" & 2.3751,2.3899,2.4009,2.4109,2.4218,2.4327,2.4418,2.4486, &\n",
" & 2.4542,2.4605,2.4662,2.4698,2.4725,2.4734,2.4742,2.4778, &\n",
" & 2.4776,2.4747,2.4661,2.4560,2.4462,2.4386,2.4315,2.4210, &\n",
" & 2.4053,2.3886,2.3734,2.3625,2.3488,2.3303,2.3098,2.2941, &\n",
" & 2.2811,2.2648,2.2484,2.2300,2.2114,2.1895,2.1663,2.1485, &\n",
" & 2.1317,2.1108,2.0883,2.0642,2.0373,2.0168,1.9999,1.9821, &\n",
" & 1.9657,1.9444,1.9241,1.9000,1.8733,1.8519,1.8361,1.8188, &\n",
" & 1.7928,1.7683,1.7540,1.7421,1.7252,1.7111,1.6928,1.6647, &\n",
" & 1.6360,1.6147,1.5969,1.5757,1.5607,1.5497,1.5338,1.5178, &\n",
" & 1.4979,1.4685,1.4453,1.4272,1.4118,1.4006,1.3853,1.3709, &\n",
" & 1.3549,1.3379,1.3248,1.3084,1.2951,1.2781,1.2632,1.2549, &\n",
" & 1.2503,1.2459,1.2394,1.2290,1.2152,1.2084,1.2074,1.2049, &\n",
" & 1.1966,1.1839,1.1701,1.1591,1.1551,1.1553,1.1556,1.1546, &\n",
" & 1.1549,1.1539,1.1540,1.1575,1.1622,1.1671,1.1704,1.1715, &\n",
" & 1.1680,1.1652,1.1577,1.1529,1.1538,1.1614,1.1718,1.1818, &\n",
" & 1.1868,1.1925,1.1989,1.2033,1.2074,1.2086,1.2092,1.2086, &\n",
" & 1.2093,1.2131,1.2179,1.2213,1.2277,1.2331,1.2364,1.2426, &\n",
" & 1.2479,1.2531,1.2600,1.2642,1.2655,1.2642,1.2614,1.2621, &\n",
" & 1.2635,1.2663,1.2698,1.2701,1.2675,1.2621,1.2589,1.2540, &\n",
" & 1.2571,1.2654,1.2720,1.2794,1.2845,1.2871,1.2863,1.2881, &\n",
" & 1.2933,1.3001,1.3031,1.3061,1.3075,1.3103,1.3120,1.3116, &\n",
" & 1.3113,1.3100,1.3067,1.3025,1.3012,1.3010,1.3036,1.3101, &\n",
" & 1.3208,1.3262,1.3326,1.3367,1.3389,1.3436,1.3470,1.3497, &\n",
" & 1.3507,1.3495,1.3475,1.3437,1.3419,1.3385,1.3380,1.3381, &\n",
" & 1.3400,1.3395,1.3392,1.3412,1.3425,1.3448,1.3529,1.3620, &\n",
" & 1.3673,1.3713,1.3749,1.3765,1.3779,1.3776,1.3779,1.3788, &\n",
" & 1.3781,1.3793,1.3806,1.3793,1.3782,1.3756,1.3752,1.3754, &\n",
" & 1.3778,1.3809,1.3845,1.3883,1.3906,1.3909,1.3915,1.3922, &\n",
" & 1.3911,1.3917,1.3917,1.3928,1.3939,1.3965,1.3985,1.4021, &\n",
" & 1.4035,1.4044,1.4056,1.4057,1.4049,1.4050,1.4070,1.4062, &\n",
" & 1.4046,1.4037,1.4025,1.4032,1.4047,1.4066,1.4113,1.4141, &\n",
" & 1.4175,1.4205,1.4232,1.4257,1.4256,1.4263,1.4259,1.4243, &\n",
" & 1.4220,1.4225,1.4224,1.4240,1.4271,1.4308,1.4336,1.4349, &\n",
" & 1.4349,1.4355,1.4364,1.4399,1.4431,1.4472,1.4525,1.4541, &\n",
" & 1.4571,1.4572,1.4562,1.4541,1.4518,1.4517,1.4525,1.4545, &\n",
" & 1.4586,1.4610,1.4652,1.4693,1.4712,1.4747,1.4761,1.4792, &\n",
" & 1.4804,1.4812,1.4823,1.4808,1.4819,1.4812,1.4832,1.4849, &\n",
" & 1.4859,1.4889,1.4898,1.4908,1.4909,1.4903,1.4915,1.4905, &\n",
" & 1.4890,1.4893,1.4880,1.4885,1.4882,1.4871,1.4881,1.4892, &\n",
" & 1.4896,1.4900,1.4925,1.4948,1.4936,1.4931,1.4914,1.4883, &\n",
" & 1.4868,1.4845,1.4810,1.4788,1.4784,1.4764,1.4732,1.4710, &\n",
" & 1.4684,1.4621,1.4590,1.4528,1.4506,1.4469,1.4469,1.4460, &\n",
" & 1.4453,1.4433,1.4419,1.4399,1.4361,1.4310,1.4269,1.4238, &\n",
" & 1.4219,1.4174,1.4162,1.4126,1.4095,1.4036,1.3985,1.3952, &\n",
" & 1.3896,1.3873,1.3857,1.3854,1.3841,1.3836,1.3832,1.3814, &\n",
" & 1.3780,1.3752,1.3703,1.3663,1.3592,1.3531,1.3480,1.3422, &\n",
" & 1.3380,1.3355,1.3330,1.3318,1.3303,1.3285,1.3218,1.3162, &\n",
" & 1.3109,1.3057,1.3008,1.2978,1.2940,1.2939,1.2924,1.2921, &\n",
" & 1.2913,1.2918,1.2911,1.2915,1.2941,1.2930,1.2929,1.2937, &\n",
" & 1.2913,1.2886,1.2867,1.2817,1.2787,1.2752,1.2708,1.2683, &\n",
" & 1.2685,1.2713,1.2724,1.2744,1.2763,1.2760,1.2745,1.2736, &\n",
" & 1.2730,1.2717,1.2688,1.2637,1.2541,1.2458,1.2329,1.2184, &\n",
" & 1.2043,1.1904,1.1800,1.1652,1.1484,1.1308,1.1121,1.0900, &\n",
" & 1.0713,1.0536,1.0363,1.0180,0.9970,0.9773,0.9556,0.9345, &\n",
" & 0.9123,0.8913,0.8711,0.8491,0.8313,0.8116,0.7936,0.7768, &\n",
" & 0.7575,0.7412,0.7201,0.7014,0.6831,0.6645,0.6495,0.6342, &\n",
" & 0.6216,0.6065,0.5925,0.5777,0.5639,0.5546,0.5491,0.5471, &\n",
" & 0.5465,0.5510,0.5570,0.5638,0.5736,0.5833,0.5997,0.6212, &\n",
" & 0.6405,0.6593,0.6827,0.7081,0.7400,0.7661,0.7922,0.8238, &\n",
" & 0.8637,0.8979,0.9334,0.9721,1.0228,1.0644,1.1064,1.1588, &\n",
" & 1.2039,1.2474,1.2999,1.3414,1.3797,1.4259,1.4608,1.5047, &\n",
" & 1.5426,1.5892,1.6290,1.6687,1.7173,1.7554,1.8037,1.8415, &\n",
" & 1.8831,1.9147,1.9558,1.9866,2.0275,2.0669,2.0998,2.1387, &\n",
" & 2.1680,2.2036,2.2391,2.2698,2.3070,2.3449,2.3763,2.4129, &\n",
" & 2.4494,2.4780,2.5119,2.5431,2.5742,2.5987,2.6303,2.6630, &\n",
" & 2.6944,2.7218,2.7549,2.7863,2.8182,2.8491,2.8743,2.8990, &\n",
" & 2.9195,2.9446,2.9697,2.9943,3.0152,3.0355,3.0523,3.0699, &\n",
" & 3.0822,3.0925,3.1060,3.1210,3.1371,3.1557,3.1719,3.1879, &\n",
" & 3.1994,3.2082,3.2105,3.2135,3.2183,3.2257,3.2353,3.2450, &\n",
" & 3.2570,3.2618,3.2648,3.2623,3.2564,3.2511,3.2435,3.2407, &\n",
" & 3.2385,3.2391,3.2410,3.2454,3.2480,3.2499,3.2495,3.2476, &\n",
" & 3.2443,3.2397,3.2382,3.2349,3.2324,3.2269,3.2185,3.2097, &\n",
" & 3.1995,3.1923,3.1862,3.1798,3.1721 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/.ipynb_checkpoints/spec2fortran-checkpoint.ipynb
+1299
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/andesitefine_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 25 KiB

plasim/src/specs/andesitefine_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

plasim/src/specs/andesitesolid_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

plasim/src/specs/andesitesolid_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 18 KiB

plasim/src/specs/basaltsolid_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 22 KiB

plasim/src/specs/basaltsolid_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/brownsand_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 22 KiB

plasim/src/specs/brownsand_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

plasim/src/specs/clearice_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/clearice_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

plasim/src/specs/cmf.csv
+4401
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/coarsesnow_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

plasim/src/specs/coarsesnow_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

plasim/src/specs/colorgrid.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 31 KiB

plasim/src/specs/colorgrid_ocean.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 30 KiB

plasim/src/specs/colorgrid_snow.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

plasim/src/specs/colormatch.py
+105
View File
@@ -0,0 +1,105 @@
import numpy as np
from scipy import interpolate
#From http://www.brucelindbloom.com/index.html?Eqn_RGB_XYZ_Matrix.html
widegamut = np.array([[ 1.4628067, -0.1840623, -0.2743606],
[-0.5217933, 1.4472381, 0.0677227],
[ 0.0349342, -0.0968930, 1.2884099]])
def _loadcie():
wvl,xx,yy,zz = np.loadtxt("cmf.csv",unpack=True,delimiter=',')
return wvl,xx,yy,zz
def interpolant(wvl):
w0,xx,yy,zz = _loadcie()
fx = interpolate.interp1d(w0,xx)
fy = interpolate.interp1d(w0,yy)
fz = interpolate.interp1d(w0,zz)
imin = np.where(wvl>np.amin(w0))[0][0]
imax = np.where(wvl<np.amax(w0))[0][-1]
wn = wvl[imin:imax+1]
xn = fx(wn)
yn = fy(wn)
zn = fz(wn)
return (xn,yn,zn)
def makexyz(wvl,spec,interpolant=None):
if np.amin(wvl)<1.0e-3: #probably meters not nanometers
wvl*=1.0e9
w0,xx,yy,zz = _loadcie()
imin = np.where(wvl>np.amin(w0))[0][0]
imax = np.where(wvl<np.amax(w0))[0][-1]
wn = wvl[imin:imax+1]
specn = spec[imin:imax+1]
if not interpolant:
fx = interpolate.interp1d(w0,xx)
fy = interpolate.interp1d(w0,yy)
fz = interpolate.interp1d(w0,zz)
xn = fx(wn)
yn = fy(wn)
zn = fz(wn)
else:
xn = interpolant[0]
yn = interpolant[1]
zn = interpolant[2]
XI = np.trapz(xn*specn,x=wn)
YI = np.trapz(yn*specn,x=wn)
ZI = np.trapz(zn*specn,x=wn)
xyzmin = np.amin((XI,YI,ZI))
if xyzmin<0:
XI -=xyzmin
YI -=xyzmin
ZI -=xyzmin
if (XI+YI+ZI)>0:
xnu = XI/(XI+YI+ZI)
ynu = YI/(XI+YI+ZI)
znu = 1.0-(xnu+ynu)
else:
xnu=0
ynu=0
znu=0
return xnu,ynu,YI
def xyz2rgb(x,y,normalization):
z = 1-(x+y)
r = np.sum(widegamut[0,:]*x)*normalization
g = np.sum(widegamut[1,:]*y)*normalization
b = np.sum(widegamut[2,:]*z)*normalization
cmax = np.amax((r,g,b))
#return r/cmax,g/cmax,b/cmax
return r,g,b
def spec2rgb(wvl,spec,normalization=None):
x,y,I = makexyz(wvl,spec)
if normalization:
norm = normalization
else:
norm = 1.0
r,g,b = xyz2rgb(x,y,norm)
return r,g,b
def specs2rgb(wvl,specs):
interpol = interpolant(wvl)
intensities = np.zeros((len(specs),3))
for n in range(0,len(specs)):
intensities[n,:] = makexyz(wvl,specs[n,:],interpolant=interpol)
norms = intensities[:,2]/np.amax(intensities[:,2])
colors = np.zeros((len(specs),3))
for n in range(0,len(specs)):
colors[n,:] = xyz2rgb(intensities[n,0],intensities[n,1],norms[n])
return colors
plasim/src/specs/colormatch.pyc
BIN
View File
Binary file not shown.
plasim/src/specs/combinedspec-ocean.ipynb
+867
View File
@@ -0,0 +1,867 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"sbdartw = np.concatenate((np.ones(41)*0.041,\n",
" np.array([.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.042,\n",
" .043,.044,.044,.046,.047,.049,.050,.052,.054,.055,.056,\n",
" .059,.060,.061,.061,.059,.057,.054,.053,.051,.050,.049,\n",
" .047,.046,.046,.045,.044,.043,.043,.041,.040,.038,.037,\n",
" .037,.036,.033,.032,.031,.029,.027,.024,.023,.021,.018,\n",
" .015,.012,.009,.008,.006,.004,.002,.001,.000,.000,.000]),\n",
" np.zeros(644)))\n",
"wlalb = np.zeros(len(sbdartw))\n",
"for n in range(0,len(wlalb)):\n",
" wlalb[n] = 0.25 + (4.0-0.25)*float(n)/(len(wlalb)-1)"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAX0AAAEACAYAAABfxaZOAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAGuxJREFUeJzt3W1wXNd93/HvHw+LhyXxtAAkEiAJUqQeIEuxbJiyatlOpFih0qkZx9KYSmei6Wiselq+6GQyrfKiqqPJTKpOGrUzUdpwIk1lJQ2lUfqA1kyZuHLs2JFkgpIsiVIpgaRIgqQIEAABgiAIAvvvi72glkuQuwDu4t7F/j4zGO3ee+7eP2zyt4fnnnuuuTsiIlIeKqIuQERElo9CX0SkjCj0RUTKiEJfRKSMKPRFRMqIQl9EpIwo9EVEyohCX0SkjCj0RUTKiEJfRKSMVEVdQK7W1lbv6uqKugwRkZKyf//+M+7elq9d7EK/q6uLvr6+qMsQESkpZna0kHYa3hERKSMKfRGRMqLQFxEpIwp9EZEyotAXESkjCn0RkTKi0JdFGRid5G/eP83QuYtRlyIiC1BQ6JvZNjM7aGb9ZvbEPPtrzOylYP8bZtaVte9OM3vNzA6Y2btmVhte+RKVb39vP9/+Xh9P/s/3oi5FRBYgb+ibWSXwLPAg0A08YmbdOc0eA0bdfTPwDPB0cGwV8GfAd9z9duAXgUuhVS+ROD4yyQenxgH4aHAi4mpEZCEK6elvBfrd/bC7TwO7ge05bbYDLwSvXwHuNzMDHgDecfefA7j7sLvPhlO6ROWHBwcBeKD7Bo4NTzKb9ogrEpFCFRL6HcDxrPcDwbZ527j7DDAGpICbATezvWb2ppn9y6WXLFH7vx8Msqk1yS/d2s70bJqTZy9EXZKIFKjYF3KrgHuBfxz89xtmdn9uIzN73Mz6zKxvaGioyCXJUpy/OMNrh4a579Z2ulJJAD4ePh9xVSJSqEJC/wSwLut9Z7Bt3jbBOH4jMEzmXwU/dvcz7j4J7AE+l3sCd9/l7j3u3tPWlneROInQT/vPMD2b5r7b2tnUFoT+GYW+SKkoJPT3AVvMbKOZJYAdQG9Om17g0eD1Q8Cr7u7AXuAOM6sPvgy+CrwfTukShR8eHGR1TRVf6GqhfXUN9YlKjpyZjLosESlQ3qWV3X3GzHaSCfBK4Hl3P2BmTwF97t4LPAe8aGb9wAiZLwbcfdTM/pDMF4cDe9z9+0X6XWQZ9A9O0L22gerKTH9hQyqp4R2RElLQevruvofM0Ez2tiezXk8BD1/j2D8jM21TVoDT4xe5a33T5fcbW+v5f6fORViRiCyE7siVgrk7p8enuKHh0/vrulJJjo1MMjObjrAyESmUQl8KNj41w8WZNO2ray5v62pNMpN2BkY1bVOkFCj0pWCD41MAtGf19De2ZmbwHNG4vkhJUOhLwU6PZxZXuyG7p5/StE2RUqLQl4KdDnr62WP6rasSJBOVHBvRtE2RUqDQl4INBssotzd82tM3M25oqL28T0TiTaEvBTs9PsXqmirqE1fO9G1dXaN19UVKhEJfCjYwOnlFL39O++oazij0RUqCQl8KcnFmltcODbN1Y+qqfW2razS8I1IiFPpSkNcPj3B+epavdbdfta99dS0TF2eYnJ6JoDIRWQiFvhTkB++fpq66kn9wU+tV+9qCKZwa1xeJP4W+5OXu/OCD03zl5lZqqyuv2q/QFykdCn3J68DJcU6NTfHLt90w7/52hb5IyVDoS14/+OA0ZnDfrVeP58OnPX1dzBWJP4W+5LX/6CjdaxpIrbp6uiZAS32ChtoqDpwcW+bKRGShFPqS1+Gh82xpX3XN/RUVxpe3tPGjD4fIPDBNROJKoS/XNTk9w4mzF7ip7dqhD/DVW9o4PX6RD/RAFZFYU+jLdR0JVs+86To9fYB7N2emcu77eKToNYnI4in05boODWVCf1Nb8rrt1jTWkkxU6nm5IjGn0JfrOjQ4gdmn6+Zfi5mxPpXk6LCWWBaJM4W+XNehoQnWNdfPe1NWrq5UvXr6IjGn0JfrOjx0npvyDO3M2ZBKcnxkktm0ZvCIxJVCX64pnXYOn5lgU56ZO3O6UvVcmnVOntVD0kXiqqDQN7NtZnbQzPrN7Il59teY2UvB/jfMrCvY3mVmF8zs7eDnP4dbvhTTybELTF1K552uOWdDMO5/WM/LFYmtvKFvZpXAs8CDQDfwiJl15zR7DBh1983AM8DTWfsOuftng5/vhFS3LIO5mTuFDu/c3tFAZYXxsyPDxSxLRJagkJ7+VqDf3Q+7+zSwG9ie02Y78ELw+hXgfjOz8MqUKBwemgDyz9Gf01BbzV3rmvjxh2eKWZaILEEhod8BHM96PxBsm7eNu88AY8DcI5Y2mtlbZvYjM/vyEuuVZXRoaIKG2ipSyUTBx3z15jbeOznG8IQWXxOJo2JfyD0FrHf3u4DfAv6rmTXkNjKzx82sz8z6hoaGilySFOr1wyPc0dnIQv7R9pWb23CHn/Srty8SR4WE/glgXdb7zmDbvG3MrApoBIbd/aK7DwO4+37gEHBz7gncfZe797h7T1tb28J/CwndoaEJ+gcneKD7xgUd95mORprrq/nRh/ryFomjQkJ/H7DFzDaaWQLYAfTmtOkFHg1ePwS86u5uZm3BhWDMbBOwBTgcTulSTH994DQAX+ue/8Ep11JZYdy7pY2/++iMVtwUiaG8oR+M0e8E9gIfAC+7+wEze8rMvh40ew5ImVk/mWGcuWmdXwHeMbO3yVzg/Y67a0WuEvD3h85w25oG1jbVLfjYL92UYujcRY6NaEkGkbipKqSRu+8B9uRsezLr9RTw8DzH/SXwl0usUSLQPzjBPZtS+RvOY+5mro+HJy/P3ReReNAduXKViYsznBqbKniqZq4NqXoAjmkdHpHYUejLVS7Pzy/wTtxc7atrqK2u0IqbIjGk0Jer9A9mQn/zInv6Zsb6lnqOakxfJHYU+nKV/sEJqirs8jDNYqxvSXJMPX2R2FHoy1U+PD3BhlQ91ZWL/+OxIVXP0ZHzWmZZJGYU+nKFqUuzvHboDFs3tizpc35hXRNTl9K8e2IspMpEJAwKfbnCTz46w/npWbZ9Zs2SPudLN2Wme/6d7swViRWFvlzh/xz4hIbaqkXP0Z+TWlXDZzoa+Pd/8yEv7zue/wARWRYKfbnCm8dG+eKmFImqpf/ReOzejQD8wV8f1JIMIjGh0JfLpmfSHB2e5OYbVofyed+4q5Onv3kHg+cuXp4GKiLRUujLZR8PZ2bbbLlhcfPz5/Olza2AlloWiQuFvlz20eml3Yk7n87merpS9fxUoS8SCwp9uax/cAKzcEMfMr391w+PcGk2HernisjCKfQFgMFzU+w/Nkpncx11icpQP/veza1MXJzhnYGzoX6uiCycQl9Ip51vPPv3/PjDIW678aqnWS7ZPTelMIOffDQc+meLyMIo9IW+o6OcOHuBf/HLW/j9X78j9M9vqk9wR0ejxvVFYkChL+x59xQ1VRV8+8ubSK2qKco5vrS5lTePjXL+4kxRPl9ECqPQL3PptLPn3VP80i3tJGsKepDaoty7uZWZtHP7v9nL4PhU0c4jIten0C9zfUdHGTx3kV+9c2lr7eTzxU0ptt1+IwAHTo0X9Vwicm0K/TL3/XdOUlNVwf23thf1PJUVxu9uvx2A43q4ikhkFPplLJ12/uq9T4o+tDOnbVUNiaoKhb5IhBT6ZWxuaOcfFnloZ05FhdHZXMfxkQvLcj4RuZpCv4zNDe3cV+ShnWzrW+o5PqqevkhUiv9v+mXyydgUu/cdi7qMkvK/3yn+rJ1c65rrefPo6LKdT0SuVNDfdjPbBvxHoBL4U3f/tzn7a4DvAZ8HhoFvufvHWfvXA+8D33X3Pwin9CudHp/iP/zgo2J89IpVVWF86wvrlvWcm9qSjE/NcOLsBTqa6pb13CJSQOibWSXwLPA1YADYZ2a97v5+VrPHgFF332xmO4CngW9l7f9D4K/CK/tqd3Y2cuT3f7WYp1iRzGxZz/fF4Ilcrx0a5qHPdy7ruUWksDH9rUC/ux9292lgN7A9p8124IXg9SvA/RakiZn9GnAEOBBOyfMzM/0s4me53XLDalqSCV47pHV4RKJQSOh3ANkPOR0Its3bxt1ngDEgZWargH8F/O71TmBmj5tZn5n1DQ3pQdorWUWFcffGFvqOjkRdikhZKvbsne8Cz7j7dZ+V5+673L3H3Xva2tqKXJJEbVNbkoHRC8xofX2RZVfIhdwTQPbVvs5g23xtBsysCmgkc0H3buAhM/t3QBOQNrMpd/+jJVcuJWtdcz2zaefU2BTrWuqjLkekrBQS+vuALWa2kUy47wB+I6dNL/Ao8BrwEPCquzvw5bkGZvZdYEKBL3NBf3x0UqEvsszyhr67z5jZTmAvmSmbz7v7ATN7Cuhz917gOeBFM+sHRsh8MYjMq7M5M1VzYFR35oost4Lm6bv7HmBPzrYns15PAQ/n+YzvLqI+WYHWNtVRYTCgNXhElp2WYZBlV11ZwZrGOo4p9EWWnUJfInHLjat5Z2As6jJEyo5CXyJxz6YUh8+c57SeoiWyrBT6Eol7bsosx/BPX9zP2IVLEVcjUj4U+hKJ29Y0sKk1ydvHz/I/3sq97UNEikWhL5GorDBe/e1fpKOpjtcPax0ekeWi0JdIfXFTijeOjJBOe9SliJQFhb5EqqermZHz03qalsgyUehLpNY01gJwZuJixJWIlAeFvkQqlawBYHhiOuJKRMqDQl8i1bIqAcDIeYW+yHJQ6EukUslM6A8r9EWWhUJfIlVbXUkyUanhHZFlotCXyLWsSjByXhdyRZaDQl8i15Ks0fCOyDJR6EvkUsmELuSKLBOFvkSuRaEvsmwU+hK5zuY6To9PMT6l1TZFik2hL5Hb2tVC2mH/x6NRlyKy4in0JXJ3rW+mutJLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wlalb,sbdartw)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [],
"source": [
"ids = [10,11]"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"seawater\n",
"tapwater\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [],
"source": [
"weights = np.array([0.0,1.0])"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0. 1.]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 10,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 11,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 12,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 13,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 14,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f0ab9cca190>"
]
},
"execution_count": 14,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXcAAAEACAYAAABI5zaHAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4XMXVh9/Zrt5lyZZtufeGK9g002xwDAHTAoQaB0gjIfSSQAgpJHwJCYRAqIkpAVMM2KY7Nti494q7ZdmqVpe2zvfH7GolWbJW0jat532effbuvbP3HsnW75575sw5QkqJRqPRaGILQ6QN0Gg0Gk3w0eKu0Wg0MYgWd41Go4lBtLhrNBpNDKLFXaPRaGIQLe4ajUYTg2hx12g0mhhEi7tGo9HEIFrcNRqNJgbR4q7RaDQxiClSF87MzJT5+fmRurxGo9F0S9auXVsqpcxqb1zExD0/P581a9ZE6vIajUbTLRFCHAhknA7LaDQaTQyixV2j0WhiEC3uGo1GE4NELObeGk6nk4KCAhoaGiJtSrfFZrORl5eH2WyOtCkajSaCBCzuQggjsAY4LKWc1eKYFXgVGA+UAVdKKfd31JiCggKSkpLIz89HCNHRr5/0SCkpKyujoKCAfv36RdocjUYTQToSlvkZsL2NYzcDx6SUA4H/A/7QGWMaGhrIyMjQwt5JhBBkZGToJx+NRhOYuAsh8oCLgH+1MeRi4BXv9tvAOaKTCq2FvWvo3183pXwf1FdE2gpNDBGo5/4X4G7A08bxXsAhACmlC6gEMrps3UnGhg0bWLhwYaTN0IQbKeGpsfDShZG2RBNDtCvuQohZQLGUcm1XLyaEmCuEWCOEWFNSUtLV08UcnRF3l8sVIms0YePgCvVevBU87sjaookZAvHcpwKzhRD7gTeA6UKI/7QYcxjoDSCEMAEpqInVZkgpn5NSTpBSTsjKanf1bESora3loosuYsyYMYwcOZI333yTtWvXcuaZZzJ+/HguuOACjhw5AsDzzz/PxIkTGTNmDJdddhl1dXW43W769euHlJKKigqMRiNLly4F4IwzzuDbb79l1apVnHrqqYwbN47TTjuNnTt34nA4ePjhh3nzzTcZO3Ysb775JrW1tdx0001MmjSJcePG8f777wPw8ssvM3v2bKZPn84555wTsd+VJjiUrV/g/1C0JXKGaGKKdrNlpJT3AfcBCCHOAn4ppby2xbAFwPXACmAO8IWUUnbFsEc+2Mq2wqqunOI4hvdM5lffGXHCMYsXL6Znz5589NFHAFRWVjJz5kzef/99srKyePPNN3nggQd48cUXufTSS/nBD34AwIMPPsgLL7zAT37yE4YMGcK2bdvYt28fp5xyCsuWLWPy5MkcOnSIQYMGUVVVxbJlyzCZTHz22Wfcf//9zJ8/n0cffZQ1a9bw97//HYD777+f6dOn8+KLL1JRUcGkSZM499xzAVi3bh2bNm0iPT09qL8jTfip3rcWm7SSIOzUHNxAYu6YSJukiQE6necuhHgUWCOlXAC8APxbCLEbKAeuCpJ9YWfUqFHceeed3HPPPcyaNYu0tDS2bNnCeeedB4Db7SY3NxeALVu28OCDD1JRUUFNTQ0XXHABAKeffjpLly5l37593HfffTz//POceeaZTJw4EVA3jOuvv55vv/0WIQROp7NVWz755BMWLFjAn/70J0BlEx08eBCA8847Twt7LCAlGTW7WOSZzEWGb6jdv57EyddH2ipNDNAhcZdSLgGWeLcfbrK/Abg8mIa152GHisGDB7Nu3ToWLlzIgw8+yPTp0xkxYgQrVqw4buwNN9zAe++9x5gxY3j55ZdZsmQJoMIv//jHPygsLOTRRx/liSeeYMmSJZx++ukAPPTQQ5x99tm8++677N+/n7POOqtVW6SUzJ8/nyFDhjTbv3LlShISEoL6c2siRPVRktwVHLIOZo/jIBlleyJtkSZG0OUHWlBYWEh8fDzXXnstd911FytXrqSkpKRR3J1OJ1u3bgWgurqa3NxcnE4n8+bNazzHpEmTWL58OQaDAZvNxtixY/nnP//JGWecASjPvVevXoCKn/tISkqiurq68fMFF1zA3/72N3wRrvXr14f0Z9eEH0fRDgASe4/ksMzEXH0owhZpYgUt7i3YvHkzkyZNYuzYsTzyyCM8+uijvP3229xzzz2MGTOGsWPHsnz5cgB+85vfMHnyZKZOncrQoUMbz2G1WunduzdTpkwBVJimurqaUaNGAXD33Xdz3333MW7cuGbZLmeffTbbtm1rnFB96KGHcDqdjB49mhEjRvDQQw+F8TehCQcH9n0LwLChI6i05pDUcESlRmpil12fQBie0EQX5z07zYQJE2TLeu7bt29n2LBhEbEnltC/x+7D1jceYsSOp9j3w92smf8kl5c+A3fvg3g9nxKTSAm/yYJTfwTnPdKpUwgh1kopJ7Q3TnvuGk0kqSqkXCaSnZ6GIa03ALJSh2Zilvpj4HFCYnbIL6XFXaOJIKaaIxSTQYLVhCVFZWHVlB2JsFWakFHrXbyZoMVdo4lp0uv2UmxWk+tx6T0BqC0rjKRJmlBSU6zeteeu0cQwDVVkuY5wNEFNxidnKHGvP6Y995ilpki9a3HXaGIXe5nqc2zL7g9AZnoa1TIOd5UW95hFh2U0mtinYP8uALLzBgKQlWSlRKb4H901sUdNMQgjxKWF/FJa3JtQUVHBM888E/brvvfee2zbti3s19VEltrifQBk9Vbinmg1USZSMdfriqkxS02xCskYQi+9Wtyb0J3EXZf67f4YqgpwSCPJmXmAarRSZUzHZi+NsGWakFFbDAnhqYirxb0J9957L3v27GHs2LH8/Oc/55xzzuGUU05h1KhRjeV29+/fz9ChQ7nmmmsYNmwYc+bMoa6ujtWrV3PppZcC8P777xMXF4fD4aChoYH+/VVMtbUSwcuXL2fBggXcddddjB07lj179rBnzx5mzJjB+PHjOf3009mxQy1Rv+GGG7j11luZPHkyd999d2R+SZqgISsOcURmkJpgbdxXb80k0VkeQas0IcXnuYeBTleFDDmL7oWjm4N7zpxRMPP3bR7+/e9/z5YtW9iwYQMul4u6ujqSk5MpLS1lypQpzJ49G4CdO3fywgsvMHXqVG666SaeeeYZ7rjjDjZs2ADAsmXLGDlyJKtXr8blcjF58mSANksEz549m1mzZjFnzhwAzjnnHJ599lkGDRrEypUruf322/niiy8A1UR8+fLlGI3G4P5uNGFHVhziiMiir9HvY9mtmSTU14CzAcy2CFqnCQm1JZA9PCyXil5xjzBSSu6//36WLl2KwWDg8OHDFBWpNKbevXszdepUAK699lqeeuopfvnLXzJgwAC2b9/OqlWr+MUvfsHSpUtxu92N1SDbKhHclJqaGpYvX87ll/uLbNrt9sbtyy+/XAt7DCClJNtTwoGUic33J2RDBciaIkRa3whZpwkJUkJNMXsbEoivbCAnJbQ37+gV9xN42OFg3rx5lJSUsHbtWsxmM/n5+TQ0NADHN6H2fT7jjDNYtGgRZrOZc889lxtuuAG3280TTzwBtF0iuCkej4fU1NTGp4CW6FK/sUFpZQ3ZHONoZn6z/ek5veEwHC3YT64W99jCW3rgjW0NOBP3hLysuY65N6Fpyd3Kykqys7Mxm818+eWXHDhwoHHcwYMHG0sAv/baa0ybNg1Q1R//8pe/cOqpp5KVlUVZWRk7d+5k5MiRQNslgpteNzk5mX79+vHWW28BysPbuHFj6H94TVgpPrwPg5BYMvo025+eowS9uvRgJMzShBJvjvtRdzLnDesR8stpcW9CRkYGU6dOZeTIkWzYsIE1a9YwatQoXn311WYlfYcMGcLTTz/NsGHDOHbsGLfddhsAkydPpqioqLFu++jRoxk1alSjZ99WieCrrrqKJ554gnHjxrFnzx7mzZvHCy+8wJgxYxgxYkTjZK4mdqg8sheApB79m+2P84q9u0KXIIg5vOsXSkmhX1bon8CjNywTIV577bUTHt+/fz8mk4n//Kdlj3CIi4trFh9/7rnnmh2/7bbbGm8ETZk6depxqZCLFy8+blzTxh6a7k19qXoSTO/ZXNyT07OwSzOySot7zOEtPWBJySE3JS7kl9Oeu0YTAWSFCrskZOU325+ZZKOINC3usYg3LGNNzQnL5doVdyGETQixSgixUQixVQhxXIV5IcQNQogSIcQG7+uW0JgbefLz89myZUukzdB0c6y1hZSL1OPSHc1GA5WmLEy1RyNkmSZk1BTjwkBiangWMQUSlrED06WUNUIIM/CVEGKRlPKbFuPelFL+OPgmajSxR7zzGFXGNFrrt1RjzSLfvjPsNmlCi6wppkymkJkU+pAMBOC5S0WN96PZ+wpZb75Itf2LFfTvr3tgddfQYGx9Uq3e1oN0d5nupRpjuKuPUiJTyEi0hOV6AcXchRBGIcQGoBj4VEq5spVhlwkhNgkh3hZC9O6MMTabjbKyMi1QnURKSVlZGTabXtkY7djcNTiMia0ec8bnYMWh8qI1MYO7qphSmUJGk3IToSSgbBkppRsYK4RIBd4VQoyUUjYNPH8AvC6ltAshfgi8AkxveR4hxFxgLkCfPn1aHiYvL4+CggJKSnRVvM5is9nIy8uLtBmadoiTdVSak1o9JpNVuz17eQFW3Sg7ZhC1JZQyiKykKBJ3H1LKCiHEl8AMYEuT/WVNhv0L+GMb338OeA5gwoQJx7nnZrOZfv36dcQkjaZbkiBrcbUh7sYU1XavuuQg1rzR4TRLEyqkxNRQSomcwOB4c1guGUi2TJbXY0cIEQecB+xoMSa3ycfZwPZgGqnRxBJOt4d4WY/B1npYJi5DRTVrSw+F0yxNKKk/hsHjpFSmkBYfnph7IJ57LvCKEMKIuhn8V0r5oRDiUWCNlHIB8FMhxGzABZQDN4TKYI2mu1NWWUOLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 16,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 20,
"metadata": {},
"outputs": [],
"source": [
"sbdart_winterp = np.interp(wvref,wlalb,sbdartw)*100"
]
},
{
"cell_type": "code",
"execution_count": 48,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.maximum(np.sum(wtspec,axis=0),sbdart_winterp)*2.1"
]
},
{
"cell_type": "code",
"execution_count": 49,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xd0W8eZ9/HvgCBAsIGdFItEqnfJkixXyU6i2ErikuIUxylOk7OJs3bi3WzWu3nj9E3W690kTvPaKWvHTlzSZCdyb3KRrW71Rkqk2CtIsIAA5v0DBERSpFhw0S6ezzk+JsGLi6EI/DCY+8yM0lojhBAi8Vli3QAhhBDGkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTkEAXQgiTsEbzwQoKCnRlZWU0H1IIIRLejh07WrXWhRMdF9VAr6ysZPv27dF8SCGESHhKqZOTOU6GXIQQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0IUQwiQk0COgtr2Xzl5PrJshhEgyEugG6x/08d6fvsJ//P1QrJsihEgyEugG+/u+BtrcHk6198a6KUKIJCOBbrAHt50CoMnVH+OWCCGSjQS6gY41d/NmTQcZthSauwdi3RwhRJKRQDfQ/noXAFcsKaG730ufxxfjFgkhkokEuoEauwLDLMvLnQA0d8uwixAieiTQDdTkGiDDlsLswkwAGXYRQkSVBLqBmlz9FGenUZRlB6DZJYEuhIgeCXQDBQO9ODst9L0QQkSLBLqBmrr7Kc62k5ueSmqKkiEXIURUTRjoSqlfKaWalVL7ht32n0qpQ0qpvUqpPymlciLbzPintabJNUBxdhpKKQoz7XJRVAgRVZPpof8G2DjqtqeBpVrr5cAR4F8NblfC6ewdxOP1h4ZbirLTaJEeuhAiiiYMdK31S0D7qNue0lp7h759HSiPQNsSSuPQeHko0LPsMoYuhIgqI8bQPw383YDzJLRgeJc4AxUuRdl2GUMXQkRVWIGulPo3wAv87hzHbFJKbVdKbW9paQnn4eJaMNCLstJC/+/sHWTAK7NFhRDRMe1AV0rdCFwF3KC11uMdp7W+R2u9Rmu9prCwcLoPF/eahmrOi7IDPfTibKlFF0JE17QCXSm1EfgqcI3WWtaJJdBDz8uwYbemAGd66jLsIoSIlsmULT4EvAYsUErVKaU+A9wNZAFPK6V2K6V+EeF2xr0mV39ohihA4dDXLVK6KISIEutEB2itrx/j5vsi0JaEdqSphyWl2aHvz8wWlR66ECI6ZKaoAdqHdihaWXFmflV+ho0Ui5LJRUKIqJFAN8Ceuk4AVgwLdItFUZBpk4uiQoiokUA3wJ7aTpSCpWXOEbcXZ6fRJBdFhRBRIoFugD21ncwryiTTPvKSRFGWnWaZLSqEiBIJ9DBprdlT18WK8rPXJyvMkvVchBDRI4EeprqOPtrdnhHj50HF2Xba3B4Gff4YtEwIkWwk0MN0otUNwPzirLN+FpxcJL10IUQ0SKCHqWloY+gZzrSzfhbaik4CXQgRBRLoYQoumxtcw2W4otB6LnJhVAgReRLoYWro6id/2Bouw8neokKIaJJAD1NwY+ixFGbasaVYqOvoi3KrhBDJSAI9TA1d/WOOn0NgtmhZroPaDlmQUggReRLoYWpy9VM8TqADlOc6pIcuhIgKCfQw9A/6aHd7KBlnyAWgIi+d2nbpoQshIk8CPQzBhbdKJuihd/QO0jPgHfcYIYQwggR6GIIli+fsoeemA1An4+hCiAiTQA9DQ1dgbHy8i6IQGHIBqG2XcXQhRGRJoIchWF8+0UVRkB66ECLyJNDD0Ng1QIYthSz7+Dv55WfYcKSmSA9dCBFxEuhhaHT1UexMQyk17jFKKSrypBZdCBF5EuhhqG3voyzHMeFx5bnpUosuhIg4CfRp0lpT0+pmdkHGhMdW5Dqoa+9Fax2FlgkhkpUE+jS19njoHvBSOZlAz0une8BLV99gFFomhEhWEujTVNMW2NiiahKBfqbSRYZdhBCRI4E+TdUtUwn0YC26XBgVQkTOhIGulPqVUqpZKbVv2G15SqmnlVJHh/6fG9lmxp/qNjepKWpSF0VDk4uk0kUIEUGT6aH/Btg46ravAc9qrecBzw59n1SqW9xU5KVjTZn4n9DpSCUrzSpDLkKIiJowjbTWLwHto26+Fvjt0Ne/Bd5rcLviXvUkK1yCKnJl1UUhRGRNdwy9WGvdMPR1I1A83oFKqU1Kqe1Kqe0tLS3TfLj44vdratrckxo/D6rIk3XRhRCRFfZFUR0orh63wFprfY/Weo3Wek1hYWG4DxcXGlz9DHj9kypZDApOLpJadCFEpEw30JuUUjMAhv7fbFyT4l9N6+QrXIJm5afTN+jjlAy7CCEiZLqB/lfgk0NffxL4izHNSQwnphHob19YBMCfd9VHpE1CCDGZssWHgNeABUqpOqXUZ4D/AN6plDoKbBj6PmnUtLpxpKZQnDX+srmjleemc/GcfB7bWSfDLkKIiBh/3dchWuvrx/nROwxuS8KobnUzKz8di2X8VRbHct3qcr7y8B7erOlgbVVehFonhEhWMlN0Gmpa3cwunPxwS9AVS0pQCl473haBVgkhkp0E+hQN+vycau+lMn/qgZ5pt1KZn8HBBlcEWiaESHYS6FNU19GH16+ndEF0uEUzsjjYKIEuhDCeBPoUBUsWpzPkArCoJJuTbb30DHiNbJYQQkigT1WwZHE6Qy4Ai2ZkA3BYeulCCINJoE9RTaub7DQreRm2ad1/UWkg0A80dBvZLCGEkECfqhOtPVQVZJxzY+hzKXWmkZ1m5UC99NCFEMaSQJ+CZlc/b1Z3cN7M6S//rpRiTWUeLx5uxu+XCUZCCONIoE/Bb1+rYdDv51OXVIZ1nmtXllLf1c+26tGrEgshxPRJoE+Se8DLA6+fYuOSEmZN84Jo0BWLS8iwpfDnXacNap0QQkigT9oTexvo6hvks+uqwj6Xw5bClUtK2LK/UdZ1EUIYRgJ9kl6vbiM/w8aqMMbPh1tcmk1X3yBdfYOGnE8IISTQJ2nHyQ5Wz8qddnXLaMHNpU93yi5GQghjSKBPQkv3ACfbellTaUzvHKB0KNDrO/sNO6cQIrlJoE/CjpOBapTVs4xb8vZMoEsPXQhhDAn0Sdhe04HNamFpWbZh58zPsGGzWiTQhRCGmXCDi3jQ1jNAd3/sFrN6vbqNFeVO7NYUw85psSjKchzUSaALIQySEIH+P88c5f7XT8a0DV982xzDz1makyY9dCGEYRIi0D+wupxVs3Ji9vgWpbh8QZHh5y11OnjpaIvh5xVCJKeECPSVFTmsrIhdoEdKaY6D5u4BPF4/Nqtczkg2bT0D5GfaY90MYSKSIjFUluNAa2hySelistl3uovV33mG379xKtZNESYigR5DZbkyuShZ3f3cMQDufOpwjFsizEQCPYaCteinOyTQk0n/oI8XjjQD0NrjCW1rKES4JNBjaIYzDZDJRcnmteNt9A/6+fZ7lwLw8rHWGLdImEVYga6U+rJSar9Sap9S6iGlVJpRDUsGaakpFGTaqO+SQE8m26rbSU1RfHB1Obnpqew/3RXrJokI8nj9NHT1RWVDm2kHulKqDPhHYI3WeimQAnzEqIYli9IcB6dlPZekcrjRxZzCTNJSU1hS6mRfvQS6mR1scHHR95/j6YNNEX+scIdcrIBDKWUF0oH68JuUXEqdDhlySTJHmnpYUJIFwMKSLI429ch2hCZW0xa4RlJVEN7GOJMx7UDXWp8G7gROAQ1Al9b6KaMalizKch2c7uiTjS6SxOnOPk539rGkNLAu0OzCTAa8fhqkdNW0qlvdKAUz89Ij/ljhDLnkAtcCVUApkKGU+tgYx21SSm1XSm1vaZFZkaOV5jjoG/TR2SsbXSSD14+3AXDZ/MDM48qCwIu8ukUqXcyqptVNqdNBWqpxa0GNJ5whlw1Atda6RWs9CPwRuHj0QVrre7TWa7TWawoLC8N4OHMqywlcR5Za9ORwoMFFWqqFuUWZAMwuCPy/urUnls0SEVTT1ht64460cAL9FHChUipdBbbxeQdw0JhmJQ9ZFz25HKh3saAkmxRLYOer4mw7jtQUTkgtumnVtLnD3lh+ssIZQ98GPArsBN4aOtc9BrUraQS3opMXtPlprdlf38XiGWfW1VdKUVWQQbX8/U2ps9dDZ+8gVfEe6ABa629orRdqrZdqrT+utR4wqmHJIj/TzuIZ2Ty5vzHWTRERdrqzD1e/N3RBNKiqUALdrIJ/18ooVLiAzBSNC1evKGXXqU5q23tj3RQRQQfqXQAsHhXocwozqW3vpX/QF4tmiQg62RZ4TVfmx/8YujDIVctnALB5r5Txm9mBBhdKBWrPh5tfnIlfw/EWuTBqNsGSxYoolCyCBHpcqMhLZ25RJrtPdca6KSKCDtS7qCrIIN02chuCeUWBgD/WLIFuNjVt0StZBAn0uFGUZafd7Yl1M0QEHWx0jbggGlRVkIHVojjS1B2DVolIimbJIkigx438TDttEuim5fdrGjr7x/zobbNaqCzI4EiT9NDNpqbVTWWUKlxAAj1u5GfYaO2RIiGz6uobxOvXFI6z5dz84kyOSg/dVDrcHrr6BqOyhkuQBHqcKMi00d3vZcArlQ5mFHyzLsgaO9DnFWVxUipdTKV6aFGuaE0qAgn0uBHcLFjG0c0p+HfNz7CN+fP5xVloLRdGzeRkaJVFGUNPOnlDL/S2Hgl0M+roDfxdc9PHC/TAmi5Hm2XYxSyqW3ujWrIIEuhxoyBzKNClh25K7e7Aapq5Galj/ryyIIPUFCUXRk0kuMqi3RqdkkWQQI8b+RmBIZc2uTBqShP10FNTLFQVZMiFUROpaXNH9YIoSKDHjfxMGXIxsw63h3RbyjknmMwrzpIeukloraludUe1Bh0k0ONLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 68,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYIAAAEeCAYAAACHXhKxAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4VFX6xz9veg/pCYSQ0ANpCAhINwriIioINkRsrLg2XAu6Lrquuu7qz66rrKxlVXBFQVdFAUFFRKSI9E4aBBIS0hPSzu+POzMkpE3KZDLhfJ5nnsyce+4579wk93vPe855X1FKodFoNJpzFyd7G6DRaDQa+6KFQKPRaM5xtBBoNBrNOY4WAo1GoznH0UKg0Wg05zhaCDQajeYcRwuB5pxBRPqJyDYRKRSRu0XkHRF50t52ORIiokSktxX1xolIRnvYpGk9Wgg0AIjIwyKy4qyyAw2UXWNFe4+LyPttbOPjIlIhIkUikiciP4nIiGY08SCwVinlq5R6uY1smi0iP7ZFW22JiHxnumknnlW+zFQ+zk6maTogWgg0Zn4ALhARZwARiQBcgUFnlfU21bUpIuLSwKGPlFI+QDCwFvi4Gc32AHa11jYHYj8wy/xBRIKAEUC23SzSdEi0EGjMbMK48SeZPo/GuNHuO6vskFLqGICIvCQi6SJSICJbRGS0qfwS4BHgatPT+2+mcn8RWSQimSJyVESerCEys0VkvYi8ICI5wOONGauUqgQ+ALqJSIi5XEQmm9w/5hFDgql8DTAeeNVkU9+z22zoXNOx7iLyqYhki0iOiLwqIrHAG8AI8yjFVPd3IvKr6bqki8jjNdqJNj2R3ygiaSJyUkT+VOO4s4g8IiKHTC6sLSLS3XSsv4isEpFcEdknIjMau0am63O1+RoD1wLLgPIa/bmLyIsicsz0elFE3Gscf8D0+zomIjefdb3cReQ50/c4ISJviIhnfYaIyEOm33mhyfbkJmzXtCNaCDQAKKXKgY3AGFPRGGAd8ONZZTVHA5swRCIQ+BD4WEQ8lFJfA09jenpXSpndE+8AlRijikHABODWGu0NAw4DYcBTjdkrIm4YT7s5wClT2SDg38DvgSDgTeBzEXFXSl1o+j53mmzaf1Z7DZ5rupF+AaQC0UA3YIlSag9wO7DB1GYXU3PFJtu6AL8D5orIFWd9hVFAPyAZWGASFYD7MG7YlwJ+wM1AiYh4A6tM1zkUuAZ4XUQGNHKZjgG7Ma4zJpveO6vOn4DhGL/HROB84FHTNbkEuB+4GOgDXHTWuc8AfU3n9jZdlwVnGyEi/YA7gaFKKV9gIpDSiN2a9kYppV/6hVIKjKfwZab3v2H8819yVtmNjZx/Ckis0db7NY6FAacBzxpl12L47AFmA2lW2FcO5AFVGCIwrsbxfwJ/PeucfcBY0/vvgFtrHHsHeLKpcznjTnGpx6bZwI9N2P0i8ILpfTSggMgax38BrqnR5+X1tHE1sO6ssjeBxxro8zsMkZ0JLAb6A/tNxzLM1w04BFxa47yJQIrp/b+BZ2oc62uyvTcgGILXq8bxEcAR0/txQIbpfW8gC0NIXO39d65fdV96RKCpyQ/AKBEJBEKUUgeAnzDmDgKBOGqMCETkfhHZIyL5JreIP4bvvj56YLieMk2ulzyMG1lojTrpVtj4X2U8eYcBO4HBZ/XxR3P7pj66A12taLexc7sDqcpwRzWJiAwTkbUmN1I+xqjh7OtyvMb7EsDH9L47xs25PvuGnWXf9UB4E+Z8ClyI8UT+n3qOd8UY6ZhJ5cz16krt30nNeiGAF7Clhj1fm8proZQ6CNyLIeRZIrJERKz5nWjaCS0EmppswLiZ3wasB1BKFWC4GG4DjimljgCY5gMeBGYAAaabcz7GkyIYT441SccYEQQrpbqYXn5KqYE16lgdClcpdRKYAzxumsQ29/FUjfa7KKW8lFKLrWiysXPTgagGJrDrs/lD4HOgu1LKH2MeQeqp15AdvRoo//4s+3yUUnMba0wpVQKsAOZSvxAcwxAZM1GmMoBMDGGqeczMSaAUGFjDHn9lTOTXZ8eHSqlRpr4U8PfG7Na0L1oINBaUUqXAZgw/9boah340ldWcH/DF8PdnAy4isgDDp23mBBAtIk6mtjOBlcD/iYifiDiJSC8RGdsKe/cB32AIEsC/gNtNT+QiIt6miVtfK5pr7NxfMG6Kz5jKPURkZI3vGWmaszDjC+QqpcpE5HzgumZ8rbeAv4pIH5MdCWKs9vkC6CsiN4iIq+k1tMbcQmM8guEeS6nn2GLgUREJEZFgDB+/ednvf4HZIjJARLyAx8wnKaWqMa7ZCyISCiAi3URk4tkdiLF/40LTJHQZhoBUW3c5NO2BFgLN2XyP4a6puTZ+namsphB8g+EK2I/hMiijthvBvKwzR0S2mt7PAtwwJjBPAUuBCFrHs8AcEQlVSm3GGLm8amr/IIYPv0kaO1cpVQVchuHrTsPwsV9tOnUNxpLU4yJy0lR2B/CEiBRi3Fj/24zv87yp/kqgAFiEMa9SiDHpew3GE/txjKdq9wbaqfndjimlGtrr8CSG+G8HdgBbTWUopVZgzG+swbgea8469yFT+c8iUgCsxpgAPxt3jInlkya7Q4GHm7Jb036IUjoxjUaj0ZzL6BGBRqPRnONoIdBoNJpzHC0EGo1Gc46jhUCj0WjOcbQQaDQazTlOQxEeOxTBwcEqOjra3mZoNBqNQ7Fly5aTSqk6u73PxiGEIDo6ms2bN9vbDI1Go3EoRCS16VraNaTRaDTnPFoINBqN5hxHC4FGo9Gc4zjEHIFG09mpqKggIyODsrIye5uicUA8PDyIjIzE1dW1RedrIdBoOgAZGRn4+voSHR2NiLURqzUaI7lYTk4OGRkZxMTEtKgN7RrSaDoAZWVlBAUFaRHQNBsRISgoqFWjSS0EnZiU/BSKK4rtbYbGSrQIaFpKa/92tBB0Uk6VnWL6/6bz753/trcpGgfB2dmZpKQky+uZZ54BjPmL+fPn06dPH8477zxGjBjBihUrAMjPz2fWrFn07t2bXr16MWvWLPLz8wGorq7m7rvvJi4ujvj4eIYOHcqRI0cYNmwYSUlJREVFERISYukvJSWF6Oho4uPjSUhIYOzYsaSmpjZp3xdffMGgQYNITExkwIABvPnmmwDs27ePcePGkZSURGxsLHPmzKn1fXfs2GFpKzAwkJiYGJKSkrjoootsfq1r8umnn7J379527bMO9k6abM1r8ODBStM83t7xtop7J049+P2D9jZFYwW7d++2twnK29u73vKHHnpIzZo1S5WVlSmllDp+/Lj66KOPlFJKTZs2TT322GOWugsWLFBXXXWVUkqpDz/8UE2bNk1VVVUppZRKT09Xubm5lrpvv/22+sMf/lCrrx49eqjs7GxLW7feemuj9pWXl6uIiAiVnp6ulFKqrKxM7d27Vyml1IQJE9Ty5cstdbdv397gd7/xxhvVxx9/3OBxW3L99derZcuWNeucioqKOmX1/Q0Bm5VOXn9uUq2qWXpgKQDZpdl2tkbjyJSUlPCvf/2LV155BXd3IxlaWFgYM2bM4ODBg2zZsoU///nPlvoLFixg8+bNHDp0iMzMTCIiInByMm4zkZGRBAQEWN33iBEjOHr0aKN1CgsLqaysJCgoCAB3d3f69TOSpGVmZhIZGWmpGx8fb3XfBQUFXHjhhZx33nkkJCTwxRdfAHDw4EEGDhzINddcQ2xsLDNmzKC0tJQNGzYwY8YMAD755BO8vb2pqKiguLiY3r17A/DGG28wdOhQEhMTmT59OqWlpaxbt46vvvqKefPmWUZFBw4cYOLEiQwePJgxY8awf/9+AGbOnMncuXM5//zzeeSRR6z+LtagVw11QrZnbye1IBVPF0+yS7QQOBp/+d8udh8raNM2B3T147HLBjZap7S0lKSkJMvnhx9+mNjYWKKiovDz86tTf/fu3SQlJeHs7GwpM7tvdu3axYwZMxg1ahTr1q0jOTmZmTNnMmjQIKtt/vrrr7niiisate/qq69mypQp9OjRg+TkZCZPnsy1116Lk5MT8+bN48ILL+SCCy5gwoQJ3HTTTXTp0sWqvj09PVm+fDl+fn5kZWUxcuRIJk+ebPneixYtYvjw4cyaNYs333yTO+64gy1btgCwbt06BgwYwNatWykqKmLEiBEATJ8+ndtvvx2A+fPn88477zB37lwuvfRSrrrqKst3HT9+PG+99Ra9evVi/fr13HnnnaxcuRIwxO3nn3+2iGtboYWgE5JWmAbAeWHn8VvWb3a2RuMoeHp6sm3btlpl27dvb3F7kZGR7Nu3jzVr1rBmzRqSk5P5+OOPSU5ObvS88ePHk5ubi4+PD3/9618btQ/grbfeYseOHaxevZrnnnuOVatW8c4773DTTTcxceJEvv76az777DPefPNNfvvtN8vIpjGUUsyfP58ff/wRJycn0tPTOXnSSEkdExPD8OHDAeMpfeHChdx7771ERUVx4MABNm/ezL333ssPP/xAcXExo0ePBoxruWDBAvLy8igsLLQIS03y8vL4+eefmTZtmqWssrLS8n769OltLgKghaBTklWSBcDAoIGsP7qekooSvFy97GyVxlqaenJvT3r37k1aWhoFBQV1RgUDBgxg27ZtVFdXW25O1dXVbNu2jQEDBgCGq2bSpElMmjSJsLAwli9f3qQQrF27li5dunD99dfz2GOP8fzzzzdpZ3x8PPHx8dxwww3ExMTwzjvvANC1a1duvvlmbr75ZuLi4ti5cyeDBw9usr333nuP/Px8tm7diouLC5GRkZblmWev0DF/HjNmDF9++SWenp4kJyczZ84cSkpKeOWVVwCYNWsWK1asIC4ujrfeeouff/65Tr9KKYKDg+sVPABvb+8mbW8Jeo6gE5JVkoWvqy9RvlEAnCw9aWeLNI6Kl5cXt9xyC/fccw/l5eUAZGdLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,np.sum(wtspec,axis=0),label=\"ECOSTRESS Tapwater\")\n",
"plt.plot(wlalb,sbdartw*100,label=\"SBDART Seawater\")\n",
"plt.plot(wvref,netspec,label=\"New Spectrum\")\n",
"plt.xscale('log')\n",
"plt.xlabel(\"Wavelength [$\\mu$m]\")\n",
"plt.ylabel(\"Reflectance [%]\")\n",
"plt.legend()\n",
"plt.title(\"Water Reflectance Models\")\n",
"plt.savefig(\"ocean_refl_components.pdf\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 51,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 51,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAW4AAAEACAYAAACTXJylAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8VNX5+PHPyUbY1yDIDiI7BIwsIjtWqIqKWlGpC7baWm217lZttd/6rdVu7kVx+xUViwvWvdYF/KJAQJR9iWwJWwiQkATIdn5/PHMzk5BlZnJnyzzv1yuvO3Pnzp2TZZ6cee45zzHWWpRSSsWOhEg3QCmlVGA0cCulVIzRwK2UUjFGA7dSSsUYDdxKKRVjNHArpVSM0cCtlFIxRgO3UkrFGA3cSikVYzRwK6VUjEkKxUk7dOhge/bsGYpTK6VUo7Ry5coD1to0f44NSeDu2bMnmZmZoTi1Uko1SsaYHf4eq6kSpZSKMRq4lVIqxmjgVkqpGBOSHLdSqvEqLS0lOzubY8eORbopMSk1NZWuXbuSnJwc9Dn8CtzGmFuAnwAWWANcY63V35pScSg7O5uWLVvSs2dPjDGRbk5MsdaSl5dHdnY2vXr1Cvo89aZKjDFdgF8CGdbawUAiMCvoV1RKxbRjx47Rvn17DdpBMMbQvn37Bn9a8TfHnQQ0NcYkAc2A3Q16VaXi0dFDcHBbpFvhCg3awXPjZ1dv4LbW5gCPAjuBPUC+tfbjBr+yUvHmhXPgsXSoKI90S1SQVq9ezfvvvx/pZviVKmkLnA/0Ak4GmhtjZtdw3HXGmExjTGZubq77LVUqlhXsgf3r5HbWp5FtiwpaMIG7rKzM9Xb4kyqZCmyz1uZaa0uBN4Ezqh9krZ1rrc2w1makpfk1a1Op+LHxXe/tDe9Erh2NQFFREeeccw7Dhg1j8ODBLFiwgJUrVzJhwgROO+00zj77bPbs2QPAs88+y+mnn86wYcO46KKLKC4upry8nF69emGt5fDhwyQmJrJ48WIAxo8fz5YtW1i+fDljxoxh+PDhnHHGGWzatImSkhLuv/9+FixYQHp6OgsWLKCoqIg5c+YwcuRIhg8fzqJFiwB48cUXmTFjBpMnT2bKlCmu/wz8GVWyExhtjGkGHAWmADqfXalA5KyCFidB52Gwc1mkW+OaB/69jvW7C1w958CTW/Hb8wbV+viHH37IySefzHvvvQdAfn4+06dPZ9GiRaSlpbFgwQJ+85vf8PzzzzNz5kx++tOfAnDvvfcyb948brrpJvr168f69evZtm0bI0aMYMmSJYwaNYpdu3bRt29fCgoKWLJkCUlJSXzyySfcc889vPHGGzz44INkZmbyxBNPAHDPPfcwefJknn/+eQ4fPszIkSOZOnUqAKtWreK7776jXbt2rv58wI/Aba1dZoxZCKwCyoBvgLmut0Spxmz/OjhpEHQbCVs+hmMFkNoq0q2KSUOGDOHWW2/lzjvv5Nxzz6Vt27asXbuWs846C4Dy8nI6d+4MwNq1a7n33ns5fPgwhYWFnH322QCMGzeOxYsXs23bNu6++26effZZJkyYwOmnnw7IP4OrrrqKLVu2YIyhtLS0xrZ8/PHHvPPOOzz66KOAjLjZuXMnAGeddVZIgjb4OY7bWvtb4LchaYFSjV1FBRzYAqeNhbQBsi9vC3Q5LbLtckFdPeNQOfXUU1m1ahXvv/8+9957L5MnT2bQoEF89dVXJxx79dVX8/bbbzNs2DBefPFFPv/8c0BSIk8//TS7d+/mwQcf5JFHHuHzzz9n3LhxANx3331MmjSJt956i+3btzNx4sQa22Kt5Y033qBfv35V9i9btozmzZu7+n370invSoVaQTaUFkOHvvIFcGBrZNsUw3bv3k2zZs2YPXs2t99+O8uWLSM3N7cycJeWlrJunVwIPnLkCJ07d6a0tJT58+dXnmPkyJEsXbqUhIQEUlNTSU9P5x//+Afjx48HpMfdpUsXQPLVjpYtW3LkyJHK+2effTaPP/441loAvvnmm+C+qeKDAR2ugVupUDuwWbYd+kHbnmASpMetgrJmzRpGjhxJeno6DzzwAA8++CALFy7kzjvvZNiwYaSnp7N06VIAfv/73zNq1CjGjh1L//79K8/RpEkTunXrxujRowFJnRw5coQhQ4YAcMcdd3D33XczfPjwKqNCJk2axPr16ysvTt53332UlpYydOhQBg0axH333RfcN7Xpg4AON85/CjdlZGRYrcetlMdXT8FHd8NtW6FFGvxtKHTNgIufj3TLgrJhwwYGDBgQ6WbEtBN+hp88gDnrdyuttRn+PF973EqF2oHN0LQtNO8g99t0h/ycyLZJRZdD2wM6XAO3UqF2YDN0OBWcqc6tukCBBm7lo3BfQIdr4FYq1HI3SeB2tO4KBbuh3P0ZdSpGHdkb0OEauJUKpeKDUHwA0nyGi7XuCrYcCgN7s6pGrHB/QIdr4FYqlCpHlPj2uLvJNj87/O1R0aekCEqO1H+cDw3cSoVSjYFbxgdr4FaAFCALkAZupUIpdxMkNpGRJI5WGrgb4vDhwzz11FNhf923336b9evXu3/i/J0BP0UDt1KhdGCzzJZMSPTuS20Fqa01cAcplgK3XyVdg/g70MCtVCg5gbu6Vl01cAfprrvuIisri/T0dG655RamTJnCiBEjGDJkSGVZ1e3bt9O/f3+uuOIKBgwYwMUXX0xxcTErVqxg5syZACxatIimTZtSUlLCsWPH6N27N1BzKdilS5fyzjvvcPvtt5Oenk5WVhZZWVlMmzaN0047jXHjxrFx40ZA6qP87Gc/Y9SoUdxxxx31f0P52UBgq+LoKu9KhUrpMTi0A4ZeeuJjbbpD/q7wt8ltH9wFe9e4e85OQ2D6H2t9+I9//CNr165l9erVlJWVUVxcTKtWrThw4ACjR49mxowZAGzatIl58+YxduxY5syZw1NPPcXNN9/M6tWrAViyZAmDBw9mxYoVlJWVMWrUKIBaS8HOmDGDc889l4svvhiAKVOm8Mwzz9C3b1+WLVvGDTfcwKefyiIZ2dnZLF26lMTExOrNP1F+NrTsDOT7/SPSwK1UqBzMAmzVC5OOtj1h+xKw1jsxRwXMWss999zD4sWLSUhIICcnh337ZDJLt27dGDt2LACzZ8/mscce47bbbqNPnz5s2LCB5cuX8+tf/5rFixdTXl5eWRmwtlKwvgoLC1m6dCmXXHJJ5b7jx49X3r7kkkv8C9oggbt1V2Cj39+3Bm6lQuWAp5BUTamStj2gpBCK87xT4WNRHT3jcJg/fz65ubmsXLmS5ORkevbsWbmCevVFeZ3748eP54MPPiA5OZmpU6dy9dVXU15eziOPPALUXgrWV0VFBW3atKnsvVcXUEnX/GzoPNT/49Ect1Kh4wTu9qec+FjbnrI9tCNszWksfEur5ufn07FjR5KTk/nss8/YscP789y5c2dlqddXXnmFM888E5BKgH/7298YM2YMaWlp5OXlsWnTJgYPHgzUXgrW93VbtWpFr169+Ne//gVIz//bb78N/JuxVsoftO4a0NP8WSy4nzFmtc9XgTHm5sBbqFScObBZJtuk1ND7atNDtoe2hbdNjUD79u0ZO3YsgwcPZvXq1WRmZjJkyBBefvnlKqVb+/Xrx5NPPsmAAQM4dOgQP//5zwEYNWoU+/btq6y9PXToUIYMGVLZI6+tFOysWbN45JFHGD58OFlZWcyfP5958+YxbNgwBg0aVHlhNCDFeVB2TC5WByCgsq7GmEQgBxhlra21q6BlXZUCnp8GJhGuee/Ex0qK4KGTYfJ9MP628LetAWKhrOv27ds599xzWbt2baSbUqPKn+Hub2DuRLh0PmbgeSEr6zoFyKoraCulPIoPQrNa1hxMaQ7NO8JhfSvFNae8rzOb1k+BBu5ZwKsBPkep+HT0UO2BG+QCZYB1mJV/evbsGbW97SqcsfxO/Ro/+R24jTEpwAzgX7U8fp0xJtMYk5mbmxtQI5RqdKyVwN20be3HtO2pFyfjXUE2JKVCs/YBPS2QHvd0YJW1tsaK39baudbaDGttRlpaWkCNUKrRKSmCitK6A3ebHtLjKi8NX7tcEoolD+NFlZ9dfrbUrglwLH8ggfsyNE2ilH+OeWbBpbau/Zi2PaUud4xNfU9NTSUvL0+DdxCsteTl5ZGamio78nMCzm+DnxNwjDHNgbOA6wN+BaXi0fEC2TZpVfsxzljuwzugXa+QN8ktXbt2JTs7G02JBic1NZWuXT3D/wp2Q6/xAZ/Dr8BtrS0CAkvCKBXPKnvcdQVuZyz39pA3x03Jycn06hU7/2iiVkU5HNkDrU4O+Kk6c1KpUDjm9LjrSJW06gIJSTEXuJVLCvdLqkwDt1JRwkmV1JXjTkiUYWA6siQ+FeyWbavAc9wauJUKhWOHZVtXqgQ8QwK3h7o1KhoVeCbfaI9bqShxzI+LkyCBW2dPxqfKHrcGbqWiw/ECSEiG5KZ1H9e2hxQacgK9ih8FOUFNvgEN3EqFxrF8SZPUN7HCd0igii8FOdLbDmIhDQ3cSoXC8SPQpGX9x1WWd9XAHXfyc4K6MAkauJUKjZIiSPEjcFcuqKB1ueNOwW4N3EpFlZJCSGlW/3FN20qO88Dm0LdJRY+KcjiyO6jp7qCBW6nQKCmGZD8CtzHQcSDsWx/6NqnoUbgfKsqCGlECGriVCo3S4pqXLKtJx4GQuxEqKkLbJhU9KocCBrZkmUMDt1KhUFIUQOAeIKmV/J2hbZOKHgWeipDa41YqipT6mSoBOGmQbPdvCF17VHRxetwBru7u0MCtVCgE0uNO86wkvm9d6Nqjokt+NiQ1rXuhjTpo4FbKbRUVgfW4U1tB6+6wXy9Qxo0GTL6BxhK4dSUOFU3KjsrWn+GAjo4DYP/G0LRHRZ+C4IcCgp+B2xjTxhiz0Biz0RizwRgzJuhXdFvpUfjrYPh2QaRbopQLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0)*2,label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 52,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 53,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 54,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 55,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 56,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt0G/Wd///nZ0Yj2SPLNxk7CXaCE3NnKaVpC70AZU+hmxAuhXR7oaVAoQuc3Z5Settt+UJhd6Ht9rqlTSkLaVi+219bTigU2kIpt3YTIAFKgQYChsjkYuSrrLFuM5/fH5KdBEuyZFsX+L4f5+ScoBnp8/JIOO/56DPvUVprhBBCCCGEEPXFqHUAIYQQQgghxExSqAshhBBCCFGHpFAXQgghhBCiDkmhLoQQQgghRB2SQl0IIYQQQog6JIW6EEIIIYQQdUgKdSGEECVRSmmlVF+tcwghxP8rpFAXQogFoJT6pFLqaaWUo5TarZT6oVKqtda5Xk8p9Q6l1N1KqVGl1LBS6lGl1Pm1ziWEEGImKdSFEGKelFKfA64HPg+0AMcBy4B7lVL+Wmbbl1LqeOB+4EGgDwgDlwB/V+FxfZV8fSGEeLOSQl0IIeZBKdUMXA38o9b6N1rrtNb6ZeBDwEHAubn9TKXUPyulXlRKxZRSW5RSPblthyml7s3NcG9TSn1on9dfrZR6Qik1rpSKKKWu2mfbQbnlKOcppXYopaJKqX8pEvcbwHqt9fVa66jO2qK13ne8i5RS23NZfqWUWlLg525RSv1UKfWaUuoVpdRXlFJGbtsnlVJ/VEp9Wyk1BFyV7zWEEEIUJ4W6EELMz7uABuD2fR/UWk8AdwPvzz10OfARYBXQDFwAOEqpIHAvcBvQCXwYuEEpdUTueXHgE0ArsBq4RCl15usyvAc4FPhb4Eql1OGvD6mUsoHjgV8U+kGUUicD/072JGMx8ArwPwV2/z7Zbw+WAyfmMu67hOadwEtAF/CvhcYUQghRmBTqQggxPx1AVGudybNtV247wKeAr2itt+Vmsp/SWg8BpwEva61v1lpntNZPAL8E1gJorR/QWj+ttfa01n8G/i/ZwnhfV2utJ7XWTwFPAW/Jk6WN7O/8XUV+lo8B/6W13qq1TgJfBo5XSh20705KKZPsCcWXtdax3DcI/wF8fJ/ddmqtv5/7mSaLjCmEEKIAKdSFEGJ+okBHgXXYi3PbAXqAF/Psswx4Z+7izlGl1CjZgnkRgFLqnUqpP+SWmIwB/8De4n/K7n3+7gBNecYZAbxcpkKWkJ1FB6a/FRgCDnzdfh2Ate++ub/vu1+kyDhCCCFKIIW6EELMz/8CSeCD+z6olGoie5Hm73MPRYAVeZ4fAR7UWrfu86dJa31JbvttwK+AHq11C/AjQJUbUmvt5LKeXWS3nWRPHKZ+hiDZC05ffd1+USC9777A0tftp8vNKIQQYn9SqAshxDxorcfIXkz6faXUB5RSVm6pyP8HDAAbcrv+BLhGKXWwyjpaKRUG7gIOUUp9PPdcSyn19n3WmYeAYa11Qin1DuCj84j7BeCTSqnP58ZGKfUWpdTUOvT/C5yvlDpGKRUA/g3YnFvasu/P7OZ+vn9VSoWUUsvIrsG/dR7ZhBBCvI4U6kIIMU9a668D/wx8ExgHNpOdKf/b3FpvgG+RLW5/l9vnJqBRax0DTiG75nsn2WUs1wOB3PMuBb6mlIoBV+ZeY645/wScnPvzklJqGPgx2Yte0VrfB3yV7Br5XWS/AfhwgZf7R7IXur4EPEJ25v+/5ppNCCHETEpr+XZSCCGEEEKIeiMz6kIIIYQQQtQhKdSFEEIIIYSoQ1KoCyGEEEIIUYekUBdCCCGEEKIO5btBR0Gtra16yZIllcoihBBCCCHEm95zzz0X1VofMNt+ZRXqS5YsYcOGDbPvKIQQQgghhMhr5cqVr8y+lyx9EUIIIYQQoi5JoS6EEEIIIUQdkkJdCCGEEEKIOiSFuhBCCCGEEHVICnUhhBBCCCHqkBTqQgghhBBC1CEp1IUQQgghhKhDUqi/AVx88cWsWbNmv8euuuoqVq5cWaNElfFm/JmEEEIIIeaqrBseCRgYGGD9+vVs3bqV3bt34/f7CYfDHHnkkaxZs2a/QnPdunUceuihnHTSSbULXAGZTIZf//rX/Pa3v+X5559nYmKCYDBIX18f73vf+zjzzDNpaGiodUwhhBBCiDc0KdTL8Oyzz3LxxRfj8/lYvXo1y5cvJ5lMEolE2LRpE7Zt71eo33jjjZx22mlvqkJ9ZGSEyy+/nKeffpqjjjqKj3zkI3R0dBCLxXjiiSf49re/zZNPPsl1111X66hCCCGEEG9oUqiX4cYbbySRSHDbbbdxyCGHzNgejUZrkGrhZDIZXNclEAjk3a615otf/CJPP/00V1xxBR/+8If3237uueeyY8cO7rvvvmrELUkikcDn8+HzyUddCCGEEG8sUr2UYceOHbS0tOQt0gE6OjoA2LlzJ6effjoAd911F3fdddf0Po8//vj03zdv3sxPf/pTnnnmGVKpFEuXLuWcc87hnHPOmVO+l19+mf/5n/+ZXpbjui69vb2cc845nHnmmfvtu27dOm688UZ+9rOfcccdd3DfffcRjUa54YYbCq4Tf/jhh9m6dSvvf//7ZxTpU5YuXcoFF1yw32Nbt27lJz/5Cc888wyZTIaDDjqItWvXzshUyAsvvMC6det44oknmJyc5MADD+S0007j3HPPxTTN6f2uuuoq7rrrLu69916+973v8cc//pGRkRHuuOMOlixZUtJYQgghhBD1Qgr1MnR3d/PKK69w//33c/LJJxfcr62tja997WtceeWVvPWtb+Wss86asc/tt9/Ov//7v/M3f/M3XHDBBTQ2NrJ582auu+46Xn31VT7zmc+Une/xxx9n69atvOc972HJkiUkEgnuu+8+rr32WkZGRjj//PNnPOerX/0qgUCAj33sYyilpk828vn9738PwAc/+MGSMz300EN8/vOfJxwOc+6552LbNr/73e+49tprefXVV7nsssuKPn/f5UZr164lHA7z8MMP8/3vf58XXniBa6+9dsZzLrvsMsLhMBdeeCGTk5PYtl1yXiGEEEKIeiGFehkuvPBCNm/ezBe+8AWWLl3KW97yFo488kje9ra30dvbO71fY2Mjq1at4sorr+TAAw9k1apV+71ONBrlm9/8Jqeccgr/+q//Ov342rVr+eY3v8l///d/c/bZZ9Pd3V1WvtWrV8+Yjf/oRz/KP/zDP3DLLbfw8Y9/fMYSkKamJm644YaSloa8+OKLAAW/UXg913X5+te/TmNjI+vXr+eAAw4A4EMf+hCf/vSnWb9+PWvWrGHp0qUFX+Ob3/wm6XSam2++mYMPPhiAv//7v+fLX/4yv/nNbzj99NN5xzvesd9zVqxYwTXXXFNSRiGEEEKIeiXtGctw9NFHc+utt3LaaacxMTHBnXfeyXXXXcfatWu56KKLGBgYKOl17rvvPlKpFGeccQajo6P7/Xnve9+L53k8+uijZedrbGyc/nsymWR0dJTx8XGOO+444vE4L7/88oznfPSjHy15/XY8HgcgGAyWtP9zzz3H7t27Of3006eLdADLsvjEJz6B53k8+OCDBZ8/PDzMn//8Z0444YTpIh1AKTW9vOYPf/jDjOede+65JeUTQgghhKhnMqNepr6+Pq666ioAdu3axZYtW7jjjjt44okn+NznPsett96KZVlFX2OqYL700ksL7jM8PFx2Nsdx+PGPf8y9997Lnj17ZmwfHx+f8Vix2ezXmyrQHcehubl51v137twJwPLly2dsW7FiBQCvvvrqnJ7f29uLYRh5n79s2bJZswkhhBBC1Dsp1Odh8eLFnHbaaaxevZpPfepTPPXUUzzzzDMcc8wxRZ+ntQbg6quvLrgm/MADDyw7z7/8y7/wyCOPcNZZZ3HsscfS0tKCYRj88Y9/5LbbbsPzvBnPKaff+YoVK/jrX//Ktm3bePvb3152vmqRHu5CCCGEeDOQQn0BKKU46qijeOqppxgcHJx1/56eHgBaW1t55zvfuSAZYrEYjzzyCKtWreKf//mf99s2l2U0+Zx88sn8+te/ZuPGjSUV6lMnGy+99NKMbVOPFTshmerUku/5L7/8Mp7nzemERgghhBDijUDWqJdh06ZNZDKZGY8nEgk2bdoE7L9Mw7ZtxsbGZuz//ve/H7/fz7p160gkEjO2T0xMkEqlyspmGNm3cmq2fko0GmXjxo1lvVYhJ5xwAsceeyy//e1v+fnPf553n0gkws033wzAYYcdxqJFi7jzzjv36zGfyWTYsGEDSilOPPHEguO1t7dz9NFH89BDD7F9+/bpx7XW02O8733vW4gfTQghhBCi7siMehm+9a1vMTY2xgknnEBfXx8NDQ3s2bOH3/zmN+zYsYPVq1fT19c3vf9RRx3Fo48+yi233MKiRYtQSnHqqafS1dXFl770Ja699lrWrl3LqlWrWLx4MSMjI2zfvp0HHniAn//852X1/g4Ggxx33HHcc889BAIBjjzySHbt2sXtt9/OgQcemPeEoVxKKa6//no++9nPcv3113P33XdzwgknEA6HicViPPnkkzz00EPTrStN0+QLX/gCn//85znvvPM466yzsG2be++9l6effprzzz9/1jXyV1xxBRdffDEXXXTRdHvGRx55hP/93//lAx/4wIyOL0IIIYQQbxZSqJfh8ssv58EHH+TJJ5/k/vvvZ2JigqamJvr6+jjvvPNYs2bNfvt/6Utf4vrrr+fmm2+e7phy6qmnAnD66aezdOlSbr31Vm6//XZisRitra0sW7aMSy65hHA4XHa+a665hu9///s8/PDD/PrXv6anp4dLL70Un8/H1VdfPf8DQLZH/E9+8hPuuusufve733HrrbdOH4eDDz6YK664Yr/jcMIJJ3DDDTdw0003sWHLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s]*3.25,s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ocean Color\")\n",
"plt.savefig(\"colorgrid_ocean.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 57,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 58,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 59,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xl8FfW9+P/XOyf7HhLWLIQdQRYxICoiiiBVFFGpqFUrtipqi3a1t/16rT9vq733tvd6tfW27larBWXRiwuIoiwCQfY9rAkEspJ9Ocvn98dMwklIciLk5GR5Px+PeczMZz4z8z4T+LzPLGc+YoxBKaWUaklQoANQSinV8WmyUEop5ZMmC6WUUj5pslBKKeWTJgullFI+abJQSinlkyYL1WGJSLqIGBEJtue/EJEftNG2nxSRv7fFtprZfpqIlIuIo4U6RkQGn+P2p4hIjtf8LhGZYk+LiLwqIsUistEumy8ip+yYEs9ln6p702TRhYnI90Vkh4hUishJEfmLiMQHOq7uwBhzzBgTbYxxQ9smumb2N9IY84U9OwmYBqQYYyaISAjwR2C6HVOhv+Joioi8JiJPt/e6qm1psuiiROSnwLPAz4E4YCLQH1ghIqGBjE35XX/giDGmwp7vDYQDu85lYy2dHXV0dWelqg0YY3ToYgMQC5QD321UHg3kA/PseQfwL8BBoAzYDKTay4YDK4AiYJ/3toDrgS1AKZANPOm1LB0wwD3AMaAA+HULsbZmW8H2/BfA74GNdv2lQA+v+hOBdcBpYBswxWvZAGC1/TlXAM8Df/dafiNWY3ra3s8FzcT7W+B/7OkQoAL4d3s+AqgGenjHDvwb4LaXlQPP2/UN8CBwwN7vC4A0s98I4DWgGNiN9SUgx2v5EeAa4D57P257X/+wYzT2/KpW/H1fA/4CLLfXvQYIA/7D/pueAl4EIuz6U4Ac4KdAHpAL3Gsvux9wArX2/j9o4rMJ8Cd73VJgB3Bhc+sCj3Pm3+xuYLbXtr4PrLW3Vwg8DQy2//YlWP8e3w30/9HOOAQ8AB388EeFGYALu5FttOx14B/29M/t/5jD7P+wY4BEIAqr4b7Xbuwusv+TjbDXmwKMwjozHW03HjfZy9LthulvdgM3Bqih+ca3NdvyThbH7YYkCngPu8EHku3G4Tp7W9Ps+Z728vVYl2LCgMl2Q1O37lC7UZyGlQB+AWQBoU3EezWww56+zG60Nngt29ZC7D9otC0DfAjEA2lYiXxGM8fpGeArrESUCuykiWRhT38fWOO1rHEsvv6+r2E1rJfbxzIcq/FdZu8/BvgA+L3X39AFPGUfv+uASiDBa3tPt/Dv9VqsLyrxWP8OLwD6NrcuMAfoZ8d2m/236+v12V3Aj+zPFoGVMH/t9VkmBfr/aGcc9DJU15QEFBhjXE0sy7WXA/wA+I0xZp+xbDPW9eyZWJcxXjXGuIwxW7Aa5jkAxpgvjDE7jDEeY8x2rP+MVzbaz2+NMVXGmG1Y3/LHNBVoK7fl7U1jzE5jXWL5f8B37csk3wOWG2OW29taAWQC14lIGjAe+H/GmBpjzJdYjV2d24D/M8asMMY4sb5BR2Alg8bWA0Psm8STgZeBZBGJtuNe3ULsTXnGGHPaGHMM+BwY20y97wL/ZowpMsZkA899y/14a/Hva1tqjFlrjPFgJfv7gcfs/ZcBvwPmetV3Ak8ZY5zGmOVYZwLDWhmPEysBDcc6s9pjjMltrrIxZqEx5oT9d34X68xsgleVE8aY/7E/W5W9/f5AP2NMtTFmTSvjUl40WXRNBUBSM9dr+9rLwfqGerCJOv2BS0TkdN0A3An0ARCRS0TkcxHJF5ESrEspSY22cdJruhLrEthZWrktb9le00exvskm2THPaRTzJPvz9gOKzZlr+HXr1unnPW83kNlYZysN2I1PJlZimIyVHNZhfQs/l2TRquNkx9j4s5+rFv++Nu999QQigc1e9T+2y+sUNvpy0tJnacAYswrrsuALQJ6I/FVEYpurLyJ3i8hWr1gupOG/mexGq/wC64xlo/3U2LzWxKUa0mTRNa3H+jZ4s3eh/e33O8BndlE2MKiJ9bOB1caYeK8h2hgz317+NtYliVRjTBzW9Ws5x1i/7bZSvabTsL41Ftgxv9ko5ihjzDNYZ1MJIhLVaN06J7AaUMB69NTez/FmYliNdcnpImCTPX8t1rfbL5tZ53xf75zL2Z/9XPn6+0LDeAuAKmCkV/04Y0yrkgGt+OzGmOeMMRcDI7AuC/68qXVFpD/WJc5HgERjTDzWJTnvfzMN1jHGnDTG/NAY0w94APjzuT6y3J1psuiCjDEl2DdiRWSGiISISDrwT6wbkW/aVV8C/j8RGWI/mz/avrzyITBURO6y1w0RkfEicoG9XgxQZIypFpEJwB3nEe633db3RGSEiERiXSNfZKzHU/8O3CAi14qIQ0TC7d8ipBhjjmKdDfxWREJFZBJwg9c2/wlcLyJT7cdMf4qVbNc1E8Nq4G5gtzGmFvt+BHDYGJPfzDqngIE+PltL/gn8SkQSRCQF65r8ufL1923APtP6G/AnEekFICLJInJtK/fX4me3932JfewrsG7Qe5pZNworGeTb696LdWbRLBGZYx8zsB4QMF7bV62kyaKLMsb8AetJp//AesJkA9Y3yqnGmBq72h+xGqFP7TovYz3hUgZMx7omfQLrUsmzWDeHAR4CnhKRMuAJexvn6ttu602sm54nsW5W/tj+vNnALPsz59uf9eec+Td+B3AJ1tM//wq8UbdBY8w+rHse/4P1LfoG4AY7ETRlHdY9jbqziN1YDVxzZxUA/w3cav9Q7lzuN/wW69LTYay/15stV29eK/6+Tfkl1k3/r0WkFFhJ6+9JvAyMsC8bLWlieSxWMirG+oyFwL83ta4xZjfwn1hnz6ewHo5Y62P/44ENIlKOdRa7wBhzqJWxK5sYo50fKaWUapmeWSillPJJk4VSSimfNFkopZTySZOFUkopnzRZKKWU8qnLvJExKSnJpKenBzoMpZTqVDZv3lxgjOnpq16XSRbp6elkZmYGOgyllOpURKRVr47Ry1BKKaV80mShlFLKJ78mC/u9RPtEJEtEHm9ieZiIvGsv32C/vwj7/T2v2l2CbhO7b2GllFKB4bdkYfcx8ALWW05HALeLyIhG1e7DenX0YKzOVZ61y38IYIwZhdUhzX+KiJ4FKaVUgPizAZ4AZBljDtkvZHsH60Vv3mZh9dwGsAiYar8eegSwCsAYk4fV5WSGH2NVSinVAn8mi2QadkKSw9mdydTXsTtOKcHq1nMbcKOIBIvIAOBiGr7LXymlVDvqqI/OvoLVD28m1iuL12F1QN+AiNyP1d0jaWnn0xeMUkr5hzEGjwGXx4PbY3B5DB573NR83eAxXsvt6fp6xpquq9c7NpyL0hL8+jn8mSyO0/BsIIWzex6rq5NjdwEah9U9owEeq6skIuuA/Y13YIz5K/BXgIyMDH3XulJdlDGGWreHWpc9uD04XYZat5salwen21Dr8uB0e+rrOd11g7HGdfXscldduT12eTzUugwuz5llLo81dnsMLre9zGNwug0uu9zp8eB2n2ns6+t7JQN/mzm6L8/f0XmTxSasju0HYCWFuZzdC9oy4B6sjkxuBVYZY4zdC5oYYypEZBrgsjs9UUoFkMdjqHF5qHK6raHWTbWzbvBQbZdXO91UuzzUOK3GvNp77PRQ47LmraGuzJqutcu9x7Xutu/YLkgg2BFEmCOIYIcQ7AgitG46SAipnw4ixB6HhQQTHGTVDQ4SHHX17Om6+memBYdY9R11deyx93yQWPWDpGGZdz2H13yQ13yQCHGRIW1+fBrzW7IwxrhE5BHgE8ABvGKM2SUiTwGZxphlWL1gvSkiWVg9mM21V+8FfCIiHqxEc5e/4lSqK6p1eSivcVFR46Ki1kVFjZtK73Gtmyqv+cpaq+GvrHVT6XRTXeum0mmVV9e665NDtfPcGm0RCAsOIjzEQVhwEGHBDsJDrHFocBBhwUHEhAc3mA+1hwZljjPlddMhDmtZiMNq1EPrp+uWWw16qCOIkOCg+kTgCDrXbuO7py7TU15GRobR132ozq7a6aa02klZtYvSKiflNS7Kql2UV7sorbbmy6tdVrnXdIVdz0oMLpzu1v+/Dg8JIio0mIhQB5GhDiJCg4kICSLSLosIsctDHISHOOrLwkOsxr+u/My0nRRCziSFUEcQ1oOOqqMRkc3GGJ9Pm3bUG9xKdUrGGKqcbk5XOq2hqpaSSiclVU5OV1njkionpVVOSqtdlFQ5KatyUlrtpLTK1arLLZGhDmLCg4kOs4fwYJKiI4my5+vHoQ4i7emIUAfRYcFEhjqIDA0mKswaR4Q49Bu2ahVNFko1wxhDeY2L4gonRZW1FFXUUFThpLiilqLKWk5X1tYvO11ZS3Glk5JKZ4sNfnCQEBcRQqw9xEWEkJIQQVxECDHhwcSGhxAbHkxMuDV/ZmxNR4cFa+OuAkKThepWXG4PRRW15JXVUFBeQ0F5LYXlNRRW1FJQXkNhuTUuqqilsKKWWlfTDX9wkBAfGUpCZAgJUaEMSIpiXGQocZEhxEdY5fGRVkKIjwglPtJKDJGhDr0cozolTRaqS6h2uskrreFUWbU1Lq0mr6yGvLJq8stq6oeiylqauk0XFhxEUnQYSdGh9IoJ44K+sSRGhdLDHhKjQ0mItKYTokKJCQvWRl91K5osVIdmjKG0ykVuaRW5JdXknq7mZEkVJ0urOVlaw6mSak6VVXO60nnWuiEOoVdMOEkxYaT2iGRc/wSSosPoGRNGz+hQOzmEkRQTRpR+41eqRZosVEC53B5yS6o5frqK48VVnDhdxYmSKo6frubE6SpyT1dRUdvwx/si0DM6jD5x4aQlRjJhQA96x4bRKzac3rHh1nRMOAmRIZoAlGojmiyUX3k8hryyGo4VVXKsqJLLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ocean albedo with different stars\")\n",
"plt.savefig(\"ocean_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 63,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.06915802680817525\n"
]
}
],
"source": [
"print teffs[-16],albb[-16]"
]
},
{
"cell_type": "code",
"execution_count": 64,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"oceanblend\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 65,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"oceanblend_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 66,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: oceanblend(965) = (/8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &\n",
" & 8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &\n",
" & 8.6100,9.0300,9.2400,9.8700,10.5000,11.3400,11.7600,12.6000, &\n",
" & 12.8100,11.9700,11.1300,10.5000,9.8700,9.6600,9.2400,9.0300, &\n",
" & 8.4000,7.7700,7.5600,6.7200,6.0900,5.7601,5.2149,5.5982, &\n",
" & 5.7401,5.5656,5.5656,5.5772,5.7763,5.4407,5.6099,5.2616, &\n",
" & 5.2769,5.4863,5.4848,5.1626,5.5163,5.3296,5.1626,5.1626, &\n",
" & 4.9919,4.9946,4.9925,4.9936,5.1828,4.9789,4.7697,4.9237, &\n",
" & 4.3877,4.7231,4.7095,5.0749,4.6813,4.4959,4.4982,4.4778, &\n",
" & 4.4371,4.6061,4.6353,4.6231,4.6032,4.5761,4.2170,4.5816, &\n",
" & 4.7636,4.3989,4.7510,4.1914,4.5454,4.3672,4.5536,4.5497, &\n",
" & 4.1914,4.3672,4.3596,4.3672,4.3825,4.1786,4.5268,4.1822, &\n",
" & 4.5081,4.5196,4.0234,4.5431,3.9995,3.9850,4.0223,4.0074, &\n",
" & 4.0089,3.9866,4.0200,4.4012,4.0167,4.0377,4.0851,4.1132, &\n",
" & 4.0926,4.0534,4.0568,3.9984,3.9687,3.9475,3.9339,3.9033, &\n",
" & 3.8861,3.8625,3.8395,3.8147,3.8004,3.8197,3.7830,3.7617, &\n",
" & 3.7403,3.7296,3.7065,3.6817,3.6779,3.6339,3.6330,3.5962, &\n",
" & 3.5901,3.5694,3.5316,3.4858,3.4517,3.4235,3.4039,3.3566, &\n",
" & 3.3312,3.2894,3.2250,3.1374,3.0939,2.9001,2.7200,2.7455, &\n",
" & 2.6507,2.6178,2.6916,2.5111,2.2680,2.1656,2.6132,2.4038, &\n",
" & 2.1991,1.6537,1.7645,1.8315,1.7004,1.3285,1.1074,1.3145, &\n",
" & 0.9778,1.2685,1.2194,1.2591,1.4264,1.5254,1.6796,1.9632, &\n",
" & 2.1370,2.4615,2.7867,3.0683,3.4834,3.8237,4.2527,4.6603, &\n",
" & 4.9764,5.4629,5.8116,6.2535,6.5925,6.8511,7.1084,7.2837, &\n",
" & 7.4632,7.5555,7.6641,7.7101,7.7935,7.8964,7.9813,8.0281, &\n",
" & 8.1326,8.2135,8.2674,8.3340,8.3735,8.3848,8.4327,8.3861, &\n",
" & 8.3656,8.3182,8.2603,8.1835,8.0998,7.9879,7.8703,7.7641, &\n",
" & 7.6862,7.5938,7.4870,7.3975,7.2890,7.2033,7.1054,7.0528, &\n",
" & 6.9413,6.8987,6.7921,6.7285,6.6563,6.5862,6.5230,6.4614, &\n",
" & 6.3768,6.3468,6.2919,6.2568,6.1882,6.1617,6.0936,6.0290, &\n",
" & 6.0019,5.9537,5.9117,5.8579,5.8185,5.7956,5.7597,5.7276, &\n",
" & 5.7010,5.6725,5.6259,5.5939,5.5776,5.5342,5.5207,5.4968, &\n",
" & 5.4731,5.4575,5.4180,5.4202,5.3891,5.3712,5.3543,5.3331, &\n",
" & 5.3131,5.2817,5.2771,5.2617,5.2293,5.2337,5.2035,5.1973, &\n",
" & 5.1769,5.1593,5.1449,5.1297,5.1086,5.0837,5.0866,5.0680, &\n",
" & 5.0597,5.0457,5.0301,5.0094,4.9950,4.9808,4.9662,4.9647, &\n",
" & 4.9528,4.9331,4.9142,4.9043,4.8923,4.8907,4.8904,4.8686, &\n",
" & 4.8508,4.8395,4.8280,4.8225,4.8098,4.8114,4.7849,4.7709, &\n",
" & 4.7629,4.7472,4.7433,4.7357,4.7302,4.7239,4.7186,4.7100, &\n",
" & 4.7005,4.6854,4.6742,4.6800,4.6643,4.6502,4.6384,4.6288, &\n",
" & 4.6323,4.6289,4.6217,4.6238,4.6136,4.6042,4.6039,4.5949, &\n",
" & 4.5817,4.5781,4.5768,4.5680,4.5594,4.5486,4.5470,4.5530, &\n",
" & 4.5441,4.5366,4.5282,4.5239,4.5283,4.5201,4.5079,4.5091, &\n",
" & 4.5079,4.5028,4.4928,4.4850,4.4875,4.4824,4.4794,4.4929, &\n",
" & 4.4842,4.4760,4.4827,4.4816,4.4796,4.4805,4.4821,4.4741, &\n",
" & 4.4721,4.4715,4.4692,4.4763,4.4856,4.4798,4.4675,4.4702, &\n",
" & 4.4730,4.4727,4.4729,4.4783,4.4735,4.4683,4.4692,4.4639, &\n",
" & 4.4684,4.4657,4.4453,4.4400,4.4552,4.4601,4.4572,4.4445, &\n",
" & 4.4354,4.4432,4.4429,4.4296,4.4321,4.4041,4.3918,4.4105, &\n",
" & 4.4310,4.4194,4.4144,4.3459,4.3066,4.3317,4.3847,4.3818, &\n",
" & 4.3841,4.3496,4.3021,4.2975,4.3190,4.3124,4.3100,4.2832, &\n",
" & 4.1842,4.1561,4.2184,4.2842,4.2751,4.2073,4.0766,4.0114, &\n",
" & 4.0714,4.1286,4.1431,4.1598,4.1786,4.1482,4.0526,3.9942, &\n",
" & 4.0275,4.0987,4.1354,4.1168,3.9071,3.7592,3.8145,4.0101, &\n",
" & 4.0623,4.0533,4.0281,3.7681,3.6266,3.6794,3.9063,3.8414, &\n",
" & 3.6487,3.5340,3.6221,3.7912,3.8620,3.7787,3.7152,3.7026, &\n",
" & 3.6401,3.5811,3.4539,3.3147,3.3155,3.3826,3.5150,3.5338, &\n",
" & 3.4505,3.2138,2.9946,3.0031,3.1687,3.2797,3.2421,3.1923, &\n",
" & 3.0661,2.9014,2.8597,2.8950,2.9967,2.7877,2.5615,2.5773, &\n",
" & 2.7607,3.1036,3.1137,2.7483,2.4580,2.4524,2.6601,2.8446, &\n",
" & 2.6615,2.3116,2.0539,2.0871,2.3828,2.7313,2.6384,2.3990, &\n",
" & 2.3777,2.5154,2.7626,2.7618,2.7011,2.8689,3.0405,3.3237, &\n",
" & 3.5784,3.2856,3.0299,2.7883,2.7653,3.2715,3.8505,4.0199, &\n",
" & 4.0043,3.9528,4.0513,4.4006,4.6546,4.6538,4.5513,4.4284, &\n",
" & 4.4509,4.5898,4.7203,4.9886,5.0597,5.0029,5.0255,5.0112, &\n",
" & 4.9786,4.9478,4.9211,4.9202,4.9346,4.9485,4.7265,4.3834, &\n",
" & 4.1913,3.9960,3.9525,4.1482,4.2598,3.9459,3.4997,3.0630, &\n",
" & 2.9382,3.1959,3.8237,4.1536,4.0049,3.5234,3.0505,2.9005, &\n",
" & 2.9765,3.3332,3.7483,3.8791,3.7534,3.5495,3.2767,3.0490, &\n",
" & 3.0996,3.3365,3.6030,3.5365,3.2100,3.0448,3.1009,3.3088, &\n",
" & 3.5731,3.8200,3.7998,3.6323,3.5885,3.6466,3.7144,3.8311, &\n",
" & 4.0670,4.2050,4.0256,3.6766,3.4791,3.4644,3.5290,3.7098, &\n",
" & 3.9504,3.9272,3.5399,3.2743,3.2254,3.2825,3.4470,3.7412, &\n",
" & 3.9700,4.0312,4.0746,4.0301,3.9083,3.7810,3.6711,3.6335, &\n",
" & 3.7157,3.8702,3.9714,3.9317,3.7918,3.6433,3.5464,3.5514, &\n",
" & 3.6543,3.8265,4.0059,4.0443,4.0000,3.9565,3.9003,3.8198, &\n",
" & 3.6990,3.6177,3.6058,3.6248,3.6684,3.7298,3.7971,3.8520, &\n",
" & 3.8600,3.9001,3.9419,3.8995,3.8114,3.7541,3.7381,3.7709, &\n",
" & 3.8030,3.7982,3.7536,3.7003,3.6817,3.6954,3.7392,3.8079, &\n",
" & 3.8586,3.8572,3.8642,3.8726,3.8458,3.7821,3.7149,3.6632, &\n",
" & 3.6446,3.6640,3.7137,3.7799,3.8273,3.8425,3.8233,3.8025, &\n",
" & 3.7799,3.7553,3.7293,3.7070,3.7059,3.7144,3.7289,3.7415, &\n",
" & 3.7523,3.7517,3.7473,3.7398,3.7391,3.7383,3.7399,3.7386, &\n",
" & 3.7303,3.7198,3.7107,3.7008,3.6964,3.6988,3.7034,3.7045, &\n",
" & 3.6975,3.6886,3.6802,3.6684,3.6677,3.6677,3.6677,3.6659, &\n",
" & 3.6579,3.6543,3.6550,3.6588,3.6692,3.6701,3.6669,3.6608, &\n",
" & 3.6468,3.6382,3.6330,3.6330,3.6397,3.6422,3.6466,3.6483, &\n",
" & 3.6446,3.6377,3.6318,3.6220,3.6045,3.5985,3.5972,3.5957, &\n",
" & 3.5962,3.5938,3.5844,3.5751,3.5686,3.5644,3.5535,3.5462, &\n",
" & 3.5445,3.5448,3.5461,3.5438,3.5438,3.5408,3.5234,3.5110, &\n",
" & 3.5034,3.4873,3.4781,3.4674,3.4500,3.4417,3.4332,3.4303, &\n",
" & 3.4304,3.4311,3.4323,3.4355,3.4369,3.4278,3.4235,3.4144, &\n",
" & 3.3924,3.3796,3.3611,3.3542,3.3524,3.3547,3.3579,3.3531, &\n",
" & 3.3376,3.3269,3.3050,3.2932,3.2900,3.2904,3.2855,3.2808, &\n",
" & 3.2770,3.2718,3.2571,3.2477,3.2381,3.2320,3.2197,3.2102, &\n",
" & 3.2061,3.1836,3.1709,3.1442,3.1226,3.1107,3.0931,3.0835, &\n",
" & 3.0655,3.0503,3.0490,3.0504,3.0510,3.0451,3.0336,3.0236, &\n",
" & 3.0066,2.9815,2.9726,2.9564,2.9434,2.9370,2.9328,2.9281, &\n",
" & 2.9157,2.9023,2.8746,2.8481,2.8380,2.8201,2.8108,2.7930, &\n",
" & 2.7838,2.7673,2.7500,2.7285,2.7204,2.7148,2.7005,2.6834, &\n",
" & 2.6753,2.6623,2.6541,2.6351,2.6275,2.6191,2.6050,2.5848, &\n",
" & 2.5662,2.5553,2.5354,2.5141,2.4971,2.4784,2.4593,2.4345, &\n",
" & 2.4208,2.4068,2.3911,2.3759,2.3648,2.3510,2.3356,2.3197, &\n",
" & 2.3095,2.3013,2.2720,2.2553,2.2397,2.2213,2.2013,2.1794, &\n",
" & 2.1650,2.1463,2.1311,2.1186,2.1050,2.0864,2.0737,2.0565, &\n",
" & 2.0429,2.0195,2.0062,1.9902,1.9761,1.9637,1.9596,1.9513, &\n",
" & 1.9457,1.9323,1.9214,1.9073,1.8947,1.8887,1.8845,1.8754, &\n",
" & 1.8665,1.8625,1.8667,1.8683,1.8688,1.8629,1.8604,1.8566, &\n",
" & 1.8581,1.8605,1.8759,1.8851,1.8904,1.8910,1.8985,1.9127, &\n",
" & 1.9223,1.9357,1.9488,1.9619,1.9857,2.0006,2.0286,2.0463, &\n",
" & 2.0739,2.0935,2.1283,2.1477,2.1855,2.2233,2.2515,2.2917, &\n",
" & 2.3225,2.3720,2.4281,2.4597,2.5075,2.5498,2.5800,2.6260, &\n",
" & 2.6819,2.7217,2.7875,2.8485,2.9179,2.9587,3.0250,3.0838, &\n",
" & 3.1427,3.1808,3.2408,3.3011,3.3685,3.4349,3.5062,3.5745, &\n",
" & 3.6213,3.6889,3.7709,3.8521,3.9392,4.0205,4.1067,4.1912, &\n",
" & 4.2751,4.3477,4.4270,4.5041,4.5897,4.6982,4.7881,4.8784, &\n",
" & 4.9677,5.0490,5.1315,5.2068,5.3118,5.3850,5.4600,5.5371, &\n",
" & 5.6523,5.7281,5.8095,5.8904,6.0019,6.0819,6.1578,6.2592, &\n",
" & 6.3457,6.4465,6.5356,6.6451,6.7307,6.8207,6.8903,6.9704, &\n",
" & 7.0388,7.1376,7.2289,7.3337,7.4116,7.4993,7.6031,7.6662, &\n",
" & 7.7564,7.8537,7.9795,8.0533,8.1285 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": 41,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"sbdart_winterp = np.interp(wvref,wlalb,sbdartw)\n",
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = sbdart_winterp*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 89,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xl0W/Wd///n515dyb6yvMnYSbACJmZnKKVpC12AMqfQSQhLIZ0utBQodIAz01NKt5mWLxRmBtpO1yltShlIw/Cd/tpyQqHQFkrZ2iFAApQCDZshMlmMvMq61nbv5/eHZCfBkizZ1gLf9+OcnBN0r/R5+Uo47/vR576v0lojhBBCCCGEaCxGvQMIIYQQQgghZpNCXQghhBBCiAYkhboQQgghhBANSAp1IYQQQgghGpAU6kIIIYQQQjQgKdSFEEIIIYRoQFKoCyGEKItSSiul+uudQwgh/l8hhboQQiwCpdQnlVJPKaUcpdROpdQPlVLt9c71ekqpdyil7lRKjSmlRpRSjyilzq13LiGEELNJoS6EEAuklPoccC3weaANOAbYD7hbKeWvZ7Y9KaWOBe4F7gf6gTBwEfB3VR7XV83XF0KINysp1IUQYgGUUq3AlcA/aq1/o7XOaK1fBj4E7A+cnd/PVEr9s1LqRaVUXCm1WSkVyW87RCl1d36Ge6tS6kN7vP5qpdTjSqkJpVRUKXXFHtv2zy9HOUcptU0pFVNK/UuJuN8A1mutr9Vax3TOZq31nuNdoJR6IZ/lV0qpZUV+7jal1E+VUq8ppV5RSn1FKWXkt31SKfVHpdS3lVLDwBWFXkMIIURpUqgLIcTCvAtoAm7d80Gt9SRwJ/D+/EOXAh8BVgGtwHmAo5QKAncDtwDdwIeB65RSh+WflwA+AbQDq4GLlFKnvy7De4CDgb8FLldKHfr6kEopGzgW+EWxH0QpdSLw7+ROMpYCrwD/U2T375P79uAA4Ph8xj2X0LwTeAnoAf612JhCCCGKk0JdCCEWpguIaa2zBbbtyG8H+BTwFa311vxM9pNa62HgFOBlrfWNWuus1vpx4JfAWgCt9X1a66e01p7W+s/A/yVXGO/pSq31lNb6SeBJ4C0FsnSQ+52/o8TP8jHgv7TWW7TWKeDLwLFKqf333EkpZZI7ofiy1jqe/wbhP4CP77Hbdq319/M/01SJMYUQQhQhhboQQixMDOgqsg57aX47QAR4scA++wHvzF/cOaaUGiNXMC8BUEq9Uyn1h/wSk3HgH9hd/E/bucffHaClwDijgJfPVMwycrPowMy3AsPAvq/brwuw9tw3//c994uWGEcIIUQZpFAXQoiF+V8gBXxwzweVUi3kLtL8ff6hKLCiwPOjwP1a6/Y9/rRorS/Kb78F+BUQ0Vq3AT8CVKUhtdZOPuuZJXbbTu7EYfpnCJK74PTV1+0XAzJ77gssf91+utKMQggh9iaFuhBCLIDWepzcxaTfV0p9QCll5ZeK/H/AILAhv+tPgKuUUgeqnCOVUmHgDuAgpdTH88+1lFJv32OdeQgY0VonlVLvAD66gLhfAD6plPp8fmyUUm9RSk2vQ/+/wLlKqaOUUgHg34BN+aUte/7Mbv7n+1elVEgptR+5Nfg3LyCbEEKI15FCXQghFkhr/XXgn4FvAhPAJnIz5X+bX+sN8C1yxe3v8vvcADRrrePASeTWfG8nt4zlWiCQf97FwNeUUnHg8vxrzDfnn4AT839eUkqNAD8md9ErWut7gK+SWyO/g9w3AB8u8nL/SO5C15eAh8jN/P/XfLMJIYSYTWkt304KIYQQQgjRaGRGXQghhBBCiAYkhboQQgghhBANSAp1IYQQQgghGpAU6kIIIYQQQjSgQjfoKKq9vV0vW7asWlmEEEIIIYR403v22WdjWut95tqvokJ92bJlbNiwYe4dhRBCCCGEEAWtXLnylbn3kqUvQgghhBBCNCQp1IUQQgghhGhAUqgLIYQQQgjRgKRQF0IIIYQQogFJoS6EEEIIIUQDkkJdCCGEEEKIBiSFuhBCCCGEEA1ICvU3gAsvvJA1a9bs9dgVV1zBypUr65SoOt6MP5MQQgghxHxVdMMjAYODg6xfv54tW7awc+dO/H4/4XCYww8/nDVr1uxVaK5bt46DDz6YE044oX6BqyCbzfLrX/+a3/72tzz33HNMTk4SDAbp7+/nfe97H6effjpNTU31jimEEEII8YYmhXoFnnnmGS688EJ8Ph+rV6/mgAMOIJVKEY1Gefjhh7Fte69C/frrr+eUU055UxXqo6OjXHrppTz11FMcccQRfOQjH6Grq4t4PM7jjz/Ot7/9bZ544gmuueaaekcVQgghhHhDk0K9Atdffz3JZJJbbrmFgw46aNb2WCxWh1SLJ5vN4rougUCg4HatNV/84hd56qmnuOyyy/jwhz+81/azzz6bbdu2cc8999QiblmSySQ+nw+fTz7qQgghhHhjkeqlAtu2baOtra1gkQ7Q1dUFwPbt2zn11FMBuOOOO7jjjjtm9nnsscdm/r5p0yZ++tOf8vTTT5NOp1m+fDlnnXUWZ5111rzyvfzyy/zP//zPzLIc13Xp6+vjrLPO4vTTT99r33Xr1nH99dfzs5/9jNtuu4177rmHWCzGddddV3Sd+IMPPsiWLVt4//vfP6tIn7Z8+XLOO++8vR7bsmULP/nJT3j66afJZrPsv//+rF27dlamYp5//nnWrVvH448/ztTUFPvuuy+nnHIKZ599NqZpzux3xRVXcMcdd3D33Xfzve99jz/+8Y+Mjo5y2223sWzZsrLGEkIIIYRoFFKoV6C3t5dXXnmFe++9lxNPPLHofh0dHXzta1/j8ssv561vfStnnHHGrH1uvfVW/v3f/52/+Zu/4bzzzqO5uZlNmzZxzTXX8Oqrr/KZz3ym4nyPPfYYW7Zs4T3veQ/Lli0jmUxyzz33cPXVVzM6Osq555476zlf/epXCQQCfOxjH0MpNXOyUcjvf/97AD74wQ+WnemBBx7g85//POFwmLPPPhvbtvnd737H1Vdfzauvvsoll1xS8vl7Ljdau3Yt4XCYBx98kO9///s8//zzXH311bOec8kllxAOhzn//POZmprCtu2y8wohhBBCNAop1Ctw/vnns2nTJr7whS+wfPly3vKWt3D44Yfztre9jb6+vpn9mpubWbVqFZdffjn77rsvq1at2ut1YrEY3/zmNznppJP413/915nH165dyze/+U3++7//mzPPPJPe3t6K8q1evXrWbPxHP/pR/uEf/oGbbrqJj3/847OWgLS0tHDdddeVtTTkxRdfBCj6jcLrua7L17/+dZqbm1m/fj377LMPAB/60If49Kc/zfr161mzZg3Lly8v+hrf/OY3yWQy3HjjjRx44IEA/P3f/z1f/vKX+c1vfsOpp57KO97xjr2es2LFCq666qqyMgohhBBCNCppz1iBI488kptvvplTTjmFyclJbr/9dq655hrWrl3LBRdcwODgYFmvc88995BOpznttNMYGxvb68973/tePM/jkUceqThfc3PzzN9TqRRjY2NMTExwzDHHkEgkePnll2c956Mf/WjZ67cTiQQAwWCwrP2fffZZdu7cyamnnjpTpANYlsUnPvEJPM/j/vvvL/r8kZER/vznP3PcccfNFOkASqmZ5TV/+MMfZj3v7LPPLiufEEIIIUQjkxn1CvX393PFFVcAsGPHDjZv3sxtt93G448/zuc+9zluvvlmLMsq+RrTBfPFF19cdJ+RkZGKszmOw49//GPuvvtudu3aNWv7xMTErMdKzWa/3nSB7jgOra2tc+6/fft2AA444IBZ21asWAHAq6++Oq/n9/X1YRhGwefvt99+c2YTQgghhGh0UqgvwNKlSznllFNYvXo1n/rUp3jyySd5+umnOeqoo0o+T2sNwJVXXll0Tfi+++5bcZ5/+Zd/4aGHHuKMM87g6KOPpq2tDcMw+OMf/8gtt9yC53mznlNJv/MVK1bw17/+la1bt/L2t7+94ny1Ij3chRBCCPFmIIX6IlBKccQRR/Dkk08yNDQ05/6RSASA9vZ23vnOdy5Khng8zkMPPcSqVav453/+5722zWcZTSEnnngiv/71r9m4cWNZhfr0ycZLL700a9v0Y6VOSKY7tRR6/ssvv4znefM6oRFCCCGEeCOQNeoVePjhh8lms7MeTyaTPPzww8DeyzRs22Z8fHzW/u9///vx+/2sW7eOZDI5a/vk5CTpdLqibIaReyunZ+unxWIxNm7cWNFrFXPcccdx9NFH89vf/paf//znBfeJRqPceOONABxyyCEsWbKE22+/fa8e89lslg0bNqCU4vjjjy86XmdnJ0ceeSQPPPAAL7zwwszjWuuZMd73vvctxo8mhBBCCNFwZEa9At/61rcYHx/nuOOOo7+/n6amJnbt2sVvfvMbtm3bxurVq+nv75/Z/4gjjuCRRx7hpptuYsmSJSilOPnkk+np6eFLX/oSV199NWvXrmXVqlUsXbqU0dFRXnjhBe677z5+/vOfV9T7OxgMcswxx3DXXXcRCAQ4/PDD2bFjB7feeiv77rtvwROGSimluPbaa/nsZz/Ltddey5133slxxx1HOBwmHo/zxBNP8MADD8y0rjRNky984Qt8/vOf55xzzuGMM87Atm3uvvtunnrqKc4999w518hfdtllXHjhhVxwwQUz7Rkfeugh/vd//5cPfOADszq+CCGEEEK8WUihXoFLL72U+++/nyeeeIJ7772XyclJWlpa6O/v55xzzmHNmjV77f+lL32Ja6+9lhtvvHGmY8rJJ58MwKmnnsry5cu5+eabufXWW4nH47S3t7Pffvtx0UUXEQ6HK8531VVX8f3vf58HH3yQX//610QiES6++GJ8Ph9XXnnlwg8AuR7xP/nJT7jjjjv43e9+x8033zxzHA488EAuu+yyvY7Dcccdx3XXXccNN9zLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s]*3.25,s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ocean Color\")\n",
"plt.savefig(\"colorgrid_ocean.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 43,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 44,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = sbdart_winterp*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 45,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"Text(0.5,1,'Ocean albedo with different stars')"
]
},
"execution_count": 45,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8VPW5+PHPk5nsCVvYkwAB2VcxbAURRRGFam3VotYNW9xqtYut3t5rrde22nt/7b0WW691oXprsdpbSxFUFEGQCATZERQhkBAgIYGQPZPM8/vjnIQhJJkAmazP+/Wa15zle8555kxynjnne873K6qKMcYY05Cwlg7AGGNM62fJwhhjTFCWLIwxxgRlycIYY0xQliyMMcYEZcnCGGNMUJYsTKslIgNEREXE646vEpFvN9G6HxeR/22KddWz/n4iUiQingbKqIhccI7rnyEiWQHjO0VkhjssIvKyiBwXkQ3utHtF5KgbU8K5bNN0bJYs2jERuUNEtotIiYgcEZE/iEiXlo6rI1DVg6oap6pV0LSJrp7tjVTVVe7oNOAKIElVJ4pIOPAbYJYbU16o4qiLiCwSkSebe1nTtCxZtFMi8kPgaeBhoDMwGegPrBCRiJaMzYRcfyBDVYvd8V5AFLDzXFbW0NlRa1d9VmqagKraq529gE5AEXBjrelxQC4w3x33AP8CfAkUApuAZHfeMGAFkA/sCVwXMAfYDJwEMoHHA+YNABS4HTgIHAN+2kCsjVmX1x1fBfwK2OCW/wfQLaD8ZGAdcALYCswImJcCrHY/5wpgIfC/AfOvwTmYnnC3M7yeeH8O/M4dDgeKgf9wx6OBMqBbYOzAL4Aqd14RsNAtr8A9wBfudp8FpJ7tRgOLgOPALpwfAVkB8zOAy4G73O1Uudv6ixujuuMrG/H9LgL+ACxzl70ciAT+0/1OjwLPAdFu+RlAFvBDIAc4DNzpzlsA+IAKd/v/rOOzCfBbd9mTwHZgVH3LAo9w6m92F3BdwLruAD5215cHPAlc4H73BTh/j6+39P9oW3y1eAD2CsGXCrOBStyDbK15fwL+4g4/7P5jDnX/YccCCUAszoH7Tvdgd6H7TzbCXW4GMBrnzHSMe/D4mjtvgHtg+qN7gBsLlFP/wbcx6wpMFofcA0ks8DfcAz6Q6B4crnbXdYU73sOdn4ZzKSYSmO4eaKqXHeIeFK/ASQA/BvYCEXXEexmw3R3+invQWh8wb2sDsX+71roUWAp0AfrhJPLZ9eynp4A1OIkoGdhBHcnCHb4DWBswr3Yswb7fRTgH1qnuvozCOfgucbcfD/wT+FXAd1gJPOHuv6uBEqBrwPqebODv9UqcHypdcP4OhwN96lsWuAHo68b2Tfe76xPw2SuBB9zPFo2TMH8a8FmmtfT/aFt82WWo9qk7cExVK+uYd9idD/Bt4F9VdY86tqpzPXsuzmWMl1W1UlU34xyYbwBQ1VWqul1V/aq6Deef8ZJa2/m5qpaq6lacX/lj6wq0kesK9Kqq7lDnEsu/ATe6l0m+BSxT1WXuulYA6cDVItIPmAD8m6qWq+pHOAe7at8E3lbVFarqw/kFHY2TDGpLAwa7lcTTgReBRBGJc+Ne3UDsdXlKVU+o6kHgQ2BcPeVuBH6hqvmqmgk8c5bbCdTg9+v6h6p+rKp+nGS/APi+u/1C4JfAvIDyPuAJVfWp6jKcM4GhjYzHh5OAhuGcWX2mqofrK6yqb6hqtvs9v45zZjYxoEi2qv7O/Wyl7vr7A31VtUxV1zYyLhPAkkX7dAzoXs/12j7ufHB+oX5ZR5n+wCQROVH9Am4BegOIyCQR+VBEckWkAOdSSvda6zgSMFyCcwnsDI1cV6DMgOEDOL9ku7sx31Ar5mnu5+0LHNdT1/Crl63WN3DcPUBm4pytnMY9+KTjJIbpOMlhHc6v8HNJFo3aT26MtT/7uWrw+3UFbqsHEANsCij/jju9Wl6tHycNfZbTqOpKnMuCzwI5IvK8iHSqr7yI3CYiWwJiGcXpfzOZtRb5Mc4Zywb3rrH5jYnLnM6SRfuUhvNr8OuBE91fv1cBH7iTMoFBdSyfCaxW1S4BrzhVvded/xrOJYlkVe2Mc/1azjHWs11XcsBwP5xfjcfcmF+tFXOsqj6FczbVVURiay1bLRvnAAo4t5662zlUTwyrcS45XQhsdMevxPl1+1E9y5xv886HOfOzn6tg3y+cHu8xoBQYGVC+s6o2KhnQiM+uqs+o6kXACJzLgg/XtayI9Me5xPldIEFVu+Bckgv8mzltGVU9oqrfUdW+wN3A78/1luWOzJJFO6SqBbgVsSIyW0TCRWQA8FecishX3aIvAP8uIoPde/PHuJdXlgJDRORWd9lwEZkgIsPd5eKBfFUtE5GJwM3nEe7ZrutbIjJCRGJwrpG/qc7tqf8LfFVErhQRj4hEuc8iJKnqAZyzgZ+LSISITAO+GrDOvwJzRGSme5vpD3GS7bp6YlgN3AbsUtUK3PoIYL+q5tazzFFgYJDP1pC/Ao+KSFcRScK5Jn+ugn2/p3HPtP4I/FZEegKISKKIXNnI7TX42d1tT3L3fTFOBb2/nmVjcZJBrrvsnThnFvUSkRvcfQbODQIasH7TSJYs2ilV/TXOnU7/iXOHyXqcX5QzVbXcLfYbnIPQe26ZF3HucCkEZuFck87GuVTyNE7lMMB9wBMiUgg85q7jXJ3tul7FqfQ8glNZ+T3382YC17qfOdf9rA9z6m/8ZmASzt0/PwNeqV6hqu7BqfP4Hc6v6K8CX3UTQV3W4dRpVJ9F7MI5wNV3VgHw38D17oNy51Lf8HOcS0/7cb6vVxsuXr9GfL91+QlOpf8nInISeJ/G10m8CIxwLxu9Vcf8TjjJ6DjOZ8wD/qOuZVV1F/D/cM6ej+LcHPFxkO1PANaLSBHOWeyDqrqvkbEbl6ha50fGGGMaZmcWxhhjgrJkYYwxJihLFsYYY4KyZGGMMSYoSxbGGGOCajctMnbv3l0HDBjQ0mEYY0ybsmnTpmOq2iNYuXaTLAYMGEB6enpLh2GMMW2KiDSq6Ri7DGWMMSYoSxbGGGOCsmRhjDEmKEsWxhhjgrJkYYwxJihLFsYYY4JqN7fOGmNMW6Kq+KqUSr8fX5VS5Vcqq/xU+p1hX5XffXfH/X63jFvW76eySqn0K706RXJhv64hjdeShTGmXais8lNR5aei8tS7r0rddz/l7nv1uK/KT0XAfF/AMr4qv7s+rZnnCxiurFIq3DKVfmcdle7BPjABVJetHq8uX50QmsrcMX1YeLMlC2NMK6fqHDzLfH7KfFWU+/yUVVY5w5WnppVX+imvrKLM57yXV/rd6VU186rLVbjjFVVOmeoEcGqenwp3fkWlnyY89taI8IYRHiaEe8MI9zjDXk8Y4R5xxgOGo8M9eKO8eMOcad6a8qeGPTXz5LRy3jBnHZ4wwRt2aponTAj3OMt5w04t56kZdsY7x4Q3/YevxZKFMe2c36+U+qooqaiitKKKEl8lpdXDFVWU+Kooq6iipKKSUp+fUp9zkC+tqKLU57zK3OEyXxWlPj/lvlPjZW5iOJ9+1MI9QqTXQ6Q3jAhvWM27M+xMj4vyutM9RHhqlfOcKl8zHDAt3FP9LjXTqw/0ER4P4d5TB/8IT1jNgdjpjt2AJQtjWhVVpcznp6i8kqLySooD3osrqpz38kqKy52De1F5JSXu9JKKKoornERQXFFJSbmbIHxVZx1HVHgYMRFeosM9RIY7v5qjwz3ERHjpFushKjyMKHdadISHKG8YkeEeosKdA3tUuFMm0nuqbPX0SO+p6ZFeDxFe55eyad0sWRjTRHxVfgrLKiks83Gy1H13x53plRSV+ygqr+RkWSVFZc7Bvvq9sMxHcUVVo69lR4WHERvhJTbSS0yEh5gID3GRXnrGRzoH+ggPsREeoiOc+YHD0REeYtwDfUyEp+bAHxPhJSo8zH5RmzOENFmIyGycjuo9wAuq+lSt+ZHAK8BFOJ20f1NVMwLm9wN2AY+r6n+GMlZjAMp8VRSU+jhR4nPfKygodYZPVr+XVdaMnyyrnlfZqF/w0eEe4qO8xEV6nfcoLwmxMcRHhRMf5SU20kNcZDhxUV7iIj3ERjhlY2teHuc9wmu/xk2zClmyEBEP8CxwBZAFbBSRJaq6K6DYXcBxVb1AROYBTwPfDJj/G2B5qGI07ZffrxSWVZJfUkF+cQUn3PfjJRUcL3GSwPFiHydKKzhR4iSHE6UVlPn89a5TBDpFhdMp2kvn6HDiI8MZ2D2OTtFe4qPC6RwdTqcoZ7hTtHPwj4/y0slNBHGRXrwee7TJtE2hPLOYCOxV1X0AIrIYuBbnTKHatcDj7vCbwEIREVVVEfkasB8oDmGMpo1QVQpKfRwrKudYkXPgzwsYzi+uIK+4vGb4eImv3ss53jChS0wEXWPC6RoTQXK3GEYnhtM1NoLO0c5Bv2vMqeEuMe7BP9JLmP2aNx1UKJNFIpAZMJ4FTKqvjKpWikgBkCAiZcBPcM5KfhTCGE0LUlVOllWSW1hOTmEZuYXlzquonGOFFe57OXnF5eQVVVBZz8G/S0w43WIjSIiNIKV7LBf170a32HC6xUbSLTacLjERdIuJoGtMBF1inYO+XZM35uy01grux4HfqmpRQ//UIrIAWADQr1+/5onMBKWqFJZXknOyjCMF5Rw9WcbRwjJyTrrDJ8vIcRNDeeWZl30iPGF0j4uge3wkvTtHMSqxE93jIukeF0lCXETNe7dYJwnYpR1jQi+UyeIQkBwwnuROq6tMloh4gc44Fd2TgOtF5NdAF8AvImWqujBwYVV9HngeIDU1NQSP5Jjaqi8HZZ8o43BBKYcLyjhSUOa8nzw1XlJxZmVvfJSXXp2i6BkfSWr/rvTsFEWPuEh6doqkR3wkPeMj6REXRado++VvTGsTymSxERgsIik4SWEecHOtMkuA24E04HpgpaoLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ocean albedo with different stars\")\n",
"#plt.savefig(\"ocean_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/combinedspec-snow_ice.ipynb
+802
View File
@@ -0,0 +1,802 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"sbdarti = np.concatenate((np.array([.970,.970,.970,.970,.970,.970,.970,.970,.970,.970,.970,\n",
" .971,.972,.973,.974,.975,.975,.975,.975,.976,.977,.978,\n",
" .979,.980,.980,.980,.980,.980,.980,.980,.980,.981,.982,\n",
" .983,.984,.985,.985,.985,.985,.986,.987,.988,.989,.990,\n",
" .990,.990,.990,.990,.990,.990,.990,.990,.990,.990,.990,\n",
" .988,.987,.986,.985,.983,.982,.981,.980,.978,.977,.976,\n",
" .975,.973,.972,.971,.970,.968,.967,.966,.965,.965,.965,\n",
" .965,.965,.963,.962,.961,.960,.953,.952,.951,.950,.950,\n",
" .950,.950,.950,.948,.945,.943,.940,.938,.935,.933,.930,\n",
" .928,.925,.923,.920,.918,.915,.913,.910,.908,.907,.906,\n",
" .905,.903,.902,.901,.900,.898,.895,.893,.890,.885,.880,\n",
" .875,.870,.865,.860,.855,.850,.843,.842,.841,.840,.835,\n",
" .830,.825,.820,.810,.800,.790,.780,.771,.762,.753,.745,\n",
" .739,.733,.727,.720,.718,.715,.713,.710,.715,.720,.725,\n",
" .730,.733,.735,.738,.740,.742,.743,.744,.745,.745,.745,\n",
" .745,.745,.743,.742,.741,.740,.732,.724,.716,.710,.692,\n",
" .674,.656,.640,.630,.620,.610,.600,.584,.568,.552,.535,\n",
" .524,.513,.502,.490,.490,.490,.490,.490,.490,.490,.490,\n",
" .490,.492,.493,.494,.495,.495,.495,.495,.495,.495,.495,\n",
" .495,.495,.493,.492,.491,.490,.488,.485,.483,.480,.470,\n",
" .460,.450,.440,.424,.408,.392,.375,.320,.264,.198,.150,\n",
" .134,.118,.101,.085,.074,.063,.051,.040,.036,.032,.028,\n",
" .025,.025,.025,.025,.025,.028,.030,.033,.035,.039,.043,\n",
" .047,.050,.053,.055,.058,.060,.063,.065,.068,.070,.073,\n",
" .075,.078,.080,.083,.085,.088,.090,.093,.095,.098,.100,\n",
" .104,.108,.112,.115,.119,.123,.126,.130,.135,.140,.145,\n",
" .150,.153,.155,.158,.160,.163,.165,.168,.170,.173,.175,\n",
" .178,.180,.184,.188,.192,.195,.204,.213,.222,.230,.238,\n",
" .246,.254,.260,.254,.248,.242,.235,.206,.177,.148,.120,\n",
" .104,.088,.072,.055,.049,.043,.037,.030,.038,.035,.033,\n",
" .030,.028,.025,.023,.020,.023,.022,.021,.020,.018,.017,\n",
" .016,.015,.013,.012,.011,.010,.010,.010,.010,.010,.010,\n",
" .010,.010,.010,.012,.013,.014,.015,.017,.018,.019,.020,\n",
" .022,.023,.024,.025,.025,.025,.025,.025,.027,.030,.032,\n",
" .035,.040,.045,.050,.055,.059,.063,.067,.070,.074,.078,\n",
" .082,.085,.089,.093,.097,.100,.102,.103,.104,.105,.109,\n",
" .113,.117,.120,.124,.128,.132,.135,.130,.125,.120,.115,\n",
" .108,.100,.092,.085,.081,.077,.073,.070,.068,.065,.063,\n",
" .062,.058,.055,.053,.050,.048,.047,.046,.045,.042,.040,\n",
" .038,.035,.033,.032,.031,.030,.030,.030,.030,.030,.028,\n",
" .027,.026,.025,.025,.025,.025,.025,.025,.025,.025,.025,\n",
" .025,.025,.025,.025,.025,.025,.025,.025,.025,.025,.025,\n",
" .025,.025,.025,.025,.025,.023,.022,.021,.020,.018,.017,\n",
" .016,.015,.013,.012,.011,.010,.008,.007,.006,.005,.003,\n",
" .002,.001,.000]),np.zeros(264)))\n",
"wlalb2 = np.zeros(len(sbdarti))\n",
"for n in range(0,len(wlalb2)):\n",
" wlalb2[n] = 0.25 + (4.0-0.25)*float(n)/(len(wlalb2)-1)"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXcAAAEACAYAAABI5zaHAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8nFd97/HPb0bLaLc2y7JW77awncSWEyCQBEKoY8AuJCQO66W5hEJDKXChAdrATdoQlrI2obiUcpMLpCGF4AQbJ0A2IIvlON43Wd4ky1osWZu16/QPybJsy9ZoNKNZ9H2/Xnox88zR8/xsoq+OzznPecw5h4iIxBZPuAsQEZHgU7iLiMQghbuISAxSuIuIxCCFu4hIDFK4i4jEIIW7iEgMUriLiMQghbuISAxSuIuIxKC4cF04JyfHlZaWhuvyIiJRacuWLY3Oudyx2oUt3EtLS6moqAjX5UVEopKZHfGnnYZlRERikMJdRCQGjRnuZvZjM6s3s50X+dzM7HtmVmlm281sWfDLFBGR8fCn5/4TYOUlPr8RmDf0dQfwg4mXJSIiEzFmuDvnngeaLtFkDfCQG/QSMM3M8oNVoIiIjF8wxtwLgGMj3lcPHbuAmd1hZhVmVtHQ0BCES4uIyGgmdSmkc24dsA6gvLxcz/eboJ6+AQ6f7OBY02kGxvG36TG4ojiTrJSE0BUnImEVjHCvAYpGvC8cOiYB6u7r5+jJ0xxrPk1f/9nU7uztp7K+nQN17Ryob+PwydP0jyfVR4j3GosLMlg8M4PFBem8eV4uM6clBeuPICJhFoxwXw/caWaPAFcBLc652iCcNyp19/VT09xJdXMnXb39Y7Z3QH1bN1UN7Rxq7KCqoYPq5ov3xD0GpdkpzJ2eysrFM5g3PY2S7GTivf6PsHX29vO7PXW8dvQUj2+t4eGXjuAxBsO+IIMlBRlctyCX/AyFvUi0GjPczeznwHVAjplVA18G4gGcc/8GbABWAZXAaeAjoSp2snX39XOipYvjp7po7eq94POWzl6qm05zrLmTY02DPe261u6ArpWc4GVWTgpLCzP4yysKmJ2TQnF2MgkjQjsxzkNRVjK+eG/Af6YzVpRmATAw4Khq7OCJbcfZfLiJJ7Yd52cvH8VjsLRwGpcVZnBZ0TTeunA605I1jCMSLcy58Ax9l5eXu0C2HzjU2MH+urag1tLVOxjitS1dHD/VSW1LF7UtnTS294z5vWaQn+6jMCuZosxkirKSKMpMpjAziZRE//5hlJ2awIx0H2Y20T/KhDnnONjQwa9fq+GVQ03srGmho6efxDgPy4ozubx4GuUlmVwzP3dc/1oQkeAwsy3OufIx20VbuP/wuYN8dePeEFQEaYlx5E/zkZ+RxMyh/83P8FEwLYn0pHjOz97UxDjyM5JIiIvdkOsfcOw+3sovt1az5Ugzu4+30jfgyElNZEVpJsuKMynKSgIG/3J88R7eMCebxLiJ/+tCRC4Us+He2N5NXWtXUGtJ8HrIy/CR7osP6nljUVdvPy8caOSJbcd59Wgz1c2dF7TJTkng9bOzWVGayZrLC8jUqhyRoInZcJfIUt/WRWPb2eGr2pbOofH7ZmpOdbK8JJPH/voNETHkJBILFO4Sdj97+Shf/NUOVpRm8sY5OSyYkYZnKOMzkhK4alYWHo9CX2Q8/A33sO3nLrFv7YoiGtq6eXrPCb7/hwMXLO9cVjyN79x6BcXZyeEpUCSGqecuk6K1q5eaEePzO6pbuPfJ3XT19fPZty/gf79pFnFafSMyJvXcJaKk++JJzz87Yb0oP503z8/hnid2c//GvTy+tYZ/fd8y5k5PDWOVIrFDXSUJm/yMJB58/zIefP8y6lq7WPmd53ngmUr6+gfCXZpI1FO4S1iZGauW5LPp09ewcvEMvrFpH6v/9U8cauwId2kiUU3hLhFhepqP7992BQ++fxk1pzp5+7ef4z/+eIiBADdGE5nqFO4SMc704p/69DVcOz+Xe5/czdp1L1Ef5JvWRKYChbtEnLx0H+s+WM7Xb1rK9ppTvOWbz/Kb7VN2o1GRgGgppES0Q40dfObR19h69BSLC9J568I8Vl82U6tqZMrSHaoSM7r7+vnZy0d5cnstW482Y2a8cU421y+czruvKCQjWXsCydShcJeY1NjezY9eOMRTu09Q1dBBTmoiP/zgcpaXZIa7NJFJ4W+4a8xdokpOaiJ33biQP3z2Op64800kJ3h577/9mXXPHwx3aSIRReEuUWtJYQZPfPJNrFw8g/s27OWZffXhLkkkYijcJaplJMXz7VsvZ+70VP7hVzvp6O4Ld0kiEUHhLlEvMc7L125awvGWTr751L5wlyMSERTuEhOWl2TxgatK+MmfD7P1aHO4yxEJO4W7xIzPr1xAXpqPL/xyBz192nxMpjaFu8SMNF889/7lYvaeaNPqGZnyFO4SU24oy+MdS/L53h8qOdjQHu5yRMJG4S4x58ury/DFefjCL3doV0mZshTuEnOmp/n44qpFvHKoiaf31IW7HJGwULhLTLp5eSEF05L4x8d3cv/GvRw/1Tn2N4nEEIW7xKQ4r4fvrr2cBTPS+NELVXz4x6/Qq8f3yRSicJeYVV6axcO3X8UPPrCcA/Xt/OefDoW7JJFJo3CXmHdDWR7XL5zOd353gNoWDc/I1KBwlynhK6tfR/+A45+e3BPuUkQmhcJdpoSirGQ+du0cfrOjlsONHeEuRyTk/Ap3M1tpZvvMrNLM7hrl82Ize8bMtprZdjNbFfxSRSbmvcsLAfidlkfKFDBmuJuZF3gAuBEoA24zs7Lzmv0D8Khz7gpgLfBgsAsVmaiirGQWzkjjqd0Kd4l9/vTcrwQqnXNVzrke4BFgzXltHJA+9DoDOB68EkWC54ayPCoON9Hc0RPuUkRCyp9wLwCOjXhfPXRspK8AHzCzamAD8MnRTmRmd5hZhZlVNDQ0BFCuyMTcUJbHgIM/7NVTmyS2BWtC9TbgJ865QmAV8LCZXXBu59w651y5c648Nzc3SJcW8d/imRnkpSdq3F1inj/hXgMUjXhfOHRspNuBRwGccy8CPiAnGAWKBJPHY1y/KI/n9jfQ1dsf7nJEQsafcN8MzDOzWWaWwOCE6frz2hwFrgcws0UMhrvGXSQi3VCWx+mefl6sOhnuUkRCZsxwd871AXcCm4A9DK6K2WVm95jZ6qFmnwU+ambbgJ8D/8s5p71WJSK9YXY2yQlefqdVMxLD4vxp5JzbwOBE6chjd494vRu4OriliYSGL97LtfNz+d2eOu5dsxiPx8JdkkjQ6Q5VmZLetiiPutZudh5vCXcpIiGhcJcp6S0Lp+MxeFpDMxKjFO4yJWWlJFBemqVwl5ilcJcp64ZFeew90cbRk6fDXYpI0CncZcq6cckMANZvO/+2jQv19Q/w7L56/mvzUf5r81GqGtpDXZ7IhPi1WkYkFhVmJnPlrCz+q+IYH79uLt6LrJr57y3V3P/bvTS0dQ8fS4jzsPqymXzyrXMpyU6ZrJJF/Kaeu0xpf3X1LI41dfLbnScu+Mw5xzc27eWzv9hGSVYy6z64nD/d9VY2furN3Ly8kA07avnMo9vCULXI2NRzlynthrI8SrOTWff8QVYtmYHZYO/dOcfdv97Fwy8dYe2KIv753UuGe/YF05K4791LmJnh45tP7ae2pZP8jKRw/jFELqCeu0xpXo9x+5tns626hc2Hm4ePP7u/gYdfOsLtb5rFfSOCfaRVS/IB2Ljjwl6/SLgp3GXKu3lZIZnJ8TzwTCXOOfoHHPdv2EtJdjJ/v3LhRe9gnZ2bysIZaWzcWTvJFYuMTeEuU15Sgpfb3zSL5/Y38MVf7eS/t1Szr66Nz/3FAhLiLv0jsmpJPhVHmqlr7ZqkakX8o3AXAT5x3Vw+du1sfv7KUT7/39u5rDCDdwwNu1zKqiX5OAcbd6j3LpFF4S7C4D7vd61cyJffVUZygpcvvaNseHL1UuZOT2V2Tgp/rNT2wRJZtFpGZIiZ8ZGrZ/GB15cQ7/W/3zN3eiqHGjtCWJnI+KnnLnKe8QQ7QGlOCkeaTjMwoEcYSORQuItMUHFWMj19A9S1aVJVIofCXWSCSoe2HzjcqA3IJHIo3EUmqCQ7GYAjJzXuLpFD4S4yQfkZPuK9xpEm9dwlcijcRSYozuuhKDNZPXeJKAp3kSAozk7miB76IRFE4S4SBKXZKRw5eRrntBxSIoPCXSQIirOSae/u42RHT7hLEQEU7iJBUZpzZsWMhmYkMijcRYLgzKP2NKkqkULhLhIEhZlJmKnnLpFD4S4SBIlxXooyk9l3oi3cpYgACneRoFlekknFkSatmJGIoHAXCZIVpVk0tvdo+1+JCAp3kSC5clYmAJsPN4W5EhE/w93MVprZPjOrNLO7LtLmFjPbbWa7zOxnwS1TJPLNyU0lKyWBlw8p3CX8xnwSk5l5gQeAG4BqYLOZrXfO7R7RZh7wBeBq51yzmU0PVcEikcrMWFGaqZ67RAR/eu5XApXOuSrnXA/wCLDmvDYfBR5wzjUDOOfqg1umSHRYUZrFsaZOTrTowR0SXv6EewFwbMT76qFjI80H5pvZn8zsJTNbGawCRaLJlbOyAHhFvXcJs2BNqMYB84DrgNuAfzezaec3MrM7zKzCzCoaGhqCdGmRyFGWn44v3sO2Y6fCXYpMcf6Eew1QNOJ94dCxkaqB9c65XufcIWA/g2F/DufcOudcuXOuPDc3N9CaRSJWnNfDrJxUqhraw12KTHH+hPtmYJ6ZzTKzBGAtsP68No8z2GvHzHIYHKapCmKdIlFjTm4KBxu01l3Ca8xwd871AXcCm4A9wKPOuV1mdo+ZrR5qtgk4aWa7gWeAzznnToaqaJFINjs3lerm03T19oe7FJnCxlwKCeCc2wBsOO/Y3SNeO+AzQ18iU9qc3BQG3OAmYgtmpIW7HJmidIeqSJDNyU0F0LiLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wlalb2,sbdarti)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [],
"source": [
"ids = [4,5,7,9,11]"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"clearice\n",
"coarsesnow\n",
"finesnow\n",
"mediumsnow\n",
"tapwater\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 148,
"metadata": {},
"outputs": [],
"source": [
"weights = np.array([0.1,0.45,0.15,0.2,0.1])\n",
"weights[0] = 1.75*weights[0]\n",
"weights[-1] = 1.75*weights[-1]\n",
"weights[1:-1] -= (weights[0]+weights[-1])/1.75*0.75/len(weights[1:-1])"
]
},
{
"cell_type": "code",
"execution_count": 149,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0.175 0.4 0.1 0.15 0.175]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 150,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 151,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 152,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 153,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 154,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f515de62cd0>"
]
},
"execution_count": 154,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXoAAAEACAYAAAC9Gb03AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd4VFX6wPHvmT6TTgoJJJBCC5DQmwgixQKKFSvYdu3rurq76rqs4MpaVvzZVteGbUVFXHtBVGABQZAmvQUCJIT0Xqfc3x83GYlJSJuQBN7P8+SZzL3nnrkThjcn7z33PUrTNIQQQpy6DO19AkIIIdqWBHohhDjFSaAXQohTnAR6IYQ4xUmgF0KIU5wEeiGEOMVJoBdCiFOcBHohhDjFSaAXQohTnAR6IYQ4xZna+wQAwsLCtNjY2PY+DSGE6FQ2btyYo2laeGPtOkSgj42NZcOGDe19GkII0akopQ41pZ2kboQQ4hQngV4IIU5xjQZ6pdTrSqkspdT247Z1UUp9q5TaV/0YUr1dKaWeU0rtV0ptVUoNbcuTF0II0bim5OjfBP4FvH3ctgeA7zVNe1wp9UD18/uB84He1V+jgH9XPwohOgGn00laWhoVFRXtfSriODabjejoaMxmc4uObzTQa5q2UikV+6vNFwETqr9/C1iBHugvAt7W9NVMflRKBSulojRNy2jR2QkhTqq0tDQCAgKIjY1FKdXepyMATdPIzc0lLS2NuLi4FvXR0hx91+OC9zGga/X33YEjx7VLq94mhOgEKioqCA0NlSDfgSilCA0NbdVfWa2eXqlpmqaUavZ6hEqpW4BbAHr06NHa0/Apl8dFQWUBueW55FXk4fK48Lf44zA5cJgclLnKMCgDPQJ7YDVa2/t0hfApCfIdT2v/TVoa6DNrUjJKqSggq3p7OhBzXLvo6m11aJr2CvAKwPDhw1u9cK3b46bMVUaFq4JyV7n3q8xVRpmzjPzKfAorC1EojMpIXkUe2eXZOD1O3B43BZUF5FXkkVeRR0FlQZNe06AM2Iw2NDQ0TcOjeQDo5t+N7v7dsZvsWE1WbEab/r3RShdbF2KDYukR0IPuAd0xG1qWcxPidDJ37lz8/f3505/+1Oq+NmzYwNtvv81zzz3ngzPrHFoa6D8Drgcer3789Ljtv1NKvY9+EbawLfPzn6V8xls73iKnPIf8inw0mv77wmKwEO4Ix89tIrTAQ0yllWEVdsLKexJS3IPg9CLseaUYDSZQCg8aHjx40DAoAx6LiWI/A2UBZqqCHFQFOqgKtlMRZGO/oZSDFXnkVWRQrCqp8FRS6aqk3FWOS3N5z8GojPQK7sX46PEMCh9E/9D+hDsavclNCNFCLpeL4cOHM3z48PY+lZOq0UCvlHoP/cJrmFIqDZiDHuA/UEr9BjgEXFHd/CtgKrAfKANubINz9nKYHHTz70ZyeDJh9jD8zf7YTXb9y2jDUeLCkZ6HNasQh8eEzW3AlZmJM/0oWkYmzqNHcefn133PZjOWmEjMwRaUx4mmaaCMYLCAUf/yuBRB+SW4UrL1PrRffsmMOb4zsxlTWBim8BgsPWLQ+vUiZ2gshwIrSS1KZUvWFhZsX+D9a6BXcC+uSbyGCHsENpONSL9Iov2jMRqMbfmjFKJDefvtt5k/fz5KKZKTk0lISPDuS0lJ4c477yQ7OxuHw8Grr75Kv379+Pzzz5k3bx5VVVWEhoaycOFCunbtyty5c0lJSeHAgQP06NGDW2+9lfnz5/PFF19QUlLCXXfdxYYNG1BKMWfOHC677DKWLl3KnDlzqKysJCEhgTfeeAN/f/92/Im0TlNm3VzdwK5J9bTVgDtbe1JNdUZ2MMmbY/GUleMpP4o7Lw9Xbi6u3BzcuXlolZXetmXVX8pmw9ytG+Zu3bD17485zB+zvwGTpQwThRg9WRjzt6IK1ukHGq1gMIGzDOr7i8FgQrOG4CYYlycAl8uPqopA3CoEFd4DT5UBV24erqxMyjZtwvXFl1iBgfHxjD57AjeffSfaWX3YXbSP7Tnb+Xjfx/x97d9rvUSAOYApsVOYPXq2pHrESfPw5zvYebTIp3327xbInAsHnLDNjh07mDdvHmvWrCEsLIy8vLxaaZZbbrmFl156id69e7Nu3TruuOMOli1bxplnnsmPP/6IUorXXnuNf/7znzz11FMA7Ny5k9WrV2O321mxYoW3r0ceeYSgoCC2bdsGQH5+Pjk5OcybN4/vvvsOPz8/nnjiCf7v//6Phx56yKc/i5OpQ9S6aanyrdvIffMtDA4HBrsdY0gIptBQrPHxGMNCMYdHYImJwBJoQFVmYSg/hqEyA5WfCvkboeAw5DuhZlCvjBAcA+F94Kz7IPECsAXp+zQNyvOhJAtKMqsfj0FZLqo8H1N5PqayPCjNgdy14HH90m+AA7qGwjmDqLJNoiTNRMmmPeS9/R/yFryOMTiY7tOm0f+SS5g5fSaHig9R7tSvL6QVp7EhcwMf7fuIzLJMXB4Xk3tM5pzYc+hi69IOP3Uh2tayZcuYMWMGYWFhAHTp8svnvKSkhDVr1jBjxgzvtsrqAV1aWhpXXnklGRkZVFVV1ZqKOH36dOx2e53X+u6773j//fe9z0NCQvjiiy/YuXMnY8eOBaCqqooxY8bUObYz6dSBvsuNNxB6/SwoPAx5ByHvgP5YcAjyV0PGIUj91YjEFgQhcRCZBIkXQkgsdInTHwOjwdjAj0QpcHTRvyL6nfjEnBWQtRMyt+u/EMrz9V8OaT9hyf+CLkCXCWfjnruQ0p3pFC9dSsHixeQvXIhjzGh6Pv88xiD9z8QRkSO4pPclhNnDeH3760Q4IvjHun/wj3X/YHz0eP5+xt8JtYe29kcpRB2Njbzbg8fjITg4mC1bttTZd9ddd3Hvvfcyffp0VqxYwdy5c737/Pz8mvwamqYxZcoU3nvvPV+ccofQqQO9+vFF+PYhffRcw2SHkJ4Q3BN6joHgHvr3IT317+0hbX9iZht0H6p//VpRBmz/EFbOx/jxLAJvXkbg+JG458yh4KOPyXrqKQ5edDHG0FD8xowh+JKLscTG8oehf+DKvlcS5RfFxsyNrD+2ngXbFnDBxxdw+6DbmdV/lkyLE6eEiRMncskll3DvvfcSGhpKXl6ed19gYCBxcXEsXryYGTNmoGkaW7duZdCgQRQWFtK9u37bzltvvdWk15oyZQovvPACzzzzDKCnbkaPHs2dd97J/v376dWrF6WlpaSnp9OnTx/fv9mTpFMHeqIGw9i7oUu8PkrvEg8Bkfrou6MKjIIz7oLokfDmNHiqL7irMPa/iNCL/441Po7c199Ac7nIffVVcl9+GfvwYYRcdTVR06ailGJ45HCGRw7nvNjzmL9hPk9ueJIP931ITEAM94+4nx6BHeu+BCGaY8CAAfz1r3/lrLPOwmg0MmTIEI5fr2LhwoXcfvvtzJs3D6fTyVVXXcWgQYOYO3cuM2bMICQkhIkTJ3Lw4MFGX2v27NnceeedDBw4EKPRyJw5c7j00kt58803ufrqq71poXnz5nXqQK80rdVT2Ftt+PDh2mlZj377f2Hft+AXBj8tAI8bxtwJ4+4FawDOzEwKP/mUwo8+ourQIfzOOIOoR/6OufsvNxtrmsa7u99lZdpKtuVsw6N5eHXKq/QP7S8zdUSz7dq1i8TExPY+DVGP+v5tlFIbNU1rdK6oBPqOougofDcXti4C/64waQ4MuhoMBjSPh4JFi8h8cj4KiLjvzwRfcQXKULuCRUZJBjd+cyPpJekoFCG2ELo6ujIgbACjo0ZzTs9zJL0jTkgCfcclgf5UcuQnWPIApG+AIbPggqf16Z1KUZWWTsbfZlO29kdMUVGE3nA9IddeizL9koE7VnqMz1M+p8pTRW55LmnFaWzP2U6xs5iZiTO5b8R9EuxFgyTQd1ytCfSdO0d/KooZAb/5FpbPg1VPweb/QNckuOQlLNED6fH66xQvWUL++4vIfOxxSv63kugXX8BgswEQ6RfJzck31+rSo3n450//5J1d7+D0OJk9enZ7vDMhRDuRFaY6IoMBJj0El78O4++D0ixYMAWObkEpReD559PjzTeIfPhhSteuJe13d+E57uawOt0pA/ePuJ9Z/WexaM8i1mWsO4lvRgjR3iTQd2QDL4OJf4VbV4IjFN67CrL3AHo1u5ArryBq3iOUrl5N+j33orndDXallOLuoXfT1dGVZzc9S0dI2QkhTg4J9J1BQCRc84E+K+e1KZCyzLsr+LLL6Dp7NiXLlpH99NMn7MZqtHLH4DvYlrONZUeWnbCtEOLUIYG+s+jaH27+HoKi4Z3L4fu/Q2UxAF1mXkvwVVeS+9oCCj///ITdTE+YTmxgLA+veZh/bf4XmaWZJ+PshRDtSAJ9ZxLcA25aoqd0Vj0Fb5wPpbkARD74II7hw8mY/TeqUlMb7MJkMDH/rPkMCBvAK1tf4cJPLuQ/O/+D6/i7i4U4hbhc8tmWQN/Z2ALhslfhmsWQsw8WXgbOCpTFQrennkJZLBx98K+4ixquOti3S1/+PfnffHnJlwzvOpx//vRPrvnyGnbm7jyJb0SIhr399tskJyczaNAgZs2aRWpqKhMnTiQ5OZlJkyZx+PBhAD7//HNGjRrFkCFDmDx5MpmZ+l+oc+fOZdasWYwdO5ZZs2axY8cORo4cyeDBg0lOTmbfvn0AvPPOO97tt956K263G7fbzQ033MDAgQNJSkri6eqU6IQJE7j//vsZOXIkffr0YdWqVYC+/OKNN95IUlISQ4YMYfny5QBMmzaNrVu3AjBkyBD+/ne9Ku1DDz3Eq6++evJ+mMj0ys6rzzn6rJz3r4Gv74Ppz2HuGkHkQ3/j6P0PsH/iJKy9e2OJjcUSG4tj2FAcv1psISYwhhcmvcA3h77hifVPcPWXV/PaOa8xInJEO70p0aF8/QAc2+bbPiOT4PzHT9ikvjLF119Line truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 155,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f51657c4c10>"
]
},
"execution_count": 155,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYAAAAEACAYAAAC6d6FnAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4XNWZ/z/n3jtVGmnUuyzbkovcwDbGdJsSSgIh1GQhu5sCm7Kb7G6y6ftL2c2WbE1dQpaETQIkARKI6diAwYDBvUgusqxi9TYaafrMvef3x1W1Lblbsjmf5/EzmjvnnnuPPDrf+77vOe8rpJQoFAqF4r2HNtU3oFAoFIqpQQmAQqFQvEdRAqBQKBTvUZQAKBQKxXsUJQAKhULxHkUJgEKhULxHUQKgUCgU71GUACgUCsV7FCUACoVC8R5FCYBCoVC8RzGm+gYmIzc3V1ZUVEz1bSgUCsU5w5YtW3qklHnH03ZaC0BFRQWbN2+e6ttQKBSKcwYhRNPxtlUuIIVCoXiPogRAoVAo3qMoAVAoFIr3KGctBiCEuBV4P5ABPCSlfOlsXVuhUCgUR3JKFoAQ4udCiC4hxO7Djt8ghNgnhDgghPgKgJTyKSnlfcCngLtP5boKhUKhOHVO1QX0MHDD2ANCCB34MXAjUA18RAhRPabJN4Y+VygUCsUUckouICnl60KIisMOrwAOSCkPAgghfgN8UAixB/gX4Hkp5dZTue5UEk6GiaaiSCkxpYmUEgsLy7LsV2mNfGZJC4kkZaWQlt1GWhYyZSJNE5lIIpMprGQSmUxiJVPIZAqZSCI0DaFrYBgI3UDTDfu9riMMHc0wcHjcGG43htOFEAIhBAAC+9WhOXDqTly6a+RV1/Sp/PUpFIppxJmIAZQAh8a8bwEuBv4KuBbIFEJUSikfONrJQoj7gfsBysvLT+oG1v/654T6epFSgpSjr0ikJQGJXQpZIi0LADm23ZifLcvESpn2q2nS11KPiCaw51iBHJpsJQIEY94DQoy8nlGkRLcsNGmhSYnAgqF/UkikkFiahSUkKUMSdwuiXh3LLUj6dJI+JymfB39JBaR7cOhOstxZZLmy7NcxP/tdfrwO75kdj0KhOCuctSCwlPIHwA+Oo92DwIMAy5cvP6mK9d1NDQS7OuwnYqENzdVi9ClZDD0ja5r9tCxACM2ep8e1EWiGjuF0ohkGmqYh2+uQqbg99Qs5JAH2tC+ERAjGXA+EJoY+G+pTs49pwr6+pgnQBJqugS7s9mJYfCyENSRa0n6VUoJlC5hlgmlKTBNMBBaCFAITbeifAxMNC4ElNSyhoaXAE7L/jScJ1KFZFk4zBSJBjyNJoydFb0aSQ3kpDhZZmIbArbvxGB4cugOH5sBjeCj1lTInaw6rSlexIHcBmlALzBSK6c6ZEIBWoGzM+9KhY2eNO77+D2eu83APJKOgO0F3DL0O/Xymn/RPBCnBTED/Ieg7CLqBDPWQCrQQbW0k1tZCoLef0ECYVDhCMilImjphy8mAdDMg3EgrjbSIIC0C5R1w5Q4Ll5TobgPcOsIJwilIuCXbZ9bzkPt1Htz5IC7dRbY7mxx3DtmebPK9+czNmss15deQ5z2uHeoKheIsIKQ8qYfs0Q7sGMAzUsqFQ+8NYD9wDfbEvwn4EyllzQn0eTNwc2Vl5X11dXWndH+K48CyINwNA622WPQegJ46zO4D9B06RG+foC/spd/MI5h0E0qaRAyNlD4aT/DGk5Sh41i1mJqVOfSm+umN9tIT7aEz0kl/vB+B4Jrya/jEok+wMHfhFA5YoTh/EUJskVIuP662pyIAQojHgFVALtAJfFNK+ZAQ4ibgvwEd+LmU8rsn0//y5culygU0xVgWdOyE/S/Crseht27kcEx66U9m0BVNpzZYQnvUjqfkxpLkFhRTPm8BMy5chnfJEpq0AM8cfIbf7vstg4lBLi66mE8s/AQri1YihCAYD9If78fn9PGDrT/g0OAhStJL+MCsD3BR4UUjAW6FQjE5Z00AzjRKAKYhgx3Qtg0CjTDQBmYSQp2wZw3BuJNtyfextyVINJXAEoK0WIILmjspnL+Q/C9+EWthFU/sf4Jf1v6S7mg3FRkVFKcXs7ljMwkrgS50hBAszFlIfX89g8lBrim/hm9f+m0yXZlTPXqFYtqjBEBx9hlog+f+DvY+A6UXkVx2H/tanbz51ONEw2Eu7Bkk/1A7OZ/6C/I+/3mSVpI/1v+R1w69Rlu4jaX5S5mTNYeGYAO3Vd1GVVYVsVSMx/Y+xg+2/YBKfyX/d8P/qRVICsUxOOcFQMUAzlGkhG2/gjf+w7YQDDfhwkt5enca7e39LMwuoOzVt/DfeitF//AdhMMxcqplmiSiURxuF7rhGNft6y2v81ev/BXXlF/Df676z7M8KIXi3OKcF4BhlAVwjmJZcPBVqHsZ6teR6qpjbdd8agI5FGflMnvjNgqXr8D5hb9h1xuv0HGwjt6WZsxkEgCH4WD2jNmsuvfjpFXbm8h/uO2HPLjzQV6+42UK0wqncnQKxbRGCYBietFbj3z842yr7eLN/nkk4knS4knCLgcOt5uiqnn4pcDa+C6JwQHCLiet2T5yByO87/LrKPjiF2iIHOLWp2/l/13y/7hzzp1TPSKFYtpyIgIwLXfrCCFuFkI8GAwGp/pWFKeDnNmIT7zA0mVVfHLmRi6/cTX+mbOo6gzwvkGTSwMxSh95gjluH1d97Vvc/qvfcuUtd9Dj87Ln6Sfp+Pu/Z2bGTIrSitjQsoGGYAORZGSqR6VQnPMoC0Bx9oj0wc+uhlQM/moLwZdfo/eBB0g0NeO/4w4KvvqVkbiAZZk8/IXPQjDIyre2U/jVr/CjOU08deApUlaKHE8On1z0Sa6vuB5DGLSH25mTNYfnGp6jK9LFyuKVLMhZMMUDVijOPsoFpJi+HHoXHroOVn0NVn0ZsPMwjazzlxJCXeBMo/add3n+x//JZd5ssmr20fWr7/CZjV/kytIrGYgPsL17+7iuZ2TMoGlgtBzqbVW38a1LvqX2ECjeU5yIAEzrovCK85CyFTD/Fnjz+7Dsz8FXMDpB73wcXvyqvStZM5g340rezs+nJmWxIjTI/PVN/Pb23zI3ay66plPTW8O2zm0jmVd/vP3H3DHnDj5/4ef56c6f8us9v2Ze9jw+Mu8jUzpkhWK6oiwAxdmntx5+fDGUr4R7nrBzKb3wZXj3QShdAQtvh1AHvP0Tmo0FPL49jSpnGvPqW6hctxbN4zlqt3Ezjkt3AWBJi/tfup/6YD2v3vXq2RydQjGlqCCwYnqTMxtu/Qk0vgG/uhV+e489+a/8LHzseVj5Kbj2W3D3rylP7GDB7AwaZIJosJ/+xx+fsNvhyR9AExorilbQE+0hloqd+TEpFOcg01IApJRrpJT3Z2aqrf/nLYvvgg/8l52t9MA6uOrLcP13QR/jlZzzPrjoEyyT60klk3Qsqab3fx/CSiSO6xLD+wU6wh1nYgQKxTnPtBQAxXuE5R+Hv62Bb3TC6q8dPZ32qq+S53dQnqfT4DZIdHURWrfuuLovSisCoCOiBEChOBpKABRTz2SrdLzZsPjDLPPWEg4P0lVayMCLLx1Xt8MWQHuo/XTcpUJx3qFWASmmP9UfZObG/yEr+yLqXR6yN7yBv7OD/r4eBnq6kZaFpusUVs4hq7B45LQCbwECoVxACsUETEsBGJMMbqpvRTEdKLsY4StkqTvFuu1R1s4uZO3nPnnUpkVVc7n+U58np7Qcp+4kx5OjXEAKxQRMSwGQUq4B1ixfvvy+qb4XxTRA02D+zSza+gj6xx6g/Qc/RvN6mfGlL5FTOgNN10nGYzTv2s7GP/yOlx78ER/5zvcAOw6gXEAKxdFRMQDFuUH1B9HNCIvKJBd/+nOU7N5Hxvo3MWpq0bZuI/Xzh8l76jnmWQZt+2ppr9sH2HGA9rASAIXiaExLC0ChOIIZl4I3F2qfJuP2h+h/4gn6Hvr5yMdaejrO8nKKB4Ls9jt487vf4kPff4DCtEI2tG6YwhtXKKYvSgAU5waaDvNvhp2/Q5hxyn/+EKmODlL9/WCauOfPRzgcyFSKvX/7WVpammm67z58X1tFNBUlZaUwNPV1VyjGolxAinOH+TdDMgyNbyJ0HUdJCZ4FC/AsXjySRVQYBrNv+RAJh07v3r0UHAgAEEmdevropJnkvpfu4/d1vz/lvhSK6cC0FACVCkJxVMpWgNCgZdOkzUrm22mg+3OzKH7Bzhh6OuoHPLLnETa2b+TXe359yn0pFNOBaSkAKhWE4qi4fJBffUwByC4uxZORycDMctJ3NgCnbgH0RHt4YOcDpDnSqAvU0RBsOKX+FIrpwLQUAIViQkqXQ8tmu+7wBAghKKqcQ9BMooWjIOUpWwDf3/p94mac711pLy/d2rn1lPpTKKYDSgAU5xalF0E8CL11kzZzp/tISgthWriSp+YCqumt4akDT3Hv/HtZXmBn2Q0mlHtSce6jBEBxblF6kf166J1Jmzk9XpJWCgBvHMLJ8Elf8uHdD+Nz+viLxX+Bx/BgaAYD8YGT7k+hmC4oAVCcW+RUgX8GbHwALHPCZi6vl0QyhQTSYicfA+iJ9rC2aS23Vt5KujMdIQQZzgxlASjOC5QAKM4tNA2u+zZ01cDW/xv/WWwA+hrATOH0eJHSwhKCtNjJWwBrm9aSkilur7p95FimK5NgXAmA4txH7YxRnHtU3wozLofnvgShboj0QtOb0Lnb/rxwMc7C+wFI6RppMUk0FT2pS21o3UBpeimzMmeNHMt0ZjKQUC4gxbmPsgAU5x5CwIcfsVcEvfZPsPWXkJYLq78O1/8zBJpwbn4AgJSmkRY/uSBw3Izzbse7XF5y+WjheiDDlaFiAIrzgmlpAah00Ipj4vHDnz9nF49PL7BTRQxTtATnj/4UyCKlC/xJxwm7gDZ3bOY3+35DNBXlfRXvG/dLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.plot(wlalb2,sbdarti*100,label=\"SBDART Snow\")\n",
"plt.xscale('log')\n",
"plt.yscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 156,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 157,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.sum(wtspec,axis=0)"
]
},
{
"cell_type": "code",
"execution_count": 158,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8nNV97/HPb2akGa2jxdps2ZaNZWOzGIwAQ4CEAAkkECgJLTRpaUJCs7RNbu5tQnpzb9rbpCFJ22xNk9KQ4pQkkBASIKEEMFsDGCyDMd73Tbtka9dImplz/9DYYLxoJM2m0ff9eumlmWfOzPxshq/PnOc855hzDhERmf486S5AREQSQ4EuIpIlFOgiIllCgS4ikiUU6CIiWUKBLiKSJRToIiJZQoEuIpIlFOgiIllCgS4ikiV8qXyzWbNmubq6ulS+pYjItLdu3bpO51zFeO1SGuh1dXU0Njam8i1FRKY9M9sXTzsNuYiIZAkFuohIllCgi4hkCQW6iEiWUKCLiGQJBbqISJZI6bTFTDQSjtLSM0Rb7zCDI2Gcg4UVBcwry8fM0l2eiEjcZkSg94VG6R4cpb0vxI62fg4cHqR7cJTdHQO8sv8ww+Hocc/J9XrI8RpFgRyqggGqi/1UFwditwPH3C7wz4i/RhHJcFmRRP3DYfZ2DnDw8BAd/cN09IZo7xumqXuIra19dPQNH9Pe6zGCeTnUBAP88YXzWFZTTHUwQKHfR9Q5trf1s7drgHDE0TM0SltviN0dA7ywq4u+UPi49y8K+MZCPhigKhb2y2YXs3JhOWUFuan6axCRGW5aBPqOtj72dA7Q1huipSdEa2+I1p4QHX3DdPQP0z04ekx7j0F54ViP+rL6ChZVFlJemEt5QS6LKgupLc3H6zn5cMp588tO+tjAcJi22Pu39o79tB29PcyOtk7a+0JE3Vgv/8YVc/j81adTqmAXkSSbFoH+lUe38My2DgB8HqOqOEBVsZ/TKgq5cGEZs0vyWFBewNyyfCqL/JQV5OLzJud8b4Hfx8KKQhZWFJ60zUg4ysbmHh585SA/X3uQNbu7uO2SBZQV+Hn3GVVJq01EZjZzzqXszRoaGtxk1nLZ1NxDJOqoDgaYVeDHc4redaZZt+8Qt/94HV0DIwAsmFXAp6+o57rls0/5LUFE5AgzW+ecaxi33XQI9OluaCRCb2iUDQd7+KfHt7G1tY9lNcX89buXcEn9LHLUYxeRU1CgZ6ho1PHIhma+/tg2mrqHqCjy8/fXn8kVSysV7CJyQgr0DBcajfDs9g6+/eQONrf0YgbXnT2bL123jPJCf7rLE5EMEm+gT4uTotkokOPl3WdUc/mSSh5+rZlNzT3cu2Yfr+w/zE8/upJ55fnpLlFEphl9x0+zXJ+HD5xXy5euO4MHPn4xfaEw13/v99y/dj+p/PYkItOfAj2DLJ9bwi8/cRH1lUV8/pev86WHN9EXGh3/iSIixBnoZlZiZg+Y2VYz22JmF5lZmZk9YWY7Yr9Lk13sTLCosoj7bl/JRy9ZwI9f3Mf5X3mSe9fEtfuUiMxw8fbQvw085pw7HVgObAHuAFY75+qB1bH7kgAej/HFa5fxq09ezAULyvnirzfyndU70l2WiGS4cQPdzILAZcDdAM65EedcN3A9sCrWbBVwQ7KKnKnOnVfKf/zZ+dy4Yg7//MR2frnuYLpLEpEMFk8PfQHQAfyHmb1qZj80swKgyjnXEmvTClQlq8iZzOsxvvb+s7loYTn/+9evs621L90liUiGiifQfcAK4PvOuXOBAd4yvOLGpmOccEqGmd1uZo1m1tjR0THVemekHK+Hb99yDoX+HD75k3UMDB+/4qOISDyBfhA46Jx7KXb/AcYCvs3MagBiv9tP9GTn3F3OuQbnXENFRUUiap6RKosCfOeWc9jTOcD/e2RzussRkQw0bqA751qBA2a2JHboCmAz8DBwa+zYrcBDSalQjrr4tFl87LKF3N94gHX7Dqe7HBHJMPHOcvlL4CdmtgE4B/gH4E7gKjPbAVwZuy9J9lfvrKeq2M8XHtzA4IiGXkTkDXEFunNufWzY5Gzn3A3OucPOuS7n3BXOuXrn3JXOuUPJLlbG1mP/x5uWs7O9n0/ft57QaCTdJYlIhtCVotPQpfUV/N9rl/HE5jZu+N7zPPJaM5GolgkQmem02uI09vimVu58bCu7OwYI5Hgozc/luuWz+Zv3LE13aSKSQFptcQZ41xnVXLm0iie2tLF2zyG2tPZy13O7ue7s2ZxVG0x3eSKSYhpymeY8HuPdZ1TzxWuX8YMPnUdxwMd3n9IyASIzkQI9ixQFcvjIJQt4fHMbW1p6012OiKSYAj3LfPjiBRT6fXz/mV3pLkVEUkyBnmWC+TnccO5sntzSpimNIjOMAj0LXbWsmsGRCM/v7Ex3KSKSQgr0LLRyYRmFfh9PbG5LdykikkIK9Czk93l5+5IKntzSTlQXHInMGAr0LPWuZVV09g/z6oHudJciIimiQM9S71hSic9jPPp6y/iNRSQrKNCzVDAvh2vOquEnL+2jtSeU7nJEJAUU6Fnsc+9eQjQK3/jdtnSXIiIpoEDPYnPL8vnwJXX88pWDvLpfG2KIZDsFepb71OWLqAkGuG1Vo5YDEMlyCvQsVxzI4WcfW4nf5+GWf1/Dzvb+dJckIkmiQJ8B6mYVcN/tK/Ga8Yl71zEwrK3rRLKRAn2GmF9ewHduOZddHf38za9eT3c5IpIECvQZ5G2LZvGpyxfx0Ppm9nUNpLscEUkwBfoMc9N5cwF4ckt7misRkURToM8w88rzqa8sZPUWLdwlkm3iCnQz22tmr5vZejNrjB0rM7MnzGxH7HdpckuVRLliaRUv7zlEb2g03aWISAJNpId+uXPunDftPH0HsNo5Vw+sjt2XaeDKpZWEo47ntnekuxQRSaCpDLlcD6yK3V4F3DD1ciQVzp1XSml+Dqs1ji6SVeINdAc8bmbrzOz22LEq59yRpfxagaqEVydJ4fUYF582i5f3HEp3KSKSQPEG+iXOuRXANcCnzOyyNz/onHOMhf5xzOx2M2s0s8aODn3FzxTnzC2hqXuIzv7hdJciIgkSV6A755piv9uBXwEXAG1mVgMQ+33C7+/Oubuccw3OuYaKiorEVC1TdnZtEIANB7UBhki2GDfQzazAzIqO3AbeBWwEHgZujTW7FXgoWUVK4p05J4jHYP2BnnSXIiIJ4oujTRXwKzM70v6nzrnHzGwt8HMzuw3YB/xh8sqURCvw+1hcVaQeukgWGTfQnXO7geUnON4FXJGMoiQ1lteW8PjmVpxzxP7BFpFpTFeKzmDL55ZweHCUA4eG0l2KiCSAAn0GO3JidL2GXUSyggJ9BltSXUSO19iqnYxEsoICfQbL8XpYMKuAHdrFSCQrKNBnuPrKIm1LJ5IlFOgz3KLKQvZ1DRAajaS7FBGZIgX6DFdfVUjUwZ5O7WAkMt0p0Ge4+soiAI2ji2QBBfoMVzcrH6/H2NHWd9I27X0hNjZpiQCRTKdAn+H8Pi/zy/PZ0XbiHnpT9xB/8L0XeN+//J6fvbw/xdWJyEQo0IX6ykJ2tB/fQx8aifAnd79E79AoFywo4wsPvs4z27QphkimUqAL9ZVF7O0aZCQcPeb4T1/ez+6OAb73wRX8+CMXEszL4bcbWk7yKiKSbgp0YdnsYiJRx6bmN8bJh8MR7npuFysXlnHZ4gpyfR4uqZ/Fs9s7GNvPREQyjQJduGBBGQBrdr+xJd0D6w7S1jvMX1xef/TYOxZX0N43zJaWk59AFZH0UaALswr91FcWsmZ319FjD77SxNKaYt62qPzosbcvHttx6pntGkcXyUQKdAHgwoVlNO49RDgS5fDACK/uP8xVy6qOWSe9sjjAsppint2mvWFFMpECXQBYubCcgZEIG5t7eW5HB1EHly85fg/YhrpSNjX3ahxdJAMp0AWACxeMDa2s2d3FM9s6KCvI5ezakuPaLa4qon84THNPKNUlisg44tlTVGaAiiI/i6sK+eF/72Y4HOXKpVV4PcdvS7ekemypgO2tfcwpyUt1mSJyCuqhy1HfvvlcZpfk0RcKc+XSqhO2WRxb+2XbKZYKEJH0UA9djlpaU8yvPvk2NjX3cNac4AnbBPNzqC4OsL1VgS6SaRTocgyvx044dv5mS6qL1EMXyUBxD7mYmdfMXjWz38TuLzCzl8xsp5ndb2a5yStTMsmS6iJ2tPcTiWqmi0gmmcgY+qeBLW+6/zXgm865RcBh4LZEFiaZa3FVESPhKHu7tCmGSCaJK9DNrBZ4L/DD2H0D3gk8EGuyCrghGQVK5llYUQDAPgW6SEaJt4f+LeBzwJHl+MqBbudcOHb/IDDnRE80s9vNrNHMGjs6dIVhNpgdHJuu2KK56CIZZdxAN7NrgXbn3LrJvIFz7i7nXINzrqGi4vgrD2X6qSjy4/UYrQp0kYwSzyyXtwHvM7P3AAGgGPg2UGJmvlgvvRZoSl6Zkkm8HqOyyE9ztwJdJJOM20N3zn3BOVfrnKsDbgaecs59EHga+ECs2a3AQ0mrUjJOTTBAa+9QussQkTeZypWinwc+a2Y7GRtTvzsxJcl0UBPM0xi6SIaZ0IVFzrlngGdit3cDFyS+JJkOqoMBntrajnPumCV2RSR9tJaLTEpNMMDQaITeofD4jUUkJRToMik1samLzT0aRxfJFAp0mZSakgCApi6KZBAFukxKTXAs0HViVCRzKNBlUioK/XgMWjTkIpIxFOgyKT6vh6rigHroIhlEgS6TVh0MaAxdJIMo0GXSaoIBzXIRySAKdJm0mmAerT0hnNNGFyKZQIEuk1YTDDA4oouLRDKFAl0mrfrI1EUt0iWSERToMmk12uhCJKMo0GXSjl5cpHXRRTKCAl0mrbJo7OKiVs10EckICnSZNJ/XQ2WRLi4SyRQKdJmS6qACXSRTKNBlSmaXBLSLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 159,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYAAAAEACAYAAAC6d6FnAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xl8W/Wd7//XV7vkfY0dJ3b2hJAQQkIINEChwNBSllLaQstMh8tSpvt250d/v86vd3rby/xmOtMOt532hkKhG5TSDQoMHSgtlIQlgWwQsjmL7diOV9mSrP37++PItrzLlmQdy5/n4+GHpKOjo+NEPm99d6W1RgghxPxjyfUJCCGEyA0JACGEmKckAIQQYp6SABBCiHlKAkAIIeYpCQAhhJinJACEEGKekgAQQoh5SgJACCHmKQkAIYSYp2y5PoHJVFZW6iVLluT6NIQQYs7YvXt3p9a6KpV9TR0AS5YsYdeuXbk+DSGEmDOUUidT3VeqgIQQYp6SABBCiHlKAkAIIeapWWsDUErdAFwDFAMPaK3/MFvvLYQQYqy0SgBKqQeVUmeUUgdGbb9aKXVIKXVUKXUPgNb6t1rrO4G7gY+k875CCCHSl24V0EPA1ckblFJW4HvAe4G1wC1KqbVJu3w18bwQQogcSqsKSGv9olJqyajNW4CjWutGAKXUo8D1SqmDwD8Bz2it30jnfU1Ja4jHQMcSt3Hjvo5DPD78OB6DWBjiUeM2FjF+4pGRj5UCZQVlAYvFuFWWpG1WsHvAWQjOYnAWgdWe638FIcQcko02gDqgKelxM3AB8BngCqBEKbVCa/2D8V6slLoLuAugvr5+Zmfwu0+Bt9m4KKON2+T76MQFOfn5+Dj3MS7M8Wjigh0dvh+PGBfzeNS4YOvYzM41k2wucBQaYTD4Y/eA3Q2OglH33VC4AKrWgM0JVifYXeAuB4cn17+JEGIWzFojsNb6PuC+FPbbDmwH2Lx588xWrA8HjB+lAJX45py4b0m6P97zKvF48L7FZnyzttjG/ljtxjdxiw0sg/etY7+pq6Rv8BYrWB3Gj8WWuG9PHMueeGwbDq2hUsRgqWKwJBGHiB9CPgj1J376IJz8uB8Cnca/RWTA2D8yAJHA5P9+RQuhYjlUroSKFVC+DEoboKzBCA8hRF7IRgC0AIuTHi9KbJs9H/rRrL7dnBOPQ3QAuo5C32mIhozqp0gA/B3Qdcx47sCvIdg78rWeSiMIBgOhtMEIiPoLwebIze8jhJiRbATA68BKpdRSjAv/zcBHp3MApdS1wLUrVqzIwukJLBbjm3ztBuNnIlpDoAt6Thg/vSeh56Rxe/pNOPiEUQUGRtXR+g/BuR81jqnUbPwmQog0KK1nVssCoJR6BHg3UAm0A1/TWj+glHof8B3ACjyotf7mTI6/efNmLXMBmVg8ZpQg2g/AvsfgnacgFoIF66H2HFh+OZx1rdHGIISYFUqp3VrrzSntm04AZJsEwBwz0AP7H4e9jxglhUAnFNbAB38ISy/O9dkJMS9MJwBkKgiROe4y2HIn3PlH+PIRuPVX4CqGn9wArz+Q67MTQoxiygBQSl2rlNru9XpzfSpipiwWWHEF3PEcLLsMnvoiPPUlo8vseAZ6jcbnvlajUVoIkXVSBSSyLx6D574GO/431G2CK78ODe+CEy/Ba9vh9B7wNo18zdrr4YbvS7dTIaZpOlVApl4QRuQJixWu+gbUngt/+Co8dA14KoweRgXVRvvA+bdDUS2E/UZJ4NXvGw3Mtz0jI5yFyBJTBoB0A81T62+C1e+Dfb+Aky/Doi1w3l8bo5JHqz0HfvMJ2P9Lo2upECLjpArIJOJxTUxrYnFNNK6JxTRxrbFaFValsFoUNotxq+ZDH3ut4QcXGwPWPvWaUYoQQkxJqoCy6KevnOTPhzuGLtTxuCYajw9fuOOaaGzwQh4nrjGejyU9Hx9+Ppa4H59GDlsUWC2DoWDBZjVuHVaFzWo8tlssFLlslBc4qCh0UF7goLzASUWBg7ICBxUFg9scuOwmvLgqBZd8GX75cXjrN0bpQQiRURIA09TtD9PcM4DNorAkfSu3Wy247IOPLUPbk7+526zDF23reM+Peq1SDAVETOuhEInr4fCJxIwgicQ0kVicaCxOJK6JROP0BSOc6PLzxqleegJhYhOkTIHDSnmhERALipzUlrioKXFTW+JieVUhq2uKcNhy0GHsrOug6ix47n8YPYrcpbN/DkLkMakCmificU1fMEKXP0z3qJ8uX5ieQJhOX4gzfSFOewfoD0aHXuuwWVi3sJhNDWVcuLyCcxaVUlHgmJ2qqOZd8MBVRlvBtf+e/fcTYo6b8yOBkxqB7zxy5EiuT2de8oWitHkHeKetn71Nvexp6mVvk5dwLA6A3aoo8zhw2i24bFYuWVXFTZsWcVZtceZP5vdfhDd/Al94CwqrM398IfLInA+AQVICMJdgJMYbp3o41NbPmf4QPf4w4Wic7kCYl492EolpbtxYx3+/ejW1JeP07JmpzqPw3U1w6T1w2Vcyd1wh8pAEgJh1Pf4w97/UyA9fOk4kHmfLknIuXlnJxvoyzllUQpErzb78P/swtOw2SgF2V2ZOWog8JAEgcuZUV4DH32jm2QNtHGrvB4wOPdtWVPLNG9ZTXzHD1cYa/wQ/vh6u/x5svDVzJyxEnpEAEKbgDUTY29zL6ye6eejlE0Tjmm9/ZANXr6ud/sG0hh9sg6AXbv21sa3rCPSeMlZJs9igbjMs3GjMQyTEPDXnA0AagfNPq3eAT/7sDfY1e7nv5o1cc84MQuDNn8HvPjn5PhUr4cbtUHfezE5UiDluzgfAICkB5BdfKMptP3qNPU29PH73RWxYPM1+/fE4HH7GWNcYoLgOqlYbo4TDAaOa6Pl/NBa7v+tPsiqZmJckAIRp9QbCXHPfX7BY4PefuZgS93DjcFN3gEdeO8Vrx7uxWRUXLa/kE5cuw2mbxkjlXQ/C778Af/sULNmWhd9ACHOTBWGEaZV6HNx3y0Zae4P87Y9eozcQJhqL843fv827v/Untr/YSExrBsIx/u2/DnPL9lfo9odTf4MNtxgzjb52f/Z+CSHyhEwFIWbdpoYyvvex8/jMz9/kym+/SInbztEzPm7ZUs/n3rOSmhKjm+fT+1v5/C/28KXH9vDg356f2shjuxtWXQ2HnjGqjKRBWIgJyV+HyIm/OruGn9y+hfOXlFHssvGtD23g3hvXD138Ad63vpb/+71reOFQBz995WTqB2+4CAa6ofNwFs5ciPxhyhKArAcwP1ywrIILllVMus/HL1rCMwfa+O4LR7l5Sz12awrfWRouMm5PvgzVazJwpkLkJ1OWALTWT2qt7yopKcn1qYgcU0pxx8XLaO8L8fzB9tReVLbUWF3s1M7snpwQc5wpA0CIZJevqaau1M2Pd6ZYDaSUMSCs/e3snpgQc5wEgDA9q0Vx8/mL2XGsi+aeQGovcpVCqD+7JybEHCcBIOaEGzbWAfC7PadTe4GzCEJ9WTwjIeY+CQAxJywu97CpoYzf7WkhpcGLziKjBGDigY5C5JoEgJgzbthYx+F2HwdbU6jacRaCjg1PGyGEGEMCQMwZ16yvxWZR/G5Py9Q7O4uMW2kHEGJCEgBizigvcHDpqiqe2Hua+AQL3A9xJpamlAAQYkKmDACl1LVKqe1erzfXpyJM5vqNdbR6g7x6vHvyHYdKANIQLMRETBkAMhBMTOTKsxZQ4rbzrT8cIjZZKUCqgISYkikDQIiJuB1W/vG6s9l9sod/euYg4Wic/mCEVxq7ePloJz98qZEdRzslAIRIgSnnAhJiMtefu5Adxzq5/6XjPLTjBJHY2JLAJ87WfAUg7MvMm77873Dsj/A3v8vM8YQwAQkAMecopfjnmzZwzTkLefloJ0VOG+sXleCwWmioLODR107xyz++yldcQDSYmTfd/zi07YOuY1CxPDPHFCLHJADEnHXpqiouXVU1ZvuXrlqNDnTDHvD295N2S1LQC237jftH/ksCQOQNaQMQeekjW1cCsP9EijOITubUq4AGZYXjf07/eEKYhASAyEuLq8sAOHq6M/2DtewCZYG6TRDoSv94QpiEBIDITxYrMWUjEkpx9tDJtL8FFSugsBrC/vSPJ4RJSACIvBW1OLHGQkRi8fQO1H4AFpwNjoLM9SoSwgQkAETeiluduAjTNxCZ+UFC/dBzIikApAQg8ocpA0CmghCZoK0unCqCN50AGFxVbME6CQCRd0wZADIVhMgEbXfhJJxeALzzJFhssOh8cBRCJADxWOZOUogcMmUACJEJyubCSRolgFgU9v4CVl0NBZVGCQCMEBAiD0gAiLyl7G6jDSAYndkB3vwx+M/Axr82Hg8GgFQDiTwhASDyltXhwqVmWAUUGYAX7oX6i2DVXxnbHIXGrQSAyBMyFYTIW1anByeRmfUC2v2Q8e3/Qz8CpYxtQyUA6Qoq8oOUAETestpduGfSCyjkgxe/BUsuhiXbhrdLFZDIMxIAIn/Z3EYABKYZAG/+BAKd8J7/d+R2qQISeUYCQOQvuxuPCk2/BLD7YVh8ASzeMnL7YAlAFpkReUICQOQvdxlF2kffQDj11/g7oeOg0fVzNLvHuI0MZOb8hMgxCQCRvzwV2IkSHpjGwvCndhq3DReNfS7dcQBaQ3/bzF4rRBZIAIj85akAwDKdKZxP7gSbCxZuHPuc3W3czrQN4MV/gX9dDX2tM3u9EBkmASDyVyIArKGe1F9zagfUbQabc+xztkQAzLQKaPfDxm33sZm9XogMkwAQ+SsRAO5ID1qPXTh+jFA/tO6FhgvHf95iMUIgMsMSQChRFdUlASDMQQJA5C9POQClup9ILIUAaHoNdBzqJwgAAIdnZiWAaGi495CUAIRJSACI/JUIgDLlIxhNYQbPUzuNdX9Hd/9MZvdAeAaNwB2HgEQISQlAmMSsBYBSaplLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.plot(wlalb2,sbdarti*100)\n",
"plt.xscale('log')\n",
"plt.yscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 160,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 160,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd4VFX6wPHvmZbeC4QAaZRQEggdEUSKIiqwInZQdFcXd3VdV2V1XWUVV/3BrmvDCiIrNrCAgkpfOkpvCSRACAkhvZep9/fHhChS0iaV9/M8eSZz595z3wnkzZlzz32P0jQNIYQQrZ+uuQMQQgjhGpLQhRCijZCELoQQbYQkdCGEaCMkoQshRBshCV0IIdoISehCCNFGSEIXQog2QhK6EEK0EZLQhRCijTA05cmCg4O1yMjIpjylEEK0ert27crVNC2kpv2aNKFHRkayc+fOpjylEEK0ekqpk7XZT4ZchBCijZCELoQQbYQkdCGEaCOadAxdCNEyWK1W0tPTqaysbO5QxC+4u7vTsWNHjEZjvY6XhC7EZSg9PR0fHx8iIyNRSjV3OALQNI28vDzS09OJioqqVxsy5CLEZaiyspKgoCBJ5i2IUoqgoKAGfWpqUz10u91BWYGZ8mIL5gobDruGu5eRoA5emDza1FsVosEkmbc8Df03aVVZzmaxU1lmxVxuoySvksLscsqKLFgqbBRmlZOdWozN6rjgsQajDqVXuHsa8fQz4elrwsvPrfp7Tz+3qm0mPHxN6PXy4UWIpjRr1iy8vb157LHHGtzWzp07WbRoEa+99poLIms9WkxCd9gdlBaYKc6rpLzITEWJlfISCxUlFsoKzRScKack7/yPInqjDjd3HZ5uDqJ8svEqPY2btQSjZkHvbsJi8qVY549NueHQG7Dq3DGXulNQaCCzEiorLvwHwN3bWJ3gPX2did+/nSfto/0IDPNq7B+HEKKebDYbAwYMYMCAAc0dSpNr0oRuLreyb+0pyorMlBdZKCsyU1FioaLESkWpFc2hnbO/Tqdw99Th7qYR5GYhIqwYY3keuqJcjHnpmDKSMOSf+eUBGDt2ROfpCYCjohy38gq8ystxmM1gs50Xk0PpsZh8sHgE4mgfiT08GqtXMGaTL2abJxXZJgoydJSXOXDYnfGFRvgw8PooIuODG++HJUQbt2jRIubOnYtSivj4eGJiYqpfO3bsGH/4wx/IycnB09OT9957j9jYWL755htmz56NxWIhKCiIxYsX065dO2bNmsWxY8c4fvw4nTt35oEHHmDu3Ll8++23lJaW8tBDD7Fz506UUjz77LNMnjyZVatW8eyzz2I2m4mJieGDDz7A29u7GX8iDdekCb0op5LNS5LR6RWeXjo8TA489Fb83Ssx6ktxL8vClHsKY94p9Nmn0FcU8esRJZ2fH8b27TGGhWHoPRJDcDB6Xz+MHcPxHDAAvY/PRc+vWa3Yi4ux5eVhz893fpWU4igpxl5UjOXkScwp67BlZ+MoLT33WBTm0GiKe47iZG48K+btp9eIcPxDPQju6E149wAZkxSt0j++OcTh08UubbNnB1+evbHXRV8/dOgQs2fPZuvWrQQHB5Ofn3/O8Mj999/P22+/TdeuXdmxYwcPPvgg69at48orr2T79u0opXj//ff5v//7P/71r38BcPjwYTZv3oyHhwcbNmyobuv555/Hz8+PAwcOAFBQUEBubi6zZ89mzZo1eHl58fLLL/Pvf/+bZ555xqU/h6bWpAnd25LDiB//hr688LxEjcGAsUMHTB3DMfTriiFoMPrAIAzBQegDgzCGtcfYvj06r/oPdyijEUNQEIagoBr3dVRUYMvNxZaTgy07B1t2NpVHj+CzdQXBmR9wvO80Dm38ef+Qzj4kXNOZmH6h6HSS2IW4lHXr1jFlyhSCg52fcgMDA6tfKy0tZevWrUyZMqV6m9lsBpzTLW+99VYyMzOxWCznTO+bMGECHh4e551rzZo1fPrpp9XPAwIC+Pbbbzl8+DDDhg0DwGKxMHToUNe+yWbQpAnd6GGi3R2TMYSEVH/pg4IxBAag8/VF6VrOhUidhwemTp0wdep0znbN4aBsyxZMT/2NiAOfAoqCXmM46TmaVe+XEND+BP3HRRAZH4ybZ/1uDhCiKV2qJ90cHA4H/v7+7N2797zXHnroIR599FEmTJjAhg0bmDVrVvVrXnXo7GmaxtixY/nkk09cEXKL0aQZ1NixI6GPPUbg3XfjO348ngMH4hYdhd7fv0Ul80tROh3ew4cT+cVSwmbcS9j90+hkPsKAlX8i/uSn2AsLWbMwkQWPb2bbVymUFZlx/OragBCXu1GjRrFkyRLy8vIAyM/Pr37N19eXqKgolixZAjiT7759+wAoKioiPDwcgA8//LBW5xo7dixvvvlm9fOCggKGDBnCli1bSElJAaCsrIyjR482/I01s9aRRVsgY2goIX/4AyEPP0zUV18SsXABER0c9P/+UQYee5+Oxkx2/5DGwplbWDhzM4c2ZZx30VeIy1WvXr3429/+xlVXXUWfPn149NFHz3l98eLFzJ8/nz59+tCrVy+WLVsGOKc2Tpkyhf79+1cP19Tk6aefpqCggN69e9OnTx/Wr19PSEgICxcu5Pbbbyc+Pp6hQ4eSlJTk8vfZ1JSmNV2SGTBggNbW66GXbtlC4ZKllP7vfxR5dcKcMIpMYzS55V506R/K6Ht6YDDqmztMcZlLTEykR48ezR2GuIAL/dsopXZpmlbjPMwWMw+9rfAeNgzvYcOwnjlD9py5VB78juBTpzgVNY4Uric7rYRhN3UhOqHGxUeEEKJOZMilkRjbtyf8X3OJ+eF7Yr5ZTjePNPocnIeurJjv3jnA5qXJlBWZmztMIUQbUquErpTyV0otVUolKaUSlVJDlVKBSqnVSqnkqseAxg62tXKLiaHzBwvo3M2Pvt89SqeSvexbc4qFf93C1i9SsNsvfLeqEELURW176K8C32uaFgv0ARKBvwJrNU3rCqytei4uQu/jQ6f579N53hv0OLWMQTtfoLN2gj2r01g57wD2i9SgEUKI2qoxoSul/IARwHwATdMsmqYVAhOBs/OGPgQmNVaQbYVSCp+rryZq2ddE3HED3fe8R48TS0g7lMcP7x+U6Y1CiAapTQ89CsgBPlBK7VFKva+U8gLaaZqWWbXPGaBdYwXZ1hgCAgh99M9ELfuaKJ9cuh5byol9uWz/+lhzhyaEaMVqk9ANQD/gLU3TEoAyfjW8ojnnPl6we6mUul8ptVMptTMnJ6eh8bYpxvbt6bzwA7oFFRB+ZjN7VqWRtC2z5gOFEOICapPQ04F0TdN2VD1fijPBZymlwgCqHrMvdLCmae9qmjZA07QBISEyVe/X9N7edHxrHj3LtxFYeoz1HyWRm17S3GEJ0arYLlBJ9XJUY0LXNO0McEop1b1q02jgMLAcuLtq293AskaJ8DJgCAgg4q036J38EQZLKWsXHpaZL6LNW7RoEfHx8fTp04epU6eSmprKqFGjiI+PZ/To0aSlpQHwzTffMHjwYBISEhgzZgxZWVmA867RqVOnMmzYMKZOncqhQ4cYNGgQffv2JT4+nuTkZAA++uij6u0PPPAAdrsdu93OPffcQ+/evYmLi+OVV14BYOTIkcycOZNBgwbRrVs3Nm3aBDiX7Js+fTpxcXEkJCSwfv16AK6//nr2798PQEJCAs899xwAzzzzDO+9917T/TCr1PbGooeAxUopE3AcmI7zj8HnSqn7gJPALY0T4uXBLSaGqP97jvy/vcVB/f1sWZrC8Fu6Skle0fi++yucOeDaNtvHwXUvXfTlC5XPvfvuu6u/FixYwMMPP8zXX39d65K5Dz30EH/605+48847sVgs2O12EhMT+eyzz9iyZQtGo5EHH3yQxYsX06tXLzIyMjh48CAAhYWF1bHZbDZ+/PFHVq5cyT/+8Q/WrFnDm2++iVKKAwcOkJSUxDXXXMPRo0cZPnw4mzZtIiIiAoPBwJYtWwDYtGkTb7/9tmt/prVQq4Suadpe4EK3nY52bTiXN++rrqLriFUU7V/HgfWjMBh0DJkUjU6WwxNtzIXK527bto0vv/wSgKlTp/LEE08AtS+ZO3ToUF544QXS09O56aab6Nq1K2vXrmXXrl0MHDgQgIqKCkJDQ7nxxhs5fvw4Dz30ENdffz3XXHNNdZs33XQTAP379yc1NRWAzZs389BDDwEQGxtLREREdUJ/7bXXiIqK4vrrr2f16tWUl5dz4sQJunfvTlOTW/9bmHZPPE6PKbeg5XixZzWkHsil91XhxCSE4u5lRG+U5C5c7BI96ZagtiVz77jjDgYPHsyKFSsYP34877zzDpqmcffdd/Piiy+e1+6+ffv44YcfePvtt/n8889ZsGABAG5ubgDo9foax+YHDhzIzp07iY6OZuzYseTm5vLee+/Rv39/F7zzupPs0MLo/f2JWDCfnrk/0Dt5EaqkgE2fJbPwr1t4+6ENfPr8j1gq5QKQaN0uVD73iiuuqF6IYvHixQwfPhyofcnc48ePEx0dzcMPP8zEiRPZv38/o0ePZunSpWRnZ1ef5+TJk+Tm5uJwOJg8eTKzZ89m9+7dl4x3+PDhLF68GICjR4+SlpZG9+7dMZlMdOrUiSVLljB06FCGDx/O3LlzGTFiRMN+QPUkPfQWyNSpE5Gff47psccIXfEoxQHRVMRegcU9gOSMWPasTmPwjdHNHaYQ9fbL8rl6vZ6EhARef/11pk+fzpw5cwgJCeGDDz4Afi6ZGxAQwKhRozhx4sQF2/z888/573//i9FopH379jz11FMEBgYye/ZsrrnmGhwOB0ajkTfffBMPDw+mT5+Ow+GcfHChHvwvPfjgg8yYMYO4uDgMBgMLFy6s7skPHz6ctWvX4uHhwfDhw0lPT6/+Y9TUpHxuC1eZlETRV19Tcegg9pxcdnuNIT8sgbvLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0),label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 161,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 162,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 163,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 164,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 165,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt4nHWd///n577nnknuyeQ0IekhKYaWcxcRq4IHQPYraEs5CHU9oAgIrnDteomIuqssCLsL6uJpRSuyUIvseqn8ipxUEDnptkALiJwPgU5omzA5TubOnO778/tjJmlLZiYzSeYA+35cV6+rnfue+bxyT5q878987vettNYIIYQQQggh6otR6wBCCCGEEEKImaRQF0IIIYQQog5JoS6EEEIIIUQdkkJdCCGEEEKIOiSFuhBCCCGEEHVICnUhhBBCCCHqkBTqQgghhBBC1CEp1IUQQsybUupepdRnap1DCCHeTKRQF0KIWSil3quU+rNSakwpNayU+pNS6h01yPGsUuoApdQNSqkrKvD6i5VS1ymldiqlYkqpZ5RSlymlggs9lhBCiNlJoS6EEEUopZqB24AfAO3AUuAyIFnlHMsBU2v9XIVevx34X6AROEprHQI+ALQCyysxZm5cX6VeWwgh3uikUBdCiOIOANBa/7fW2tVaT2qtf6+1/guAUurTSqkHlVLfVkqNKKX6lFIfmnqyUmqJUuo3uZn4F5RS5+Yeb1BKTSqlOnL//melVCZ3YoBS6nKl1Hf3yLEGuCNfwD1m/EeVUhGl1KdzjwdyubYrpQaUUj9WSjUW+DovBGLAGVrrl3Nfc0Rr/fk9vtZ3K6Uezn2y8LBS6t0F8hhKqa8ppV5RSg0qpX6mlGrJbXuLUkorpc5RSm0H7pn9LRBCiP+bpFAXQojingNcpdQGpdSHlFJtefZ5F/As0AF8E7hOKaVy2/4H6AeWAKcD/6aUOk5rnQAeBo7J7XcM8Arwnj3+fd8eY6wGbn/9wEqpfYE7yc747wMcDjyW23wl2RONw4EVZD8NuKTA1/n/gJu11l6+jbkZ99uB7wNh4GrgdqVUOM/un879eT+wH9AE/Ofr9jkGOBg4oUAeIYT4P08KdSGEKEJrPQ68F9DAtcBruRnyrj12e0Vrfa3W2gU2AIuBLqVUD9nC+8ta64TW+jHgp8Cncs+7Dzgmt/zjMLJF8DFKqQbgHcD9AEopO/fve/NE/Dhwd27GP621HtJaP5Y7UTgP+ILWelhrHQP+DfhogS81DOwscijWAM9rrTdqrTNa6/8GngHW5tn3E8DVWuuXtNYTwFeBj75umculWuu41nqyyJhCCPF/mhTqQggxC63101rrT2utu4GVZGfH91yWsmuPfZ3cX5ty+00VyVNeITuzDdlC/VjgCOAJ4C6yM81HAi9orYdy+/0t8Getdb518T3Ai3ke3wewga25JTGjwG9zj+czRPYEo5Aluex72vNrKbbvK4AP2PPkJlJkLCGEEEihLoQQZdFaPwPcQLZgn80OoF0pFdrjsWXAq7m//xk4EDgVuE9r/VRu+2pmLnvJuz6dbMGb72LPKDAJHKq1bs39adFaNxV4nbuBU5VShX4v7AD2fd1je34txfZdBmSAgT0e0wXGEUIIkSOFuhBCFKGUOkgp9UWlVHfu3z3Ax4DNsz1Xax0hW4z/e+7i0cOAc4Abc9sdYCtwAbsL8z8Df8/ehfqHyLM+PefnwP9TSn1EKeVTSoWVUofn1ppfC3xHKdWZy75UKVVoTfjVQDOwIbfufWr/q3O57wAOUEp9PDfO3wGHkO2I83r/DXxBKdWrlGoiu+TmF1rrTNEDJoQQYi9SqAshRHExsheLblFKxckW6H8Fvlji8z8GvIXsLPP/B/yL1vruPbbfB1jAQ3v8O8Tu9ekrgQmt9fZ8L557fHUuzzDZC0nfmtv8ZeAFYLNSapzsrPmBBV5nGHg3kM59rTHgD8AYu5fhnJgbZwi4GDhRax3N83L/BWzMfQ19QAL4h7xHRwghREFKa/n0UQgh6pVS6mKgQ2t9ca2zCCGEqC650YQQQtS3l4Fbax1CCCFE9cmMuhBCCCGEEHVI1qgLIYQQQghRh8pa+tLa2qqXLFlSqSxCCCGEEEK86T399NNRrXWh+1pMK6tQX7JkCRs3bpx7KiGEEEIIIf6PW7Vq1etvIJeXLH0RQgghhBCiDkmhLoQQQgghRB2SQl0IIYQQQog6JIW6EEIIIYQQdUgKdSGEEEIIIeqQFOpCCCGEEELUISnUhRBCCCGEqENSqL8BnHfeeaxdu3avxy699FJWrVpVo0SV8Wb8moQQQggh5qqsGx4J6O/vZ8OGDWzbto1du3bh9/sJh8MceuihrF27dq9Cc/369Rx44IEce+yxtQtcAZlMhttvv53f/e53PPfcc0xMTBAMBlmxYgXvf//7OeWUU2hoaKh1TCGEEEKINzQp1Mvw1FNPcd555+Hz+VizZg377bcfyWSSSCTC5s2bsW17r0L92muv5cQTT3xTFeojIyNceOGFPPHEE6xcuZKPfexjdHR0EIvFePTRR/nOd77DY489xpVXXlnrqEIIIYQQb2hSqJfh2muvJZFIcNNNN3HAAQfM2B6NRmuQauFkMhlc1yUQCOTdrrXmy1/+Mk888QQXXXQRH/3oR/fafsYZZ7B9+3buvvvuasQtSSKRwOfz4fPJt7oQQggh3likeinD9u3baWlpyVukA3R0dACwY8cOTjrpJABuu+02brvttul9Hnnkkem/b9myhZ/97Gc8+eSTpFIpli1bxumnn87pp58+p3wvv/wy//M//zO9LMd1XXp7ezn99NM55ZRT9tp3/fr1XHvttfziF7/glltu4e677yYajXLNNdcUXCf+wAMPsG3bNj7wgQ/MKNKnLFu2jLPPPnuvx7Zt28ZPf/pTnnzySTKZDG95y1tYt27djEyFPP/886xfv55HH32UyclJli5dyoknnsgZZ5yBaZrT+1166aXcdttt3HXXXXz/+9/nT3/6EyMjI9xyyy0sWbKkpLGEEEIIIeqFFOpl6O7u5pVXXuGee+7huOOOK7hfW1sb3/jGN7jkkkt429vexqmnnjpjn5tvvpl///d/52/+5m84++yzaWxsZMuWLVx55ZW8+uqrfP7zny873yOPPMK2bdt473vfy5IlS0gkEtx9991cccUVjIyMcNZZZ814zte//nUCgQCf+MQnUEpNn2zk84c//AGAD3/4wyVnuv/++/nSl75EOBzmjDPOwLZtfv/733PFFVfw6quvcsEFFxR9/p7LjdatW0c4HOaBBx7gBz/4Ac8//zxXXHHFjOdccMEFhMNhzjnnHCYnJ7Ftu+S8QgghhBD1Qgr1Mpxzzjls2bKFiy++mGXLlvHWt76VQw89lLe//e309vZO79fY2Mjq1au55JJLWLp0KatXr97rdaLRKN/+9rc5/vjj+dd//dfpx9etW8e3v/1tfv7zn3PaaafR3d1dVr41a9bMmI3/+Mc/zt///d9zww038MlPfnLGEpCmpiauueaakpaGvPjiiwAFP1F4Pdd1+eY3v0ljYyMbNmxgn332AeAjH/kIn/3sZ9mwYQNr165l2bJlBV/j29/+Nul0muuvv579998fgL/7u7/jq1/9Kr/97W856aSTeOc737nXc5YvX87ll19eUkYhhBBCiHol7RnLcNhhh3HjjTdy4oknMjExwa233sqVV17JunXrOPfcc+nv7y/pde6++25SqRQnn3wyo6Oje/153/veh+d5PPTQQ2Xna2xsnP57MplkdHSU8fFxjjzySOLxOC+//PKM53z84x8vef12PB4HIBgMlrT/008/za5duzjppJOmi3QAy7L41Kc+hed53HfffQWfPzw8zF/+8heOPvro6SIdQCk1vbzmj3/844znnXHGGSXlE0IIIYSoZzKjXqYVK1Zw6aWXArBz5062bt3KLbfcwqOPPsoXv/hFbrzxRizLKvoaUwXz+eefX3Cf4eHhsrM5jsNPfvIT7rrrLgYGBmZsHx8fn/FYsdns15sq0B3Hobm5edb9d+zYAcB+++03Y9vy5csBePXVV+f0/N7eXgzDyPv8fffdd9ZsQgghhBD1Tgr1eVi8eDEnnngia9as4TOf+QyPP/44Tz75JIcffnjR52mtAbjssssKrglfunRp2Xn++Z//mQcffJBTTz2VI444gpaWFgzD4E9/+hM33XQTnufNeE45/c6XL1/OM888w7PPPss73vGOsvNVi/RwF0IIIcSbgRTqC0ApxcqVK3n88ccZHBycdf+enh4AWltbede73rUgGWKxGA8++CCrV6/mn/7pn/baNpdlNPkcd9xx3H777WzatKmkQn3qZOOll16asW3qsWInJFOdWvI9/+WXX8bzvDmd0AghhBBCvBHIGvUybN68mUwmM+PxRCLB5s2bgb2Xadi2zdjY2Iz9P/CBD+D3+1m/fj2JRGLG9omJCVKpVFnZDCP7Vk7N1k+JRqNs2rSprNcq5Oijj+aII47gd7/7Hb/85S/z7hOJRLj++usBOOigg1i0aBG33nrrXj3mM5kMGzduRCnFMcccU3C89vZ2DjvsMO6//35eeOGF6ce11tNjvP/971+IL00IIYQQou7IjHoZrr76asbGxjj66KNZsWIFDQ0NDAwM8Nvf/pbt27ezZs0aVqxYMb3/ypUreeihh7jhhhtYtGgRSilOOOEEurq6+MpXvsIVV1zBunXrWL16NYsXL2ZkZIQXXniBe++9l1/+8pdl9f4OBoMceeSR3HnnnQQCAQ499FB27tzJzTffzNKlS/OeMJRLKcVVV13FF77wBa666iruuOMOjj76aMLhMLFYjMcee4z7779/unWlaZpcfPHFfOlLX+LMM8/k1FNPxbZt7rrrLp544gnOOuusWdfIX3TRRZx33nmce+650+0ZH3zwQf73f/+XD37wgzM6vgghhBBLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.amax(rgbs[s])*albs[s],s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Snow/Ice Color\")\n",
"plt.savefig(\"colorgrid_snow.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 166,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 167,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 168,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd8VVXW+P/PSoFQQg8tCb13MBQrNhAbiBXbWIfRQQfHrz7q6FgY9XGc3ziPjig6iKgjYseMMwziKDp0EnrvkIQWAoFQEnJz1++PfZJcQhrl5iZkvV+v+7qn7HPOupew1z37nLO3qCrGGGNMacJCHYAxxpjKz5KFMcaYMlmyMMYYUyZLFsYYY8pkycIYY0yZLFkYY4wpkyULY4wxZbJkYaosEdkqIpd708+LyN/P0H4vFpHUM7GvUo6xSkQuLmX9LBG5/zT2ryLSwZueICK/D1j3oIjsFpFDItJYRM4XkQ3e/HWnekxzdrNkUUWJyAUiMldEDojIPhGZIyL9QxDHOhHpJCKTReTFij5+VaWq3VV1FpzZRFfCsR5Q1T94x4oEXgOGqmpdVc0AxgFvevPTghVHcUTkbhGZXdHbmpMXEeoAzMkTkXrAt8CDwGdADeBCIKeC42gPhKvqehGpyEObU9cMiAJWBSxrXWS+3EQkQlV9ZyKwilaVYw8FO7OomjoBqOonqpqnqkdV9TtVXQ6Fv7hE5P8Tkf0iskVErszfWERaikiid0ayUUR+6S2PEpGjItLEm39aRHxeckJE/iAi/xcQx9XAv4oLMODMJ1NEUkTkbm95TS+u7V5TyAQRqVXCPtqLyA8ikiEie0XkYxFpUMr3EiUin4pIlogsFpHeRT7zlyKS7n0fvwlYV8s7M9ovIquB487QRKSr1yyU6TUfDS8h3ktEZEXA/EwRWRQw/9/8Zp78JjQRGQb8DrjFawZaFrDL1t4ZY5aIfJf/71LCsR8XkZ0iskNE7i2ybrKIvCginYB13uJM77vdBLQD/uEdv6aI1BeR97z9pXnbhnv7utuL6S8ikgE87y2/V0TWeN/hDBFpHXB8FZEHvKauTBEZL05XYAJwrnfszBI+290istn7HraIyO0lbSsiV4vIEhE56P3dPR+wnzZeLPeJyHbgB+9v/u/e31imiCwSkWYlfc/Vmqraq4q9gHpABvABcCXQsMj6u4Fc4JdAOO4MZAcg3vqfgbdwvzD7AOnApQHrbvCmvwM2AVcGrBsZcJx/A1d405OBF73p1kAWcCsQCTQG+njr/gIkAo2AaOAfwP+W8Dk7AEOAmkCMd/z/C1i/Fbjcm37e+8w3esd8DNjiTYcBycCzuLOwdsDmgNhfAf7rxRQPrARSvXWRwEZchV4DuNT7bJ2LibcWkA008bbbDaR5n7MWcBRoXELsfy+yr1ned9/J23YW8EoJ39Mw71g9gDrAFECBDsX827Tx1kUU9z16818D73j7agosBH4V8LflAx7GtUzUAkZ431FXb9kzwNyA/SnuTLgB0Ar39zYsYH+zS/lbrwMczP++gRZA95K2BS4Genr/5r287+W6Ip/9Q2+/tYBf4f4Ga+P+r5wD1Av1//HK+LIziypIVQ8CF+D+8P8GpHtnCoG/iLap6t9UNQ+XVFoAzUQkHjgfeEJVs1V1KTAR+IW33U/AYBGJwP1ne8Obj8L94v4ZQERqe/OzignxNuB7dWc+uaqaoapLRUSA0cBvVXWfqmYBLwOjSvicG1V1pqrmqGo6rq19cClfTbKqfqGquV7ZKGCQF2eMqo5T1WOqutn73vKPezPwkhdTiveZ8w0C6uIq6mOq+gOu4ru1mHiPAouAi3CVzjJgDu77HgRsUHeNoLzeV9X13n4/wyX24tzslV2pqofxfu2fCu9v6CrgEVU9rKp7cAk+8N9oh6r+VVV9XmwP4BL+GnXNOi8DfQLPLnDfX6aqbgd+LOWzFMcP9BCRWqq6U1VLbDJT1VmqukJV/erOtD/hxL+Z573PdhT3A6MxLrHmqWqy9//LFGHJoory/mPerapxuF+ULYHAJqJdAWWPeJN1vXL5FXW+bUCsN/0T7tdZP2AFMBP3n20QsDGgsrsM9+uxuOsk8bhfxUXF4H7BJXun/Jm4s5OY4j6jiDQTkaleU8hB4O+4X+0lSQn4zH4g1fu8rYGW+cf0jvs7XPs9XpmUgP1sC5huCaR4+wtcH0vx8r+/i7zpWbjvb7A3fzJ2BUwfwf37Fae0+E9Wa9xZ0c6A7+od3BlGvpRitnk9oPw+QDj+OyrvZzmOl/xuwSWknSLyTxHpUlJ5ERkoIj96zY0HvO2K/s0Exv8RMAOY6jXhvSruJgBThCWLs4CqrsU1NfQoR/EdQCMRiQ5Y1grXXAIwF+gMjAR+UtXV3vqrOL6yu4oSrlfg/jO2L2b5XlxTTHdVbeC96qtqSRXHy7izp56qWg+4A1cJlSQ+f0JEwoA43OdNAbYEHLOBqkar6lVe8Z2B23qfN98OIN7bX+D6NIpXNFn8RNnJ4nTHCSgt/pOVgrtRoknAd1VPVbsHlCkabwqumSrw+62lqnPLcbwyP7uqzlDVIbiz47W4s8KStp2Ca+aMV9X6uOsaRf9mCrbzznxfUNVuwHnANRSeZZsAliyqIBHpIiL/T0TivPl4XLPI/LK29ZpZ5gL/613c6wXch/vVnn8WkgyMobBym4v7hRZY2V0J/LOEw3wMXC4iN4tIhLh7+ft4v87/BvxFRJp6sceKyBUl7CcaOAQcEJFY4PEyPt45InK914T2CK7Sm49rc88SkSfEXcwOF5EeUnir8WfAUyLS0PtOHw7Y5wLcL+H/EZFIcc9GXAtMLSGG/GQ7AFjoNZm0BgbiNeEVYzfQpkhCOhmfAXeLSDevefC5U9wPqroTd63qzyJST0TCxN1oUFrz3wTc99cdwLtAflM5D7kbiBORGsWt9M4uR4hIHdy/5yFcs1RJ20bjzpyzRWQArkm0ROJuSujpXcA/iGuW8pe2TXVlyaJqysJVPgtE5DCuQlwJ/L9ybn8r7mLfDtzFzOdU9fuA9T/hmiIWBsxHU3i9ogdwyGt/PoG3/Covnn3AUiD/zqQncBdD53tNS9/jKtfivIBrDjuAS0xflfG5vsE1WewH7gSu93455uF+MfbBXfTei7tOUz/gONu8dd/hmibyP8sxXHK40tvuLeAX3tlccZ/9MLAYWOVtCzAPdw1pTwlxf+69Z4jI4jI+Y3HHnI5rgvwB993+cLL7KOIXuIv5q3Hf5Re4X/UlHf9r4I+4ppyDuL/FK0sqX8QPuNt2d4nI3mLWhwGP4v5W9+HO0B4sZdtfA+NEJAt3Q8NnZRy/Oe7zHQTW4P7WPyp1i2oq/+4YY8pNRP4H10zxP6GOxRhTMeyhPHMqtuJuNzTGVBN2ZmGMMaZMds3CGGNMmSxZGGOMKVNQr1mI6/fmddxj9BNV9ZViytyMe+JUgWWqepu3PA/3UBjAdlUttj+efE2aNNE2bdqcueCNMaYaSE5O3quqxT4YGyhoycK7b3k8rm+fVGCRiCR6D3nll+kIPAWcr6r78++99xxV1XJ3CdCmTRuSkpLOUPTGGFM9iEi5nvgPZjPUAFz3EJu9+82n4jocC/RLYLyq7gco5T50Y4wxIRTMZBHL8X2wpHJifzqdgE7iujye7zVb5YsSkSRvebGjd4nIaK9MUnp6+pmN3hhjTIFQP2cRAXTE9aUTB/wsIj1VNRNorappItIO1+/8ClU9rnM6VX0XeBcgISHB7gE2xpggCeaZRRrHd24Wx4mdr6UCiV6XDFuA9bjkgaqmee+bcT139g1irMYYY0oRzGSxCOgoIm29jr5G4XqDDDQNd1aBuFHAOgGbvQ7dagYsPx/XT40xxpgQCFozlKr6ROQhXF/x4cAkVV0lIuOAJFVN9NYNFTeUZR7wuKpmiMh5wDsi4scltFcC76IyxhhTsc6a7j4SEhLUbp01xpwqVUUV/Kr4vXc4fl79+fNumea/45XxB+6jsIzm78fvyuaXCTyeFvOev11gecXtx++tV1Xq1YrkvPaljQtWMhFJVtWEssqF+gK3MdVafsWQ53eVi8+vbtqv5Kmbzn/5NfCdwnV64nq/H/LU249Xxn9CWQqW+QPK5leMgdP+E/bhYj+ujB6/X7+6shqwPw34rIGVcP66guUBlXJeQQV6/PLA2PwnVL6FlfdxlX0xFXnguqqqT3wDpo05tWRRXpYsTEipKrl5rrLI9fvx5Sk+7z3P7ypPX57fe/fWedP52+QFLM8rUs5fsI/8ijigXEB5V1H7C+aPW+/3e5Wznzx174Fl/Fq4TdEKPrBM0eX5Zaua8DAhXASRwmkkcLkQHkbAtBAmECZCWOB0wLrAcoIQFgaRYWHe9PHb5E+Hh7kYAqcFd+wwKbIOvP24aVfe+wzePhEpmBYvprCA+fzj539u8fZ1smXy9+tioqCMi7Mwbu9rLfj8UPjZjy8j1K4RHvR/d0sWVZzfqzBz85Rcn5/cPD/H8rz5PD/HvGU+v7fee/f5/RzLcxVxbkB5X55yzHvPzfO7fftchZkbWD6/Es/TItOF2+ZX9Ll5hZVuwT4CKs1QCMuv3MKEiLAwwgQiw8MKl4UXLo8IK1weFiZEetM1IsKoFSZEePMF+/KWheVXmmFhBZVneFgYEeFF1nnTYV5lGx5W5OVVsvnrTixXWCkGVtCBy8MCygeWDQsrWsl70wXxBlao7timerJkUQ6qrgI95vOT43Pvx3z+gmXH8vzk5AbM51faPj85ecfP5+Ydv23hciXHl19xB5ZTjvnyCirzwPL5FXKwhAlEhIdRIzysoPKMDBcivflIr+KLCA8j0qtg60ZGEBHmLfO2cdsGlgtY5u0zPCy/vLfeq9gii5QND5jOr3RPOE5YmPtlml/5S2HlH55fkVulZ8xJqfbJIvPIMe7/IKkgCeT48gKmCyv2M0UEaoSHUSPCVcKR+dMLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Snow/Ice albedo with different stars\")\n",
"plt.savefig(\"snow_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 169,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.50829202497667\n"
]
}
],
"source": [
"print teffs[-16],albb[-7]"
]
},
{
"cell_type": "code",
"execution_count": 170,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"seaicemin\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 171,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"seaicemin_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 172,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: seaicemin(965) = (/63.7232,63.8155,63.8870,63.9539,64.0566,64.1136,64.1879,64.3061, &\n",
" & 64.3513,64.4550,64.4961,64.6427,64.7033,64.7169,64.6058,64.5981, &\n",
" & 64.5453,64.4776,64.4476,64.3931,64.3236,64.2880,64.2511,64.1995, &\n",
" & 64.1227,64.0151,63.8082,63.4353,63.4578,63.2500,63.0222,62.7842, &\n",
" & 62.6513,62.3697,62.3330,62.0783,61.7111,61.4903,61.1514,61.0185, &\n",
" & 60.7199,60.3163,59.8497,59.3833,58.8037,58.3719,58.0844,57.7799, &\n",
" & 57.7347,56.4529,54.4746,53.4116,52.8343,52.0940,50.2247,47.6096, &\n",
" & 44.3354,42.2188,41.9084,43.6634,44.6948,45.2152,44.7806,43.1203, &\n",
" & 40.4363,36.2569,32.0581,28.3198,26.5904,25.9552,25.9938,26.2599, &\n",
" & 26.2138,26.4962,25.9052,24.9788,22.6739,12.8247,4.5918,2.9693, &\n",
" & 2.2126,1.9515,2.0933,2.1886,2.5550,2.8920,3.2142,3.5190, &\n",
" & 4.2278,4.7224,5.5441,6.3847,6.7416,7.2386,7.9924,8.7012, &\n",
" & 9.5166,10.3728,11.2507,9.9134,5.5240,3.1801,1.9787,1.5174, &\n",
" & 1.2430,1.1157,1.1005,1.1583,1.1970,1.3134,1.4837,1.7808, &\n",
" & 2.2831,2.8606,3.5824,4.2370,4.9506,5.8203,6.3143,6.2492, &\n",
" & 6.0380,5.6488,5.1334,4.5857,4.0927,3.6582,3.2805,2.9925, &\n",
" & 2.7621,2.5789,2.4570,2.3616,2.3057,2.2514,2.2056,2.1788, &\n",
" & 2.1326,2.0917,2.0420,2.0007,1.9601,1.9172,1.8783,1.8391, &\n",
" & 1.7909,1.7602,1.7449,1.7196,1.6894,1.6768,1.6675,1.6590, &\n",
" & 1.6508,1.6266,1.6125,1.5657,1.5037,1.4287,1.4231,1.3273, &\n",
" & 1.2335,1.0782,0.9869,0.9028,0.7958,0.6889,0.6103,0.5741, &\n",
" & 0.5001,0.5008,0.4828,0.4488,0.4386,0.4334,0.4121,0.4230, &\n",
" & 0.4212,0.4468,0.4690,0.5045,0.5632,0.6177,0.7068,0.8399, &\n",
" & 0.9841,1.1874,1.3805,1.5971,1.8185,1.9920,2.1622,2.3333, &\n",
" & 2.4789,2.6757,2.8816,3.1596,3.4815,3.8530,4.2589,4.7316, &\n",
" & 5.1532,5.4979,5.7163,5.7553,5.6729,5.4702,5.2866,5.1573, &\n",
" & 5.0746,5.0192,4.9799,4.9245,4.8633,4.7516,4.6264,4.4680, &\n",
" & 4.3103,4.1565,4.0070,3.8803,3.7587,3.6398,3.5423,3.4494, &\n",
" & 3.3645,3.2944,3.2218,3.1556,3.0903,3.0362,2.9913,2.9452, &\n",
" & 2.8800,2.8324,2.7996,2.7676,2.7294,2.6935,2.6455,2.6056, &\n",
" & 2.5821,2.5509,2.5180,2.4942,2.4741,2.4497,2.4154,2.4060, &\n",
" & 2.3861,2.3648,2.3461,2.3276,2.3192,2.3056,2.2913,2.2694, &\n",
" & 2.2541,2.2482,2.2252,2.2128,2.2043,2.1874,2.1756,2.1636, &\n",
" & 2.1464,2.1237,2.1239,2.1145,2.0892,2.0812,2.0709,2.0539, &\n",
" & 2.0399,2.0322,2.0227,2.0077,1.9960,1.9895,1.9860,1.9731, &\n",
" & 1.9544,1.9485,1.9435,1.9292,1.9186,1.9109,1.9042,1.8996, &\n",
" & 1.8959,1.8878,1.8730,1.8655,1.8619,1.8563,1.8537,1.8456, &\n",
" & 1.8353,1.8303,1.8194,1.8062,1.8070,1.8132,1.8019,1.7884, &\n",
" & 1.7870,1.7850,1.7790,1.7750,1.7722,1.7668,1.7646,1.7610, &\n",
" & 1.7544,1.7534,1.7485,1.7372,1.7297,1.7285,1.7269,1.7225, &\n",
" & 1.7213,1.7192,1.7140,1.7126,1.7134,1.7085,1.7014,1.6990, &\n",
" & 1.7000,1.6983,1.6937,1.6914,1.6891,1.6896,1.6921,1.6941, &\n",
" & 1.6951,1.6907,1.6918,1.7028,1.7100,1.7077,1.7049,1.7076, &\n",
" & 1.7095,1.7085,1.7091,1.7140,1.7199,1.7250,1.7300,1.7333, &\n",
" & 1.7338,1.7336,1.7351,1.7389,1.7447,1.7471,1.7468,1.7431, &\n",
" & 1.7398,1.7380,1.7360,1.7367,1.7392,1.7376,1.7316,1.7263, &\n",
" & 1.7257,1.7252,1.7207,1.7181,1.7199,1.7218,1.7178,1.7114, &\n",
" & 1.7078,1.7051,1.7014,1.7003,1.7018,1.7020,1.7007,1.6983, &\n",
" & 1.6959,1.6943,1.6916,1.6890,1.6893,1.6862,1.6815,1.6781, &\n",
" & 1.6726,1.6656,1.6636,1.6578,1.6550,1.6560,1.6571,1.6532, &\n",
" & 1.6515,1.6473,1.6399,1.6334,1.6275,1.6223,1.6231,1.6230, &\n",
" & 1.6103,1.5989,1.5967,1.6010,1.5994,1.5895,1.5710,1.5603, &\n",
" & 1.5617,1.5642,1.5639,1.5645,1.5655,1.5597,1.5477,1.5402, &\n",
" & 1.5404,1.5419,1.5375,1.5312,1.5150,1.5049,1.5107,1.5245, &\n",
" & 1.5229,1.5142,1.5052,1.4768,1.4598,1.4622,1.4786,1.4691, &\n",
" & 1.4473,1.4337,1.4385,1.4521,1.4600,1.4541,1.4455,1.4343, &\n",
" & 1.4196,1.4112,1.4009,1.3895,1.3875,1.3893,1.3948,1.3930, &\n",
" & 1.3844,1.3628,1.3410,1.3357,1.3443,1.3516,1.3474,1.3397, &\n",
" & 1.3217,1.3010,1.2949,1.2994,1.3090,1.2892,1.2670,1.2677, &\n",
" & 1.2852,1.3174,1.3207,1.2899,1.2624,1.2610,1.2804,1.2990, &\n",
" & 1.2837,1.2516,1.2244,1.2220,1.2461,1.2781,1.2761,1.2604, &\n",
" & 1.2609,1.2742,1.2982,1.3041,1.3061,1.3248,1.3407,1.3650, &\n",
" & 1.3872,1.3638,1.3430,1.3235,1.3262,1.3772,1.4351,1.4566, &\n",
" & 1.4594,1.4564,1.4654,1.4959,1.5177,1.5180,1.5103,1.5023, &\n",
" & 1.5073,1.5234,1.5386,1.5638,1.5723,1.5689,1.5709,1.5705, &\n",
" & 1.5709,1.5727,1.5771,1.5821,1.5845,1.5847,1.5654,1.5373, &\n",
" & 1.5231,1.5110,1.5104,1.5276,1.5346,1.5039,1.4638,1.4257, &\n",
" & 1.4197,1.4515,1.5116,1.5455,1.5372,1.4970,1.4569,1.4447, &\n",
" & 1.4516,1.4817,1.5147,1.5241,1.5124,1.4961,1.4764,1.4606, &\n",
" & 1.4681,1.4896,1.5120,1.5048,1.4759,1.4617,1.4671,1.4871, &\n",
" & 1.5125,1.5349,1.5344,1.5216,1.5194,1.5261,1.5323,1.5405, &\n",
" & 1.5578,1.5668,1.5493,1.5179,1.4993,1.4957,1.4992,1.5131, &\n",
" & 1.5326,1.5300,1.4985,1.4779,1.4770,1.4856,1.5046,1.5320, &\n",
" & 1.5516,1.5561,1.5586,1.5541,1.5434,1.5326,1.5242,1.5227, &\n",
" & 1.5312,1.5459,1.5558,1.5528,1.5400,1.5254,1.5157,1.5151, &\n",
" & 1.5228,1.5362,1.5495,1.5511,1.5456,1.5409,1.5361,1.5306, &\n",
" & 1.5223,1.5173,1.5169,1.5177,1.5199,1.5227,1.5257,1.5282, &\n",
" & 1.5266,1.5273,1.5284,1.5232,1.5153,1.5104,1.5087,1.5098, &\n",
" & 1.5103,1.5064,1.4987,1.4910,1.4869,1.4863,1.4891,1.4941, &\n",
" & 1.4986,1.4989,1.5016,1.5038,1.5017,1.4942,1.4840,1.4730, &\n",
" & 1.4637,1.4596,1.4612,1.4677,1.4756,1.4817,1.4832,1.4816, &\n",
" & 1.4771,1.4699,1.4626,1.4563,1.4537,1.4537,1.4560,1.4585, &\n",
" & 1.4609,1.4611,1.4596,1.4567,1.4542,1.4521,1.4511,1.4513, &\n",
" & 1.4511,1.4507,1.4502,1.4492,1.4487,1.4485,1.4486,1.4481, &\n",
" & 1.4470,1.4442,1.4417,1.4378,1.4361,1.4352,1.4361,1.4372, &\n",
" & 1.4371,1.4368,1.4360,1.4351,1.4341,1.4341,1.4342,1.4339, &\n",
" & 1.4326,1.4310,1.4294,1.4280,1.4263,1.4245,1.4234,1.4223, &\n",
" & 1.4211,1.4220,1.4239,1.4256,1.4252,1.4250,1.4231,1.4196, &\n",
" & 1.4171,1.4136,1.4085,1.4044,1.4006,1.3979,1.3951,1.3940, &\n",
" & 1.3934,1.3918,1.3903,1.3871,1.3852,1.3831,1.3807,1.3797, &\n",
" & 1.3793,1.3764,1.3731,1.3680,1.3600,1.3531,1.3464,1.3423, &\n",
" & 1.3406,1.3397,1.3406,1.3414,1.3421,1.3407,1.3400,1.3384, &\n",
" & 1.3353,1.3339,1.3307,1.3289,1.3260,1.3238,1.3207,1.3179, &\n",
" & 1.3144,1.3126,1.3107,1.3096,1.3066,1.3031,1.2977,1.2936, &\n",
" & 1.2911,1.2916,1.2931,1.2949,1.2929,1.2886,1.2798,1.2699, &\n",
" & 1.2618,1.2548,1.2518,1.2490,1.2473,1.2473,1.2445,1.2427, &\n",
" & 1.2397,1.2364,1.2345,1.2324,1.2300,1.2258,1.2209,1.2170, &\n",
" & 1.2115,1.2049,1.1993,1.1915,1.1843,1.1785,1.1731,1.1683, &\n",
" & 1.1641,1.1594,1.1517,1.1429,1.1341,1.1228,1.1109,1.0991, &\n",
" & 1.0904,1.0825,1.0761,1.0708,1.0664,1.0620,1.0531,1.0425, &\n",
" & 1.0311,1.0186,1.0073,0.9936,0.9814,0.9693,0.9563,0.9435, &\n",
" & 0.9325,0.9241,0.9142,0.9029,0.8911,0.8786,0.8657,0.8534, &\n",
" & 0.8434,0.8345,0.8267,0.8190,0.8126,0.8057,0.7978,0.7887, &\n",
" & 0.7781,0.7668,0.7489,0.7336,0.7199,0.7095,0.7026,0.6986, &\n",
" & 0.6966,0.6926,0.6872,0.6803,0.6734,0.6689,0.6679,0.6687, &\n",
" & 0.6715,0.6767,0.6848,0.6936,0.7045,0.7181,0.7379,0.7617, &\n",
" & 0.7855,0.8113,0.8405,0.8716,0.9056,0.9361,0.9663,0.9983, &\n",
" & 1.0367,1.0727,1.1113,1.1524,1.2011,1.2434,1.2864,1.3371, &\n",
" & 1.3830,1.4297,1.4836,1.5288,1.5707,1.6169,1.6575,1.7052, &\n",
" & 1.7490,1.8001,1.8451,1.8894,1.9394,1.9812,2.0297,2.0707, &\n",
" & 2.1155,2.1536,2.1983,2.2376,2.2835,2.3279,2.3639,2.4031, &\n",
" & 2.4335,2.4689,2.5057,2.5368,2.5759,2.6161,2.6508,2.6918, &\n",
" & 2.7333,2.7685,2.8108,2.8507,2.8908,2.9262,2.9675,3.0086, &\n",
" & 3.0494,3.0828,3.1213,3.1594,3.1968,3.2331,3.2668,3.2993, &\n",
" & 3.3266,3.3574,3.3882,3.4178,3.4450,3.4704,3.4953,3.5193, &\n",
" & 3.5407,3.5602,3.5815,3.6040,3.6271,3.6533,3.6757,3.6976, &\n",
" & 3.7166,3.7314,3.7399,3.7458,3.7550,3.7625,3.7723,3.7848, &\n",
" & 3.8005,3.8101,3.8184,3.8237,3.8295,3.8310,3.8306,3.8317, &\n",
" & 3.8310,3.8332,3.8389,3.8504,3.8629,3.8761,3.8842,3.8891, &\n",
" & 3.8885,3.8889,3.8892,3.8901,3.8876,3.8819,3.8732,3.8592, &\n",
" & 3.8476,3.8402,3.8404,3.8389,3.8344 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/combinedspec.ipynb
+681
View File
@@ -0,0 +1,681 @@
{
"cells": [
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [],
"source": [
"import numpy as np\n",
"import matplotlib.pyplot as plt\n",
"%matplotlib inline"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [],
"source": [
"manifest = {}\n",
"with open(\"manifest.txt\",\"r\") as mn:\n",
" lines = mn.read().split('\\n')\n",
" for l in lines:\n",
" lfile = l.split()\n",
" if len(lfile)>0:\n",
" manifest[lfile[0]] = lfile[1]"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"0 andesitefine\n",
"1 andesitesolid\n",
"2 basaltsolid\n",
"3 brownsand\n",
"4 clearice\n",
"5 coarsesnow\n",
"6 dunesand\n",
"7 finesnow\n",
"8 frost\n",
"9 mediumsnow\n",
"10 seawater\n",
"11 tapwater\n",
"12 yellowloam\n",
"13 yellowsand\n"
]
}
],
"source": [
"names = sorted(manifest.keys())\n",
"ix = 0\n",
"for n in names:\n",
" print ix,n\n",
" ix+=1"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [],
"source": [
"ids = [0,1,2,3,6,12,13]"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"andesitefine\n",
"andesitesolid\n",
"basaltsolid\n",
"brownsand\n",
"dunesand\n",
"yellowloam\n",
"yellowsand\n"
]
}
],
"source": [
"for i in ids:\n",
" print names[i]"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [],
"source": [
"weights = np.zeros(len(ids))+1.0/7.0\n",
"weights[4] /= 2.0\n",
"weights[0:4] += weights[4]/6.0\n",
"weights[5:] += weights[4]/6.0\n",
"offset = weights[0]*0.5\n",
"weights[0:2] += offset\n",
"weights[2:4] -= 2*offset/4.0\n",
"weights[5:] -= 2*offset/4.0\n",
"offset = weights[2]*0.7\n",
"weights[2] += offset\n",
"weights[:2] -= offset/5.0\n",
"weights[3] -= offset/5.0\n",
"weights[5:] -= offset/5.0\n",
"weights[0] *= 2.0\n",
"weights[1:] -= 0.5*weights[0]/6.0"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0 [0.43178571 0.17991071 0.16133929 0.06383929 0.03544643 0.06383929\n",
" 0.06383929]\n"
]
}
],
"source": [
"print np.sum(weights),weights"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [],
"source": [
"wvref = np.loadtxt(\"wvref.txt\")"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"(965,)\n"
]
}
],
"source": [
"print wvref.shape"
]
},
{
"cell_type": "code",
"execution_count": 10,
"metadata": {},
"outputs": [],
"source": [
"specs = np.zeros((len(ids),wvref.shape[0]))\n"
]
},
{
"cell_type": "code",
"execution_count": 11,
"metadata": {},
"outputs": [],
"source": [
"for idn in range(len(ids)):\n",
" filename = manifest[names[ids[idn]]]\n",
" with open(filename,\"r\") as fileobj:\n",
" text = fileobj.read().split('\\n')\n",
" for k in range(len(text)):\n",
" if text[k].split()[0]==\"Additional\":\n",
" nhead = k+2\n",
" break\n",
" spec = np.loadtxt(filename,skiprows=nhead,ndmin=2).transpose()\n",
" if spec[0,0] > spec[0,-1]:\n",
" spec = np.flip(spec,axis=1)\n",
" specs[idn,:] = np.interp(wvref,spec[0,:],spec[1,:])"
]
},
{
"cell_type": "code",
"execution_count": 12,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"<matplotlib.legend.Legend at 0x7f8d7ec5dd90>"
]
},
"execution_count": 12,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXd4lFX2xz/v9Jn0CqGG0EMSkpBQhFCWFXRBiorYQURdXMuua9cVLLi6unZdf1ZUYFUsa0FFRWJCJ6GXQChJSCG9ZybT7u+PSQZCJr1C3s/z8JB55977nhnCmTPnnvs9khACGRkZGZkLH0VXGyAjIyMj0z7IDl1GRkbmIkF26DIyMjIXCbJDl5GRkblIkB26jIyMzEWC7NBlZGRkLhJkhy4jIyNzkSA7dBkZGZmLBNmhy8jIyFwkyA5dRkZG5iJB1Zk38/f3F8HBwZ15SxkZGZkLnuTk5AIhREBT4zrVoQcHB5OUlNSZt5SRkZG54JEkKb054+SUi4yMjMxFguzQZWRkZC4SZIcuIyMjc5HQqTl0GRmZ7oHFYiEzMxOTydTVpsicg06no1+/fqjV6lbNlx26jEwPJDMzEw8PD4KDg5EkqavNkQGEEBQWFpKZmcmgQYNatYaccpGR6YGYTCb8/PxkZ96NkCQJPz+/Nn1rkh36BYix3ExVmbmrzZC5wJGdefejrf8mskO/wDAbrXz+7C6+fCEZm9Xe1ebIyHQZ7u7urZq3dOlSDh8+DMCzzz7brDnr1q1j5MiRTJs2jaSkJO65555W3bujkZrTJFqSpL8BSwEBHABuAYKATwE/IBm4SQjRaNgYExMj5INFLac030h+Rjl9h3mz/ZuTHN6cDUDMrGCGjumFpACDlxatXt4SkWkeR44cYeTIkV1tRptwd3enoqKiU9a47LLLePzxx5k0aVKb7tccXP3bSJKULISIaWpukxG6JEl9gXuAGCFEGKAErgWeB14WQgwBioFbW2G7TAPYbHbSDxVSkFnO2ie3s+Hdg3y2cheHN2cTNWMA/Uf6kLQ+jf8+tYO1K3bwwQOJbHj3IJkpRTTnQ1pGpjswb948xowZw6hRo3jnnXcAh5N97LHHGD16NOPHjyc3NxeAU6dOMWHCBMLDw3n88cfrrPPCCy8QGxtLREQEy5cvB6CyspJZs2YxevRowsLC+OyzzwCYOnUqSUlJPPzwwxiNRiIjI7nhhhsAWL16NWPHjiUyMpI77rgDm83GU089xebNm7n11lt54IEHiI+PZ/bs2QCsWLGCJUuWMHXqVEJCQnjttdecNrlaq6NpbkinAvSSJFkAA5AD/AG4vub5j4AVwH/a28CeStL6NJJ+SEOlVaLWKIm7aRi/fXwEn94Gxl4xCAmJM6dKqSozI+yC3LQyju44w/HkPPz7uzM4OhCDh4Z+I33w9NM3+75CCDKPFBM0xAtJKXF02xkGRwegNbSujEqm+/Pkd4c4nF3WrmuG9vFk+RWjmhz3wQcf4Ovri9FoJDY2lquuuorKykrGjx/PypUrefDBB3n33Xd5/PHHuffee1m2bBk333wzb775pnONn3/+mdTUVHbu3IkQgjlz5pCQkEB+fj59+vRh/fr1AJSWlta593PPPccbb7zB3r17AUdk/Nlnn7FlyxbUajV33nkna9as4YknnuC3337jxRdfJCYmhvj4+DrrpKSksGnTJsrLyxk+fDjLli3j+PHjLte6+eab2/jONk6TDl0IkSVJ0otABmAEfsaRYikRQlhrhmUCfTvMyh5GQWY5u39Ox6e3geIzVUy8fjjDx/XGt48bBk8NKrUSgL7DfJxzho3tzYT5gzm2M5e9v2Sw45uTAKh1SqbeMJxhsb2bde+MQ0V8/8Y+goZ4YfDUcmJ3HqX5RibMH9z+L1Smx/Paa6/x9ddfA3D69GlSU1PRaDTOCHjMmDH88ssvAGzZsoUvv/wSgJtuuomHHnoIcDj0n3/+maioKAAqKipITU0lLi6Ov//97zz00EPMnj2buLi4Rm3ZuHEjycnJxMbGAmA0GgkMDGzyNcyaNQutVotWqyUwMJDc3NxWr9VWmnTokiT5AHOBQUAJsA64rLk3kCTpduB2gAEDBrTOyh6CzWpn94Z0kn5MQ6tXMfdvUSgUEnoPDQAB/T0ana9SKwmd2IfQiX2wmG2UFRiJX32UX94/zMk9BUy8eggevrpG1zi+Ow+VWkHuqTLsNoHeQ83x5FzGzwuRqyIuUpoTSXcE8fHx/Prrr2zbtg2DwcDUqVMxmUyo1Wrn75pSqcRqtTrnuPodFELwyCOPcMcdd9R7bvfu3fzwww88/vjjTJ8+nSeeeKJBe4QQLFq0iH/+858teh1ardb5c629rV2rrTSnyuWPwCkhRL4QwgJ8BUwEvCVJqv1A6AdkuZoshHhHCBEjhIgJCGhS/bHHYbfZObk3H0u1je/f2MfO704xODKAa/8xDjcvrdOZtxS1RolfH3fm/z2KcXMGkXaggLUrtrN/02mE3XWO3Wazc2pvPoOjA5n71yguXRLK+HmDKSswkZ9R3paXKSNTj9LSUnx8fDAYDKSkpLB9+/ZGx0+cOJFPP/0UgDVr1jivz5w5kw8++MC5uZmVlUVeXh7Z2dkYDAZuvPFGHnjgAXbv3l1vTbVajcViAWD69Ol88cUX5OXlAVBUVER6erNEDuvRnmu1hObk0DOA8ZIkGXCkXKYDScAm4GoclS6LgG86ysiLmW3/O8neXzLwCtRTmmckbuFQIqb1b7f1FUoFMX8axLCxvfn9v0dJ/CyV9IOFzP7LaCRF3Wgn62gx1VVWBkcH0GeoNwCmSgu/rzlKalIegQM9280uGZnLLruMt99+m5EjRzJ8+HDGjx/f6PhXX32V66+/nueff565c+c6r8+YMYMjR44wYcIEwLGpunr1ao4fP84DDzyAQqFArVbzn//U3+K7/fbbiYiIIDo6mjVr1vDMM88wY8YM7HY7arWaN998k4EDB7b4tYWGhrbbWi2huWWLTwILASuwB0cJY18czty35tqNQojqxtaRyxbrcjw5jw3vHiRwoAd56eUEBnty9YNj6jna9kIIwe4N6Wz/30nm3BNJ/1DfOs9vWp1C6q5clrw4yZmnB/j+jX3knipj7t8i8e/XeNpH5sLgYihbvFjp0LJFACHEciHECCFEmBDiJiFEtRDipBBirBBiiBBiQVPOXMbhULNTS7BabFSWVhO/NoXAYE+ufHAMl98RzmW3h3WYMwdH/jFy+gC0bioOb8mu93zGoUIGjPKt48wBJl49BJVGwdcv7qYop7LD7JORkWkb8kmUTuTE7nw2vHsQD18ddrvAWm1n+qKRKJUKQqI6Z39BqVYwfFxvDiZkYaqwoHN3lCOWFRqpKK4maoZPvTk+vd2Yd180q/+xjfSDhfgGuXWKrTIyMi1DPvrfiezbeBp3Hy0efjoC+rsz666ILnGOoRP7YLcKju4447yWc9xRoxs0xMvlHK8APVo3FaV5VZ1io4yMTMuRI/QOxGa1c/pwEVVlZqqrrJw5WcqkBUMZPb39Nj1bg19fdwIGeJCalOu0Jed4CRqdEr++DetjeAcaKMkzdpaZMjIyLUR26B1ExqFCNq1OoaL47NaC1qBixCVBXWjVWQaE+rLn5wzMJisanYqcE6X0HuyFopEcvneggaxjxZ1opYyMTEuQHXoHUJJbxU81ufJZ1w/Hr687dptArVV2GwGtPkO9Sf4pndxTZQT096Aou5KhMb0aneMVqOfojjNYzDbUGmWjY2VkZDofOYfezthtdn569yBKpYLZd40mONwfD18dXgF6DJ6tOyTUEfQe7IUkQXZqCdnHSwDoM9R1/rwW70ADAGX5ctpFpuvpTPnclrB48WK++OKLevc6l1WrVnHXXXe1+71lh97OHE/OozCzginXD2/ymH1XotGpCBjgQXZqCYcSs9B7qAkMbvzgkFegQ+SrRN4YlbmAee+99wgNDQU6xqE3dK/OQHbo7YiwC5J/Sse3jxuDO6kMsS0EDfUm50QpGYeKiPzjgHr15+dTG6GXyhujMu3EhSCfa7PZWLx4MWFhYYSHh/Pyyy8DsHfvXsaPH09ERATz58+nuLj+/lLtvQA+/PBDhg0bxtixY9myZUsHvJtyDr1dObW/gKLsSi5dEtqhB4Taiz5DvNn362m0birCpjQtlqnRq9B7aijJlSP0i4ofH4YzB9p3zd7hcPlzTQ67EORzR40aRVZWFgcPHgSgpMSRorz55pt5/fXXmTJlCk888QRPPvkkr7zyisvXmZOTw/Lly0lOTsbLy4tp06Y51SHbEzlCb0cOJWTh7qNlyJiOl8lsD/oM9UalURA9YyAaXfM+270D9XLKRabdeO2115yReEPyuWlpaYBDPve6664DHPK5tZwrnxsdHU1KSgqpqamEh4fzyy+/8NBDD5GYmIiXV+N7ROdK3kZGRrJx40ZOnjxJSEgIJ0+e5O677+ann37C09OT0tJSSkpKmDJlCgCLFi0iISGhwbV37NjB1KlTCQgIQKPRsHDhwra8bQ0iR+jtRFmBkYwjRcTOGoRCeWF8Turc1Cx6diJat+b/Grj76MhNa99mCDJdTDMi6Y7gQpLP3bdvHxs2bODtt9/m888/d6ZduhsXhue5ADiyNQcJGNlN6sybi85d3SKdc527GlOFpQMtkukpXCjyuQUFBdjtdq666iqeeeYZdu/ejZeXFz4+PiQmJgLwySefOKN1V4wbN47ff/+dwsJCLBYL69ata8E71XzkCL0dsNvsHN6SzYAwv25d2dIe6N3VmI1WbDY7ygvkm4hM9+RCkc/V6/Xccsst2O12AGcE/9FHH/HnP/+ZqqoqQkJC+PDDDxu0PSgoiBUrVjBhwgS8vb2JjIxs8fvVHJoln9teXKzyuSf35vPj2wf407JwBo3u/tUtbeFAfCYJnx7jln9N6lZ19TItQ5bP7b50uHyuTOMLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for idn in range(len(ids)):\n",
" plt.plot(wvref,specs[idn,:],label=names[ids[idn]])\n",
"plt.xscale('log')\n",
"plt.legend()"
]
},
{
"cell_type": "code",
"execution_count": 13,
"metadata": {},
"outputs": [],
"source": [
"wtspec = np.copy(specs)\n",
"for n in range(len(ids)):\n",
" wtspec[n,:] *= weights[n]"
]
},
{
"cell_type": "code",
"execution_count": 14,
"metadata": {},
"outputs": [],
"source": [
"netspec = np.sum(wtspec,axis=0)"
]
},
{
"cell_type": "code",
"execution_count": 15,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzt3Xd4HNW5x/Hv2V31Xl3VLFly773gQjU9EFqoCeDQLiUhCRCScAkkuQklQBKIMS2U0A0OmFDcjatc5SrZsmVJltV7L+f+IblL1q62zO7q/TyPH8uzszMvZv3T0ZlTlNYaIYQQns9kdAFCCCEcQwJdCCG8hAS6EEJ4CQl0IYTwEhLoQgjhJSTQhRDCS0igCyGEl5BAF0IILyGBLoQQXkICXQghvITFlTeLjo7WiYmJrrylEEJ4vM2bN5dorWO6O8+lgZ6YmEh6erorbymEEB5PKZVjzXnS5SKEEF5CAl0IIbyEBLoQQngJCXQhhPASEuhCCOElJNCFEMJLdBvoSqk4pdRypdRupdQupdQDHcefUErlK6W2dfy62Pnlit6qubWNhuZWMgurKalpNLocIdySNePQW4Cfa623KKVCgM1KqW87Xntea/2M88oTArTWXPfPdWzLraBNw6zUGN76ySSjyxLC7XTbQtdaF2itt3R8XQ3sAQY4uzDh2Vpa2xx2rdVZJWw5XMG8Ef3w9zGxMrOYmsYWh11fCG9hUx+6UioRGAts6Dh0n1Jqh1LqdaVUhINrEx5o7YESrn55LamPf8W1/1xH+qEyu673742H+flH2+kT6sdz143mzR+3t8zXZBU7olwhvIrVga6UCgY+AR7UWlcBLwPJwBigAHi2i/fNV0qlK6XSi4vlH6E3W7g6mxsXbqC4upFbpiaSU1rLD19Zx+8+30ltD1rUlfXNPLF4F7Ehfrx0wzj8LGbGJ0QQ6m9h2d4iJ/wXCOHZrAp0pZQP7WH+rtb6UwCtdaHWulVr3Qa8CnTaqam1XqC1nqC1nhAT0+3aMsKNtbZp2tp0p68t2prHU1/uYd6Ivvz3wZk8cflwlj88m9umJfKv9Tlc9MIqcsvqbLrff7YfobGljT9eNZJJSZEA+JhNzEqLZdne4i5rEaK3smaUiwJeA/ZorZ876Xi/k077AbDT8eUJd3GwpJbpf1rG4Me/4voF62hobj3+WkZeJb/6OIMpgyL563VjCfRtf9Ye6GvhicuH8+FPp1JZ18wdb6Vb3ffd2qZ5d8Nh0vqEMHJA2CmvnTsklpKaRjLyK48f01rb/A1DCG9jTQt9OnAzMPe0IYp/VkplKKV2AHOAh5xZqDBORV0Tt7+5iabWNm6eksD67DJeWXkAaO8Wuee9zUQH+/KPG8fjaznzIzUxMZJ/3DiefYXVLFydbdU93/j+IHsKqrhnTjLtbYoTZqXGYFKwtKPbRWvN45/tZOafl7MyU7r1RO/V7bBFrfUaQHXy0hLHlyNsUdXQzO4jVaTEBhMd7OeUe5TUNHLLaxvJK6/n3TsnMzExkpKaRv6x/ABpfUJYuOYgBRUNfPDTqUQG+XZ5nRmDo5mVGsN7Gw5z75wUfMxdtyWaWtp4cWkWs9NiuHx0/zNejwjyZVx8BMv3FvGz81PZeLCMdzccBuDtdYeYlSpde6J3kpmiHkprzQP/3sr1C9Yz4anvOO+5lWQWVjv0HpX1zVz3z3Vkl9Tw6q0TmJjY3o/920uH0TfMn7vf3cLWw+W8eMNYxid0P8jp1mkJFFU38t+dR8963toDJVQ1tHDT5IQzWufHzB0aS0Z+JYVVDXyYnkewn4UfT09k2d4iiqtl4pHonSTQPYjWmqe+2M01r6zlkU8yWL6vmNtnJPH4JUOprG/mqn+s5ZtdZw9LW+718EfbySmt443bJp3S6o0N9Wfpz2fxwvVjeO22iVw8st9ZrnTCrNRY+ob6dxvo/915lCBfMzMGR3d5zrlD+gDw0rIslmQUcOmoflwxZgBtGjbZOVRSCE/l0h2LRM+0tmlKaxp5eeUB3vj+EP3C/NmRV8m5Q2J5dN4QLGYTF4/sx53/Smf+25uZkRLNI/OGMOK0h4m2eP37Q3y7u5DfXDqMqclRZ7zuYzZxxRjb5peZTYpJSZFsOFiK1rrT1veRinqWZBQwd2gf/H3MXV4rtU8wk5MieWf9YfqF+fPTWckMjAjA38fExoNlVn+TEcKbSKC7uZrGFq76x/dkFtYAcOPkeJ66csQZYdg/PIBP7p7GO+tz+MeKA1zzyjo+vWcaQ/uF2nzP3LI6nvl6H+cOieUn0xMd8Z9x3MTECBZvP0JeeT1xkYGnvNbQ3Mpd72ymTcMD5w4+63WUUrx35xRWZxUzckAYUR3PEMbGRZCeIy100TtJl4ube+brfWQV1fCLC9P48v4ZPP2DkV32K/v7mLlj5iD++8BMQvwtzH87nYq6Jpvu19am+c3nOzEp+H0n3zjsNT6hvR++s9D9zWc72ZFXyXPXjiYlNrjba5lNitlpscfDHGBcQji7j1TR1OK4pQeE8BQS6G7s1VXZvLn2ELdOTeTeOSkM729dF0psqD+v3DyewspG7n5ni9Xh1tqmefTTDFbsK+aXFw2hf3iAPeV3Kq1vCCF+FjYdKj/l+LbcCj7anMe9c5K5YHjfHl+/f3gAbRrKbfxGJoQ3kEB3U8v3FfH0kj1cMqofj148xOb3j4uP4E9Xj2RddikPf7TdqlmVf1yyhw/Sc7n/3MHcMjWhJ2V3y2xSjEuIYEN26SnH3994mAAfM3fNSrbr+lFB7a11GekieiMJdDfU3NrG77/YzaDoIJ6/dgx+lq4fDp7NVeMG8suL0li8/Qj3vreFIxX1XZ6bU1rLm2sPcf3EOH52fqrDu1pONi05igPFtRRVNQDtwyMXbz/CZaP7EeLvY9e1Y0Lax8LLmumiN5JAd0MvfJdFdnEtv75kaKczL21x96xkfnlRGsv2FnHusyt5cWnWKdP2j/nrd1lYzIqfnZ9q1/2sMS25fTjiuuxSWts0D32wjaaWNm6Zmmj3tY+10Etrzt7l0tnfgRCeTka5uJGCynre/P4Q/1yVzXUT4jh3aB+7r6mU4p7ZKVw2qj9/WLKH577N5MP0XH598VAuGtEXpRTph8r4bFs+888ZRGyovwP+S85uWP9QQv0trN1fSkVdM8v2FvH7K4bbNczymOiQ9kDvqoW+cHU23+wqZFteBW//ZBKTB505JFMITyWB7iaaWtq49fWNHCiu5cLhffjfK4Y79PpxkYG8fNN41h4o4cn/7Obud7cwMTGCK8cO4P++2kt8ZCB329l/bS2zSTFlUBTf7D7K17uPMi05ipumOKbPPsjXjL+PqdNAr6xr5qkv9xz/8y8+3sFXD8wkyE/+GQjvIF0ubuK1NQfJLKzhlZvG88+bJ5x1Uo09piVH88X/zOD3V44gv7yeXy/aSbCfhXfvmEx4YNdrsTjag+elEh7oS3VDC49fMsxhffZKKaKC/DrtctnYMYP01Vsm8MH8KRwuq+M3n+2kVZbhFV5CmiZuYNeRSp7/LpMLhvXh/GH2d7N0x2I2cfOUBK6fGMfyvUUMHxDGACcMUTybYf1D+e+DMymubmRgRGD3b7BBdIgfxZ200Ddkl+JrMTFzcDT+PmYePG8wf/0ui+TYYO6dk+LQGoQwgrTQDXa0soH73ttKRKAPf7xqpEvv7WM2ccHwvi4P82P8LGaHhzlAdJAvJZ200DccLGNMXPjxn34ePC+VuUNiWbg6m/omeUgqPJ8EuoGyi2u48u/fU1TVwEs3jDtlxqPouahgX8pqT22hVzU0s+tIJVNOewj603MGUV7XzJKMAleWKIRTSKAbpLSmkdve2ERzaxsf3z3t+BZrwn5hAT5U1Z+6M1L6oTLaNEw57e95UlIkA8ID+GLHEVeWKIRTSKAb5LeLd3G0qoFXb53QowW0RNdC/X2ob249ZcmDTYfK8TErxsafum67UopLR/djdVYJ1Q3Nri5VCIeSQDfA5pxyvtxRwN2zkhkX3/3GEMI2YYHts01PDujMo9UkxwQT4Hvm6KFZqTG0tGk2HpRVGoVnk0B3sebWNp78zy5iQvyYf84go8vxSqEdywdU1p8I9KyiGpK7WMFxXHwEfhYTa/aXuKQ+IZxFAt3Fnvs2k+15lTxx2XCZ0OIkoQHtf69VDe396A3NreSW1zG4i0D39zEzc3AMb3x/iMl/+I6/L99PS6ssvys8jwS6C63KLOblFQe4YVI8l4ySHXWc5VgLvaqjhX6guAatYXBsSJfv+cNVIxgbH05hVSN/+XofLy7b75JahXAkCXQXKapu4Gcfbie1TzC/vXSY0eV4tdCAjkDv6EPflV8FcNZNM2JD/Fl0z3QO/vFizh0Sy783HpZWuvA4EuguUFnfzG2vb6KmsZmXbhjX6YM54TgnWujtXS4fpueSFB3UZZfLyZRS/GhyPMXVjSzamu/UOoVwNAl0J2tpbeOutzeTVVTNKzeNJ61v1z/2C8cIO6mFvvtIFek55dw4OR6Tybr1YuYOiWXkgDBeXJZFs7TShQeRQHeyP321l3XZpfzpqlHMTos1upxewd/HhI9ZUVnfzDsbcvD3MXHN+Dir36+U4qHzB5NbVs8nm/OcWKkQjiWB7kTrs0tZuOYgt05N4OrxA40up9dQShHq70NJdSOfbc3nslH9j49Nt9actFhGx4XzyKcZ7Dta7aRKhXAsCXQnaWlt44nFuxgQHsCjFw81upxeJzTAh4z8SuqaWpkxONrm9yul+OWFaQA89eVuR5cnhFNIoDvJx5vz2Hu0mscvGeq0tc1F10L9LeztaFknRQf16BrTU6L5xYVprM4qIbu4xpHlCeEUEuhO8s6GHIb0DeGiEX2NLqVXOnlZ3sQeBjrA5aP7A7Bsb5HdNQnhbBLoTrDrSCU786u4fmKcw3biEbaZMujEqorHhjH2RFxkIGPjw3l1dfYpi30J4Y4Line truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(wvref,netspec)\n",
"plt.xscale('log')"
]
},
{
"cell_type": "code",
"execution_count": 16,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
"(0.34, 14.01)"
]
},
"execution_count": 16,
"metadata": {},
"output_type": "execute_result"
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAXQAAAEACAYAAACj0I2EAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzsnXdYFGfXh+/ZSlt6FwXBBtJU7D3GXmNNolFjitH0Zuqrxk8TTUyvrxpjiib2NzGWqLEbK9hFBBEEpPe2bJvvj1WUSC9imfu6vGSnPHN2Wc6cOc95fkcQRREJCQkJibsfWWMbICEhISFRP0gOXUJCQuIeQXLoEhISEvcIkkOXkJCQuEeQHLqEhITEPYLk0CUkJCTuESSHLiEhIXGPIDl0CQkJiXsEyaFLSEhI3CNIDl1CQkLiHkFxOy/m7Ows+vj43M5LSkhISNz1hIeHZ4ii6FLVcbfVofv4+HD8+PHbeUkJCQmJux5BEOKrc5yUcpGQkJC4R5AcuoSEhMQ9guTQJSQkJO4RbmsOXUJC4s5Ar9eTmJiIVqttbFMkbsLCwgIvLy+USmWtzpccuoTEfUhiYiIajQYfHx8EQWhscyQAURTJzMwkMTGR5s2b12oMKeUiIXEfotVqcXJykpz5HYQgCDg5OdXpqalKhy4IQlNBEHYLgnBeEIRzgiC8eG37XEEQkgRBOHnt35BaWyEhUQEmrQHRaEKXkI9Ja2hsc+4pJGd+51HX30l1InQD8KooigFAF+BZQRACru37VBTF0Gv/ttTJEgmJf6FPKeTq/x0m6d2DpH19ktytlxvbJIk7CBsbm1qd9+STT3L+/HkA3n///Wqds3btWvz9/enbty/Hjx/nhRdeqNW1G5oqHbooismiKEZc+zkfiASaNLRhEncPosGEsUBX7+PmbotDUMrQ9PJC5W1L8ZkMRKOp3q8jcX+xbNkyAgLMMWl1Hfr333/P0qVL2b17N2FhYXzxxRcNaWKtqVEOXRAEH6AdcOTapucEQTgtCMJyQRAc6tk2iTscQ46WzF/OkzT3EMnzj5C+/Cwl8Xl1HlefVkTq5xFoL2Sh6dMUu8HN0fTywlRkoORSbj1YLnGnMGrUKDp06EDbtm1ZsmQJYI6833nnHUJCQujSpQupqakAXL58ma5duxIUFMS7775bZpyPPvqIjh07EhwczJw5cwAoLCxk6NChhISEEBgYyOrVqwHo06cPx48f580336S4uJjQ0FAmTpwIwC+//EKnTp0IDQ1l+vTpGI1G5s2bx4EDB3jiiSd4/fXX2bNnD8OGDQNg7ty5TJs2jT59+uDr61vG0Zc3VkNT7SoXQRBsgPXAS6Io5gmC8C3wf4B47f+PgWnlnPc08DRAs2bN6sNmiTuA4qgsslZGAmDTyR3BQk7hsRTSvz2FZYgLdoObo7BX12rsvL+vYMjSYjekOTbdPAGwaO2AoJZTdCodi1ZS7FCfvLfpHOev1v1GfDMBnrbMGd62yuOWL1+Oo6MjxcXFdOzYkTFjxlBYWEiXLl1YsGABs2bNYunSpbz77ru8+OKLzJgxg8mTJ/P111+XjrF9+3aio6M5evQooigyYsQI9u3bR3p6Op6enmzevBmA3NyywcDChQv56quvOHnyJACRkZGsXr2agwcPolQqmTlzJitXrmT27Nns2rWLxYsXExYWxp49e8qMc+HCBXbv3k1+fj6tW7dmxowZxMTElDvW5MmT6/jJVk61HLogCErMznylKIobAERRTL1p/1Lgz/LOFUVxCbAEICwsTKyrwRINj2gwoUsqQKaWo3C1QpCVnajRXswm8+fzKF2tcJoUgMLRAgBN76bk700gf18S2vOZOE0JwKJFzZyvMbeE4jMZ2HTzRNPLq3S7oJBh2daJ4nOZiA+ZEBRSgda9wBdffMHGjRsBSEhIIDo6GpVKVRoBd+jQgR07dgBw8OBB1q9fD8Bjjz3GG2+8AZgd+vbt22nXrh0ABQUFREdH07NnT1599VXeeOMNhg0bRs+ePSu15e+//yY8PJyOHTsCUFxcjKura5XvYejQoajVatRqNa6urqSmptZ6rLpSpUMXzNOu3wORoih+ctN2D1EUk6+9fAg42zAmStxORL2RjBXnSlMbFm0ccZocUOrUdYn5ZmfuYoXLk0HIrG4sgJCp5dgN8MG6ozsZK86R+dN5XJ4KRtVUU+3r5+6IB1HEpqvHLfssg10oikhDG52Npb9T6faSy7kgF1A3s63t276vqU4k3RDs2bOHnTt3cujQIaysrOjTpw9arRalUlla7SGXyzEYblQ3lVcFIooib731FtOnT79lX0REBFu2bOHdd9+lX79+zJ49u0J7RFFkypQpfPDBBzV6H2r1jSfR6/bWdqy6Up0wpzvwGPDAv0oUPxQE4YwgCKeBvsDLDWmoRMNjKjGS8XMkJbG52A1tjqZvU7QXsig4dBUAQ0YxGT+eQ2atxHlaYBlnfjMKBwuzs7dQkPNnLKJYvQezolPpFB1PRdO7KQony1v2W7SwR7BUUHw6o3RbYUQq6UtOk/nTeUS9NGF6N5Gbm4uDgwNWVlZcuHCBw4cPV3p89+7d+e233wBYuXJl6faBAweyfPlyCgoKAEhKSiItLY2rV69iZWXFpEmTeP3114mIiLhlTKVSiV6vB6Bfv36sW7eOtLQ0ALKysoiPr5bI4S3U51g1ocoIXRTFA0B5xZFSmWIDU3QyDV1iAQoXS9TetijdrRvsWoYsLZk/nUefWojD6JZYd3RHFEX0yYXkbrmMIb2Y4rMZIIo4P9kWuUZV6XhyjQpNn6bk/HEJ3eVc1L72lR4viiJ5u66g9LDGtr93uceUpl3OZCDqTYiiSO6fscgdLTBmaik8kYpNp1sje4k7k0GDBvHdd9/h7+9P69at6dKlS6XHf/755zz66KMsWrSIkSNHlm4fMGAAkZGRdO3aFTBPqv7yyy/ExMTw+uuvI5PJUCqVfPvtt7eM+fTTTxMcHEz79u1ZuXIl8+fPZ8CAAZhMJpRKJV9//TXe3uV/HysjICCg3saqCUJ1o6f6ICwsTJT00CtGFEX0VwtRuFhiSCsi7ZtTIIrmaWfBnKO27d8MQV6/+WNjbglp35zCVGLA6VH/MpOOxkI9OZsuUXwmA7lGhfMTgShdrKr3fvRGkhcdQ+lpg8u0wEqP1SUVkPblCexHtcCmS8VOWXsxm4zlZ3F6zN9s24YYXJ4OJmfTJVDIcHs2tHpv+j4nMjISf3//xjZDohzK+90IghAuimJYVedKWi53CKIokvdXHPl7EkEhgAhyjRK3F9tj0hrJ23WF/D0JaGOysRvgg7qlfb2s9DNpDWT8cA6T1oDL08GompRdrCG3VuL0cBuMw/UIcgGZRfW/MoJSjlV7NwoOJmEqMSJTyys8tig8FRQCVsHOlY6p9rNDZqUgZ/NlTIV6lJ7WqJrbYhHgRP6uK5iK9BWmgiQk7nUkh97IlMTnoY3KouRSLrr4PKzauSKzVoIMrDu4IbNSIrNS4ji2FRatHMjZFEvG8rMoPaxxnOiP0vnWXHN1EUWR7PXR6NOKcH687S3O/Gbk1rVzkhYt7SnYl0hJXC6WrR3LPab4fCYFh69iFepapTMW5DIcJ7Qmd3s8CicLHMa0RBAELFrak//3FbSXcrEKqvymICFxryI59EZEn1pIxrIziAYTCidL7Ef6Yd3Z45YywetYBbtgGeBE0al0crfEkrHsDK4zQpDb1a7eu+hYKsVnMrAb7INFy4ap7Vb72IJCoCQ6p1yHXhKbS+aqSJRNNNiPbFGtMS1aO2Lxr7FUTTUIajklMdmSQ5e4b5EceiNhXmUZiaCW4z6rY5WTjNcRFDKsO7ihdLMifekZ0r8/i8v04BpH0NqoLHI2XULdwh6bnl5Vn1BLBKUctY8dJTE5t+wz5paQ8eM5FA4WOE9tW2lKpsrryGUoPa3RpxXVxVwJibsaaXVGI6DPKCbty5MY83Q4Pdqm2s78ZlReGpwmB2DIKiZj6ekaaakUHEkmY8U5FM6WOE5oXeETQX2hbmGPPqUQY35ZG/P/uYqoM+I0pW2tUzo3I7dVY8qrf00ZCYm7Bcmh32ZEk0j2uouIRhHXZ0OrLOerDAs/e5yntMWQqSV9yRn0qYVVnqNLLiTnfzFYtHLA5ZmQWt1MamzntaoZbVRW6TaT1kDh4WQsg5zrNA9wM3KNCmOertp17xIS9xqSQ7/NFOxPRBeXh/0wX5Su1Sv/qwyLlg44P94WY24JqZ9FkPnrhQrTDqIokvN7DDJLBY4TWtcpxVETlB7WyG1VaCPNDl00ieT8fgmxxFhmeX9dkduqzPXpJQ0vgiTR+NxO+dyaMHXqVNatW3fLtW5mxYoVPPfcc/V+bcmh3yZMxQYKDiaRuzUOyyBnrDrUn66D2tce91kd0fT2QhuZSeqn4WStjkKfUVzmuKLwVHRxedgNbn5bS/sEQcDC3xFtdA6iwUTejniKTqRhO8AblVf1ZQGqQm5rftowVpB2MWkN5rmDP2PJ3RYnRfL3KbWRz62Pa90OJId+G9CnFZG86Cg5m2JRNbfFcXyreu8WI7dWYjeoOe6zOmLTswnFZzNI/eQ4WWui0CXkU3QijewNMah8bLHq4Fav164OFq0dEXVGcrfFkb8nAasObmj6Nq3Xa9xw6CXl7s/blUDGD+coOJBE/p4ECo+l1Ov1JWrO3SCfazQamTp1KoGBgQQFBfHpp58CcPLkSbp06UJwcDAPPfQQ2dnZt7y/69cC+OGHH2jVqhWdOnXi4MGDDfBpSlUuDY5oMJH12wUEmYDz9GBU3rYNOgkpt1FhP8QXTU8v8vcmUngkmaIIs56E2teujNDW7cSipT1KLxsKDiQhs1VhP9y33m9qMltz+WZFEbo2KgtBKcP5iUDydiWQ8/sllK5WqH3s6tWOu46tb0LKmfod0z0IBi+s8rC7QT63bdu2JCUlcfasWX8wJ8dLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"for n in range(len(ids)):\n",
" plt.plot(wvref,np.sum(wtspec[:n+1,:],axis=0),label=names[ids[n]])\n",
"plt.xscale('log')\n",
"plt.legend()\n",
"plt.xlim(wvref.min(),wvref.max())"
]
},
{
"cell_type": "code",
"execution_count": 17,
"metadata": {},
"outputs": [],
"source": [
"import colormatch as cm"
]
},
{
"cell_type": "code",
"execution_count": 18,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"1.0\n"
]
}
],
"source": [
"print np.sum(weights)"
]
},
{
"cell_type": "code",
"execution_count": 19,
"metadata": {},
"outputs": [],
"source": [
"def bbtemp(teff,wvref):\n",
" sbk = 5.67e-8\n",
" const = 0.0143877735383\n",
" bbf = 1.0/wvref**5 * (1.0/(np.exp(const/(teff*wvref*1e-6))-1))\n",
" return bbf"
]
},
{
"cell_type": "code",
"execution_count": 20,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"[2800. 3100. 3400. 3700. 4000. 4300. 4600. 4900. 5200. 5500. 5800. 6100.\n",
" 6400. 6700. 7000. 7300. 7600. 7900.]\n"
]
}
],
"source": [
"rgbs = []\n",
"srgbs = []\n",
"albs = []\n",
"stemps = np.linspace(2800,7900,num=18)\n",
"print stemps\n",
"bbs = []\n",
"for s in range(0,len(stemps)):\n",
" bbf = bbtemp(stemps[s],wvref)\n",
" bbs.append(bbtemp(stemps[s]-650.0,wvref))\n",
" refl = netspec*0.01*bbf\n",
" albb = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])\n",
" albs.append(albb)\n",
" #srgbs.append(cm.specs2rgb(wvref*1e3,[bbf,]))\n",
" rgbs.append(cm.spec2rgb(wvref*1e3,refl,normalization=albb))\n",
"srgbs = cm.specs2rgb(wvref*1e3,np.array(bbs))"
]
},
{
"cell_type": "code",
"execution_count": 21,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAuoAAAEWCAYAAAAw37JZAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xt0G+WdP/73M6PRZWT5JmPnYjk4MddkKaXZFnoByv4K3YRwKUm3LbQsUOgWzm5PKW23uy3fUOgutN1et7QpZSFNlt/215aTFAptoZRbuwmQAKUQAiFOIudiI1u2ZY0uo5nn98dIToIlWZJ1g+/7dU7OMZ7RPG+PhP3Ro2c+I6SUICIiIiKi5qI0OgAREREREc3EQp2IiIiIqAmxUCciIiIiakIs1ImIiIiImhALdSIiIiKiJsRCnYiIiIioCbFQJyJ6ixJC7BFC/D81OrYUQgzU4thERORgoU5EVCEhxEeEEFuFEHEhxEj262uFEKLR2UohhHinEOIBIcS4EGJMCPGUEOKKRuciIiIHC3UiogoIIT4H4LsAvgFgHoAeAP8A4D0A3AUeo9Yt4CyEEGcAeATAYwAGAAQBfBrA39Z4XFctj09E9FbCQp2IqExCiDYAXwVwrZTyF1LKmHQ8K6W8VEqZyu53txDih9lZ6ziA9wsh2oQQPxVCvC6E2CuE+LIQQsnuv1YIsfGIcY7NLjFxZf/7USHEzUKIPwohYkKI3wkhuo7Y/+PZY44KIf51lh/jGwDWSylvk1JGsvm3SSk/fMTxrhZC7MrOtv9KCLGg0Pko8jP9fTbvt4UQowDWVnDKiYj+r8RCnYiofGcA8ADYXMK+HwPwNQABAE8C+D6ANgCLAZwF4BMAyllu8rHs/t1wZu5vAAAhxMkAfgjg4wAWwJkh7813ACGEnv0ZflFoECHEOQD+HcCHAcwHsBfA/xTYfbaf6V0AdsP51OFrs/+IREQEsFAnIqpEF4CIlDKT+4YQ4k/Ztd4JIcSZR+y7WUr5RymlDcAE8BEAX8rOwu8B8B9wiutS3SWlfEVKmQDw/wE4Nfv91QDul1I+np3R/woAu8AxOuD8/j9YZJxLAfyXlHJ79nhfAnCGEOLYI3fKLueZ7Wc6IKX8vpQyk81NREQlYKFORFS+UQBdR663llK+W0rZnt125O/W8BFfdwHQ4MxO5+wFsLCMsQ8d8bUBoCX79YIjx5JSxrNZ8onCKeLnFxlnwZE5pZRT2eO9MWspP1MYRERUNhbqRETl+18AKQAXlrCvPOLrCJxZ9UVHfK8PwP7s13EA+hHb5pWR6SCAUO4/sstbgnkDSWnA+RkuKXK8A0fmFEL4s8fb/4b9ZvuZgKPPARERlYiFOhFRmaSU4wBuAnC7EGK1ECIghFCEEKcC8Bd5nAVnucrXso9ZBOB6ALkLSJ8DcKYQoi97weqXyoj1CwDnCyHeK4Rww7nYtdjv+C8A+HshxOeFEEEAEEK8TQiRW4f+/wK4QghxqhDCA+DfAGzNLm0p52ciIqIKsVAnIqqAlPLrcArSLwAYzv5bB+CLAP5U5KH/CGfmfDeci0vvAfBf2WM+BOBnAP4MYBuA+8vI8yKA67LHOwhnectQkf3/BOCc7L/dQogxAD8G8EB2+8Nw1rn/Mnu8JXDWopf1MxERUeWElPxEkoiIiIio2XBGnYiIiIioCbFQJyIiIiJqQizUiYiIiIiaEAt1IiIiIqIm5Jp9l8Pa29vlggULapWFiIiIiOgtb8eOHREp5TGz7VdWob5gwQJs2LCh8lRERERERP+XW758+d7Z9+LSFyIiIiKipsRCnYiIiIioCbFQJyIiIiJqQizUiYiIiIiaEAt1IiIiIqImxEKdiIiIiKgJsVAnIiIiImpCLNTfBK655hqsWrXqqO+tXbsWy5cvb1Ci2ngr/kxERERElSrrhkcEDA0NYf369di+fTsOHToEt9uNYDCIpUuXYtWqVUcVmuvWrcMJJ5yAs88+u3GBayCTyeDXv/41fvvb3+KVV17B1NQU/H4/BgYG8P73vx8XXXQRvF5vo2MSERERvamxUC/DSy+9hGuuuQYulwsrV67E4sWLkUqlEA6HsWXLFui6flShfscdd+D8889/SxXq0WgU119/PV544QUsW7YMH/3oR9HV1YVYLIZnn30W3/72t/Hcc8/h1ltvbXRUIiIiojc1FupluOOOO5BMJnHPPffg+OOPn7E9Eok0IFX1ZDIZWJYFj8eTd7uUEl/84hfxwgsv4IYbbsBHPvKRo7Zfdtll2LdvHx5++OF6xC1JMpmEy+WCy8WXOhEREb25sHopw759+9DW1pa3SAeArq4uAMCBAwdwwQUXAADuv/9+3H///dP7PPPMM9Nfb926FT/96U/x4osvIp1Oo6+vD6tXr8bq1asryrdnzx78z//8z/SyHMuy0N/fj9WrV+Oiiy46at9169bhjjvuwM9+9jNs3rwZDz/8MCKRCG6//faC68SfeOIJbN++HR/4wAdmFOk5fX19uPLKK4/63vbt2/GTn/wEL774IjKZDI499lisWbNmRqZCXn31Vaxbtw7PPvssEokEFi5ciPPPPx+XXXYZVFWd3m/t2rW4//778dBDD+F73/se/vjHPyIajWLz5s1YsGBBSWMRERERNQsW6mXo7e3F3r178cgjj+Ccc84puF9HRwe++tWv4sYbb8Tb3/52XHzxxTP2uffee/Hv//7v+Ku/+itceeWV8Pl82Lp1K2699Vbs378fn/nMZ8rO98wzz2D79u1473vfiwULFiCZTOLhhx/GLbfcgmg0iiuuuGLGY77yla/A4/Hg0ksvhRBi+s1GPr///e8BAB/60IdKzvT444/j85//PILBIC677DLouo7f/e53uOWWW7B//35cd911RR9/5HKjNWvWIBgM4oknnsD3v/99vPrqq7jllltmPOa6665DMBjEVVddhUQiAV3XS85LRERE1CxYqJfhqquuwtatW/GFL3wBfX19eNvb3oalS5fiHe94B/r7+6f38/l8WLFiBW688UYsXLgQK1asOOo4kUgE3/zmN3Huuefia1/72vT316xZg29+85v47//+b1xyySXo7e0tK9/KlStnzMZ/7GMfwz/8wz/g7rvvxsc//vEZS0BaWlpw++23l7Q05LXXXgOAgp8ovJFlWfj6178On8+H9evX45hjjgEAfPjDH8anPvUprF+/HqtWrUJfX1/BY3zzm9+EaZq46667cNxxxwEA/u7v/g5f+tKX8Jvf/AYXXHAB3vnOdx71mCVLluDmm28uKSMRERFRs2J7xjKccsop2LhxI84//3xMTU3hvvvuw6233oo1a9bg6quvxtDQUEnHefjhh5FOp3HhhRdifHz8qH/ve9/7YNs2nnrqqbLz+Xy+6a9TqRTGx8cxOTmJ008/HfF4HHv27JnxmI997GMlr9+Ox+MAAL/fX9L+O3bswKFDh3DBBRdMF+kAoGkaPvGJT8C2bTz22GMFHz82NoY///nPOPPMM6eLdAAQQkwvr/nDH/4w43GXXXZZSfmIiIiImhln1Ms0MDCAtWvXAgAOHjyIbdu2YfPmzXj22Wfxuc99Dhs3boSmaUWPkSuYr7322oL7jI2NlZ3NMAz8+Mc/xkMPPYTh4eEZ2ycnJ2d8r9hs9hvlCnTDMNDa2jrr/gcOHAAALF68eMa2JUuWAAD2799f0eP7+/uhKErexy9atGjWbERERETNjoX6HMyfPx/nn38+Vq5ciU9+8pN4/vnn8eKLL+LUU08t+jgpJQDgpptuKrgmfOHChWXn+dd//Vc8+eSTuPjii3Haaaehra0NiqLgj3/8I+655x7Ytj3jMeX0O1+yZAlefvll7Ny5E3/9139ddr56YQ93IiIieitgoV4FQggsW7YMzz//PEZGRmbdPxQKAQDa29vxrne9qyoZYrEYnnzySaxYsQL/8i//ctS2SpbR5HPOOefg17/+NTZt2lRSoZ57s7F79+4Z23LfK/aGJNepJd/j9+zZA9u2K3pDQ0RERPRmwDXqZdiyZQsymcyM7yeTSWzZsgXA0cs0dF3HxMTEjP0/8IEPwO12Y926dUgmkzO2T01NIZ1Ol5VNUZynMjdbnxOJRLBp06ayjlXImWeeidNOOw2//e1v8fOf/zzvPuFwGHfddRcA4MQTT8S8efNw3333HdVjPpPJYMOGDRBC4Kyzzio4XmdnJ0455RQ8/vjj2LVr1/T3pZTTY7z//e+vxo9GRERE1HQ4o16Gb33rW5iYmMCZZ56JgYEBeL1eDA8P4ze/+Q327duHlStXYmBgYHr/ZcuW4amnnsLdd9+NefPmQQiB8847Dz09Pfjnf/5n3HLLLVizZg1WrFiB+fPnIxqNYteuXXj00Ufx85//vKze336/H6effjoefPBBeDweLF26FAcPHsS9996LhQsX5n3DUC4hBG677TZ89rOfxW233YYHHngAZ555JoLBIGKxGJ577jk8/vjj060rVVXFF77wBXz+85/H5Zdfjosvvhi6ruOhhx7CCy+8gCuuuGLWNfI33HADrrnmGlx99dXT7RmffPJJ/O///i8++MEPzuj4QkRERPRWwUK9DNdffz0ee+wxPPfcc3jkkUcwNTWFlpYWDAwM4PLLL8eqVauO2v+f//mfcdttt+Guu+6a7phy3nnnAQAuuOAC9PX1YePGjbj33nsRi8XQ3t6ORYsW4dOf/jSCwWDZ+W6++WZ8//vfxxNPPIFf//rXCIVCuPbaa+FyuXDTTTfN/QTA6RH/k5/8BPfffz9+97vfYePGjdPn4bjjjsMNN9xw1Hk488wzcfvtt+POO+/Ehg0bYJomjj32WHz5y18u6YZHJ598Mv7rv/4L69atwy9+8YvpGx794z/+I7u7EBER0VuaeONSiWJOPvlkuWHDhhrGISIiIiJ6a1u+fPk2KWX+W8EfgWvUiYiIiIiaEAt1IiIiIqImxEKLine truncated
"text/plain": [
"<Figure size 936x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"fig,ax=plt.subplots(figsize=(13,4))\n",
"for s in range(len(stemps)):\n",
" plt.scatter(stemps[s],1.0,marker='o',color=np.array(rgbs[s])/np.mean(rgbs[s])*albs[s],s=1000)\n",
" plt.scatter(stemps[s],1.25,marker='o',color=np.array(srgbs[s])/np.amax(srgbs[s]),s=1000)\n",
" #plt.annotate(\"%d K\"%stemps[s],(stemps[s]-100,1.35))\n",
" #print stemps[s]\n",
" #plt.axvline(stemps[s])\n",
"ax.set_facecolor('0.8')\n",
"plt.annotate(\"Stellar Color\",(3000,1.35),color='k',fontsize=18)\n",
"plt.annotate(\"Surface Color\",(3000,1.1),color='k',fontsize=18)\n",
"plt.ylim(0.9,1.4)\n",
"plt.xlim(2500,8200)\n",
"plt.tick_params(\n",
" axis='y', # changes apply to the x-axis\n",
" which='both', # both major and minor ticks are affected\n",
" left=False, # ticks along the bottom edge are off\n",
" right=False, # ticks along the top edge are off\n",
" labelleft=False)\n",
"plt.xlabel(\"Stellar Effective Temperature [K]\")\n",
"plt.title(\"Ground Color\")\n",
"plt.savefig(\"colorgrid.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 22,
"metadata": {},
"outputs": [],
"source": [
"alb1 = np.zeros(100)\n",
"alb2 = np.zeros(100)\n",
"albb = np.zeros(100)\n",
"teffs = np.linspace(2700,6000,num=100)"
]
},
{
"cell_type": "code",
"execution_count": 23,
"metadata": {},
"outputs": [],
"source": [
"for n in range(100):\n",
" bbf = bbtemp(teffs[n],wvref)\n",
" refl = netspec*0.01*bbf\n",
" alb1[n] = np.trapz(refl[:42],x=wvref[:42])/np.trapz(bbf[:42],x=wvref[:42])\n",
" alb2[n] = np.trapz(refl[42:145],x=wvref[42:145])/np.trapz(bbf[42:145],x=wvref[42:145])\n",
" albb[n] = np.trapz(refl[:145],x=wvref[:145])/np.trapz(bbf[:145],x=wvref[:145])"
]
},
{
"cell_type": "code",
"execution_count": 24,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAAYsAAAEaCAYAAADg2nttAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDIuMi4yLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvhp/UCwAAIABJREFUeJzs3Xd4HdWZ+PHvUbW6rGJbvbr33huuuEJCCTULJIQQEjZsCmx2U1jSftmSEEIIIUAgARMI2MLYuPfejbvVuyzLTZIlq72/P2YkX8tqtiVflffzPPfRlDMz772S5r1zzsw5RkRQSimlmuLi7ACUUkq1f5oslFJKNUuThVJKqWZpslBKKdUsTRZKKaWapclCKaVUszRZqNvKGJNujJl5E9vFGmPEGONmz280xnytlWL6qTHmb62xr0b2H22MKTHGuDZRRowxiTe5/2nGmGyH+aPGmGn2tDHGvGWMOW+M2W0v+6YxpsCOKfhmjqm6Hk0WnYwx5ivGmF3GmFJjzBl7+mljjHF2bF2ViGSKiK+IVEPrJrpGjjdQRDbas5OAWUCkiIwxxrgD/wvMtmMqaqs4GmKMedsY89Lt3lbdOk0WnYgx5t+A3wG/AXoBPYGngImARyPbNPptV3UKMUC6iJTa8z2BbsDRm9lZR/57qb0qVTdJRPTVCV5AAFAKfLmZcm8DfwRW2OVn2tu+AxQCGcB/AC52+Z8Cf3PYPhYQwM2e3wj8F7ANKAZWAyEO5R+x91kE/AhIB2Y2Ett84ABwCcgCftrMcX8J7LbLLwOCHMqPA7YDF4BDwDSHdXHAJjveNcAr9d7jIqyT6QX7OP0bifdnwO/taXf78/yNPe8FlANBjrEDPweq7XUlwCt2ecFK7Kft4/4BMI0c18v+PZ4HjgHfB7Id1qfbv9cn7ONU28d6345R7Pn1dvl+9udwDjgJ3NfM34sn8N9AJlAAvAZ42eWnAdnAvwFngDzgMXvdk0AlUGEf/9MG3psB/s/e9hLwBTCosW2B54EU+3d5DLjbYV//gvV3+X9Yf38vAYn27/4icBb4wNn/ux3l5fQA9NVKv0iYC1Rhn0ybKPe2/Y8yEevKshtWolgG+NkntlPAE3b5n9J8skgB+tgnsY3Ar+x1A+x/7Cn2CeZ/7RgbSxbTgMF2XEPsE9FdTRw3xz6R+AD/rI0TiLBPDvPsfc2y50Pt9TvsWDzt2Iodtu2DdVKchZUAfgAkAx4NxHsH8IU9PcH+HHY5rDvUROxfq7cvAZYDgUA0VuKe28jn9CtgC1YiigKO0ECysKf/BdjaxO/PBysxP4aVzIZjnUQHNPH38n9Akn18P+BT4JcOv8Mq4EX785sHXAa6O+zvpSb+PucA++zPwQD9gbDGtgXuBcLt2O63f3dhDu+9Cvi2/d68sBLmjxzeyyRn/+92lJdWQ3UeIcBZEamqXWCM2W6MuWCMKTPGTHEou0xEtolIDda3ta8AL4hIsYikA/+DdUXQUm+JyCkRKQP+AQyzl98DLBeRzSJyBfhPoKaxnYjIRhH5QkRqROQw1j/21CaO+66IHBGriuU/gfvsapKHgRUissLe1xpgLzDPGBMNjAb+U0SuiMhmrJNdrfuBz0RkjYhUYn2D9sJKBvXtAHrbjcRTgL8AEcYYXzvuTU3E3pBficgFEckENnD1c6zvPuDnInJORLKAl2/wOI4WYFVTvSUiVSJyACvx3utQxvHv5QrWt/zv2scvBn6B9TdUqxJ4UUQqRWQF1heGvi2MpxIrAfXDurI6LiJ5jRUWkQ9FJNf+PX+AdWU2xqFIroj83n5vZfb+Y4BwESkXka0tjKvL02TReRQBIY71siIyQUQC7XWOv+ssh+kQrG+AGQ7LMrC+nbdUvsP0ZcDXng53PJZ9Um+0QdUYM9YYs8EYU2iMuYhVLRPSxHEd30cG1vsIwToZ3GsnygvGmAtYDb1hdkzn5Wodfu22tcId5+0TZBYNfB72yWcvVmKYgpUctmN9C7+ZZNHY51jfNZ9rvfhvVAwwtt5n9RBWm1ctx2OFAt7APofyn9vLaxU5fmmh6fdyDRFZj1Ut+AfgjDHmdWOMf2PljTGPGmMOOsQyiGv/ZrLqbfIDrCuW3fZdY4+3JC6lyaIz2YH1rW9xC8o6djV8lqvftmpFY1XxgHVZ7+2wzvEk0pw8rGoSAIwx3kBTt2q+h1W9ESUiAVh14U3dxRXlMB2N9T7OYp0g3hWRQIeXj4j8yo6puzHGp962tXJx+Czsu8iiuPp51LcJq8ppOLDHnp+D9e12cyPb3GpXz9d8rlwb/43KAjbV+6x8ReSbDmXq/72UAQMdygeISIuSAS147yLysoiMxKrG7IPVJnPdtsaYGODPwDNAsP3F6AjX/s1cs42I5IvI10UkHPgG8OrN3rLc1Wiy6CRE5AJWg+urxph7jDF+xhgXY8wwrHrpxrarxqo6+rm9TQzwHFD73MFBYIr9rEAA8MINhPURsMAYM8kY44FVj93U35wfcE5Eyo0xY4AHm9n/w8aYAXYSehH4yH4/fwMWGmPmGGNcjTHd7GcRIkUkA+tq4GfGGA9jzCRgocM+/wHMN8bMsG8z/TesJLy9kRg2AY8Cx0SkArs9AkgTkcJGtikA4pt5b035B/CCMaa7MSYSq07+Zi0H+hhjHjHGuNuv0caY/g0Vtq+0/gz8nzGmB4AxJsIYM6eFx2vyvdvHHmt/9qVYDfQ1jWzrg5UMCu1tH8O6smiUMeZe+zMD6wYBoYmqUXWVJotORET+H9aJ/gdY/1gFwJ+AH9L4yQ6sk00pkApsxfqG/6a9zzXAB8BhrIbH5TcQz1HgW/b+8rD+ObOb2ORp4EVjTDHwY6yTYlPexWr0zMdqrPyOfdwsrCusf8c6kWRhfTut/Xt/EBiLdffPT7Aa+GtjPonV5vF7rG/RC4GFdiJoyHasNo3aq4hjWCe4xq4qwLq9+R77QbmbaW/4GVbVUxrW3Wfv3sQ+ALDbHGZjtTnkYn2Wv8Zq/G/MD7Ea/XcaYy4Ba2l5m8RfgAF2tdHSBtb7YyWj81y9i+43DW0rIsew2td2YP2tD8a6+6kpo4FdxpgSrKvYZ0UktYWxd2lGRAc/Ukop1TS9slBKKdUsTRZKKaWapclCKaVUszRZKKWUapYmC6WUUs3qNL0whoSESGxsrLPDUEqpDmXfvn1nRSS0uXKdJlnExsayd+9eZ4ehlFIdijGmRd3FtGk1lDFmrjHmpDEm2RjzfAPrnzPGHDPGHDbGrLOfHnZc72+MyTbGvNKWcSqllGpamyULu/fPPwB3YvXx8oAxZkC9YgeAUSIyBKtriP9Xb/1/0fSTsEoppW6DtryyGAMki0iq3VXCEup1ciciG0Tksj27E6jtswVjzEisUb1Wt2GMSimlWqAtk0UE13YPnE3T3V4/AawEMMa4YPX58r2mDmCMedIYs9cYs7ewsLE+25RSSt2qdnHrrDHmYWAUVzsMexpr8JqmOp1DRF4XkVEiMio0tNnGfKWUUjepLe+GyuHaPvcjaWBMAGPMTKxhDqfao6kBjAcmG2Oexho0xcMYUyIi1zWSK6WUanttmSz2YA05GYeVJL5CvfEJjDHDsbrQnisiZ2qXi8hDDmX+BasRXBOFUurmiVgvBKTGfjlO2y/EYbk4LGtgm7qyjvutv77+fmj4WA1N123fzDZegRA3pYE33XraLFmISJUx5hlgFeAKvCkiR40xLwJ7RSQJq9rJF/jQGpCMTBFZ1FYxKXXb1f5T11RBTbX1U6rtaXu+oWWO89LQzxr7Z9X1y6SmXvn687XLak9+DuWuWee4bf11NdcuqysnDWzX2Im5ufX199vAuqZO8A2V6awiRsHX17XpITrNeBajRo0SfSivg6uphuoK+1VZb7ry6nRN7XSV9bPGXl9T5VCmyqFslfWzbllV09PXLKu+fvk1r/rrq7kuMXQExsV+uYKLq8O0w/LaMnXrzdXyGHu5q7XcxfXafdaVd7n2VVuubnvjMO1y7fQ1L9PwfjEO8/XLOOy/bllT+3EoUxsHpvF9XXfsBvaF42dAI+sc9nVNeXP9cWqn3b0hOOHmfvXG7BORUc2V6zRPcKubVF0JlWVQdQWqan+WWz8rHearrzisq7CXVVwtWzddYZetPdFfubqsuvJq2erKq8tqk4K08eiWxhVc3cHFHVzdwMXNmnZxs04Etevqpu0ybp7g4nN1vnbbuv25Oky72SdBt3rL7enafdSeAGuna/fn4uIw7eqwP9ery+rWNbDsmpNwA+saKlt3glKqcZos2isR+4R9GSpKoOIyVJZCRak9Xfsqs5ZVll2dd5yuKnNYVmad0B1/3uo3X+NqnUxdPcCtG7h5gGvtvD3t5gGefnY5d2ud48vNYbr25Fw7XVfO7doyrh5XT84NTtcmBHeHk7ieEJW6WZosWlNNDVQUwxXH16V68/arogSulNgn/xJ7WanDq+TGT+RuXuBe+/IG927WT7du4NXdWu7mZS13/Onmaa/rZr9q5z2tk727vbwuIXjar272pblSqrPTZFFfZRmUnXd4XYDyC/bPi9Z0+UX7denqdG1SaEkjmrs3ePiCpy94+ICHH/j2sJZ7+lrr6k97eIO7T72fXlen3bysKgyllGoDmixKCuGdxVB2zkoOVeVNFDbQLcB++UO3QAiKA09/a97xp6efw7yfnRzsn676sSulOhY9a3l4Wyd8r+HgFWTdr1z7s1ugVX1TO+3pr9/elVJdkiYLDx/4yt+dHYVSSrVr+jVZKaVUszRZKKWUapYmC6WUUs3q8slCRLh45SKdpdsTpZRqC12+gftSxSUmLZmEu4s7wV7BBHcLJtQrlFBv69XTuye9vHvR06cnvXx64ePu4+yQlVLqtuvyycLVuPL9Ud+nqLyIs2VnKSovIq80j8NnD3Ou/Nx15f09/An3DSfcJ5wIvwgifCOI8osiyi+KCN8IPFw9nPAulFKLine truncated
"text/plain": [
"<Figure size 432x288 with 1 Axes>"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"plt.plot(teffs,alb1,label=\"$\\lambda<{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,alb2,label=\"$\\lambda>{0.75}$ $\\mu$m\")\n",
"plt.plot(teffs,albb,label='Bolometric albedo')\n",
"plt.legend(loc='best')\n",
"plt.xlabel(\"Star T$_{eff}$ [K]\")\n",
"plt.ylabel(\"Albedo\")\n",
"plt.title(\"Ground albedo with different stars\")\n",
"plt.savefig(\"ground_bolometric.png\",bbox_inches='tight')"
]
},
{
"cell_type": "code",
"execution_count": 25,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
"5500.0 0.20952110594388035\n"
]
}
],
"source": [
"print teffs[-16],albb[-7]"
]
},
{
"cell_type": "code",
"execution_count": 26,
"metadata": {},
"outputs": [],
"source": [
"specvar = \"groundblend\"\n",
"specinttext = \" real :: %s(%d) = (/\"%(specvar,len(wvref))\n",
"specinttext += \",\".join([\"%.4f\" % number for number in netspec[0:8]]) + \", &\\n\"\n",
"n=8\n",
"while n+8<len(wvref):\n",
" specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:n+8]]) + \", &\\n\"\n",
" n+=8\n",
"specinttext += \" & \" + \",\".join([\"%.4f\" % number for number in netspec[n:]]) + \" /)\""
]
},
{
"cell_type": "code",
"execution_count": 27,
"metadata": {},
"outputs": [],
"source": [
"newfilename = \"groundblend_interp_f90.txt\"\n",
"with open(newfilename,\"w\") as fileobj:\n",
" fileobj.write(specinttext+'\\n')"
]
},
{
"cell_type": "code",
"execution_count": 28,
"metadata": {},
"outputs": [
{
"name": "stdout",
"output_type": "stream",
"text": [
" real :: groundblend(965) = (/12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,13.1161, &\n",
" & 13.5867,14.1196,14.7424,15.2969,15.2550,15.6031,15.8681,16.3757, &\n",
" & 16.6847,17.1698,17.6965,18.0291,18.4459,18.8582,19.7512,20.3127, &\n",
" & 20.5441,20.9867,21.2748,21.4852,21.6601,21.8871,22.0959,22.3769, &\n",
" & 22.5555,22.6841,22.8859,23.1235,23.1722,23.3581,23.6036,23.7318, &\n",
" & 23.9446,23.9542,24.0230,24.1734,24.1251,24.1392,24.3469,24.3035, &\n",
" & 24.1023,23.9795,23.6917,23.4389,23.3111,23.2013,23.0616,22.9689, &\n",
" & 23.1830,23.5632,23.7520,24.0554,24.2983,24.4708,24.6850,24.6702, &\n",
" & 24.3875,24.3069,24.4843,24.7049,24.8939,25.0117,25.0568,24.9801, &\n",
" & 24.8849,24.7795,24.5999,24.2513,23.6281,23.0756,22.9904,23.2346, &\n",
" & 23.4023,23.7440,23.9070,24.0748,24.4747,24.6725,25.0065,25.0427, &\n",
" & 25.3064,25.2820,25.3311,24.9252,24.4807,24.1382,24.0793,24.1720, &\n",
" & 24.4702,24.5874,24.3143,23.8518,22.6322,20.9508,20.5339,21.2402, &\n",
" & 21.4860,21.7359,22.3565,22.7591,23.1622,23.1278,23.2192,23.0662, &\n",
" & 22.9350,22.8464,22.6460,22.3771,22.0274,21.9255,21.9643,21.9098, &\n",
" & 21.9174,21.8881,21.8306,21.6983,21.6164,21.5285,21.4726,21.3897, &\n",
" & 21.2695,21.1804,21.1874,21.0888,20.9989,20.8369,20.7698,20.6752, &\n",
" & 20.5616,20.4998,20.3843,20.3119,20.2465,20.1921,20.1192,20.0303, &\n",
" & 19.9051,20.5181,20.5511,20.4673,20.3303,20.3783,20.3147,20.2802, &\n",
" & 20.3099,20.1966,20.1630,20.1259,19.9596,19.8334,19.8770,19.5972, &\n",
" & 19.2134,18.5325,17.8574,16.4800,14.6280,13.8308,13.1163,12.4486, &\n",
" & 11.9491,11.6487,11.3945,11.4007,11.3356,11.3736,11.4299,11.3093, &\n",
" & 11.3615,11.3210,11.3192,11.3509,11.2981,11.3254,11.2479,11.2040, &\n",
" & 11.2245,11.3198,11.1707,11.2782,11.2528,11.1918,11.3169,11.3154, &\n",
" & 11.3594,11.3931,11.4678,11.4829,11.5074,11.5281,11.6097,11.6884, &\n",
" & 11.6797,11.6617,11.7554,11.8200,11.8374,11.9067,12.0302,12.0630, &\n",
" & 12.1658,12.3165,12.4339,12.5477,12.6119,12.6780,12.7953,12.9337, &\n",
" & 12.9967,13.1742,13.2295,13.3202,13.4792,13.5765,13.6835,13.8198, &\n",
" & 13.8555,14.0722,14.1067,14.1761,14.2259,14.2250,14.2846,14.3322, &\n",
" & 14.3424,14.4607,14.5394,14.5393,14.6360,14.7817,14.9949,15.0743, &\n",
" & 15.2085,15.2436,15.2829,15.3453,15.4313,15.5978,15.9001,16.1327, &\n",
" & 16.2750,16.4356,16.5749,16.6471,16.7713,16.8856,16.9990,17.0809, &\n",
" & 17.1626,17.2430,17.3521,17.4067,17.4680,17.5638,17.6095,17.6486, &\n",
" & 17.7019,17.7573,17.7642,17.8256,17.8607,17.9032,17.9301,17.9884, &\n",
" & 18.0488,17.9857,17.9823,17.9251,17.8695,17.7879,17.7272,17.7236, &\n",
" & 17.6404,17.6509,17.6716,17.6807,17.6908,17.6447,17.5986,17.5476, &\n",
" & 17.4500,17.2547,17.1026,16.9764,16.9326,16.9822,17.0983,17.2506, &\n",
" & 17.3612,17.4659,17.5732,17.6433,17.6524,17.6560,17.6229,17.5708, &\n",
" & 17.5651,17.4985,17.4318,17.3933,17.3414,17.2616,17.2423,17.1257, &\n",
" & 17.0959,17.0166,16.9363,16.8619,16.7482,16.6415,16.6052,16.5912, &\n",
" & 16.5002,16.3664,16.2904,16.2502,16.2004,16.1755,16.1584,16.1065, &\n",
" & 15.9991,15.9238,15.8043,15.6901,15.5448,15.4169,15.2921,15.1880, &\n",
" & 15.0799,14.9855,14.8754,14.8085,14.7168,14.6476,14.6086,14.5781, &\n",
" & 14.5634,14.5850,14.6578,14.7004,14.6860,14.6632,14.6701,14.6026, &\n",
" & 14.5375,14.4678,14.3761,14.2805,14.1601,14.0407,13.8858,13.7244, &\n",
" & 13.5898,13.4532,13.3642,13.3278,13.3654,13.3688,13.3402,13.3068, &\n",
" & 13.2451,13.1720,13.0793,13.0060,12.9538,12.8837,12.7927,12.6968, &\n",
" & 12.6361,12.5646,12.4567,12.3606,12.1931,12.0676,11.9173,11.7557, &\n",
" & 11.5970,11.4510,11.3102,11.1767,11.0563,10.9637,10.8623,10.7821, &\n",
" & 10.6982,10.6156,10.5213,10.4711,10.4130,10.3640,10.3020,10.3008, &\n",
" & 10.2512,10.1942,10.1370,10.1063,10.0780,10.0089,9.9590,9.8962, &\n",
" & 9.8242,9.7567,9.7058,9.6345,9.5636,9.4881,9.3874,9.2630, &\n",
" & 9.1781,9.0745,8.9465,8.8267,8.6807,8.5982,8.4913,8.3825, &\n",
" & 8.3243,8.2706,8.1985,8.1500,8.1151,8.0704,8.0800,8.1049, &\n",
" & 8.1130,8.1350,8.1348,8.1288,8.1047,8.0793,8.0591,8.0357, &\n",
" & 7.9936,7.9379,7.8745,7.8325,7.7627,7.6875,7.6269,7.5488, &\n",
" & 7.4562,7.3633,7.2617,7.2284,7.2010,7.2016,7.2001,7.1939, &\n",
" & 7.1617,7.1612,7.1339,7.0978,7.0784,7.0573,7.0481,7.0023, &\n",
" & 6.9599,6.9226,6.8862,6.8443,6.7843,6.7479,6.7064,6.6591, &\n",
" & 6.6226,6.5819,6.5360,6.4752,6.4218,6.3694,6.3328,6.2544, &\n",
" & 6.1890,6.1318,6.0348,5.9585,5.9211,5.8629,5.7906,5.7092, &\n",
" & 5.6701,5.6078,5.5355,5.4860,5.4313,5.3857,5.3313,5.2859, &\n",
" & 5.2385,5.1952,5.1513,5.1139,5.0893,5.0638,5.0550,5.0086, &\n",
" & 4.9703,4.9475,4.9244,4.9099,4.9226,4.9470,4.9421,4.9385, &\n",
" & 4.9427,4.9619,4.9915,5.0244,5.0511,5.0653,5.0664,5.0814, &\n",
" & 5.1122,5.1381,5.1479,5.1766,5.2168,5.2295,5.2354,5.2516, &\n",
" & 5.2754,5.3087,5.3283,5.3277,5.3314,5.3305,5.3169,5.3326, &\n",
" & 5.3326,5.3364,5.3582,5.3414,5.3136,5.2865,5.2521,5.2498, &\n",
" & 5.2160,5.1982,5.1895,5.1839,5.1757,5.1376,5.1120,5.1008, &\n",
" & 5.0761,5.0466,5.0374,5.0125,4.9710,4.9557,4.9417,4.9324, &\n",
" & 4.9203,4.9166,4.8914,4.8886,4.8842,4.8565,4.8489,4.8360, &\n",
" & 4.7995,4.7643,4.7487,4.7143,4.6870,4.6668,4.6179,4.5856, &\n",
" & 4.5697,4.5488,4.5421,4.5111,4.4641,4.4483,4.4327,4.4067, &\n",
" & 4.3810,4.3510,4.3223,4.2969,4.2570,4.2223,4.2106,4.2125, &\n",
" & 4.2110,4.1582,4.1191,4.1079,4.0939,4.0732,4.0522,4.0470, &\n",
" & 4.0512,4.0424,4.0105,3.9693,3.9509,3.9513,3.9344,3.9017, &\n",
" & 3.8649,3.8250,3.7820,3.7754,3.7497,3.7175,3.7048,3.6828, &\n",
" & 3.6612,3.6259,3.5876,3.5685,3.5571,3.5387,3.5138,3.4793, &\n",
" & 3.4621,3.4453,3.4188,3.4017,3.3889,3.3635,3.3374,3.3228, &\n",
" & 3.3096,3.2546,3.2245,3.2081,3.2099,3.1913,3.1489,3.1260, &\n",
" & 3.0983,3.0680,3.0478,3.0227,2.9910,2.9602,2.9270,2.9108, &\n",
" & 2.8865,2.8699,2.8547,2.8316,2.8010,2.7639,2.7441,2.7485, &\n",
" & 2.7655,2.7509,2.7166,2.7018,2.6920,2.6869,2.6813,2.6687, &\n",
" & 2.6681,2.6712,2.6501,2.6224,2.6040,2.6053,2.6114,2.6119, &\n",
" & 2.6208,2.6293,2.6371,2.6762,2.6648,2.6529,2.6583,2.6728, &\n",
" & 2.7383,2.7730,2.7993,2.8363,2.8664,2.8767,2.9176,2.9908, &\n",
" & 3.0922,3.1485,3.2171,3.2823,3.4467,3.5517,3.6423,3.7126, &\n",
" & 3.9180,4.0334,4.1374,4.2246,4.3893,4.4814,4.5543,4.6942, &\n",
" & 4.7526,4.8106,4.9626,5.0164,5.0367,5.0784,5.1650,5.1808, &\n",
" & 5.2165,5.3260,5.3665,5.4005,5.4427,5.5128,5.6723,5.7514, &\n",
" & 5.8222,5.9424,5.9989,6.0508,6.1457,6.1896,6.2694,6.3202, &\n",
" & 6.3431,6.3213,6.2696,6.1697,6.1763,6.2059,6.2143,6.2634, &\n",
" & 6.3905,6.4496,6.5232,6.5432,6.5829,6.5985,6.5988,6.6125, &\n",
" & 6.6226,6.6250,6.6656,6.6790,6.6302,6.6118,6.6070,6.5795, &\n",
" & 6.5072,6.4845,6.4341,6.4042,6.3804,6.3459,6.2554,6.2622, &\n",
" & 6.2601,6.1893,6.1617,6.1390,6.1182,6.1053,6.1012,6.0901, &\n",
" & 6.0498,6.0072,6.0075,5.9882,5.9669,5.9460,5.8917,5.8639, &\n",
" & 5.8464,5.7981,5.7618,5.7696,5.7868,5.7570,5.7041,5.6768, &\n",
" & 5.6499,5.6320,5.6487,5.6801,5.6760,5.6729,5.6779,5.6965, &\n",
" & 5.7084,5.6992,5.7195,5.7890,5.7691,5.7644,5.7810,5.7462, &\n",
" & 5.7309,5.7364,5.7244,5.6696,5.6259,5.6083,5.5939,5.5681, &\n",
" & 5.5307,5.5132,5.4851,5.4321,5.4173,5.4214,5.3740,5.3250, &\n",
" & 5.2817,5.2382,5.2012,5.1801,5.1502,5.1116,5.0813,5.0499, &\n",
" & 4.9904,4.9559,4.8783,4.8600,4.8729,4.8856,4.8827,4.8824, &\n",
" & 4.8918,4.9303,4.9456,4.9209,4.9158,4.9436,4.9400,4.9219, &\n",
" & 4.9391,4.9415,4.9229,4.8960,4.8686,4.8793,4.9081,4.8903, &\n",
" & 4.8385,4.8073,4.8243,4.8351,4.8122,4.8071,4.8227,4.7952, &\n",
" & 4.7427,4.7340,4.6818,4.6315,4.5909,4.5907,4.5551,4.4885, &\n",
" & 4.4819,4.4468,4.3990,4.4123,4.3882,4.3215,4.2887,4.2501, &\n",
" & 4.2489,4.2381,4.2184,4.1917,4.1648,4.1390,4.0738,4.0483, &\n",
" & 4.0298,4.0136,3.9928,3.9654,3.9546,3.8933,3.8531,3.8062, &\n",
" & 3.7705,3.7849,3.7704,3.7301,3.7187,3.7163,3.7524,3.7590, &\n",
" & 3.7283,3.7220,3.6777,3.6713,3.6646,3.6649,3.7132,3.6957, &\n",
" & 3.6641,3.6692,3.6465,3.5626,3.4967,3.4370,3.3826,3.2979, &\n",
" & 3.1938,3.0922,2.9820,2.8385,2.7622,2.7300,2.7205,2.7075, &\n",
" & 2.5697,2.4529,2.4551,2.5290,2.4643,2.3695,2.3853,2.3698, &\n",
" & 2.3235,2.3492,2.3354,2.3328,2.2808,2.1591,2.0505,1.9828, &\n",
" & 2.0443,2.0528,2.1298,2.0987,1.9916,2.0043,1.9213,1.9423, &\n",
" & 2.0312,2.0010,1.7628,1.7760,2.0828,2.0650,1.8917,1.9262, &\n",
" & 1.8328,1.6978,1.8787,2.0174,1.6473,1.3033,1.4262,1.6316, &\n",
" & 1.5811,1.6315,1.3217,1.1069,1.0377 /)\n"
]
}
],
"source": [
"print specinttext"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {},
"outputs": [],
"source": []
}
],
"metadata": {
"kernelspec": {
"display_name": "Python 2",
"language": "python",
"name": "python2"
},
"language_info": {
"codemirror_mode": {
"name": "ipython",
"version": 2
},
"file_extension": ".py",
"mimetype": "text/x-python",
"name": "python",
"nbconvert_exporter": "python",
"pygments_lexer": "ipython2",
"version": "2.7.12"
}
},
"nbformat": 4,
"nbformat_minor": 2
}
plasim/src/specs/dunesand_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

plasim/src/specs/dunesand_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

plasim/src/specs/finesnow_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

plasim/src/specs/finesnow_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

plasim/src/specs/frost_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/frost_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

plasim/src/specs/glacalbmin_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: glacalbmin(965) = (/72.8542,72.9169,72.9924,73.0412,73.1245,73.1644,73.2082,73.2917, &
& 73.3266,73.4138,73.4452,73.5745,73.5945,73.5915,73.5567,73.5425, &
& 73.4823,73.4565,73.4276,73.4128,73.3099,73.2983,73.2757,73.2244, &
& 73.1708,73.0729,72.9367,72.7057,72.6339,72.4826,72.3225,72.0748, &
& 71.9929,71.8206,71.7562,71.5810,71.2042,71.0782,70.8433,70.7119, &
& 70.4518,70.1351,69.7505,69.4219,68.9788,68.5827,68.3783,68.2024, &
& 68.1186,67.0826,65.4401,64.6529,64.2082,63.5866,62.0006,59.8770, &
& 57.2722,55.3844,54.9615,56.6265,57.1334,57.8229,57.5637,56.1472, &
& 53.8247,50.1078,45.5646,41.9340,41.0004,40.4871,40.5442,40.3640, &
& 40.5799,40.9390,40.3964,39.5441,37.3746,26.0959,12.8617,9.3138, &
& 7.2958,6.3800,6.7451,6.9265,8.1285,9.3163,9.9370,10.0377, &
& 12.6225,13.3656,15.2587,16.5017,17.2778,17.7109,19.1999,19.6744, &
& 21.4847,22.2720,23.9955,21.8609,14.9959,9.8172,6.5213,4.9702, &
& 3.8115,3.3320,3.1551,3.3185,3.7408,4.0751,4.7478,5.7747, &
& 7.2595,9.2924,10.9134,12.2323,14.2970,15.8103,16.3385,16.2042, &
& 15.8641,15.2582,14.4248,13.5320,12.6980,11.9201,11.1876,10.5997, &
& 10.0870,9.6745,9.3800,9.1306,8.9382,8.7881,8.6507,8.5293, &
& 8.3879,8.2432,8.1174,7.9783,7.8345,7.6832,7.5541,7.4147, &
& 7.2791,7.1757,7.0882,6.9888,6.9140,6.8800,6.7836,6.7129, &
& 6.6459,6.4281,6.3425,6.2631,6.0780,5.8727,5.8125,5.4591, &
& 4.9874,4.3480,4.0747,3.6282,3.1111,2.5979,2.0897,1.7067, &
& 1.3015,1.0110,0.7642,0.6004,0.4859,0.4031,0.3389,0.3063, &
& 0.2737,0.2647,0.2656,0.2695,0.2799,0.3094,0.3648,0.4764, &
& 0.5959,0.7533,0.9231,1.0931,1.2799,1.4415,1.5724,1.7394, &
& 1.8669,2.0694,2.2779,2.5575,2.8577,3.2019,3.6007,4.0313, &
& 4.4167,4.7115,4.9205,4.9400,4.8628,4.6840,4.5168,4.3932, &
& 4.3259,4.2764,4.2305,4.1767,4.1204,4.0214,3.9008,3.7651, &
& 3.6248,3.4843,3.3561,3.2507,3.1547,3.0483,2.9600,2.8859, &
& 2.8247,2.7650,2.7046,2.6630,2.6280,2.5960,2.5669,2.5453, &
& 2.5180,2.4996,2.5020,2.5010,2.5077,2.5230,2.5366,2.5569, &
& 2.5872,2.6356,2.6881,2.7370,2.7895,2.8528,2.9151,2.9909, &
& 3.0656,3.1356,3.2098,3.2863,3.3633,3.4356,3.5053,3.5694, &
& 3.6327,3.6887,3.7297,3.7743,3.8137,3.8357,3.8501,3.8536, &
& 3.8434,3.8315,3.8193,3.7871,3.7438,3.7040,3.6542,3.6031, &
& 3.5494,3.4897,3.4284,3.3651,3.3083,3.2526,3.1980,3.1383, &
& 3.0739,3.0191,2.9699,2.9208,2.8716,2.8281,2.7824,2.7406, &
& 2.7040,2.6583,2.6122,2.5718,2.5324,2.4954,2.4660,2.4336, &
& 2.3981,2.3670,2.3374,2.3072,2.2817,2.2589,2.2273,2.1921, &
& 2.1671,2.1507,2.1353,2.1227,2.1073,2.0898,2.0727,2.0518, &
& 2.0274,2.0057,1.9835,1.9573,1.9384,1.9241,1.9054,1.8869, &
& 1.8679,1.8440,1.8214,1.8061,1.7920,1.7668,1.7389,1.7191, &
& 1.7086,1.6967,1.6782,1.6599,1.6477,1.6390,1.6301,1.6210, &
& 1.6118,1.6025,1.6031,1.6083,1.6064,1.6009,1.5974,1.6022, &
& 1.6083,1.6131,1.6181,1.6290,1.6442,1.6592,1.6725,1.6864, &
& 1.7027,1.7190,1.7366,1.7597,1.7854,1.8074,1.8231,1.8418, &
& 1.8622,1.8860,1.9112,1.9338,1.9619,1.9894,2.0083,2.0316, &
& 2.0575,2.0802,2.1056,2.1289,2.1485,2.1664,2.1871,2.2092, &
& 2.2271,2.2447,2.2611,2.2835,2.3055,2.3240,2.3410,2.3582, &
& 2.3751,2.3899,2.4009,2.4109,2.4218,2.4327,2.4418,2.4486, &
& 2.4542,2.4605,2.4662,2.4698,2.4725,2.4734,2.4742,2.4778, &
& 2.4776,2.4747,2.4661,2.4560,2.4462,2.4386,2.4315,2.4210, &
& 2.4053,2.3886,2.3734,2.3625,2.3488,2.3303,2.3098,2.2941, &
& 2.2811,2.2648,2.2484,2.2300,2.2114,2.1895,2.1663,2.1485, &
& 2.1317,2.1108,2.0883,2.0642,2.0373,2.0168,1.9999,1.9821, &
& 1.9657,1.9444,1.9241,1.9000,1.8733,1.8519,1.8361,1.8188, &
& 1.7928,1.7683,1.7540,1.7421,1.7252,1.7111,1.6928,1.6647, &
& 1.6360,1.6147,1.5969,1.5757,1.5607,1.5497,1.5338,1.5178, &
& 1.4979,1.4685,1.4453,1.4272,1.4118,1.4006,1.3853,1.3709, &
& 1.3549,1.3379,1.3248,1.3084,1.2951,1.2781,1.2632,1.2549, &
& 1.2503,1.2459,1.2394,1.2290,1.2152,1.2084,1.2074,1.2049, &
& 1.1966,1.1839,1.1701,1.1591,1.1551,1.1553,1.1556,1.1546, &
& 1.1549,1.1539,1.1540,1.1575,1.1622,1.1671,1.1704,1.1715, &
& 1.1680,1.1652,1.1577,1.1529,1.1538,1.1614,1.1718,1.1818, &
& 1.1868,1.1925,1.1989,1.2033,1.2074,1.2086,1.2092,1.2086, &
& 1.2093,1.2131,1.2179,1.2213,1.2277,1.2331,1.2364,1.2426, &
& 1.2479,1.2531,1.2600,1.2642,1.2655,1.2642,1.2614,1.2621, &
& 1.2635,1.2663,1.2698,1.2701,1.2675,1.2621,1.2589,1.2540, &
& 1.2571,1.2654,1.2720,1.2794,1.2845,1.2871,1.2863,1.2881, &
& 1.2933,1.3001,1.3031,1.3061,1.3075,1.3103,1.3120,1.3116, &
& 1.3113,1.3100,1.3067,1.3025,1.3012,1.3010,1.3036,1.3101, &
& 1.3208,1.3262,1.3326,1.3367,1.3389,1.3436,1.3470,1.3497, &
& 1.3507,1.3495,1.3475,1.3437,1.3419,1.3385,1.3380,1.3381, &
& 1.3400,1.3395,1.3392,1.3412,1.3425,1.3448,1.3529,1.3620, &
& 1.3673,1.3713,1.3749,1.3765,1.3779,1.3776,1.3779,1.3788, &
& 1.3781,1.3793,1.3806,1.3793,1.3782,1.3756,1.3752,1.3754, &
& 1.3778,1.3809,1.3845,1.3883,1.3906,1.3909,1.3915,1.3922, &
& 1.3911,1.3917,1.3917,1.3928,1.3939,1.3965,1.3985,1.4021, &
& 1.4035,1.4044,1.4056,1.4057,1.4049,1.4050,1.4070,1.4062, &
& 1.4046,1.4037,1.4025,1.4032,1.4047,1.4066,1.4113,1.4141, &
& 1.4175,1.4205,1.4232,1.4257,1.4256,1.4263,1.4259,1.4243, &
& 1.4220,1.4225,1.4224,1.4240,1.4271,1.4308,1.4336,1.4349, &
& 1.4349,1.4355,1.4364,1.4399,1.4431,1.4472,1.4525,1.4541, &
& 1.4571,1.4572,1.4562,1.4541,1.4518,1.4517,1.4525,1.4545, &
& 1.4586,1.4610,1.4652,1.4693,1.4712,1.4747,1.4761,1.4792, &
& 1.4804,1.4812,1.4823,1.4808,1.4819,1.4812,1.4832,1.4849, &
& 1.4859,1.4889,1.4898,1.4908,1.4909,1.4903,1.4915,1.4905, &
& 1.4890,1.4893,1.4880,1.4885,1.4882,1.4871,1.4881,1.4892, &
& 1.4896,1.4900,1.4925,1.4948,1.4936,1.4931,1.4914,1.4883, &
& 1.4868,1.4845,1.4810,1.4788,1.4784,1.4764,1.4732,1.4710, &
& 1.4684,1.4621,1.4590,1.4528,1.4506,1.4469,1.4469,1.4460, &
& 1.4453,1.4433,1.4419,1.4399,1.4361,1.4310,1.4269,1.4238, &
& 1.4219,1.4174,1.4162,1.4126,1.4095,1.4036,1.3985,1.3952, &
& 1.3896,1.3873,1.3857,1.3854,1.3841,1.3836,1.3832,1.3814, &
& 1.3780,1.3752,1.3703,1.3663,1.3592,1.3531,1.3480,1.3422, &
& 1.3380,1.3355,1.3330,1.3318,1.3303,1.3285,1.3218,1.3162, &
& 1.3109,1.3057,1.3008,1.2978,1.2940,1.2939,1.2924,1.2921, &
& 1.2913,1.2918,1.2911,1.2915,1.2941,1.2930,1.2929,1.2937, &
& 1.2913,1.2886,1.2867,1.2817,1.2787,1.2752,1.2708,1.2683, &
& 1.2685,1.2713,1.2724,1.2744,1.2763,1.2760,1.2745,1.2736, &
& 1.2730,1.2717,1.2688,1.2637,1.2541,1.2458,1.2329,1.2184, &
& 1.2043,1.1904,1.1800,1.1652,1.1484,1.1308,1.1121,1.0900, &
& 1.0713,1.0536,1.0363,1.0180,0.9970,0.9773,0.9556,0.9345, &
& 0.9123,0.8913,0.8711,0.8491,0.8313,0.8116,0.7936,0.7768, &
& 0.7575,0.7412,0.7201,0.7014,0.6831,0.6645,0.6495,0.6342, &
& 0.6216,0.6065,0.5925,0.5777,0.5639,0.5546,0.5491,0.5471, &
& 0.5465,0.5510,0.5570,0.5638,0.5736,0.5833,0.5997,0.6212, &
& 0.6405,0.6593,0.6827,0.7081,0.7400,0.7661,0.7922,0.8238, &
& 0.8637,0.8979,0.9334,0.9721,1.0228,1.0644,1.1064,1.1588, &
& 1.2039,1.2474,1.2999,1.3414,1.3797,1.4259,1.4608,1.5047, &
& 1.5426,1.5892,1.6290,1.6687,1.7173,1.7554,1.8037,1.8415, &
& 1.8831,1.9147,1.9558,1.9866,2.0275,2.0669,2.0998,2.1387, &
& 2.1680,2.2036,2.2391,2.2698,2.3070,2.3449,2.3763,2.4129, &
& 2.4494,2.4780,2.5119,2.5431,2.5742,2.5987,2.6303,2.6630, &
& 2.6944,2.7218,2.7549,2.7863,2.8182,2.8491,2.8743,2.8990, &
& 2.9195,2.9446,2.9697,2.9943,3.0152,3.0355,3.0523,3.0699, &
& 3.0822,3.0925,3.1060,3.1210,3.1371,3.1557,3.1719,3.1879, &
& 3.1994,3.2082,3.2105,3.2135,3.2183,3.2257,3.2353,3.2450, &
& 3.2570,3.2618,3.2648,3.2623,3.2564,3.2511,3.2435,3.2407, &
& 3.2385,3.2391,3.2410,3.2454,3.2480,3.2499,3.2495,3.2476, &
& 3.2443,3.2397,3.2382,3.2349,3.2324,3.2269,3.2185,3.2097, &
& 3.1995,3.1923,3.1862,3.1798,3.1721 /)
plasim/src/specs/ground_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 22 KiB

plasim/src/specs/groundblend_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: groundblend(965) = (/12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,12.6184,13.1161, &
& 13.5867,14.1196,14.7424,15.2969,15.2550,15.6031,15.8681,16.3757, &
& 16.6847,17.1698,17.6965,18.0291,18.4459,18.8582,19.7512,20.3127, &
& 20.5441,20.9867,21.2748,21.4852,21.6601,21.8871,22.0959,22.3769, &
& 22.5555,22.6841,22.8859,23.1235,23.1722,23.3581,23.6036,23.7318, &
& 23.9446,23.9542,24.0230,24.1734,24.1251,24.1392,24.3469,24.3035, &
& 24.1023,23.9795,23.6917,23.4389,23.3111,23.2013,23.0616,22.9689, &
& 23.1830,23.5632,23.7520,24.0554,24.2983,24.4708,24.6850,24.6702, &
& 24.3875,24.3069,24.4843,24.7049,24.8939,25.0117,25.0568,24.9801, &
& 24.8849,24.7795,24.5999,24.2513,23.6281,23.0756,22.9904,23.2346, &
& 23.4023,23.7440,23.9070,24.0748,24.4747,24.6725,25.0065,25.0427, &
& 25.3064,25.2820,25.3311,24.9252,24.4807,24.1382,24.0793,24.1720, &
& 24.4702,24.5874,24.3143,23.8518,22.6322,20.9508,20.5339,21.2402, &
& 21.4860,21.7359,22.3565,22.7591,23.1622,23.1278,23.2192,23.0662, &
& 22.9350,22.8464,22.6460,22.3771,22.0274,21.9255,21.9643,21.9098, &
& 21.9174,21.8881,21.8306,21.6983,21.6164,21.5285,21.4726,21.3897, &
& 21.2695,21.1804,21.1874,21.0888,20.9989,20.8369,20.7698,20.6752, &
& 20.5616,20.4998,20.3843,20.3119,20.2465,20.1921,20.1192,20.0303, &
& 19.9051,20.5181,20.5511,20.4673,20.3303,20.3783,20.3147,20.2802, &
& 20.3099,20.1966,20.1630,20.1259,19.9596,19.8334,19.8770,19.5972, &
& 19.2134,18.5325,17.8574,16.4800,14.6280,13.8308,13.1163,12.4486, &
& 11.9491,11.6487,11.3945,11.4007,11.3356,11.3736,11.4299,11.3093, &
& 11.3615,11.3210,11.3192,11.3509,11.2981,11.3254,11.2479,11.2040, &
& 11.2245,11.3198,11.1707,11.2782,11.2528,11.1918,11.3169,11.3154, &
& 11.3594,11.3931,11.4678,11.4829,11.5074,11.5281,11.6097,11.6884, &
& 11.6797,11.6617,11.7554,11.8200,11.8374,11.9067,12.0302,12.0630, &
& 12.1658,12.3165,12.4339,12.5477,12.6119,12.6780,12.7953,12.9337, &
& 12.9967,13.1742,13.2295,13.3202,13.4792,13.5765,13.6835,13.8198, &
& 13.8555,14.0722,14.1067,14.1761,14.2259,14.2250,14.2846,14.3322, &
& 14.3424,14.4607,14.5394,14.5393,14.6360,14.7817,14.9949,15.0743, &
& 15.2085,15.2436,15.2829,15.3453,15.4313,15.5978,15.9001,16.1327, &
& 16.2750,16.4356,16.5749,16.6471,16.7713,16.8856,16.9990,17.0809, &
& 17.1626,17.2430,17.3521,17.4067,17.4680,17.5638,17.6095,17.6486, &
& 17.7019,17.7573,17.7642,17.8256,17.8607,17.9032,17.9301,17.9884, &
& 18.0488,17.9857,17.9823,17.9251,17.8695,17.7879,17.7272,17.7236, &
& 17.6404,17.6509,17.6716,17.6807,17.6908,17.6447,17.5986,17.5476, &
& 17.4500,17.2547,17.1026,16.9764,16.9326,16.9822,17.0983,17.2506, &
& 17.3612,17.4659,17.5732,17.6433,17.6524,17.6560,17.6229,17.5708, &
& 17.5651,17.4985,17.4318,17.3933,17.3414,17.2616,17.2423,17.1257, &
& 17.0959,17.0166,16.9363,16.8619,16.7482,16.6415,16.6052,16.5912, &
& 16.5002,16.3664,16.2904,16.2502,16.2004,16.1755,16.1584,16.1065, &
& 15.9991,15.9238,15.8043,15.6901,15.5448,15.4169,15.2921,15.1880, &
& 15.0799,14.9855,14.8754,14.8085,14.7168,14.6476,14.6086,14.5781, &
& 14.5634,14.5850,14.6578,14.7004,14.6860,14.6632,14.6701,14.6026, &
& 14.5375,14.4678,14.3761,14.2805,14.1601,14.0407,13.8858,13.7244, &
& 13.5898,13.4532,13.3642,13.3278,13.3654,13.3688,13.3402,13.3068, &
& 13.2451,13.1720,13.0793,13.0060,12.9538,12.8837,12.7927,12.6968, &
& 12.6361,12.5646,12.4567,12.3606,12.1931,12.0676,11.9173,11.7557, &
& 11.5970,11.4510,11.3102,11.1767,11.0563,10.9637,10.8623,10.7821, &
& 10.6982,10.6156,10.5213,10.4711,10.4130,10.3640,10.3020,10.3008, &
& 10.2512,10.1942,10.1370,10.1063,10.0780,10.0089,9.9590,9.8962, &
& 9.8242,9.7567,9.7058,9.6345,9.5636,9.4881,9.3874,9.2630, &
& 9.1781,9.0745,8.9465,8.8267,8.6807,8.5982,8.4913,8.3825, &
& 8.3243,8.2706,8.1985,8.1500,8.1151,8.0704,8.0800,8.1049, &
& 8.1130,8.1350,8.1348,8.1288,8.1047,8.0793,8.0591,8.0357, &
& 7.9936,7.9379,7.8745,7.8325,7.7627,7.6875,7.6269,7.5488, &
& 7.4562,7.3633,7.2617,7.2284,7.2010,7.2016,7.2001,7.1939, &
& 7.1617,7.1612,7.1339,7.0978,7.0784,7.0573,7.0481,7.0023, &
& 6.9599,6.9226,6.8862,6.8443,6.7843,6.7479,6.7064,6.6591, &
& 6.6226,6.5819,6.5360,6.4752,6.4218,6.3694,6.3328,6.2544, &
& 6.1890,6.1318,6.0348,5.9585,5.9211,5.8629,5.7906,5.7092, &
& 5.6701,5.6078,5.5355,5.4860,5.4313,5.3857,5.3313,5.2859, &
& 5.2385,5.1952,5.1513,5.1139,5.0893,5.0638,5.0550,5.0086, &
& 4.9703,4.9475,4.9244,4.9099,4.9226,4.9470,4.9421,4.9385, &
& 4.9427,4.9619,4.9915,5.0244,5.0511,5.0653,5.0664,5.0814, &
& 5.1122,5.1381,5.1479,5.1766,5.2168,5.2295,5.2354,5.2516, &
& 5.2754,5.3087,5.3283,5.3277,5.3314,5.3305,5.3169,5.3326, &
& 5.3326,5.3364,5.3582,5.3414,5.3136,5.2865,5.2521,5.2498, &
& 5.2160,5.1982,5.1895,5.1839,5.1757,5.1376,5.1120,5.1008, &
& 5.0761,5.0466,5.0374,5.0125,4.9710,4.9557,4.9417,4.9324, &
& 4.9203,4.9166,4.8914,4.8886,4.8842,4.8565,4.8489,4.8360, &
& 4.7995,4.7643,4.7487,4.7143,4.6870,4.6668,4.6179,4.5856, &
& 4.5697,4.5488,4.5421,4.5111,4.4641,4.4483,4.4327,4.4067, &
& 4.3810,4.3510,4.3223,4.2969,4.2570,4.2223,4.2106,4.2125, &
& 4.2110,4.1582,4.1191,4.1079,4.0939,4.0732,4.0522,4.0470, &
& 4.0512,4.0424,4.0105,3.9693,3.9509,3.9513,3.9344,3.9017, &
& 3.8649,3.8250,3.7820,3.7754,3.7497,3.7175,3.7048,3.6828, &
& 3.6612,3.6259,3.5876,3.5685,3.5571,3.5387,3.5138,3.4793, &
& 3.4621,3.4453,3.4188,3.4017,3.3889,3.3635,3.3374,3.3228, &
& 3.3096,3.2546,3.2245,3.2081,3.2099,3.1913,3.1489,3.1260, &
& 3.0983,3.0680,3.0478,3.0227,2.9910,2.9602,2.9270,2.9108, &
& 2.8865,2.8699,2.8547,2.8316,2.8010,2.7639,2.7441,2.7485, &
& 2.7655,2.7509,2.7166,2.7018,2.6920,2.6869,2.6813,2.6687, &
& 2.6681,2.6712,2.6501,2.6224,2.6040,2.6053,2.6114,2.6119, &
& 2.6208,2.6293,2.6371,2.6762,2.6648,2.6529,2.6583,2.6728, &
& 2.7383,2.7730,2.7993,2.8363,2.8664,2.8767,2.9176,2.9908, &
& 3.0922,3.1485,3.2171,3.2823,3.4467,3.5517,3.6423,3.7126, &
& 3.9180,4.0334,4.1374,4.2246,4.3893,4.4814,4.5543,4.6942, &
& 4.7526,4.8106,4.9626,5.0164,5.0367,5.0784,5.1650,5.1808, &
& 5.2165,5.3260,5.3665,5.4005,5.4427,5.5128,5.6723,5.7514, &
& 5.8222,5.9424,5.9989,6.0508,6.1457,6.1896,6.2694,6.3202, &
& 6.3431,6.3213,6.2696,6.1697,6.1763,6.2059,6.2143,6.2634, &
& 6.3905,6.4496,6.5232,6.5432,6.5829,6.5985,6.5988,6.6125, &
& 6.6226,6.6250,6.6656,6.6790,6.6302,6.6118,6.6070,6.5795, &
& 6.5072,6.4845,6.4341,6.4042,6.3804,6.3459,6.2554,6.2622, &
& 6.2601,6.1893,6.1617,6.1390,6.1182,6.1053,6.1012,6.0901, &
& 6.0498,6.0072,6.0075,5.9882,5.9669,5.9460,5.8917,5.8639, &
& 5.8464,5.7981,5.7618,5.7696,5.7868,5.7570,5.7041,5.6768, &
& 5.6499,5.6320,5.6487,5.6801,5.6760,5.6729,5.6779,5.6965, &
& 5.7084,5.6992,5.7195,5.7890,5.7691,5.7644,5.7810,5.7462, &
& 5.7309,5.7364,5.7244,5.6696,5.6259,5.6083,5.5939,5.5681, &
& 5.5307,5.5132,5.4851,5.4321,5.4173,5.4214,5.3740,5.3250, &
& 5.2817,5.2382,5.2012,5.1801,5.1502,5.1116,5.0813,5.0499, &
& 4.9904,4.9559,4.8783,4.8600,4.8729,4.8856,4.8827,4.8824, &
& 4.8918,4.9303,4.9456,4.9209,4.9158,4.9436,4.9400,4.9219, &
& 4.9391,4.9415,4.9229,4.8960,4.8686,4.8793,4.9081,4.8903, &
& 4.8385,4.8073,4.8243,4.8351,4.8122,4.8071,4.8227,4.7952, &
& 4.7427,4.7340,4.6818,4.6315,4.5909,4.5907,4.5551,4.4885, &
& 4.4819,4.4468,4.3990,4.4123,4.3882,4.3215,4.2887,4.2501, &
& 4.2489,4.2381,4.2184,4.1917,4.1648,4.1390,4.0738,4.0483, &
& 4.0298,4.0136,3.9928,3.9654,3.9546,3.8933,3.8531,3.8062, &
& 3.7705,3.7849,3.7704,3.7301,3.7187,3.7163,3.7524,3.7590, &
& 3.7283,3.7220,3.6777,3.6713,3.6646,3.6649,3.7132,3.6957, &
& 3.6641,3.6692,3.6465,3.5626,3.4967,3.4370,3.3826,3.2979, &
& 3.1938,3.0922,2.9820,2.8385,2.7622,2.7300,2.7205,2.7075, &
& 2.5697,2.4529,2.4551,2.5290,2.4643,2.3695,2.3853,2.3698, &
& 2.3235,2.3492,2.3354,2.3328,2.2808,2.1591,2.0505,1.9828, &
& 2.0443,2.0528,2.1298,2.0987,1.9916,2.0043,1.9213,1.9423, &
& 2.0312,2.0010,1.7628,1.7760,2.0828,2.0650,1.8917,1.9262, &
& 1.8328,1.6978,1.8787,2.0174,1.6473,1.3033,1.4262,1.6316, &
& 1.5811,1.6315,1.3217,1.1069,1.0377 /)
plasim/src/specs/iceblend_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: iceblendmax(965) = (/95.8437,95.9332,96.0364,96.1043,96.2178,96.2740,96.3353,96.4490, &
& 96.4985,96.6171,96.6588,96.8333,96.8630,96.8590,96.8162,96.7973, &
& 96.7209,96.6867,96.6517,96.6321,96.4991,96.4836,96.4537,96.3891, &
& 96.3181,96.1885,96.0114,95.7054,95.6103,95.4099,95.2012,94.8731, &
& 94.7646,94.5365,94.4545,94.2225,93.7234,93.5566,93.2454,93.0747, &
& 92.7302,92.3108,91.8014,91.3663,90.7828,90.2582,89.9875,89.7545, &
& 89.6467,88.2747,86.0996,85.0604,84.4714,83.6482,81.5510,78.7387, &
& 75.2891,72.7923,72.2323,74.4373,75.1118,76.0249,75.6817,73.8089, &
& 70.7332,65.8109,59.7974,54.9893,53.7563,53.0764,53.1521,52.9167, &
& 53.2026,53.6814,52.9628,51.8341,48.9642,34.0275,16.5044,11.8058, &
& 9.1366,7.9238,8.4072,8.6508,10.2426,11.8189,12.6409,12.7774, &
& 16.2006,17.1880,19.6983,21.3444,22.3754,22.9522,24.9242,25.5559, &
& 27.9564,28.9992,31.2848,28.4612,19.3730,12.5179,8.1562,6.1054, &
& 4.5742,3.9392,3.7082,3.9245,4.4871,4.9330,5.8271,7.1903, &
& 9.1599,11.8586,14.0086,15.7584,18.4993,20.5066,21.2126,21.0379, &
& 20.5909,19.7901,18.6880,17.5088,16.4076,15.3806,14.4139,13.6385, &
& 12.9629,12.4197,12.0329,11.7059,11.4543,11.2589,11.0800,10.9226, &
& 10.7386,10.5519,10.3901,10.2091,10.0220,9.8264,9.6602,9.4806, &
& 9.3059,9.1737,9.0627,8.9376,8.8451,8.8048,8.6820,8.5949, &
& 8.5127,8.2324,8.1270,8.0300,7.7931,7.5292,7.4577,6.9994, &
& 6.3843,5.5473,5.1951,4.6152,3.9418,3.2718,2.6085,2.1143, &
& 1.5907,1.2189,0.9050,0.6995,0.5591,0.4626,0.3905,0.3554, &
& 0.3204,0.3100,0.3128,0.3083,0.3123,0.3190,0.3599,0.4412, &
& 0.5330,0.6344,0.7522,0.8703,1.0107,1.1323,1.2132,1.3225, &
& 1.3794,1.5000,1.6286,1.8172,2.0332,2.2798,2.5987,2.9549, &
& 3.2514,3.5574,3.7498,3.7887,3.6995,3.5080,3.3320,3.1925, &
& 3.1278,3.0915,3.0598,3.0404,3.0179,2.9613,2.8761,2.7792, &
& 2.6761,2.5582,2.4565,2.3736,2.3032,2.2223,2.1655,2.1143, &
& 2.0803,2.0402,1.9990,1.9797,1.9689,1.9607,1.9561,1.9584, &
& 1.9531,1.9563,1.9869,2.0115,2.0464,2.0894,2.1301,2.1797, &
& 2.2425,2.3244,2.4118,2.4929,2.5786,2.6785,2.7772,2.8906, &
& 3.0025,3.1099,3.2227,3.3338,3.4454,3.5525,3.6562,3.7525, &
& 3.8476,3.9299,3.9924,4.0579,4.1165,4.1537,4.1809,4.1937, &
& 4.1883,4.1790,4.1693,4.1332,4.0823,4.0361,3.9766,3.9155, &
& 3.8509,3.7766,3.7003,3.6214,3.5510,3.4821,3.4147,3.3404, &
& 3.2600,3.1907,3.1288,3.0671,3.0051,2.9524,2.8967,2.8446, &
& 2.7993,2.7420,2.6842,2.6341,2.5851,2.5393,2.5036,2.4640, &
& 2.4202,2.3806,2.3430,2.3063,2.2757,2.2488,2.2102,2.1669, &
& 2.1370,2.1168,2.0981,2.0847,2.0676,2.0459,2.0250,1.9989, &
& 1.9682,1.9427,1.9166,1.8834,1.8600,1.8444,1.8229,1.8000, &
& 1.7764,1.7464,1.7181,1.6994,1.6824,1.6507,1.6153,1.5907, &
& 1.5783,1.5643,1.5414,1.5171,1.5010,1.4895,1.4777,1.4657, &
& 1.4534,1.4396,1.4387,1.4456,1.4431,1.4341,1.4279,1.4326, &
& 1.4391,1.4439,1.4489,1.4617,1.4802,1.4968,1.5112,1.5263, &
& 1.5447,1.5662,1.5895,1.6217,1.6574,1.6866,1.7074,1.7338, &
& 1.7623,1.7939,1.8272,1.8571,1.8944,1.9325,1.9591,1.9916, &
& 2.0275,2.0593,2.0944,2.1269,2.1545,2.1815,2.2122,2.2429, &
& 2.2683,2.2932,2.3166,2.3479,2.3787,2.4048,2.4289,2.4533, &
& 2.4772,2.4984,2.5148,2.5312,2.5489,2.5650,2.5786,2.5893, &
& 2.5982,2.6082,2.6174,2.6241,2.6297,2.6327,2.6358,2.6425, &
& 2.6441,2.6423,2.6329,2.6215,2.6103,2.6019,2.5942,2.5818, &
& 2.5626,2.5422,2.5237,2.5109,2.4944,2.4715,2.4459,2.4272, &
& 2.4119,2.3921,2.3724,2.3500,2.3273,2.3003,2.2715,2.2498, &
& 2.2296,2.2038,2.1759,2.1459,2.1122,2.0871,2.0667,2.0450, &
& 2.0253,1.9989,1.9741,1.9441,1.9106,1.8843,1.8653,1.8444, &
& 1.8119,1.7814,1.7644,1.7505,1.7301,1.7131,1.6904,1.6548, &
& 1.6185,1.5919,1.5700,1.5434,1.5252,1.5124,1.4929,1.4730, &
& 1.4479,1.4103,1.3809,1.3582,1.3391,1.3255,1.3066,1.2888, &
& 1.2689,1.2471,1.2304,1.2093,1.1923,1.1705,1.1513,1.1410, &
& 1.1356,1.1304,1.1225,1.1067,1.0865,1.0756,1.0723,1.0670, &
& 1.0541,1.0354,1.0152,0.9986,0.9914,0.9886,0.9861,0.9819, &
& 0.9794,0.9751,0.9724,0.9740,0.9774,0.9810,0.9824,0.9807, &
& 0.9728,0.9659,0.9526,0.9430,0.9410,0.9478,0.9583,0.9683, &
& 0.9717,0.9770,0.9832,0.9868,0.9899,0.9893,0.9877,0.9847, &
& 0.9833,0.9862,0.9902,0.9930,1.0000,1.0055,1.0083,1.0147, &
& 1.0202,1.0255,1.0329,1.0369,1.0370,1.0346,1.0303,1.0305, &
& 1.0318,1.0348,1.0388,1.0385,1.0344,1.0266,1.0218,1.0163, &
& 1.0214,1.0333,1.0431,1.0538,1.0616,1.0659,1.0659,1.0692, &
& 1.0770,1.0868,1.0914,1.0960,1.0984,1.1028,1.1057,1.1059, &
& 1.1061,1.1051,1.1014,1.0957,1.0940,1.0938,1.0972,1.1058, &
& 1.1200,1.1271,1.1357,1.1411,1.1440,1.1499,1.1541,1.1573, &
& 1.1583,1.1563,1.1534,1.1481,1.1454,1.1405,1.1395,1.1393, &
& 1.1415,1.1406,1.1399,1.1421,1.1436,1.1463,1.1566,1.1684, &
& 1.1750,1.1806,1.1858,1.1882,1.1904,1.1904,1.1911,1.1925, &
& 1.1920,1.1939,1.1959,1.1942,1.1927,1.1893,1.1888,1.1890, &
& 1.1922,1.1964,1.2010,1.2062,1.2091,1.2096,1.2103,1.2113, &
& 1.2099,1.2106,1.2106,1.2121,1.2135,1.2170,1.2197,1.2248, &
& 1.2270,1.2284,1.2304,1.2308,1.2301,1.2305,1.2335,1.2327, &
& 1.2310,1.2304,1.2294,1.2311,1.2338,1.2369,1.2437,1.2481, &
& 1.2532,1.2585,1.2624,1.2661,1.2663,1.2675,1.2672,1.2655, &
& 1.2628,1.2637,1.2640,1.2664,1.2705,1.2755,1.2791,1.2808, &
& 1.2808,1.2816,1.2828,1.2875,1.2916,1.2975,1.3048,1.3072, &
& 1.3119,1.3123,1.3113,1.3089,1.3061,1.3064,1.3073,1.3100, &
& 1.3154,1.3186,1.3243,1.3296,1.3321,1.3367,1.3389,1.3433, &
& 1.3453,1.3467,1.3484,1.3471,1.3488,1.3483,1.3512,1.3541, &
& 1.3568,1.3614,1.3633,1.3652,1.3666,1.3666,1.3687,1.3684, &
& 1.3683,1.3697,1.3689,1.3706,1.3722,1.3716,1.3740,1.3771, &
& 1.3808,1.3829,1.3880,1.3925,1.3943,1.3952,1.3946,1.3936, &
& 1.3933,1.3920,1.3905,1.3892,1.3903,1.3893,1.3883,1.3870, &
& 1.3852,1.3801,1.3775,1.3727,1.3714,1.3681,1.3706,1.3708, &
& 1.3712,1.3710,1.3704,1.3691,1.3668,1.3613,1.3585,1.3557, &
& 1.3544,1.3510,1.3507,1.3486,1.3458,1.3405,1.3350,1.3320, &
& 1.3272,1.3254,1.3260,1.3269,1.3277,1.3284,1.3304,1.3293, &
& 1.3275,1.3249,1.3204,1.3162,1.3087,1.3015,1.2968,1.2901, &
& 1.2868,1.2847,1.2841,1.2838,1.2843,1.2833,1.2770,1.2722, &
& 1.2665,1.2621,1.2569,1.2555,1.2532,1.2543,1.2549,1.2558, &
& 1.2573,1.2606,1.2610,1.2640,1.2689,1.2699,1.2725,1.2748, &
& 1.2742,1.2735,1.2727,1.2693,1.2686,1.2656,1.2629,1.2630, &
& 1.2664,1.2717,1.2764,1.2823,1.2864,1.2896,1.2916,1.2943, &
& 1.2954,1.2976,1.2976,1.2954,1.2872,1.2785,1.2660,1.2513, &
& 1.2368,1.2223,1.2105,1.1948,1.1764,1.1571,1.1381,1.1147, &
& 1.0957,1.0752,1.0582,1.0397,1.0178,0.9976,0.9747,0.9525, &
& 0.9286,0.9060,0.8844,0.8606,0.8421,0.8212,0.8025,0.7855, &
& 0.7651,0.7461,0.7253,0.7045,0.6842,0.6633,0.6474,0.6310, &
& 0.6183,0.6021,0.5874,0.5717,0.5561,0.5450,0.5391,0.5378, &
& 0.5382,0.5429,0.5489,0.5559,0.5670,0.5779,0.5912,0.6069, &
& 0.6241,0.6406,0.6606,0.6805,0.7024,0.7233,0.7442,0.7686, &
& 0.7952,0.8230,0.8525,0.8829,0.9141,0.9452,0.9768,1.0101, &
& 1.0459,1.0795,1.1131,1.1439,1.1728,1.2008,1.2249,1.2500, &
& 1.2755,1.3003,1.3283,1.3563,1.3849,1.4121,1.4410,1.4676, &
& 1.4930,1.5167,1.5438,1.5665,1.5927,1.6168,1.6414,1.6647, &
& 1.6855,1.7053,1.7251,1.7475,1.7695,1.7925,1.8159,1.8372, &
& 1.8583,1.8780,1.8956,1.9148,1.9366,1.9560,1.9786,2.0014, &
& 2.0225,2.0451,2.0682,2.0884,2.1093,2.1288,2.1466,2.1638, &
& 2.1806,2.1982,2.2158,2.2330,2.2449,2.2543,2.2591,2.2648, &
& 2.2702,2.2760,2.2861,2.2978,2.3104,2.3234,2.3355,2.3459, &
& 2.3505,2.3514,2.3486,2.3467,2.3453,2.3484,2.3542,2.3602, &
& 2.3690,2.3705,2.3696,2.3627,2.3510,2.3411,2.3294,2.3244, &
& 2.3205,2.3210,2.3235,2.3293,2.3328,2.3352,2.3347,2.3323, &
& 2.3279,2.3217,2.3198,2.3154,2.3124,2.3065,2.2966,2.2860, &
& 2.2736,2.2655,2.2613,2.2558,2.2494 /)
plasim/src/specs/iceblendmax_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: iceblendmax(965) = (/95.8437,95.9332,96.0364,96.1043,96.2178,96.2740,96.3353,96.4490, &
& 96.4985,96.6171,96.6588,96.8333,96.8630,96.8590,96.8162,96.7973, &
& 96.7209,96.6867,96.6517,96.6321,96.4991,96.4836,96.4537,96.3891, &
& 96.3181,96.1885,96.0114,95.7054,95.6103,95.4099,95.2012,94.8731, &
& 94.7646,94.5365,94.4545,94.2225,93.7234,93.5566,93.2454,93.0747, &
& 92.7302,92.3108,91.8014,91.3663,90.7828,90.2582,89.9875,89.7545, &
& 89.6467,88.2747,86.0996,85.0604,84.4714,83.6482,81.5510,78.7387, &
& 75.2891,72.7923,72.2323,74.4373,75.1118,76.0249,75.6817,73.8089, &
& 70.7332,65.8109,59.7974,54.9893,53.7563,53.0764,53.1521,52.9167, &
& 53.2026,53.6814,52.9628,51.8341,48.9642,34.0275,16.5044,11.8058, &
& 9.1366,7.9238,8.4072,8.6508,10.2426,11.8189,12.6409,12.7774, &
& 16.2006,17.1880,19.6983,21.3444,22.3754,22.9522,24.9242,25.5559, &
& 27.9564,28.9992,31.2848,28.4612,19.3730,12.5179,8.1562,6.1054, &
& 4.5742,3.9392,3.7082,3.9245,4.4871,4.9330,5.8271,7.1903, &
& 9.1599,11.8586,14.0086,15.7584,18.4993,20.5066,21.2126,21.0379, &
& 20.5909,19.7901,18.6880,17.5088,16.4076,15.3806,14.4139,13.6385, &
& 12.9629,12.4197,12.0329,11.7059,11.4543,11.2589,11.0800,10.9226, &
& 10.7386,10.5519,10.3901,10.2091,10.0220,9.8264,9.6602,9.4806, &
& 9.3059,9.1737,9.0627,8.9376,8.8451,8.8048,8.6820,8.5949, &
& 8.5127,8.2324,8.1270,8.0300,7.7931,7.5292,7.4577,6.9994, &
& 6.3843,5.5473,5.1951,4.6152,3.9418,3.2718,2.6085,2.1143, &
& 1.5907,1.2189,0.9050,0.6995,0.5591,0.4626,0.3905,0.3554, &
& 0.3204,0.3100,0.3128,0.3083,0.3123,0.3190,0.3599,0.4412, &
& 0.5330,0.6344,0.7522,0.8703,1.0107,1.1323,1.2132,1.3225, &
& 1.3794,1.5000,1.6286,1.8172,2.0332,2.2798,2.5987,2.9549, &
& 3.2514,3.5574,3.7498,3.7887,3.6995,3.5080,3.3320,3.1925, &
& 3.1278,3.0915,3.0598,3.0404,3.0179,2.9613,2.8761,2.7792, &
& 2.6761,2.5582,2.4565,2.3736,2.3032,2.2223,2.1655,2.1143, &
& 2.0803,2.0402,1.9990,1.9797,1.9689,1.9607,1.9561,1.9584, &
& 1.9531,1.9563,1.9869,2.0115,2.0464,2.0894,2.1301,2.1797, &
& 2.2425,2.3244,2.4118,2.4929,2.5786,2.6785,2.7772,2.8906, &
& 3.0025,3.1099,3.2227,3.3338,3.4454,3.5525,3.6562,3.7525, &
& 3.8476,3.9299,3.9924,4.0579,4.1165,4.1537,4.1809,4.1937, &
& 4.1883,4.1790,4.1693,4.1332,4.0823,4.0361,3.9766,3.9155, &
& 3.8509,3.7766,3.7003,3.6214,3.5510,3.4821,3.4147,3.3404, &
& 3.2600,3.1907,3.1288,3.0671,3.0051,2.9524,2.8967,2.8446, &
& 2.7993,2.7420,2.6842,2.6341,2.5851,2.5393,2.5036,2.4640, &
& 2.4202,2.3806,2.3430,2.3063,2.2757,2.2488,2.2102,2.1669, &
& 2.1370,2.1168,2.0981,2.0847,2.0676,2.0459,2.0250,1.9989, &
& 1.9682,1.9427,1.9166,1.8834,1.8600,1.8444,1.8229,1.8000, &
& 1.7764,1.7464,1.7181,1.6994,1.6824,1.6507,1.6153,1.5907, &
& 1.5783,1.5643,1.5414,1.5171,1.5010,1.4895,1.4777,1.4657, &
& 1.4534,1.4396,1.4387,1.4456,1.4431,1.4341,1.4279,1.4326, &
& 1.4391,1.4439,1.4489,1.4617,1.4802,1.4968,1.5112,1.5263, &
& 1.5447,1.5662,1.5895,1.6217,1.6574,1.6866,1.7074,1.7338, &
& 1.7623,1.7939,1.8272,1.8571,1.8944,1.9325,1.9591,1.9916, &
& 2.0275,2.0593,2.0944,2.1269,2.1545,2.1815,2.2122,2.2429, &
& 2.2683,2.2932,2.3166,2.3479,2.3787,2.4048,2.4289,2.4533, &
& 2.4772,2.4984,2.5148,2.5312,2.5489,2.5650,2.5786,2.5893, &
& 2.5982,2.6082,2.6174,2.6241,2.6297,2.6327,2.6358,2.6425, &
& 2.6441,2.6423,2.6329,2.6215,2.6103,2.6019,2.5942,2.5818, &
& 2.5626,2.5422,2.5237,2.5109,2.4944,2.4715,2.4459,2.4272, &
& 2.4119,2.3921,2.3724,2.3500,2.3273,2.3003,2.2715,2.2498, &
& 2.2296,2.2038,2.1759,2.1459,2.1122,2.0871,2.0667,2.0450, &
& 2.0253,1.9989,1.9741,1.9441,1.9106,1.8843,1.8653,1.8444, &
& 1.8119,1.7814,1.7644,1.7505,1.7301,1.7131,1.6904,1.6548, &
& 1.6185,1.5919,1.5700,1.5434,1.5252,1.5124,1.4929,1.4730, &
& 1.4479,1.4103,1.3809,1.3582,1.3391,1.3255,1.3066,1.2888, &
& 1.2689,1.2471,1.2304,1.2093,1.1923,1.1705,1.1513,1.1410, &
& 1.1356,1.1304,1.1225,1.1067,1.0865,1.0756,1.0723,1.0670, &
& 1.0541,1.0354,1.0152,0.9986,0.9914,0.9886,0.9861,0.9819, &
& 0.9794,0.9751,0.9724,0.9740,0.9774,0.9810,0.9824,0.9807, &
& 0.9728,0.9659,0.9526,0.9430,0.9410,0.9478,0.9583,0.9683, &
& 0.9717,0.9770,0.9832,0.9868,0.9899,0.9893,0.9877,0.9847, &
& 0.9833,0.9862,0.9902,0.9930,1.0000,1.0055,1.0083,1.0147, &
& 1.0202,1.0255,1.0329,1.0369,1.0370,1.0346,1.0303,1.0305, &
& 1.0318,1.0348,1.0388,1.0385,1.0344,1.0266,1.0218,1.0163, &
& 1.0214,1.0333,1.0431,1.0538,1.0616,1.0659,1.0659,1.0692, &
& 1.0770,1.0868,1.0914,1.0960,1.0984,1.1028,1.1057,1.1059, &
& 1.1061,1.1051,1.1014,1.0957,1.0940,1.0938,1.0972,1.1058, &
& 1.1200,1.1271,1.1357,1.1411,1.1440,1.1499,1.1541,1.1573, &
& 1.1583,1.1563,1.1534,1.1481,1.1454,1.1405,1.1395,1.1393, &
& 1.1415,1.1406,1.1399,1.1421,1.1436,1.1463,1.1566,1.1684, &
& 1.1750,1.1806,1.1858,1.1882,1.1904,1.1904,1.1911,1.1925, &
& 1.1920,1.1939,1.1959,1.1942,1.1927,1.1893,1.1888,1.1890, &
& 1.1922,1.1964,1.2010,1.2062,1.2091,1.2096,1.2103,1.2113, &
& 1.2099,1.2106,1.2106,1.2121,1.2135,1.2170,1.2197,1.2248, &
& 1.2270,1.2284,1.2304,1.2308,1.2301,1.2305,1.2335,1.2327, &
& 1.2310,1.2304,1.2294,1.2311,1.2338,1.2369,1.2437,1.2481, &
& 1.2532,1.2585,1.2624,1.2661,1.2663,1.2675,1.2672,1.2655, &
& 1.2628,1.2637,1.2640,1.2664,1.2705,1.2755,1.2791,1.2808, &
& 1.2808,1.2816,1.2828,1.2875,1.2916,1.2975,1.3048,1.3072, &
& 1.3119,1.3123,1.3113,1.3089,1.3061,1.3064,1.3073,1.3100, &
& 1.3154,1.3186,1.3243,1.3296,1.3321,1.3367,1.3389,1.3433, &
& 1.3453,1.3467,1.3484,1.3471,1.3488,1.3483,1.3512,1.3541, &
& 1.3568,1.3614,1.3633,1.3652,1.3666,1.3666,1.3687,1.3684, &
& 1.3683,1.3697,1.3689,1.3706,1.3722,1.3716,1.3740,1.3771, &
& 1.3808,1.3829,1.3880,1.3925,1.3943,1.3952,1.3946,1.3936, &
& 1.3933,1.3920,1.3905,1.3892,1.3903,1.3893,1.3883,1.3870, &
& 1.3852,1.3801,1.3775,1.3727,1.3714,1.3681,1.3706,1.3708, &
& 1.3712,1.3710,1.3704,1.3691,1.3668,1.3613,1.3585,1.3557, &
& 1.3544,1.3510,1.3507,1.3486,1.3458,1.3405,1.3350,1.3320, &
& 1.3272,1.3254,1.3260,1.3269,1.3277,1.3284,1.3304,1.3293, &
& 1.3275,1.3249,1.3204,1.3162,1.3087,1.3015,1.2968,1.2901, &
& 1.2868,1.2847,1.2841,1.2838,1.2843,1.2833,1.2770,1.2722, &
& 1.2665,1.2621,1.2569,1.2555,1.2532,1.2543,1.2549,1.2558, &
& 1.2573,1.2606,1.2610,1.2640,1.2689,1.2699,1.2725,1.2748, &
& 1.2742,1.2735,1.2727,1.2693,1.2686,1.2656,1.2629,1.2630, &
& 1.2664,1.2717,1.2764,1.2823,1.2864,1.2896,1.2916,1.2943, &
& 1.2954,1.2976,1.2976,1.2954,1.2872,1.2785,1.2660,1.2513, &
& 1.2368,1.2223,1.2105,1.1948,1.1764,1.1571,1.1381,1.1147, &
& 1.0957,1.0752,1.0582,1.0397,1.0178,0.9976,0.9747,0.9525, &
& 0.9286,0.9060,0.8844,0.8606,0.8421,0.8212,0.8025,0.7855, &
& 0.7651,0.7461,0.7253,0.7045,0.6842,0.6633,0.6474,0.6310, &
& 0.6183,0.6021,0.5874,0.5717,0.5561,0.5450,0.5391,0.5378, &
& 0.5382,0.5429,0.5489,0.5559,0.5670,0.5779,0.5912,0.6069, &
& 0.6241,0.6406,0.6606,0.6805,0.7024,0.7233,0.7442,0.7686, &
& 0.7952,0.8230,0.8525,0.8829,0.9141,0.9452,0.9768,1.0101, &
& 1.0459,1.0795,1.1131,1.1439,1.1728,1.2008,1.2249,1.2500, &
& 1.2755,1.3003,1.3283,1.3563,1.3849,1.4121,1.4410,1.4676, &
& 1.4930,1.5167,1.5438,1.5665,1.5927,1.6168,1.6414,1.6647, &
& 1.6855,1.7053,1.7251,1.7475,1.7695,1.7925,1.8159,1.8372, &
& 1.8583,1.8780,1.8956,1.9148,1.9366,1.9560,1.9786,2.0014, &
& 2.0225,2.0451,2.0682,2.0884,2.1093,2.1288,2.1466,2.1638, &
& 2.1806,2.1982,2.2158,2.2330,2.2449,2.2543,2.2591,2.2648, &
& 2.2702,2.2760,2.2861,2.2978,2.3104,2.3234,2.3355,2.3459, &
& 2.3505,2.3514,2.3486,2.3467,2.3453,2.3484,2.3542,2.3602, &
& 2.3690,2.3705,2.3696,2.3627,2.3510,2.3411,2.3294,2.3244, &
& 2.3205,2.3210,2.3235,2.3293,2.3328,2.3352,2.3347,2.3323, &
& 2.3279,2.3217,2.3198,2.3154,2.3124,2.3065,2.2966,2.2860, &
& 2.2736,2.2655,2.2613,2.2558,2.2494 /)
plasim/src/specs/iceblendmin_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: iceblendmin(965) = (/48.1499,48.1887,48.2367,48.2675,48.3206,48.3456,48.3731,48.4713, &
& 48.4615,48.5353,48.5502,48.6014,48.6603,48.6985,48.5756,48.5840, &
& 48.5657,48.4986,48.4771,48.4437,48.4200,48.4330,48.3958,48.3551, &
& 48.3329,48.2773,48.1539,48.0177,47.9755,47.8779,47.7465,47.6125, &
& 47.5609,47.4476,47.4028,47.2475,47.0614,46.9796,46.7597,46.7211, &
& 46.5699,46.3429,46.0934,45.8817,45.6180,45.3196,45.2079,45.0507, &
& 44.9973,44.3512,43.2857,42.7343,42.4896,42.0633,41.0129,39.6354, &
& 37.9247,36.6996,36.4250,37.5052,37.8565,38.2785,38.0845,37.1838, &
& 35.6109,33.2415,30.2920,27.9822,27.3270,26.9711,27.0084,26.8881, &
& 27.0231,27.2760,26.9277,26.3733,24.9627,17.6434,9.0137,6.7575, &
& 5.4702,4.8310,5.1114,5.1589,5.9824,6.7299,7.1556,7.2195, &
& 8.8517,9.3546,10.5807,11.3879,11.8923,12.1471,13.1561,13.4203, &
& 14.6339,15.1461,16.2016,14.8805,10.3593,6.9974,4.8632,3.8544, &
& 3.1021,2.7883,2.6768,2.8299,3.0553,3.2739,3.7151,4.3838, &
& 5.3435,6.6555,7.7064,8.5537,9.8875,10.8656,11.2047,11.1128, &
& 10.8892,10.4928,9.9489,9.3658,8.8222,8.3190,7.8385,7.4536, &
& 7.1175,6.8476,6.6528,6.4871,6.3609,6.2572,6.1670,6.0828, &
& 5.9894,5.8917,5.8040,5.7072,5.6088,5.5058,5.4182,5.3206, &
& 5.2281,5.1545,5.0884,5.0112,4.9555,4.9081,4.8219,4.7774, &
& 4.7203,4.5727,4.5240,4.4479,4.2955,4.1473,4.1614,3.9035, &
& 3.5694,3.0844,2.9181,2.6337,2.2788,1.8971,1.5374,1.3109, &
& 1.0027,0.8467,0.6768,0.5723,0.5155,0.4705,0.4442,0.4559, &
& 0.4540,0.4879,0.5283,0.5684,0.6293,0.6997,0.7979,0.9394, &
& 1.0749,1.2673,1.4508,1.6459,1.8392,2.0021,2.1448,2.3064, &
& 2.4428,2.6271,2.8175,3.0556,3.3119,3.6068,3.9349,4.2803, &
& 4.6035,4.8285,4.9945,5.0117,4.9629,4.8355,4.7202,4.6274, &
& 4.5744,4.5282,4.4830,4.4239,4.3625,4.2634,4.1496,4.0251, &
& 3.9012,3.7795,3.6639,3.5684,3.4767,3.3802,3.2940,3.2261, &
& 3.1594,3.1044,3.0411,2.9962,2.9544,2.9155,2.8791,2.8488, &
& 2.8120,2.7886,2.7755,2.7632,2.7518,2.7520,2.7460,2.7448, &
& 2.7547,2.7751,2.7989,2.8195,2.8441,2.8777,2.9091,2.9506, &
& 2.9921,3.0299,3.0681,3.1111,3.1562,3.1946,3.2349,3.2704, &
& 3.3053,3.3374,3.3568,3.3842,3.4041,3.4138,3.4188,3.4161, &
& 3.4048,3.3914,3.3810,3.3564,3.3225,3.2954,3.2575,3.2218, &
& 3.1826,3.1403,3.0974,3.0531,3.0123,2.9717,2.9353,2.8928, &
& 2.8487,2.8105,2.7757,2.7405,2.7058,2.6745,2.6417,2.6134, &
& 2.5873,2.5543,2.5211,2.4928,2.4649,2.4398,2.4197,2.3951, &
& 2.3689,2.3469,2.3258,2.3047,2.2856,2.2701,2.2454,2.2200, &
& 2.2018,2.1888,2.1779,2.1678,2.1563,2.1436,2.1315,2.1164, &
& 2.0989,2.0821,2.0654,2.0486,2.0340,2.0221,2.0076,1.9939, &
& 1.9815,1.9652,1.9492,1.9390,1.9282,1.9102,1.8916,1.8772, &
& 1.8683,1.8597,1.8470,1.8341,1.8251,1.8181,1.8122,1.8070, &
& 1.7999,1.7935,1.7932,1.7961,1.7954,1.7913,1.7879,1.7916, &
& 1.7959,1.7989,1.8013,1.8079,1.8185,1.8285,1.8377,1.8493, &
& 1.8597,1.8692,1.8815,1.8959,1.9119,1.9263,1.9366,1.9473, &
& 1.9598,1.9752,1.9913,2.0068,2.0262,2.0429,2.0531,2.0681, &
& 2.0848,2.0991,2.1151,2.1304,2.1421,2.1521,2.1648,2.1779, &
& 2.1897,2.2003,2.2080,2.2214,2.2371,2.2492,2.2594,2.2686, &
& 2.2779,2.2880,2.2947,2.2986,2.3051,2.3082,2.3121,2.3184, &
& 2.3241,2.3263,2.3289,2.3223,2.3186,2.3217,2.3283,2.3297, &
& 2.3293,2.3226,2.3106,2.3030,2.2986,2.2925,2.2871,2.2765, &
& 2.2536,2.2389,2.2363,2.2369,2.2264,2.2056,2.1756,2.1568, &
& 2.1553,2.1512,2.1418,2.1314,2.1211,2.1026,2.0752,2.0558, &
& 2.0486,2.0432,2.0326,2.0141,1.9702,1.9381,1.9334,1.9455, &
& 1.9408,1.9253,1.9085,1.8601,1.8247,1.8168,1.8341,1.8143, &
& 1.7731,1.7424,1.7435,1.7561,1.7534,1.7335,1.7133,1.6930, &
& 1.6662,1.6447,1.6169,1.5854,1.5754,1.5761,1.5818,1.5733, &
& 1.5497,1.5010,1.4584,1.4474,1.4575,1.4636,1.4487,1.4328, &
& 1.4065,1.3749,1.3610,1.3545,1.3583,1.3213,1.2834,1.2798, &
& 1.2993,1.3387,1.3356,1.2841,1.2398,1.2353,1.2609,1.2826, &
& 1.2552,1.2042,1.1638,1.1614,1.1959,1.2400,1.2295,1.2000, &
& 1.1984,1.2157,1.2472,1.2501,1.2465,1.2713,1.2955,1.3322, &
& 1.3624,1.3252,1.2896,1.2575,1.2561,1.3246,1.4040,1.4323, &
& 1.4346,1.4325,1.4496,1.4963,1.5310,1.5324,1.5207,1.5057, &
& 1.5096,1.5299,1.5498,1.5857,1.5991,1.5960,1.6014,1.6041, &
& 1.6040,1.6040,1.6056,1.6087,1.6118,1.6128,1.5837,1.5419, &
& 1.5192,1.4970,1.4940,1.5187,1.5310,1.4888,1.4317,1.3742, &
& 1.3605,1.3975,1.4792,1.5246,1.5092,1.4510,1.3916,1.3740, &
& 1.3864,1.4349,1.4880,1.5060,1.4911,1.4675,1.4346,1.4061, &
& 1.4119,1.4403,1.4709,1.4599,1.4187,1.3981,1.4067,1.4367, &
& 1.4763,1.5104,1.5121,1.4940,1.4900,1.5003,1.5110,1.5273, &
& 1.5572,1.5736,1.5502,1.5047,1.4791,1.4752,1.4830,1.5055, &
& 1.5366,1.5335,1.4855,1.4539,1.4489,1.4575,1.4832,1.5256, &
& 1.5574,1.5675,1.5752,1.5706,1.5563,1.5403,1.5268,1.5226, &
& 1.5323,1.5521,1.5653,1.5596,1.5415,1.5215,1.5092,1.5100, &
& 1.5243,1.5476,1.5721,1.5794,1.5754,1.5702,1.5636,1.5541, &
& 1.5385,1.5287,1.5273,1.5303,1.5365,1.5457,1.5554,1.5645, &
& 1.5663,1.5717,1.5776,1.5723,1.5608,1.5536,1.5528,1.5563, &
& 1.5592,1.5578,1.5513,1.5450,1.5435,1.5462,1.5545,1.5646, &
& 1.5729,1.5744,1.5769,1.5795,1.5760,1.5685,1.5598,1.5523, &
& 1.5484,1.5510,1.5570,1.5661,1.5741,1.5783,1.5778,1.5760, &
& 1.5732,1.5705,1.5679,1.5674,1.5693,1.5730,1.5782,1.5806, &
& 1.5837,1.5837,1.5824,1.5800,1.5783,1.5781,1.5788,1.5799, &
& 1.5815,1.5818,1.5834,1.5848,1.5855,1.5881,1.5895,1.5915, &
& 1.5913,1.5907,1.5902,1.5876,1.5881,1.5876,1.5888,1.5895, &
& 1.5888,1.5901,1.5906,1.5916,1.5925,1.5921,1.5923,1.5906, &
& 1.5873,1.5862,1.5844,1.5845,1.5846,1.5839,1.5848,1.5853, &
& 1.5842,1.5831,1.5836,1.5834,1.5795,1.5780,1.5763,1.5731, &
& 1.5718,1.5696,1.5652,1.5622,1.5607,1.5584,1.5541,1.5513, &
& 1.5489,1.5439,1.5416,1.5364,1.5345,1.5313,1.5284,1.5259, &
& 1.5242,1.5201,1.5177,1.5147,1.5094,1.5047,1.5003,1.4975, &
& 1.4959,1.4924,1.4914,1.4887,1.4865,1.4808,1.4766,1.4730, &
& 1.4659,1.4624,1.4584,1.4570,1.4552,1.4548,1.4542,1.4521, &
& 1.4472,1.4437,1.4372,1.4330,1.4274,1.4232,1.4187,1.4141, &
& 1.4103,1.4076,1.4035,1.4012,1.3983,1.3960,1.3894,1.3839, &
& 1.3795,1.3726,1.3675,1.3615,1.3557,1.3538,1.3499,1.3481, &
& 1.3447,1.3424,1.3414,1.3411,1.3425,1.3403,1.3381,1.3370, &
& 1.3326,1.3269,1.3242,1.3180,1.3135,1.3100,1.3057,1.3026, &
& 1.3003,1.3000,1.2963,1.2935,1.2929,1.2896,1.2864,1.2825, &
& 1.2804,1.2764,1.2713,1.2640,1.2555,1.2488,1.2374,1.2246, &
& 1.2132,1.2015,1.1932,1.1802,1.1672,1.1537,1.1382,1.1197, &
& 1.1036,1.0899,1.0747,1.0585,1.0411,1.0244,1.0063,0.9879, &
& 0.9702,0.9534,0.9369,0.9193,0.9049,0.8890,0.8739,0.8596, &
& 0.8443,0.8320,0.8127,0.7974,0.7825,0.7671,0.7538,0.7400, &
& 0.7290,0.7158,0.7037,0.6915,0.6801,0.6714,0.6659,0.6621, &
& 0.6597,0.6601,0.6629,0.6658,0.6710,0.6763,0.6888,0.7053, &
& 0.7195,0.7324,0.7493,0.7679,0.7928,0.8128,0.8330,0.8574, &
& 0.8896,0.9162,0.9447,0.9758,1.0188,1.0519,1.0856,1.1292, &
& 1.1654,1.2007,1.2468,1.2816,1.3134,1.3527,1.3825,1.4220, &
& 1.4547,1.4971,1.5314,1.5657,1.6102,1.6434,1.6880,1.7213, &
& 1.7602,1.7882,1.8268,1.8543,1.8934,1.9316,1.9617,1.9999, &
& 2.0278,2.0647,2.1023,2.1313,2.1690,2.2065,2.2357,2.2728, &
& 2.3111,2.3397,2.3775,2.4115,2.4457,2.4703,2.5046,2.5388, &
& 2.5722,2.5985,2.6332,2.6671,2.7022,2.7365,2.7661,2.7949, &
& 2.8170,2.8460,2.8768,2.9072,2.9359,2.9641,2.9906,3.0174, &
& 3.0389,3.0567,3.0775,3.0990,3.1225,3.1513,3.1756,3.2002, &
& 3.2218,3.2405,3.2539,3.2668,3.2851,3.3009,3.3183,3.3360, &
& 3.3601,3.3740,3.3874,3.3968,3.4078,3.4151,3.4201,3.4311, &
& 3.4407,3.4537,3.4659,3.4824,3.4946,3.5070,3.5154,3.5241, &
& 3.5304,3.5396,3.5500,3.5608,3.5687,3.5757,3.5827,3.5846, &
& 3.5887,3.5957,3.6063,3.6104,3.6136 /)
plasim/src/specs/manifest.txt
+14
View File
@@ -0,0 +1,14 @@
basaltsolid rock.igneous.basic.solid.all.ward34.jpl.nicolet.spectrum.txt
andesitefine rock.igneous.intermediate.fine.all.andesite_h4.jhu.becknic.spectrum.txt
andesitesolid rock.igneous.intermediate.solid.all.andesite_h4.jhu.becknic.spectrum.txt
frost water.frost.none.fine.all.frost_snw_.jhu.becknic.spectrum.txt
clearice water.ice.none.solid.all.ice_dat_.jhu.becknic.spectrum.txt
seawater water.seawater.none.liquid.tir.seawater.jhu.becknic.spectrum.txt
coarsesnow water.snow.coarsegranular.coarse.all.coarse_snw_.jhu.becknic.spectrum.txt
finesnow water.snow.finegranular.fine.all.fine_snw_.jhu.becknic.spectrum.txt
mediumsnow water.snow.mediumgranular.medium.all.medgran_snw_.jhu.becknic.spectrum.txt
tapwater water.tapwater.none.liquid.all.tapwater.jhu.becknic.spectrum.txt
yellowloam soil.aridisol.calciorthid.none.all.79p1536.jhu.becknic.spectrum.txt
yellowsand soil.aridisol.camborthid.none.all.89p1772.jhu.becknic.spectrum.txt
brownsand soil.entisol.quartzipsamment.none.all.87p706.jhu.becknic.spectrum.txt
dunesand soil.entisol.torripsamment.none.all.0015.jhu.becknic.spectrum.txt
plasim/src/specs/mediumsnow_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

plasim/src/specs/mediumsnow_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

plasim/src/specs/ocean_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 19 KiB

plasim/src/specs/ocean_refl_components.pdf
BIN
View File
Binary file not shown.
plasim/src/specs/oceanblend_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: oceanblend(965) = (/8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &
& 8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100,8.6100, &
& 8.6100,9.0300,9.2400,9.8700,10.5000,11.3400,11.7600,12.6000, &
& 12.8100,11.9700,11.1300,10.5000,9.8700,9.6600,9.2400,9.0300, &
& 8.4000,7.7700,7.5600,6.7200,6.0900,5.7601,5.2149,5.5982, &
& 5.7401,5.5656,5.5656,5.5772,5.7763,5.4407,5.6099,5.2616, &
& 5.2769,5.4863,5.4848,5.1626,5.5163,5.3296,5.1626,5.1626, &
& 4.9919,4.9946,4.9925,4.9936,5.1828,4.9789,4.7697,4.9237, &
& 4.3877,4.7231,4.7095,5.0749,4.6813,4.4959,4.4982,4.4778, &
& 4.4371,4.6061,4.6353,4.6231,4.6032,4.5761,4.2170,4.5816, &
& 4.7636,4.3989,4.7510,4.1914,4.5454,4.3672,4.5536,4.5497, &
& 4.1914,4.3672,4.3596,4.3672,4.3825,4.1786,4.5268,4.1822, &
& 4.5081,4.5196,4.0234,4.5431,3.9995,3.9850,4.0223,4.0074, &
& 4.0089,3.9866,4.0200,4.4012,4.0167,4.0377,4.0851,4.1132, &
& 4.0926,4.0534,4.0568,3.9984,3.9687,3.9475,3.9339,3.9033, &
& 3.8861,3.8625,3.8395,3.8147,3.8004,3.8197,3.7830,3.7617, &
& 3.7403,3.7296,3.7065,3.6817,3.6779,3.6339,3.6330,3.5962, &
& 3.5901,3.5694,3.5316,3.4858,3.4517,3.4235,3.4039,3.3566, &
& 3.3312,3.2894,3.2250,3.1374,3.0939,2.9001,2.7200,2.7455, &
& 2.6507,2.6178,2.6916,2.5111,2.2680,2.1656,2.6132,2.4038, &
& 2.1991,1.6537,1.7645,1.8315,1.7004,1.3285,1.1074,1.3145, &
& 0.9778,1.2685,1.2194,1.2591,1.4264,1.5254,1.6796,1.9632, &
& 2.1370,2.4615,2.7867,3.0683,3.4834,3.8237,4.2527,4.6603, &
& 4.9764,5.4629,5.8116,6.2535,6.5925,6.8511,7.1084,7.2837, &
& 7.4632,7.5555,7.6641,7.7101,7.7935,7.8964,7.9813,8.0281, &
& 8.1326,8.2135,8.2674,8.3340,8.3735,8.3848,8.4327,8.3861, &
& 8.3656,8.3182,8.2603,8.1835,8.0998,7.9879,7.8703,7.7641, &
& 7.6862,7.5938,7.4870,7.3975,7.2890,7.2033,7.1054,7.0528, &
& 6.9413,6.8987,6.7921,6.7285,6.6563,6.5862,6.5230,6.4614, &
& 6.3768,6.3468,6.2919,6.2568,6.1882,6.1617,6.0936,6.0290, &
& 6.0019,5.9537,5.9117,5.8579,5.8185,5.7956,5.7597,5.7276, &
& 5.7010,5.6725,5.6259,5.5939,5.5776,5.5342,5.5207,5.4968, &
& 5.4731,5.4575,5.4180,5.4202,5.3891,5.3712,5.3543,5.3331, &
& 5.3131,5.2817,5.2771,5.2617,5.2293,5.2337,5.2035,5.1973, &
& 5.1769,5.1593,5.1449,5.1297,5.1086,5.0837,5.0866,5.0680, &
& 5.0597,5.0457,5.0301,5.0094,4.9950,4.9808,4.9662,4.9647, &
& 4.9528,4.9331,4.9142,4.9043,4.8923,4.8907,4.8904,4.8686, &
& 4.8508,4.8395,4.8280,4.8225,4.8098,4.8114,4.7849,4.7709, &
& 4.7629,4.7472,4.7433,4.7357,4.7302,4.7239,4.7186,4.7100, &
& 4.7005,4.6854,4.6742,4.6800,4.6643,4.6502,4.6384,4.6288, &
& 4.6323,4.6289,4.6217,4.6238,4.6136,4.6042,4.6039,4.5949, &
& 4.5817,4.5781,4.5768,4.5680,4.5594,4.5486,4.5470,4.5530, &
& 4.5441,4.5366,4.5282,4.5239,4.5283,4.5201,4.5079,4.5091, &
& 4.5079,4.5028,4.4928,4.4850,4.4875,4.4824,4.4794,4.4929, &
& 4.4842,4.4760,4.4827,4.4816,4.4796,4.4805,4.4821,4.4741, &
& 4.4721,4.4715,4.4692,4.4763,4.4856,4.4798,4.4675,4.4702, &
& 4.4730,4.4727,4.4729,4.4783,4.4735,4.4683,4.4692,4.4639, &
& 4.4684,4.4657,4.4453,4.4400,4.4552,4.4601,4.4572,4.4445, &
& 4.4354,4.4432,4.4429,4.4296,4.4321,4.4041,4.3918,4.4105, &
& 4.4310,4.4194,4.4144,4.3459,4.3066,4.3317,4.3847,4.3818, &
& 4.3841,4.3496,4.3021,4.2975,4.3190,4.3124,4.3100,4.2832, &
& 4.1842,4.1561,4.2184,4.2842,4.2751,4.2073,4.0766,4.0114, &
& 4.0714,4.1286,4.1431,4.1598,4.1786,4.1482,4.0526,3.9942, &
& 4.0275,4.0987,4.1354,4.1168,3.9071,3.7592,3.8145,4.0101, &
& 4.0623,4.0533,4.0281,3.7681,3.6266,3.6794,3.9063,3.8414, &
& 3.6487,3.5340,3.6221,3.7912,3.8620,3.7787,3.7152,3.7026, &
& 3.6401,3.5811,3.4539,3.3147,3.3155,3.3826,3.5150,3.5338, &
& 3.4505,3.2138,2.9946,3.0031,3.1687,3.2797,3.2421,3.1923, &
& 3.0661,2.9014,2.8597,2.8950,2.9967,2.7877,2.5615,2.5773, &
& 2.7607,3.1036,3.1137,2.7483,2.4580,2.4524,2.6601,2.8446, &
& 2.6615,2.3116,2.0539,2.0871,2.3828,2.7313,2.6384,2.3990, &
& 2.3777,2.5154,2.7626,2.7618,2.7011,2.8689,3.0405,3.3237, &
& 3.5784,3.2856,3.0299,2.7883,2.7653,3.2715,3.8505,4.0199, &
& 4.0043,3.9528,4.0513,4.4006,4.6546,4.6538,4.5513,4.4284, &
& 4.4509,4.5898,4.7203,4.9886,5.0597,5.0029,5.0255,5.0112, &
& 4.9786,4.9478,4.9211,4.9202,4.9346,4.9485,4.7265,4.3834, &
& 4.1913,3.9960,3.9525,4.1482,4.2598,3.9459,3.4997,3.0630, &
& 2.9382,3.1959,3.8237,4.1536,4.0049,3.5234,3.0505,2.9005, &
& 2.9765,3.3332,3.7483,3.8791,3.7534,3.5495,3.2767,3.0490, &
& 3.0996,3.3365,3.6030,3.5365,3.2100,3.0448,3.1009,3.3088, &
& 3.5731,3.8200,3.7998,3.6323,3.5885,3.6466,3.7144,3.8311, &
& 4.0670,4.2050,4.0256,3.6766,3.4791,3.4644,3.5290,3.7098, &
& 3.9504,3.9272,3.5399,3.2743,3.2254,3.2825,3.4470,3.7412, &
& 3.9700,4.0312,4.0746,4.0301,3.9083,3.7810,3.6711,3.6335, &
& 3.7157,3.8702,3.9714,3.9317,3.7918,3.6433,3.5464,3.5514, &
& 3.6543,3.8265,4.0059,4.0443,4.0000,3.9565,3.9003,3.8198, &
& 3.6990,3.6177,3.6058,3.6248,3.6684,3.7298,3.7971,3.8520, &
& 3.8600,3.9001,3.9419,3.8995,3.8114,3.7541,3.7381,3.7709, &
& 3.8030,3.7982,3.7536,3.7003,3.6817,3.6954,3.7392,3.8079, &
& 3.8586,3.8572,3.8642,3.8726,3.8458,3.7821,3.7149,3.6632, &
& 3.6446,3.6640,3.7137,3.7799,3.8273,3.8425,3.8233,3.8025, &
& 3.7799,3.7553,3.7293,3.7070,3.7059,3.7144,3.7289,3.7415, &
& 3.7523,3.7517,3.7473,3.7398,3.7391,3.7383,3.7399,3.7386, &
& 3.7303,3.7198,3.7107,3.7008,3.6964,3.6988,3.7034,3.7045, &
& 3.6975,3.6886,3.6802,3.6684,3.6677,3.6677,3.6677,3.6659, &
& 3.6579,3.6543,3.6550,3.6588,3.6692,3.6701,3.6669,3.6608, &
& 3.6468,3.6382,3.6330,3.6330,3.6397,3.6422,3.6466,3.6483, &
& 3.6446,3.6377,3.6318,3.6220,3.6045,3.5985,3.5972,3.5957, &
& 3.5962,3.5938,3.5844,3.5751,3.5686,3.5644,3.5535,3.5462, &
& 3.5445,3.5448,3.5461,3.5438,3.5438,3.5408,3.5234,3.5110, &
& 3.5034,3.4873,3.4781,3.4674,3.4500,3.4417,3.4332,3.4303, &
& 3.4304,3.4311,3.4323,3.4355,3.4369,3.4278,3.4235,3.4144, &
& 3.3924,3.3796,3.3611,3.3542,3.3524,3.3547,3.3579,3.3531, &
& 3.3376,3.3269,3.3050,3.2932,3.2900,3.2904,3.2855,3.2808, &
& 3.2770,3.2718,3.2571,3.2477,3.2381,3.2320,3.2197,3.2102, &
& 3.2061,3.1836,3.1709,3.1442,3.1226,3.1107,3.0931,3.0835, &
& 3.0655,3.0503,3.0490,3.0504,3.0510,3.0451,3.0336,3.0236, &
& 3.0066,2.9815,2.9726,2.9564,2.9434,2.9370,2.9328,2.9281, &
& 2.9157,2.9023,2.8746,2.8481,2.8380,2.8201,2.8108,2.7930, &
& 2.7838,2.7673,2.7500,2.7285,2.7204,2.7148,2.7005,2.6834, &
& 2.6753,2.6623,2.6541,2.6351,2.6275,2.6191,2.6050,2.5848, &
& 2.5662,2.5553,2.5354,2.5141,2.4971,2.4784,2.4593,2.4345, &
& 2.4208,2.4068,2.3911,2.3759,2.3648,2.3510,2.3356,2.3197, &
& 2.3095,2.3013,2.2720,2.2553,2.2397,2.2213,2.2013,2.1794, &
& 2.1650,2.1463,2.1311,2.1186,2.1050,2.0864,2.0737,2.0565, &
& 2.0429,2.0195,2.0062,1.9902,1.9761,1.9637,1.9596,1.9513, &
& 1.9457,1.9323,1.9214,1.9073,1.8947,1.8887,1.8845,1.8754, &
& 1.8665,1.8625,1.8667,1.8683,1.8688,1.8629,1.8604,1.8566, &
& 1.8581,1.8605,1.8759,1.8851,1.8904,1.8910,1.8985,1.9127, &
& 1.9223,1.9357,1.9488,1.9619,1.9857,2.0006,2.0286,2.0463, &
& 2.0739,2.0935,2.1283,2.1477,2.1855,2.2233,2.2515,2.2917, &
& 2.3225,2.3720,2.4281,2.4597,2.5075,2.5498,2.5800,2.6260, &
& 2.6819,2.7217,2.7875,2.8485,2.9179,2.9587,3.0250,3.0838, &
& 3.1427,3.1808,3.2408,3.3011,3.3685,3.4349,3.5062,3.5745, &
& 3.6213,3.6889,3.7709,3.8521,3.9392,4.0205,4.1067,4.1912, &
& 4.2751,4.3477,4.4270,4.5041,4.5897,4.6982,4.7881,4.8784, &
& 4.9677,5.0490,5.1315,5.2068,5.3118,5.3850,5.4600,5.5371, &
& 5.6523,5.7281,5.8095,5.8904,6.0019,6.0819,6.1578,6.2592, &
& 6.3457,6.4465,6.5356,6.6451,6.7307,6.8207,6.8903,6.9704, &
& 7.0388,7.1376,7.2289,7.3337,7.4116,7.4993,7.6031,7.6662, &
& 7.7564,7.8537,7.9795,8.0533,8.1285 /)
plasim/src/specs/rock.igneous.basic.solid.all.ward34.jpl.nicolet.spectrum.txt
+3861
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/rock.igneous.basic.solid.all.ward34.jpl.nicolet.spectrum_f90.txt
+962
View File
@@ -0,0 +1,962 @@
real :: wvbasaltsolid(3839) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8010,0.8020,0.8030,0.8040,0.8050,0.8060,0.8070, &
& 0.8080,0.8090,0.8100,0.8110,0.8120,0.8130,0.8140,0.8150, &
& 0.8160,0.8170,0.8180,0.8190,0.8200,0.8210,0.8220,0.8230, &
& 0.8240,0.8250,0.8260,0.8270,0.8280,0.8290,0.8300,0.8310, &
& 0.8320,0.8330,0.8340,0.8350,0.8360,0.8370,0.8380,0.8390, &
& 0.8400,0.8410,0.8420,0.8430,0.8440,0.8450,0.8460,0.8470, &
& 0.8480,0.8490,0.8500,0.8510,0.8520,0.8530,0.8540,0.8550, &
& 0.8560,0.8570,0.8580,0.8590,0.8600,0.8610,0.8620,0.8630, &
& 0.8640,0.8650,0.8660,0.8670,0.8680,0.8690,0.8700,0.8710, &
& 0.8720,0.8730,0.8740,0.8750,0.8760,0.8770,0.8780,0.8790, &
& 0.8800,0.8810,0.8820,0.8830,0.8840,0.8850,0.8860,0.8870, &
& 0.8880,0.8890,0.8900,0.8910,0.8920,0.8930,0.8940,0.8950, &
& 0.8960,0.8970,0.8980,0.8990,0.9000,0.9010,0.9020,0.9030, &
& 0.9040,0.9050,0.9060,0.9070,0.9080,0.9090,0.9100,0.9110, &
& 0.9120,0.9130,0.9140,0.9150,0.9160,0.9170,0.9180,0.9190, &
& 0.9200,0.9210,0.9220,0.9230,0.9240,0.9250,0.9260,0.9270, &
& 0.9280,0.9290,0.9300,0.9310,0.9320,0.9330,0.9340,0.9350, &
& 0.9360,0.9370,0.9380,0.9390,0.9400,0.9410,0.9420,0.9430, &
& 0.9440,0.9450,0.9460,0.9470,0.9480,0.9490,0.9500,0.9510, &
& 0.9520,0.9530,0.9540,0.9550,0.9560,0.9570,0.9580,0.9590, &
& 0.9600,0.9610,0.9620,0.9630,0.9640,0.9650,0.9660,0.9670, &
& 0.9680,0.9690,0.9700,0.9710,0.9720,0.9730,0.9740,0.9750, &
& 0.9760,0.9770,0.9780,0.9790,0.9800,0.9810,0.9820,0.9830, &
& 0.9840,0.9850,0.9860,0.9870,0.9880,0.9890,0.9900,0.9910, &
& 0.9920,0.9930,0.9940,0.9950,0.9960,0.9970,0.9980,0.9990, &
& 1.0000,1.0010,1.0020,1.0030,1.0040,1.0050,1.0060,1.0070, &
& 1.0080,1.0090,1.0100,1.0110,1.0120,1.0130,1.0140,1.0150, &
& 1.0160,1.0170,1.0180,1.0190,1.0200,1.0210,1.0220,1.0230, &
& 1.0240,1.0250,1.0260,1.0270,1.0280,1.0290,1.0300,1.0310, &
& 1.0320,1.0330,1.0340,1.0350,1.0360,1.0370,1.0380,1.0390, &
& 1.0400,1.0410,1.0420,1.0430,1.0440,1.0450,1.0460,1.0470, &
& 1.0480,1.0490,1.0500,1.0510,1.0520,1.0530,1.0540,1.0550, &
& 1.0560,1.0570,1.0580,1.0590,1.0600,1.0610,1.0620,1.0630, &
& 1.0640,1.0650,1.0660,1.0670,1.0680,1.0690,1.0700,1.0710, &
& 1.0720,1.0730,1.0740,1.0750,1.0760,1.0770,1.0780,1.0790, &
& 1.0800,1.0810,1.0820,1.0830,1.0840,1.0850,1.0860,1.0870, &
& 1.0880,1.0890,1.0900,1.0910,1.0920,1.0930,1.0940,1.0950, &
& 1.0960,1.0970,1.0980,1.0990,1.1000,1.1010,1.1020,1.1030, &
& 1.1040,1.1050,1.1060,1.1070,1.1080,1.1090,1.1100,1.1110, &
& 1.1120,1.1130,1.1140,1.1150,1.1160,1.1170,1.1180,1.1190, &
& 1.1200,1.1210,1.1220,1.1230,1.1240,1.1250,1.1260,1.1270, &
& 1.1280,1.1290,1.1300,1.1310,1.1320,1.1330,1.1340,1.1350, &
& 1.1360,1.1370,1.1380,1.1390,1.1400,1.1410,1.1420,1.1430, &
& 1.1440,1.1450,1.1460,1.1470,1.1480,1.1490,1.1500,1.1510, &
& 1.1520,1.1530,1.1540,1.1550,1.1560,1.1570,1.1580,1.1590, &
& 1.1600,1.1610,1.1620,1.1630,1.1640,1.1650,1.1660,1.1670, &
& 1.1680,1.1690,1.1700,1.1710,1.1720,1.1730,1.1740,1.1750, &
& 1.1760,1.1770,1.1780,1.1790,1.1800,1.1810,1.1820,1.1830, &
& 1.1840,1.1850,1.1860,1.1870,1.1880,1.1890,1.1900,1.1910, &
& 1.1920,1.1930,1.1940,1.1950,1.1960,1.1970,1.1980,1.1990, &
& 1.2000,1.2010,1.2020,1.2030,1.2040,1.2050,1.2060,1.2070, &
& 1.2080,1.2090,1.2100,1.2110,1.2120,1.2130,1.2140,1.2150, &
& 1.2160,1.2170,1.2180,1.2190,1.2200,1.2210,1.2220,1.2230, &
& 1.2240,1.2250,1.2260,1.2270,1.2280,1.2290,1.2300,1.2310, &
& 1.2320,1.2330,1.2340,1.2350,1.2360,1.2370,1.2380,1.2390, &
& 1.2400,1.2410,1.2420,1.2430,1.2440,1.2450,1.2460,1.2470, &
& 1.2480,1.2490,1.2500,1.2510,1.2520,1.2530,1.2540,1.2550, &
& 1.2560,1.2570,1.2580,1.2590,1.2600,1.2610,1.2620,1.2630, &
& 1.2640,1.2650,1.2660,1.2670,1.2680,1.2690,1.2700,1.2710, &
& 1.2720,1.2730,1.2740,1.2750,1.2760,1.2770,1.2780,1.2790, &
& 1.2800,1.2810,1.2820,1.2830,1.2840,1.2850,1.2860,1.2870, &
& 1.2880,1.2890,1.2900,1.2910,1.2920,1.2930,1.2940,1.2950, &
& 1.2960,1.2970,1.2980,1.2990,1.3000,1.3010,1.3020,1.3030, &
& 1.3040,1.3050,1.3060,1.3070,1.3080,1.3090,1.3100,1.3110, &
& 1.3120,1.3130,1.3140,1.3150,1.3160,1.3170,1.3180,1.3190, &
& 1.3200,1.3210,1.3220,1.3230,1.3240,1.3250,1.3260,1.3270, &
& 1.3280,1.3290,1.3300,1.3310,1.3320,1.3330,1.3340,1.3350, &
& 1.3360,1.3370,1.3380,1.3390,1.3400,1.3410,1.3420,1.3430, &
& 1.3440,1.3450,1.3460,1.3470,1.3480,1.3490,1.3500,1.3510, &
& 1.3520,1.3530,1.3540,1.3550,1.3560,1.3570,1.3580,1.3590, &
& 1.3600,1.3610,1.3620,1.3630,1.3640,1.3650,1.3660,1.3670, &
& 1.3680,1.3690,1.3700,1.3710,1.3720,1.3730,1.3740,1.3750, &
& 1.3760,1.3770,1.3780,1.3790,1.3800,1.3810,1.3820,1.3830, &
& 1.3840,1.3850,1.3860,1.3870,1.3880,1.3890,1.3900,1.3910, &
& 1.3920,1.3930,1.3940,1.3950,1.3960,1.3970,1.3980,1.3990, &
& 1.4000,1.4010,1.4020,1.4030,1.4040,1.4050,1.4060,1.4070, &
& 1.4080,1.4090,1.4100,1.4110,1.4120,1.4130,1.4140,1.4150, &
& 1.4160,1.4170,1.4180,1.4190,1.4200,1.4210,1.4220,1.4230, &
& 1.4240,1.4250,1.4260,1.4270,1.4280,1.4290,1.4300,1.4310, &
& 1.4320,1.4330,1.4340,1.4350,1.4360,1.4370,1.4380,1.4390, &
& 1.4400,1.4410,1.4420,1.4430,1.4440,1.4450,1.4460,1.4470, &
& 1.4480,1.4490,1.4500,1.4510,1.4520,1.4530,1.4540,1.4550, &
& 1.4560,1.4570,1.4580,1.4590,1.4600,1.4610,1.4620,1.4630, &
& 1.4640,1.4650,1.4660,1.4670,1.4680,1.4690,1.4700,1.4710, &
& 1.4720,1.4730,1.4740,1.4750,1.4760,1.4770,1.4780,1.4790, &
& 1.4800,1.4810,1.4820,1.4830,1.4840,1.4850,1.4860,1.4870, &
& 1.4880,1.4890,1.4900,1.4910,1.4920,1.4930,1.4940,1.4950, &
& 1.4960,1.4970,1.4980,1.4990,1.5000,1.5010,1.5020,1.5030, &
& 1.5040,1.5050,1.5060,1.5070,1.5080,1.5090,1.5100,1.5110, &
& 1.5120,1.5130,1.5140,1.5150,1.5160,1.5170,1.5180,1.5190, &
& 1.5200,1.5210,1.5220,1.5230,1.5240,1.5250,1.5260,1.5270, &
& 1.5280,1.5290,1.5300,1.5310,1.5320,1.5330,1.5340,1.5350, &
& 1.5360,1.5370,1.5380,1.5390,1.5400,1.5410,1.5420,1.5430, &
& 1.5440,1.5450,1.5460,1.5470,1.5480,1.5490,1.5500,1.5510, &
& 1.5520,1.5530,1.5540,1.5550,1.5560,1.5570,1.5580,1.5590, &
& 1.5600,1.5610,1.5620,1.5630,1.5640,1.5650,1.5660,1.5670, &
& 1.5680,1.5690,1.5700,1.5710,1.5720,1.5730,1.5740,1.5750, &
& 1.5760,1.5770,1.5780,1.5790,1.5800,1.5810,1.5820,1.5830, &
& 1.5840,1.5850,1.5860,1.5870,1.5880,1.5890,1.5900,1.5910, &
& 1.5920,1.5930,1.5940,1.5950,1.5960,1.5970,1.5980,1.5990, &
& 1.6000,1.6010,1.6020,1.6030,1.6040,1.6050,1.6060,1.6070, &
& 1.6080,1.6090,1.6100,1.6110,1.6120,1.6130,1.6140,1.6150, &
& 1.6160,1.6170,1.6180,1.6190,1.6200,1.6210,1.6220,1.6230, &
& 1.6240,1.6250,1.6260,1.6270,1.6280,1.6290,1.6300,1.6310, &
& 1.6320,1.6330,1.6340,1.6350,1.6360,1.6370,1.6380,1.6390, &
& 1.6400,1.6410,1.6420,1.6430,1.6440,1.6450,1.6460,1.6470, &
& 1.6480,1.6490,1.6500,1.6510,1.6520,1.6530,1.6540,1.6550, &
& 1.6560,1.6570,1.6580,1.6590,1.6600,1.6610,1.6620,1.6630, &
& 1.6640,1.6650,1.6660,1.6670,1.6680,1.6690,1.6700,1.6710, &
& 1.6720,1.6730,1.6740,1.6750,1.6760,1.6770,1.6780,1.6790, &
& 1.6800,1.6810,1.6820,1.6830,1.6840,1.6850,1.6860,1.6870, &
& 1.6880,1.6890,1.6900,1.6910,1.6920,1.6930,1.6940,1.6950, &
& 1.6960,1.6970,1.6980,1.6990,1.7000,1.7010,1.7020,1.7030, &
& 1.7040,1.7050,1.7060,1.7070,1.7080,1.7090,1.7100,1.7110, &
& 1.7120,1.7130,1.7140,1.7150,1.7160,1.7170,1.7180,1.7190, &
& 1.7200,1.7210,1.7220,1.7230,1.7240,1.7250,1.7260,1.7270, &
& 1.7280,1.7290,1.7300,1.7310,1.7320,1.7330,1.7340,1.7350, &
& 1.7360,1.7370,1.7380,1.7390,1.7400,1.7410,1.7420,1.7430, &
& 1.7440,1.7450,1.7460,1.7470,1.7480,1.7490,1.7500,1.7510, &
& 1.7520,1.7530,1.7540,1.7550,1.7560,1.7570,1.7580,1.7590, &
& 1.7600,1.7610,1.7620,1.7630,1.7640,1.7650,1.7660,1.7670, &
& 1.7680,1.7690,1.7700,1.7710,1.7720,1.7730,1.7740,1.7750, &
& 1.7760,1.7770,1.7780,1.7790,1.7800,1.7810,1.7820,1.7830, &
& 1.7840,1.7850,1.7860,1.7870,1.7880,1.7890,1.7900,1.7910, &
& 1.7920,1.7930,1.7940,1.7950,1.7960,1.7970,1.7980,1.7990, &
& 1.8000,1.8010,1.8020,1.8030,1.8040,1.8050,1.8060,1.8070, &
& 1.8080,1.8090,1.8100,1.8110,1.8120,1.8130,1.8140,1.8150, &
& 1.8160,1.8170,1.8180,1.8190,1.8200,1.8210,1.8220,1.8230, &
& 1.8240,1.8250,1.8260,1.8270,1.8280,1.8290,1.8300,1.8310, &
& 1.8320,1.8330,1.8340,1.8350,1.8360,1.8370,1.8380,1.8390, &
& 1.8400,1.8410,1.8420,1.8430,1.8440,1.8450,1.8460,1.8470, &
& 1.8480,1.8490,1.8500,1.8510,1.8520,1.8530,1.8540,1.8550, &
& 1.8560,1.8570,1.8580,1.8590,1.8600,1.8610,1.8620,1.8630, &
& 1.8640,1.8650,1.8660,1.8670,1.8680,1.8690,1.8700,1.8710, &
& 1.8720,1.8730,1.8740,1.8750,1.8760,1.8770,1.8780,1.8790, &
& 1.8800,1.8810,1.8820,1.8830,1.8840,1.8850,1.8860,1.8870, &
& 1.8880,1.8890,1.8900,1.8910,1.8920,1.8930,1.8940,1.8950, &
& 1.8960,1.8970,1.8980,1.8990,1.9000,1.9010,1.9020,1.9030, &
& 1.9040,1.9050,1.9060,1.9070,1.9080,1.9090,1.9100,1.9110, &
& 1.9120,1.9130,1.9140,1.9150,1.9160,1.9170,1.9180,1.9190, &
& 1.9200,1.9210,1.9220,1.9230,1.9240,1.9250,1.9260,1.9270, &
& 1.9280,1.9290,1.9300,1.9310,1.9320,1.9330,1.9340,1.9350, &
& 1.9360,1.9370,1.9380,1.9390,1.9400,1.9410,1.9420,1.9430, &
& 1.9440,1.9450,1.9460,1.9470,1.9480,1.9490,1.9500,1.9510, &
& 1.9520,1.9530,1.9540,1.9550,1.9560,1.9570,1.9580,1.9590, &
& 1.9600,1.9610,1.9620,1.9630,1.9640,1.9650,1.9660,1.9670, &
& 1.9680,1.9690,1.9700,1.9710,1.9720,1.9730,1.9740,1.9750, &
& 1.9760,1.9770,1.9780,1.9790,1.9800,1.9810,1.9820,1.9830, &
& 1.9840,1.9850,1.9860,1.9870,1.9880,1.9890,1.9900,1.9910, &
& 1.9920,1.9930,1.9940,1.9950,1.9960,1.9970,1.9980,1.9990, &
& 2.0000,2.0010,2.0020,2.0030,2.0040,2.0050,2.0060,2.0070, &
& 2.0080,2.0090,2.0100,2.0110,2.0120,2.0130,2.0140,2.0150, &
& 2.0160,2.0170,2.0180,2.0190,2.0200,2.0210,2.0220,2.0230, &
& 2.0240,2.0250,2.0260,2.0270,2.0280,2.0290,2.0300,2.0310, &
& 2.0320,2.0330,2.0340,2.0350,2.0360,2.0370,2.0380,2.0390, &
& 2.0400,2.0410,2.0420,2.0430,2.0440,2.0450,2.0460,2.0470, &
& 2.0480,2.0490,2.0500,2.0510,2.0520,2.0530,2.0540,2.0550, &
& 2.0560,2.0570,2.0580,2.0590,2.0600,2.0610,2.0620,2.0630, &
& 2.0640,2.0650,2.0660,2.0670,2.0680,2.0690,2.0700,2.0710, &
& 2.0720,2.0730,2.0740,2.0750,2.0760,2.0770,2.0780,2.0790, &
& 2.0800,2.0810,2.0820,2.0830,2.0840,2.0850,2.0860,2.0870, &
& 2.0880,2.0890,2.0900,2.0910,2.0920,2.0930,2.0940,2.0950, &
& 2.0960,2.0970,2.0980,2.0990,2.1000,2.1010,2.1020,2.1030, &
& 2.1040,2.1050,2.1060,2.1070,2.1080,2.1090,2.1100,2.1110, &
& 2.1120,2.1130,2.1140,2.1150,2.1160,2.1170,2.1180,2.1190, &
& 2.1200,2.1210,2.1220,2.1230,2.1240,2.1250,2.1260,2.1270, &
& 2.1280,2.1290,2.1300,2.1310,2.1320,2.1330,2.1340,2.1350, &
& 2.1360,2.1370,2.1380,2.1390,2.1400,2.1410,2.1420,2.1430, &
& 2.1440,2.1450,2.1460,2.1470,2.1480,2.1490,2.1500,2.1510, &
& 2.1520,2.1530,2.1540,2.1550,2.1560,2.1570,2.1580,2.1590, &
& 2.1600,2.1610,2.1620,2.1630,2.1640,2.1650,2.1660,2.1670, &
& 2.1680,2.1690,2.1700,2.1710,2.1720,2.1730,2.1740,2.1750, &
& 2.1760,2.1770,2.1780,2.1790,2.1800,2.1810,2.1820,2.1830, &
& 2.1840,2.1850,2.1860,2.1870,2.1880,2.1890,2.1900,2.1910, &
& 2.1920,2.1930,2.1940,2.1950,2.1960,2.1970,2.1980,2.1990, &
& 2.2000,2.2010,2.2020,2.2030,2.2040,2.2050,2.2060,2.2070, &
& 2.2080,2.2090,2.2100,2.2110,2.2120,2.2130,2.2140,2.2150, &
& 2.2160,2.2170,2.2180,2.2190,2.2200,2.2210,2.2220,2.2230, &
& 2.2240,2.2250,2.2260,2.2270,2.2280,2.2290,2.2300,2.2310, &
& 2.2320,2.2330,2.2340,2.2350,2.2360,2.2370,2.2380,2.2390, &
& 2.2400,2.2410,2.2420,2.2430,2.2440,2.2450,2.2460,2.2470, &
& 2.2480,2.2490,2.2500,2.2510,2.2520,2.2530,2.2540,2.2550, &
& 2.2560,2.2570,2.2580,2.2590,2.2600,2.2610,2.2620,2.2630, &
& 2.2640,2.2650,2.2660,2.2670,2.2680,2.2690,2.2700,2.2710, &
& 2.2720,2.2730,2.2740,2.2750,2.2760,2.2770,2.2780,2.2790, &
& 2.2800,2.2810,2.2820,2.2830,2.2840,2.2850,2.2860,2.2870, &
& 2.2880,2.2890,2.2900,2.2910,2.2920,2.2930,2.2940,2.2950, &
& 2.2960,2.2970,2.2980,2.2990,2.3000,2.3010,2.3020,2.3030, &
& 2.3040,2.3050,2.3060,2.3070,2.3080,2.3090,2.3100,2.3110, &
& 2.3120,2.3130,2.3140,2.3150,2.3160,2.3170,2.3180,2.3190, &
& 2.3200,2.3210,2.3220,2.3230,2.3240,2.3250,2.3260,2.3270, &
& 2.3280,2.3290,2.3300,2.3310,2.3320,2.3330,2.3340,2.3350, &
& 2.3360,2.3370,2.3380,2.3390,2.3400,2.3410,2.3420,2.3430, &
& 2.3440,2.3450,2.3460,2.3470,2.3480,2.3490,2.3500,2.3510, &
& 2.3520,2.3530,2.3540,2.3550,2.3560,2.3570,2.3580,2.3590, &
& 2.3600,2.3610,2.3620,2.3630,2.3640,2.3650,2.3660,2.3670, &
& 2.3680,2.3690,2.3700,2.3710,2.3720,2.3730,2.3740,2.3750, &
& 2.3760,2.3770,2.3780,2.3790,2.3800,2.3810,2.3820,2.3830, &
& 2.3840,2.3850,2.3860,2.3870,2.3880,2.3890,2.3900,2.3910, &
& 2.3920,2.3930,2.3940,2.3950,2.3960,2.3970,2.3980,2.3990, &
& 2.4000,2.4010,2.4020,2.4030,2.4040,2.4050,2.4060,2.4070, &
& 2.4080,2.4090,2.4100,2.4110,2.4120,2.4130,2.4140,2.4150, &
& 2.4160,2.4170,2.4180,2.4190,2.4200,2.4210,2.4220,2.4230, &
& 2.4240,2.4250,2.4260,2.4270,2.4280,2.4290,2.4300,2.4310, &
& 2.4320,2.4330,2.4340,2.4350,2.4360,2.4370,2.4380,2.4390, &
& 2.4400,2.4410,2.4420,2.4430,2.4440,2.4450,2.4460,2.4470, &
& 2.4480,2.4490,2.4500,2.4510,2.4520,2.4530,2.4540,2.4550, &
& 2.4560,2.4570,2.4580,2.4590,2.4600,2.4610,2.4620,2.4630, &
& 2.4640,2.4650,2.4660,2.4670,2.4680,2.4690,2.4700,2.4710, &
& 2.4720,2.4730,2.4740,2.4750,2.4760,2.4770,2.4780,2.4790, &
& 2.4800,2.4810,2.4820,2.4830,2.4840,2.4850,2.4860,2.4870, &
& 2.4880,2.4890,2.4900,2.4910,2.4920,2.4930,2.4940,2.4950, &
& 2.4960,2.4970,2.4980,2.4990,2.5000,2.5002,2.5014,2.5026, &
& 2.5038,2.5051,2.5063,2.5075,2.5087,2.5099,2.5111,2.5123, &
& 2.5136,2.5148,2.5160,2.5172,2.5184,2.5197,2.5209,2.5221, &
& 2.5233,2.5246,2.5258,2.5270,2.5283,2.5295,2.5307,2.5320, &
& 2.5332,2.5344,2.5357,2.5369,2.5382,2.5394,2.5406,2.5419, &
& 2.5431,2.5444,2.5456,2.5469,2.5481,2.5494,2.5507,2.5519, &
& 2.5532,2.5544,2.5557,2.5569,2.5582,2.5595,2.5607,2.5620, &
& 2.5633,2.5645,2.5658,2.5671,2.5683,2.5696,2.5709,2.5722, &
& 2.5734,2.5747,2.5760,2.5773,2.5785,2.5798,2.5811,2.5824, &
& 2.5837,2.5850,2.5863,2.5876,2.5888,2.5901,2.5914,2.5927, &
& 2.5940,2.5953,2.5966,2.5979,2.5992,2.6005,2.6018,2.6031, &
& 2.6044,2.6058,2.6071,2.6084,2.6097,2.6110,2.6123,2.6136, &
& 2.6150,2.6163,2.6176,2.6189,2.6203,2.6216,2.6229,2.6242, &
& 2.6256,2.6269,2.6282,2.6296,2.6309,2.6322,2.6336,2.6349, &
& 2.6362,2.6376,2.6389,2.6403,2.6416,2.6429,2.6443,2.6456, &
& 2.6470,2.6484,2.6497,2.6511,2.6524,2.6538,2.6551,2.6565, &
& 2.6578,2.6592,2.6606,2.6619,2.6633,2.6647,2.6660,2.6674, &
& 2.6688,2.6702,2.6715,2.6729,2.6743,2.6757,2.6771,2.6784, &
& 2.6798,2.6812,2.6826,2.6840,2.6854,2.6868,2.6882,2.6896, &
& 2.6910,2.6923,2.6938,2.6951,2.6965,2.6980,2.6994,2.7008, &
& 2.7022,2.7036,2.7050,2.7064,2.7078,2.7092,2.7106,2.7121, &
& 2.7135,2.7149,2.7163,2.7178,2.7192,2.7206,2.7220,2.7235, &
& 2.7249,2.7263,2.7278,2.7292,2.7306,2.7321,2.7335,2.7350, &
& 2.7364,2.7378,2.7393,2.7407,2.7422,2.7436,2.7451,2.7465, &
& 2.7480,2.7494,2.7509,2.7524,2.7538,2.7553,2.7568,2.7582, &
& 2.7597,2.7612,2.7626,2.7641,2.7656,2.7671,2.7685,2.7700, &
& 2.7715,2.7730,2.7745,2.7759,2.7774,2.7789,2.7804,2.7819, &
& 2.7834,2.7849,2.7864,2.7879,2.7894,2.7909,2.7924,2.7939, &
& 2.7954,2.7969,2.7984,2.7999,2.8014,2.8030,2.8045,2.8060, &
& 2.8075,2.8090,2.8106,2.8121,2.8136,2.8151,2.8167,2.8182, &
& 2.8197,2.8213,2.8228,2.8243,2.8259,2.8274,2.8289,2.8305, &
& 2.8320,2.8336,2.8351,2.8367,2.8382,2.8398,2.8413,2.8429, &
& 2.8445,2.8460,2.8476,2.8492,2.8507,2.8523,2.8539,2.8554, &
& 2.8570,2.8586,2.8602,2.8617,2.8633,2.8649,2.8665,2.8681, &
& 2.8697,2.8712,2.8728,2.8744,2.8760,2.8776,2.8792,2.8808, &
& 2.8824,2.8840,2.8856,2.8872,2.8888,2.8905,2.8921,2.8937, &
& 2.8953,2.8969,2.8985,2.9002,2.9018,2.9034,2.9050,2.9067, &
& 2.9083,2.9099,2.9116,2.9132,2.9148,2.9165,2.9181,2.9197, &
& 2.9214,2.9230,2.9247,2.9263,2.9280,2.9296,2.9313,2.9330, &
& 2.9346,2.9363,2.9379,2.9396,2.9413,2.9429,2.9446,2.9463, &
& 2.9480,2.9496,2.9513,2.9530,2.9547,2.9564,2.9581,2.9597, &
& 2.9614,2.9631,2.9648,2.9665,2.9682,2.9699,2.9716,2.9733, &
& 2.9750,2.9767,2.9784,2.9802,2.9819,2.9836,2.9853,2.9870, &
& 2.9887,2.9905,2.9922,2.9939,2.9956,2.9974,2.9991,3.0008, &
& 3.0026,3.0043,3.0061,3.0078,3.0096,3.0113,3.0130,3.0148, &
& 3.0166,3.0183,3.0201,3.0218,3.0236,3.0254,3.0271,3.0289, &
& 3.0307,3.0324,3.0342,3.0360,3.0378,3.0396,3.0413,3.0431, &
& 3.0449,3.0467,3.0485,3.0503,3.0521,3.0539,3.0557,3.0575, &
& 3.0593,3.0611,3.0629,3.0647,3.0665,3.0683,3.0701,3.0720, &
& 3.0738,3.0756,3.0774,3.0793,3.0811,3.0829,3.0848,3.0866, &
& 3.0884,3.0903,3.0921,3.0940,3.0958,3.0976,3.0995,3.1014, &
& 3.1032,3.1051,3.1069,3.1088,3.1107,3.1125,3.1144,3.1163, &
& 3.1181,3.1200,3.1219,3.1238,3.1257,3.1275,3.1294,3.1313, &
& 3.1332,3.1351,3.1370,3.1389,3.1408,3.1427,3.1446,3.1465, &
& 3.1484,3.1503,3.1523,3.1542,3.1561,3.1580,3.1599,3.1619, &
& 3.1638,3.1657,3.1677,3.1696,3.1715,3.1735,3.1754,3.1774, &
& 3.1793,3.1813,3.1832,3.1852,3.1871,3.1891,3.1911,3.1930, &
& 3.1950,3.1970,3.1989,3.2009,3.2029,3.2049,3.2068,3.2088, &
& 3.2108,3.2128,3.2148,3.2168,3.2188,3.2208,3.2228,3.2248, &
& 3.2268,3.2288,3.2308,3.2328,3.2348,3.2369,3.2389,3.2409, &
& 3.2429,3.2450,3.2470,3.2490,3.2511,3.2531,3.2552,3.2572, &
& 3.2593,3.2613,3.2634,3.2654,3.2675,3.2695,3.2716,3.2736, &
& 3.2757,3.2778,3.2799,3.2819,3.2840,3.2861,3.2882,3.2903, &
& 3.2924,3.2944,3.2965,3.2986,3.3007,3.3028,3.3049,3.3071, &
& 3.3092,3.3113,3.3134,3.3155,3.3176,3.3198,3.3219,3.3240, &
& 3.3262,3.3283,3.3304,3.3326,3.3347,3.3369,3.3390,3.3411, &
& 3.3433,3.3455,3.3476,3.3498,3.3520,3.3541,3.3563,3.3585, &
& 3.3606,3.3628,3.3650,3.3672,3.3694,3.3716,3.3738,3.3760, &
& 3.3782,3.3804,3.3826,3.3848,3.3870,3.3892,3.3914,3.3936, &
& 3.3958,3.3981,3.4003,3.4025,3.4048,3.4070,3.4093,3.4115, &
& 3.4137,3.4160,3.4182,3.4205,3.4228,3.4250,3.4273,3.4295, &
& 3.4318,3.4341,3.4364,3.4386,3.4409,3.4432,3.4455,3.4478, &
& 3.4501,3.4524,3.4547,3.4570,3.4593,3.4616,3.4639,3.4662, &
& 3.4685,3.4709,3.4732,3.4755,3.4778,3.4802,3.4825,3.4849, &
& 3.4872,3.4895,3.4919,3.4943,3.4966,3.4990,3.5013,3.5037, &
& 3.5061,3.5084,3.5108,3.5132,3.5156,3.5180,3.5203,3.5227, &
& 3.5251,3.5275,3.5299,3.5323,3.5347,3.5372,3.5396,3.5420, &
& 3.5444,3.5468,3.5493,3.5517,3.5541,3.5566,3.5590,3.5614, &
& 3.5639,3.5663,3.5688,3.5713,3.5737,3.5762,3.5787,3.5811, &
& 3.5836,3.5861,3.5886,3.5910,3.5935,3.5960,3.5985,3.6010, &
& 3.6035,3.6060,3.6085,3.6111,3.6136,3.6161,3.6186,3.6211, &
& 3.6237,3.6262,3.6287,3.6313,3.6338,3.6364,3.6389,3.6415, &
& 3.6440,3.6466,3.6492,3.6517,3.6543,3.6569,3.6595,3.6620, &
& 3.6646,3.6672,3.6698,3.6724,3.6750,3.6776,3.6803,3.6829, &
& 3.6855,3.6881,3.6907,3.6934,3.6960,3.6986,3.7013,3.7039, &
& 3.7066,3.7092,3.7119,3.7145,3.7172,3.7199,3.7225,3.7252, &
& 3.7279,3.7306,3.7332,3.7359,3.7386,3.7413,3.7440,3.7467, &
& 3.7494,3.7521,3.7549,3.7576,3.7603,3.7630,3.7658,3.7685, &
& 3.7713,3.7740,3.7767,3.7795,3.7822,3.7850,3.7878,3.7906, &
& 3.7933,3.7961,3.7989,3.8017,3.8045,3.8072,3.8100,3.8128, &
& 3.8157,3.8185,3.8213,3.8241,3.8269,3.8297,3.8326,3.8354, &
& 3.8382,3.8411,3.8439,3.8468,3.8496,3.8525,3.8554,3.8582, &
& 3.8611,3.8640,3.8669,3.8697,3.8726,3.8755,3.8784,3.8813, &
& 3.8842,3.8872,3.8901,3.8930,3.8959,3.8988,3.9018,3.9047, &
& 3.9077,3.9106,3.9136,3.9165,3.9195,3.9224,3.9254,3.9284, &
& 3.9314,3.9343,3.9373,3.9403,3.9433,3.9463,3.9493,3.9523, &
& 3.9554,3.9584,3.9614,3.9644,3.9675,3.9705,3.9735,3.9766, &
& 3.9796,3.9827,3.9857,3.9888,3.9919,3.9950,3.9981,4.0011, &
& 4.0042,4.0073,4.0104,4.0135,4.0166,4.0197,4.0229,4.0260, &
& 4.0291,4.0323,4.0354,4.0385,4.0417,4.0448,4.0480,4.0511, &
& 4.0543,4.0575,4.0607,4.0639,4.0670,4.0702,4.0734,4.0766, &
& 4.0798,4.0830,4.0863,4.0895,4.0927,4.0959,4.0992,4.1024, &
& 4.1057,4.1089,4.1122,4.1155,4.1187,4.1220,4.1253,4.1286, &
& 4.1319,4.1351,4.1384,4.1418,4.1451,4.1484,4.1517,4.1550, &
& 4.1584,4.1617,4.1650,4.1684,4.1717,4.1751,4.1785,4.1818, &
& 4.1852,4.1886,4.1920,4.1954,4.1988,4.2022,4.2056,4.2090, &
& 4.2124,4.2158,4.2193,4.2227,4.2261,4.2296,4.2330,4.2365, &
& 4.2400,4.2434,4.2469,4.2504,4.2539,4.2574,4.2609,4.2644, &
& 4.2679,4.2714,4.2749,4.2784,4.2820,4.2855,4.2890,4.2926, &
& 4.2962,4.2997,4.3033,4.3069,4.3105,4.3140,4.3176,4.3212, &
& 4.3248,4.3284,4.3320,4.3357,4.3393,4.3429,4.3466,4.3502, &
& 4.3539,4.3575,4.3612,4.3649,4.3685,4.3722,4.3759,4.3796, &
& 4.3833,4.3870,4.3907,4.3945,4.3982,4.4019,4.4057,4.4094, &
& 4.4132,4.4169,4.4207,4.4245,4.4282,4.4320,4.4358,4.4396, &
& 4.4434,4.4472,4.4510,4.4549,4.4587,4.4625,4.4664,4.4702, &
& 4.4741,4.4779,4.4818,4.4857,4.4896,4.4935,4.4974,4.5013, &
& 4.5052,4.5091,4.5130,4.5170,4.5209,4.5248,4.5288,4.5328, &
& 4.5367,4.5407,4.5447,4.5487,4.5526,4.5567,4.5607,4.5647, &
& 4.5687,4.5727,4.5768,4.5808,4.5849,4.5889,4.5930,4.5971, &
& 4.6011,4.6052,4.6093,4.6134,4.6175,4.6216,4.6258,4.6299, &
& 4.6340,4.6382,4.6423,4.6465,4.6506,4.6548,4.6590,4.6632, &
& 4.6674,4.6716,4.6758,4.6800,4.6842,4.6885,4.6927,4.6970, &
& 4.7012,4.7055,4.7098,4.7141,4.7184,4.7226,4.7270,4.7313, &
& 4.7356,4.7399,4.7443,4.7486,4.7530,4.7573,4.7617,4.7660, &
& 4.7704,4.7748,4.7792,4.7836,4.7881,4.7925,4.7969,4.8014, &
& 4.8058,4.8103,4.8147,4.8192,4.8237,4.8282,4.8327,4.8372, &
& 4.8417,4.8462,4.8508,4.8553,4.8599,4.8644,4.8690,4.8736, &
& 4.8781,4.8827,4.8873,4.8919,4.8966,4.9012,4.9058,4.9105, &
& 4.9151,4.9198,4.9245,4.9291,4.9338,4.9385,4.9432,4.9480, &
& 4.9527,4.9574,4.9622,4.9669,4.9717,4.9765,4.9812,4.9860, &
& 4.9908,4.9956,5.0004,5.0053,5.0101,5.0150,5.0198,5.0247, &
& 5.0296,5.0344,5.0393,5.0442,5.0491,5.0541,5.0590,5.0639, &
& 5.0689,5.0738,5.0788,5.0838,5.0888,5.0938,5.0988,5.1038, &
& 5.1088,5.1139,5.1189,5.1240,5.1291,5.1341,5.1392,5.1443, &
& 5.1494,5.1545,5.1597,5.1648,5.1700,5.1751,5.1803,5.1855, &
& 5.1907,5.1959,5.2011,5.2063,5.2115,5.2168,5.2220,5.2273, &
& 5.2326,5.2378,5.2431,5.2485,5.2538,5.2591,5.2644,5.2698, &
& 5.2751,5.2805,5.2859,5.2913,5.2967,5.3021,5.3075,5.3130, &
& 5.3184,5.3239,5.3294,5.3348,5.3403,5.3458,5.3514,5.3569, &
& 5.3624,5.3680,5.3735,5.3791,5.3847,5.3903,5.3959,5.4015, &
& 5.4072,5.4128,5.4185,5.4241,5.4298,5.4355,5.4412,5.4469, &
& 5.4527,5.4584,5.4641,5.4699,5.4757,5.4815,5.4873,5.4931, &
& 5.4989,5.5047,5.5106,5.5164,5.5223,5.5282,5.5341,5.5400, &
& 5.5460,5.5519,5.5578,5.5638,5.5698,5.5758,5.5818,5.5878, &
& 5.5938,5.5999,5.6059,5.6120,5.6181,5.6242,5.6303,5.6364, &
& 5.6425,5.6487,5.6548,5.6610,5.6672,5.6734,5.6796,5.6858, &
& 5.6921,5.6983,5.7046,5.7109,5.7172,5.7235,5.7298,5.7361, &
& 5.7425,5.7489,5.7552,5.7616,5.7680,5.7745,5.7809,5.7874, &
& 5.7938,5.8003,5.8068,5.8133,5.8198,5.8264,5.8329,5.8395, &
& 5.8461,5.8527,5.8593,5.8659,5.8726,5.8792,5.8859,5.8926, &
& 5.8993,5.9060,5.9127,5.9195,5.9262,5.9330,5.9398,5.9466, &
& 5.9535,5.9603,5.9672,5.9740,5.9809,5.9878,5.9948,6.0017, &
& 6.0087,6.0156,6.0226,6.0296,6.0366,6.0437,6.0507,6.0578, &
& 6.0649,6.0720,6.0791,6.0862,6.0934,6.1006,6.1077,6.1149, &
& 6.1222,6.1294,6.1367,6.1439,6.1512,6.1585,6.1658,6.1732, &
& 6.1805,6.1879,6.1953,6.2027,6.2101,6.2176,6.2251,6.2325, &
& 6.2400,6.2476,6.2551,6.2626,6.2702,6.2778,6.2854,6.2930, &
& 6.3007,6.3083,6.3160,6.3237,6.3315,6.3392,6.3470,6.3547, &
& 6.3625,6.3704,6.3782,6.3860,6.3939,6.4018,6.4097,6.4177, &
& 6.4256,6.4336,6.4416,6.4496,6.4576,6.4657,6.4737,6.4818, &
& 6.4900,6.4981,6.5062,6.5144,6.5226,6.5308,6.5390,6.5473, &
& 6.5556,6.5639,6.5722,6.5805,6.5889,6.5973,6.6057,6.6141, &
& 6.6226,6.6310,6.6395,6.6480,6.6566,6.6651,6.6737,6.6823, &
& 6.6909,6.6996,6.7082,6.7169,6.7256,6.7344,6.7431,6.7519, &
& 6.7607,6.7695,6.7784,6.7873,6.7962,6.8051,6.8140,6.8230, &
& 6.8320,6.8410,6.8500,6.8591,6.8682,6.8773,6.8864,6.8956, &
& 6.9047,6.9140,6.9232,6.9324,6.9417,6.9510,6.9604,6.9697, &
& 6.9791,6.9885,6.9979,7.0074,7.0169,7.0264,7.0359,7.0455, &
& 7.0551,7.0647,7.0743,7.0840,7.0937,7.1034,7.1131,7.1229, &
& 7.1327,7.1425,7.1524,7.1623,7.1722,7.1821,7.1921,7.2020, &
& 7.2120,7.2221,7.2322,7.2423,7.2524,7.2626,7.2727,7.2830, &
& 7.2932,7.3035,7.3138,7.3241,7.3345,7.3449,7.3553,7.3657, &
& 7.3762,7.3867,7.3972,7.4078,7.4184,7.4290,7.4397,7.4504, &
& 7.4611,7.4718,7.4826,7.4935,7.5043,7.5152,7.5261,7.5370, &
& 7.5480,7.5590,7.5700,7.5811,7.5922,7.6033,7.6145,7.6257, &
& 7.6369,7.6482,7.6595,7.6708,7.6822,7.6936,7.7050,7.7165, &
& 7.7280,7.7395,7.7511,7.7627,7.7743,7.7860,7.7977,7.8094, &
& 7.8212,7.8330,7.8449,7.8568,7.8687,7.8807,7.8926,7.9047, &
& 7.9167,7.9288,7.9410,7.9532,7.9654,7.9776,7.9899,8.0023, &
& 8.0146,8.0270,8.0395,8.0520,8.0645,8.0770,8.0897,8.1023, &
& 8.1150,8.1277,8.1404,8.1532,8.1661,8.1790,8.1919,8.2049, &
& 8.2179,8.2309,8.2440,8.2571,8.2703,8.2835,8.2967,8.3100, &
& 8.3234,8.3368,8.3502,8.3637,8.3772,8.3907,8.4043,8.4180, &
& 8.4316,8.4454,8.4592,8.4730,8.4869,8.5008,8.5147,8.5287, &
& 8.5428,8.5569,8.5710,8.5852,8.5994,8.6137,8.6281,8.6425, &
& 8.6569,8.6714,8.6859,8.7005,8.7151,8.7297,8.7445,8.7592, &
& 8.7741,8.7889,8.8039,8.8188,8.8338,8.8489,8.8641,8.8792, &
& 8.8945,8.9097,8.9251,8.9405,8.9559,8.9714,8.9870,9.0025, &
& 9.0182,9.0339,9.0497,9.0655,9.0814,9.0973,9.1133,9.1293, &
& 9.1454,9.1616,9.1778,9.1941,9.2104,9.2268,9.2432,9.2598, &
& 9.2763,9.2930,9.3096,9.3264,9.3432,9.3600,9.3770,9.3940, &
& 9.4110,9.4281,9.4453,9.4625,9.4798,9.4972,9.5146,9.5321, &
& 9.5497,9.5673,9.5850,9.6027,9.6205,9.6384,9.6564,9.6744, &
& 9.6925,9.7106,9.7288,9.7471,9.7655,9.7839,9.8024,9.8210, &
& 9.8396,9.8583,9.8771,9.8959,9.9148,9.9338,9.9529,9.9720, &
& 9.9913,10.0106,10.0299,10.0494,10.0689,10.0885,10.1081,10.1279, &
& 10.1477,10.1676,10.1876,10.2076,10.2277,10.2480,10.2683,10.2886, &
& 10.3091,10.3296,10.3502,10.3709,10.3917,10.4126,10.4335,10.4546, &
& 10.4757,10.4969,10.5182,10.5396,10.5610,10.5826,10.6042,10.6260, &
& 10.6478,10.6697,10.6917,10.7138,10.7360,10.7582,10.7806,10.8031, &
& 10.8256,10.8483,10.8710,10.8938,10.9168,10.9398,10.9629,10.9862, &
& 11.0095,11.0329,11.0564,11.0801,11.1038,11.1276,11.1515,11.1756, &
& 11.1997,11.2240,11.2483,11.2728,11.2973,11.3220,11.3468,11.3716, &
& 11.3966,11.4217,11.4469,11.4723,11.4977,11.5233,11.5489,11.5747, &
& 11.6006,11.6266,11.6527,11.6790,11.7053,11.7318,11.7584,11.7852, &
& 11.8120,11.8390,11.8661,11.8933,11.9206,11.9481,11.9757,12.0034, &
& 12.0312,12.0592,12.0873,12.1156,12.1439,12.1725,12.2011,12.2299, &
& 12.2588,12.2878,12.3170,12.3463,12.3758,12.4054,12.4352,12.4651, &
& 12.4951,12.5253,12.5556,12.5861,12.6167,12.6475,12.6784,12.7095, &
& 12.7407,12.7721,12.8036,12.8353,12.8672,12.8992,12.9313,12.9637, &
& 12.9962,13.0288,13.0616,13.0946,13.1278,13.1611,13.1946,13.2282, &
& 13.2621,13.2961,13.3302,13.3646,13.3991,13.4339,13.4687,13.5038, &
& 13.5391,13.5745,13.6101,13.6460,13.6820,13.7182,13.7546,13.7911, &
& 13.8279,13.8649,13.9021,13.9394,13.9770,14.0148,14.0528,14.0909, &
& 14.1293,14.1679,14.2068,14.2458,14.2850,14.3245,14.3642,14.4041, &
& 14.4442,14.4845,14.5251,14.5659,14.6069,14.6482,14.6897,14.7314, &
& 14.7734,14.8156,14.8581,14.9008,14.9437,14.9869,15.0303,15.0740, &
& 15.118,15.1622,15.2066,15.2514,15.2964,15.3416,15.3871 /)
real :: basaltsolid(3839) = (/7.6783,7.7023,7.7254,7.7441,7.7678,7.7909,7.81,7.8264, &
& 7.8471,7.8694,7.8871,7.9076,7.9249,7.9438,7.9626,7.9851, &
& 8.0077,8.0268,8.0492,8.0728,8.0925,8.1234,8.1458,8.1717, &
& 8.2021,8.2248,8.2602,8.2920,8.3191,8.3547,8.3816,8.4174, &
& 8.4524,8.4847,8.5208,8.5561,8.5950,8.6279,8.6656,8.7040, &
& 8.7383,8.7764,8.8112,8.8465,8.8869,8.9227,8.9621,8.9785, &
& 9.0108,9.0507,9.0837,9.1208,9.1468,9.1758,9.2107,9.2325, &
& 9.2592,9.2850,9.3058,9.3269,9.3495,9.3700,9.3812,9.4048, &
& 9.4266,9.4451,9.4647,9.4753,9.4924,9.5056,9.5214,9.5383, &
& 9.5528,9.5692,9.5831,9.6000,9.6180,9.6329,9.6451,9.6611, &
& 9.6825,9.6977,9.7171,9.7327,9.7558,9.7800,9.8107,9.8350, &
& 9.8689,9.9015,9.9317,9.9683,10.0039,10.0381,10.0778,10.1203, &
& 10.1593,10.2001,10.2490,10.2942,10.3407,10.3865,10.4347,10.4852, &
& 10.5334,10.5820,10.6385,10.6871,10.7422,10.7944,10.8533,10.8993, &
& 10.9554,11.0122,11.0648,11.1203,11.1744,11.2252,11.2838,11.3335, &
& 11.3887,11.4450,11.4980,11.5539,11.6085,11.6604,11.7130,11.7647, &
& 11.8145,11.8651,11.9152,11.9692,12.0188,12.0674,12.1171,12.1619, &
& 12.2101,12.2569,12.3003,12.3401,12.3850,12.4313,12.4691,12.5141, &
& 12.5559,12.5975,12.6351,12.6753,12.7146,12.7592,12.8001,12.8392, &
& 12.8775,12.9165,12.9592,12.9984,13.0372,13.0754,13.1171,13.1588, &
& 13.1957,13.2428,13.2927,13.3276,13.3675,13.4069,13.4456,13.4840, &
& 13.5244,13.5673,13.6036,13.6414,13.6817,13.7213,13.7608,13.8003, &
& 13.8426,13.8845,13.9236,13.9634,14.0051,14.0425,14.0818,14.1237, &
& 14.1635,14.2021,14.2433,14.2843,14.3263,14.3664,14.4052,14.4456, &
& 14.4827,14.5240,14.5635,14.6000,14.6375,14.6746,14.7149,14.7495, &
& 14.7795,14.8195,14.8586,14.8976,14.9346,14.9728,15.0093,15.0438, &
& 15.0877,15.1265,15.1605,15.1937,15.2307,15.2663,15.3034,15.3425, &
& 15.3794,15.4158,15.4544,15.4948,15.5271,15.5613,15.6019,15.6399, &
& 15.6747,15.7110,15.7497,15.7845,15.8209,15.8622,15.8997,15.9360, &
& 15.9747,16.0160,16.0564,16.0939,16.1283,16.1637,16.2020,16.2449, &
& 16.2855,16.3206,16.3628,16.4018,16.4426,16.4891,16.5267,16.5671, &
& 16.6080,16.6445,16.6850,16.7301,16.7705,16.8102,16.8548,16.8948, &
& 16.9294,16.9754,17.0250,17.0662,17.1064,17.1519,17.1928,17.2329, &
& 17.2741,17.3166,17.3638,17.4025,17.4410,17.4852,17.5287,17.5652, &
& 17.6105,17.6571,17.6985,17.7365,17.7811,17.8222,17.8637,17.9056, &
& 17.9439,17.9860,18.0247,18.0636,18.1039,18.1442,18.1799,18.2153, &
& 18.2330,18.2607,18.2987,18.3313,18.3715,18.4075,18.4431,18.4762, &
& 18.5127,18.5552,18.5941,18.6201,18.6642,18.6950,18.7260,18.7548, &
& 18.7914,18.8270,18.8606,18.8951,18.9330,18.9651,18.9930,19.0290, &
& 19.0577,19.0871,19.1168,19.1405,19.1820,19.2008,19.2340,19.2512, &
& 19.2803,19.3014,19.3360,19.3593,19.3789,19.4119,19.4386,19.4570, &
& 19.4724,19.5080,19.5282,19.5455,19.5635,19.5993,19.6149,19.6361, &
& 19.6569,19.6737,19.6937,19.7122,19.7345,19.7453,19.7645,19.7845, &
& 19.7973,19.8185,19.8398,19.8600,19.8722,19.8808,19.9013,19.9138, &
& 19.9197,19.9367,19.9534,19.9597,19.9793,19.9765,19.9981,20.0100, &
& 20.0189,20.0297,20.0388,20.0526,20.0591,20.0581,20.0856,20.0849, &
& 20.0874,20.1051,20.0978,20.1075,20.1164,20.1180,20.1323,20.1347, &
& 20.1392,20.1518,20.1558,20.1683,20.1743,20.1728,20.1706,20.1689, &
& 20.1774,20.1760,20.1872,20.1855,20.1829,20.1877,20.1818,20.1817, &
& 20.1967,20.1876,20.1682,20.1835,20.1863,20.2007,20.1893,20.2011, &
& 20.2026,20.2005,20.2004,20.1911,20.1985,20.1916,20.2050,20.1680, &
& 20.1731,20.1857,20.1625,20.1755,20.1685,20.1547,20.1626,20.1588, &
& 20.1594,20.1663,20.1593,20.1638,20.1734,20.1589,20.1639,20.1578, &
& 20.1449,20.1706,20.1352,20.1414,20.1132,20.1252,20.1146,20.0926, &
& 20.1020,20.1082,20.0912,20.0934,20.0618,20.0574,20.0517,20.0345, &
& 20.0458,20.0601,20.0303,19.9994,19.9988,19.9881,19.9877,19.9615, &
& 19.9340,19.9651,19.9553,19.9322,19.9185,19.8864,19.9018,19.9031, &
& 19.8996,19.8881,19.8694,19.8832,19.8459,19.6652,19.7934,19.7961, &
& 19.8654,19.8269,19.7570,19.7244,19.7965,19.7590,19.8038,19.7974, &
& 19.8234,19.7875,19.8745,19.7622,19.7709,19.7543,19.7950,19.7343, &
& 19.7809,19.7168,19.7891,19.7364,19.7451,19.7290,19.7981,19.7318, &
& 19.7833,19.7520,19.7346,19.7422,19.7806,19.7523,19.8069,19.7157, &
& 19.6644,19.6786,19.7845,19.7663,19.7726,19.7099,19.7025,19.6655, &
& 19.7674,19.7383,19.7134,19.7400,19.7351,19.6865,19.7067,19.7500, &
& 19.7806,19.7085,19.7328,19.7475,19.7662,19.7150,19.7154,19.7155, &
& 19.7685,19.7746,19.7651,19.7299,19.7118,19.7100,19.7936,19.7788, &
& 19.7202,19.6988,19.6986,19.7010,19.7474,19.7611,19.7162,19.6870, &
& 19.7018,19.7293,19.6886,19.7031,19.7043,19.6640,19.6477,19.6903, &
& 19.6642,19.6732,19.6486,19.6738,19.6451,19.6167,19.6395,19.6322, &
& 19.5959,19.5979,19.5594,19.6215,19.6271,19.6248,19.5533,19.5799, &
& 19.5459,19.6044,19.5281,19.6071,19.5870,19.6176,19.5998,19.6521, &
& 19.5201,19.4637,19.4302,19.5569,19.5731,19.5782,19.5759,19.5726, &
& 19.5206,19.5592,19.5037,19.5133,19.4604,19.5136,19.4805,19.5325, &
& 19.5360,19.5238,19.4869,19.5574,19.4593,19.5068,19.5208,19.5308, &
& 19.5257,19.5155,19.4222,19.4597,19.4360,19.5028,19.4614,19.4438, &
& 19.4285,19.5200,19.4066,19.5207,19.4486,19.4497,19.3796,19.4513, &
& 19.3758,19.4859,19.3919,19.3979,19.3275,19.4553,19.3632,19.4337, &
& 19.4219,19.4358,19.3373,19.5013,19.4050,19.4597,19.3947,19.3860, &
& 19.3625,19.4295,19.3400,19.4015,19.3288,19.4833,19.3472,19.4437, &
& 19.3055,19.4473,19.3815,19.4234,19.3382,19.3771,19.2879,19.3968, &
& 19.3875,19.4304,19.2954,19.3417,19.2631,19.3526,19.2481,19.4617, &
& 19.3129,19.3109,19.2292,19.3875,19.3130,19.3634,19.2336,19.3024, &
& 19.2926,19.3067,19.2812,19.3855,19.2954,19.2427,19.1888,19.3955, &
& 19.2697,19.4271,19.2720,19.3730,19.2600,19.3812,19.1002,19.4311, &
& 19.2062,19.3171,19.1899,19.2705,19.1430,19.3970,19.3225,19.3121, &
& 19.2733,19.2847,19.1425,19.3480,19.2489,19.3098,19.1693,19.3523, &
& 19.2282,19.3682,19.1983,19.2800,19.1622,19.3234,19.2392,19.3089, &
& 19.2247,19.3025,19.2691,19.3040,19.1439,19.2342,19.2744,19.3314, &
& 19.2212,19.2820,19.2769,19.2412,19.1908,19.3058,19.2410,19.3218, &
& 19.2696,19.2883,19.1934,19.2842,19.1873,19.2395,19.2321,19.2758, &
& 19.1787,19.2996,19.2436,19.2280,19.1725,19.2204,19.2082,19.2199, &
& 19.2031,19.2890,19.2073,19.2749,19.1515,19.1866,19.1461,19.1762, &
& 19.1308,19.1872,19.1296,19.1832,19.0314,19.1636,19.1264,19.1569, &
& 19.0887,19.1549,19.1165,19.0895,19.0399,19.1218,19.1161,19.1948, &
& 19.0731,19.0885,19.0489,19.1331,19.0840,19.1442,19.0540,19.0835, &
& 19.0469,19.1168,19.0804,19.0973,19.0223,19.0786,19.0471,19.0380, &
& 19.0248,19.0954,19.0034,19.0701,19.0347,19.0642,19.0536,19.0649, &
& 19.0068,19.0678,19.0617,19.0374,18.9559,19.0709,19.0131,19.0168, &
& 18.9702,18.9858,19.0408,18.9821,18.8513,18.9990,18.9878,18.9634, &
& 18.9540,19.0174,18.9600,18.9216,18.9056,18.9339,18.9478,18.9153, &
& 18.8959,18.9450,18.9805,18.9496,18.9070,18.9337,18.9170,18.9288, &
& 18.9226,18.8931,18.9196,18.9071,18.8691,18.9465,18.9513,18.8988, &
& 18.8915,18.9229,18.9305,18.9057,18.9060,18.9137,18.8891,18.8459, &
& 18.8658,18.8517,18.8667,18.8777,18.8681,18.8547,18.8741,18.8642, &
& 18.8707,18.8310,18.8193,18.8390,18.8520,18.8289,18.8502,18.8226, &
& 18.9195,18.8658,18.8508,18.8211,18.8400,18.8094,18.8711,18.7995, &
& 18.8437,18.8397,18.7912,18.7605,18.8130,18.7516,18.8004,18.7278, &
& 18.7532,18.7706,18.7373,18.7274,18.8044,18.7722,18.7770,18.7508, &
& 18.7491,18.7275,18.7409,18.6880,18.7661,18.7152,18.7317,18.7150, &
& 18.7716,18.7313,18.7179,18.6765,18.7428,18.6329,18.6970,18.6423, &
& 18.6792,18.6906,18.7379,18.6523,18.6337,18.6471,18.7109,18.6919, &
& 18.6754,18.6375,18.6968,18.6288,18.6322,18.5937,18.6662,18.6170, &
& 18.6531,18.6161,18.6309,18.5957,18.6266,18.5999,18.6577,18.5716, &
& 18.5930,18.4742,18.6716,18.5482,18.5615,18.5241,18.5790,18.5224, &
& 18.5691,18.5016,18.5841,18.5545,18.6030,18.4927,18.5438,18.4850, &
& 18.5178,18.4797,18.5852,18.4489,18.5748,18.5164,18.5513,18.3951, &
& 18.5066,18.4559,18.4925,18.4116,18.4400,18.3653,18.3601,18.4183, &
& 18.4915,18.3767,18.4018,18.3307,18.4567,18.4015,18.3636,18.2849, &
& 18.4343,18.3965,18.3694,18.3233,18.4328,18.2564,18.3872,18.2731, &
& 18.3954,18.3242,18.4260,18.1298,18.4634,18.2691,18.3301,18.1682, &
& 18.3532,18.1303,18.2677,18.2536,18.2689,18.1993,18.2858,18.1111, &
& 18.2982,18.2300,18.1867,18.1387,18.2421,18.1998,18.2632,18.1026, &
& 18.1759,18.1414,18.2392,18.1271,18.1229,17.9513,18.1540,17.9807, &
& 18.0481,17.8688,18.0049,17.7924,17.8895,17.7577,17.8247,17.6867, &
& 17.7744,17.5284,17.5595,17.4182,17.4835,17.4137,17.3933,17.2606, &
& 17.2476,17.1415,17.1086,16.9459,16.9310,16.7917,16.8293,16.7056, &
& 16.7739,16.6625,16.6865,16.6690,16.6355,16.5269,16.5453,16.5609, &
& 16.5211,16.5281,16.5586,16.4729,16.6060,16.4998,16.5295,16.5439, &
& 16.6210,16.5835,16.6869,16.6492,16.6703,16.6538,16.7043,16.7079, &
& 16.7694,16.6809,16.8111,16.8226,16.8464,16.7755,16.8629,16.9524, &
& 16.8964,16.9005,16.9499,16.8967,16.9667,16.9682,16.9878,16.9169, &
& 17.1034,17.0490,17.0438,17.0238,17.0782,17.0659,17.1425,17.0588, &
& 17.0841,17.0365,17.0998,17.0919,17.0867,17.1471,17.1947,17.0492, &
& 17.1096,16.9928,17.0886,17.1108,17.1520,17.1315,17.1637,17.0989, &
& 17.1599,17.1625,17.1770,17.1614,17.1894,17.2095,17.2158,17.1978, &
& 17.2007,17.2193,17.2758,17.3307,17.3342,17.2528,17.2258,17.2611, &
& 17.3286,17.3011,17.3625,17.3360,17.3095,17.3337,17.2949,17.2846, &
& 17.3349,17.3365,17.3613,17.3827,17.4018,17.3948,17.3637,17.3989, &
& 17.4214,17.4384,17.3967,17.4074,17.4197,17.3771,17.3872,17.4011, &
& 17.4295,17.4639,17.4034,17.4093,17.4210,17.4278,17.3964,17.3938, &
& 17.3908,17.4475,17.4055,17.4481,17.4330,17.4186,17.3764,17.3964, &
& 17.4443,17.5413,17.4899,17.4484,17.4208,17.4689,17.4550,17.4508, &
& 17.3882,17.4655,17.4313,17.4266,17.4363,17.4240,17.4073,17.4193, &
& 17.3783,17.4485,17.4133,17.4597,17.4013,17.4502,17.4265,17.4664, &
& 17.3895,17.4663,17.4013,17.4220,17.4184,17.4809,17.3983,17.4230, &
& 17.3450,17.4495,17.4085,17.4508,17.4063,17.5077,17.4454,17.3962, &
& 17.4025,17.4255,17.3851,17.4383,17.3641,17.4497,17.3258,17.4245, &
& 17.3711,17.4551,17.4139,17.4578,17.3855,17.4449,17.3186,17.4019, &
& 17.3990,17.4885,17.3812,17.4139,17.4401,17.4410,17.2989,17.3737, &
& 17.3191,17.4423,17.4281,17.3713,17.3442,17.4714,17.3793,17.4329, &
& 17.3396,17.4019,17.3213,17.3591,17.3963,17.4165,17.3424,17.4153, &
& 17.3647,17.4714,17.2910,17.4258,17.2981,17.4397,17.2500,17.3634, &
& 17.2553,17.3853,17.2207,17.4444,17.3163,17.4012,17.2831,17.2916, &
& 17.2584,17.3561,17.2334,17.3252,17.3253,17.3792,17.2996,17.3588, &
& 17.2449,17.3087,17.2285,17.3177,17.3343,17.3359,17.2626,17.3649, &
& 17.3520,17.1805,17.3277,17.3019,17.2582,17.3417,17.1838,17.3068, &
& 17.2062,17.3100,17.2557,17.2866,17.1956,17.3431,17.2515,17.2938, &
& 17.1684,17.2901,17.1791,17.3272,17.1866,17.3142,17.1389,17.2425, &
& 17.1614,17.2375,17.1656,17.3385,17.0436,17.2278,17.1324,17.2130, &
& 17.1266,17.2136,17.1485,17.1965,17.1368,17.2175,17.0659,17.2064, &
& 17.1961,17.1825,17.1110,17.2328,17.0139,17.1638,17.1141,17.1083, &
& 17.1536,17.1187,17.1676,17.2225,17.0961,17.1396,17.1345,17.1580, &
& 17.0331,17.1557,17.0863,17.1419,17.0237,17.0749,16.9948,17.0283, &
& 16.9910,17.0176,17.0531,17.0562,17.0461,17.0955,16.9969,17.0546, &
& 17.0201,17.0489,16.9889,16.9995,16.9913,16.9700,17.0040,17.0929, &
& 16.9572,17.0339,16.8975,16.9548,16.9345,16.9440,16.9365,16.9878, &
& 16.9470,16.9463,16.9517,16.9904,16.9054,16.9887,16.9443,16.9515, &
& 16.8758,16.9313,16.8939,16.8964,16.9041,16.9101,16.8388,16.8727, &
& 16.8781,16.9125,16.8474,16.9104,16.8346,16.8503,16.8442,16.8599, &
& 16.8148,16.8648,16.8238,16.8329,16.7863,16.9013,16.8388,16.8180, &
& 16.8196,16.8375,16.7895,16.8397,16.8129,16.8110,16.7941,16.7930, &
& 16.7602,16.7660,16.7410,16.7587,16.7736,16.7605,16.7347,16.7527, &
& 16.7337,16.7496,16.7508,16.7618,16.7748,16.7623,16.7696,16.7493, &
& 16.6689,16.6948,16.7536,16.7230,16.7127,16.7147,16.6819,16.7238, &
& 16.7608,16.7086,16.6852,16.6555,16.6928,16.7468,16.7567,16.6988, &
& 16.6778,16.6504,16.6670,16.6624,16.6619,16.6278,16.6679,16.6983, &
& 16.6998,16.6887,16.7163,16.6789,16.6929,16.6699,16.7047,16.6677, &
& 16.6671,16.6119,16.6374,16.6452,16.6284,16.5537,16.6707,16.5991, &
& 16.6197,16.5749,16.5873,16.6234,16.6152,16.5503,16.5846,16.5684, &
& 16.6285,16.6054,16.5786,16.5604,16.5513,16.5352,16.5683,16.5149, &
& 16.4561,16.4409,16.4708,16.4497,16.5240,16.4997,16.5374,16.4341, &
& 16.4773,16.4231,16.4614,16.3714,16.4658,16.3528,16.4246,16.3905, &
& 16.3932,16.2495,16.3665,16.2524,16.3385,16.2750,16.2750,16.2231, &
& 16.2782,16.2070,16.2604,16.1552,16.1942,16.0470,16.0725,15.9923, &
& 15.9894,15.9247,15.8753,15.7476,15.7487,15.6739,15.7588,15.6157, &
& 15.6295,15.5240,15.5056,15.2816,15.2495,15.1419,15.1077,14.9116, &
& 14.9214,14.6192,14.6042,14.3451,14.2681,14.0630,14.0293,13.7088, &
& 13.6298,13.3513,13.2800,13.0232,12.9602,12.8164,12.6389,12.4452, &
& 12.3744,12.1392,12.1083,11.9790,12.0392,11.8257,12.0130,11.8973, &
& 12.0513,11.9198,12.1038,11.9959,12.0643,12.0540,12.1087,12.2356, &
& 12.2910,12.2792,12.4515,12.4100,12.5232,12.5464,12.5644,12.7519, &
& 12.7794,12.7793,12.9127,12.7582,12.9196,12.9297,12.9906,12.9757, &
& 13.0733,13.0346,13.1801,13.0694,13.2060,13.1207,13.3054,13.3015, &
& 13.3397,13.1635,13.3504,13.2867,13.4658,13.3346,13.3999,13.3348, &
& 13.4708,13.3842,13.4401,13.4163,13.4801,13.4575,13.6278,13.4482, &
& 13.6062,13.5686,13.6827,13.5573,13.7335,13.6498,13.7413,13.7138, &
& 13.8440,13.6897,13.8256,13.7802,13.8573,13.7670,13.8656,13.7884, &
& 13.8612,13.8684,13.9985,13.9613,14.0297,13.9426,14.0254,13.9944, &
& 14.0583,14.0380,14.1567,14.0494,14.1828,14.1471,14.2236,14.1155, &
& 14.2758,14.2749,14.2745,14.1954,14.3413,14.2676,14.3738,14.3916, &
& 14.4798,14.3920,14.5420,14.4349,14.4957,14.4856,14.5667,14.5024, &
& 14.6150,14.5407,14.6181,14.6209,14.6498,14.6550,14.7653,14.6792, &
& 14.6629,14.6855,14.7882,14.7546,14.7965,14.7614,14.8378,14.7443, &
& 14.8539,14.8129,14.8404,14.8146,14.8782,14.9180,14.9640,14.9103, &
& 14.9482,14.8822,14.9641,14.9148,14.9373,14.9696,14.9635,14.9037, &
& 14.9861,15.0142,14.9617,14.9722,15.0577,14.9830,15.0060,15.0017, &
& 15.0471,15.0606,15.0106,15.0688,15.1124,15.0376,15.0450,15.0498, &
& 15.0709,15.0397,15.0158,15.0339,15.0576,15.0521,15.1105,15.1243, &
& 15.1265,15.1066,15.0752,15.1004,15.1369,15.0978,15.0770,15.0985, &
& 15.1241,15.1081,15.0823,15.1054,15.1172,15.0953,15.0669,15.0408, &
& 15.0947,15.1031,15.0571,15.0728,15.0733,15.0767,15.0231,15.0348, &
& 15.0733,15.0381,15.0411,15.0966,15.0469,15.0676,15.0661,15.0473, &
& 15.0030,15.0824,15.0742,15.0360,15.0094,15.0871,15.0428,15.0614, &
& 15.0286,15.0789,15.1074,15.1330,15.1337,15.1694,15.1432,15.1626, &
& 15.1229,15.1422,15.1035,15.1782,15.1963,15.1822,15.1878,15.2246, &
& 15.1332,15.2028,15.2020,15.2621,15.2503,15.2600,15.2014,15.3056, &
& 15.3077,15.3209,15.2819,15.3432,15.3122,15.3343,15.3173,15.3363, &
& 15.2285,15.2949,15.2535,15.3442,15.3185,15.3002,15.3087,15.3473, &
& 15.3251,15.3712,15.3100,15.3307,15.2933,15.3632,15.3291,15.3186, &
& 15.2509,15.3634,15.3023,15.3488,15.3052,15.3015,15.3210,15.3258, &
& 15.2286,15.3446,15.1942,15.3459,15.2171,15.3255,15.2522,15.2822, &
& 15.2510,15.3155,15.1352,15.3304,15.1885,15.2972,15.1219,15.2758, &
& 15.1563,15.2390,15.1742,15.1806,15.1554,15.2201,15.0605,15.1777, &
& 15.0495,15.1661,15.0544,15.1799,14.9959,15.1746,14.8835,15.0694, &
& 14.9888,15.0659,14.9505,15.0797,14.8983,15.0533,14.8656,14.9121, &
& 14.8710,14.8565,14.7729,14.8337,14.7581,14.8116,14.7190,14.7954, &
& 14.7452,14.7990,14.7457,14.6031,14.7675,14.8065,14.6228,14.7971, &
& 14.5855,14.7340,14.6644,14.7584,14.6071,14.7078,14.5494,14.7260, &
& 14.5734,14.6056,14.5058,14.6553,14.5252,14.5796,14.4786,14.4692, &
& 14.5383,14.6084,14.5276,14.6198,14.4510,14.5590,14.4447,14.5302, &
& 14.3750,14.4298,14.4441,14.4378,14.3019,14.4101,14.3150,14.5364, &
& 14.3096,14.3634,14.2838,14.3329,14.3389,14.3616,14.2386,14.3737, &
& 14.2886,14.4100,14.3186,14.4335,14.2819,14.3794,14.3339,14.3643, &
& 14.3114,14.3589,14.2497,14.3020,14.2937,14.3256,14.2274,14.3020, &
& 14.2859,14.2255,14.1761,14.1929,14.1241,14.2095,14.0697,14.0947, &
& 14.0102,14.0139,13.9531,13.9900,13.9262,13.8947,13.8772,13.9120, &
& 13.8054,13.8540,13.7940,13.7867,13.7323,13.7635,13.6646,13.7385, &
& 13.6923,13.7016,13.6758,13.7246,13.6314,13.6656,13.6381,13.6777, &
& 13.6121,13.6903,13.6519,13.6540,13.7010,13.7449,13.6589,13.7315, &
& 13.6686,13.7547,13.6997,13.7272,13.6896,13.7385,13.7043,13.6804, &
& 13.7120,13.7658,13.7546,13.7581,13.7274,13.7590,13.7085,13.7085, &
& 13.7033,13.7121,13.5974,13.6998,13.7030,13.6919,13.6530,13.6369, &
& 13.6458,13.6576,13.6498,13.6261,13.5768,13.6043,13.5920,13.6046, &
& 13.5923,13.5834,13.5677,13.5493,13.5236,13.4615,13.3855,13.4489, &
& 13.4490,13.3865,13.3618,13.3712,13.3665,13.3300,13.3399,13.3527, &
& 13.3123,13.2751,13.2905,13.2914,13.2562,13.1592,13.1259,13.1808, &
& 13.1497,13.0985,13.1401,13.0767,13.0628,13.0380,13.0038,13.0224, &
& 12.9876,12.8751,12.9215,12.9693,12.9753,12.8840,12.9190,12.8986, &
& 12.8766,12.8395,12.8500,12.8481,12.8430,12.7895,12.9167,12.8163, &
& 12.7447,12.7542,12.8240,12.7791,12.7539,12.7735,12.8102,12.7291, &
& 12.7342,12.6937,12.7280,12.5990,12.6789,12.6659,12.7001,12.6537, &
& 12.6077,12.5516,12.6511,12.5667,12.6284,12.6223,12.5694,12.4814, &
& 12.6186,12.4564,12.5731,12.4328,12.5177,12.4162,12.5698,12.4175, &
& 12.4194,12.3638,12.3712,12.3383,12.3763,12.2590,12.3736,12.2905, &
& 12.3999,12.2904,12.3088,12.2658,12.3130,12.0775,12.1905,12.1638, &
& 12.1637,12.0704,12.2133,12.1279,12.1772,12.0704,12.1492,12.0390, &
& 12.1428,12.0074,12.0632,11.9582,12.0930,12.0433,11.9936,11.8554, &
& 11.8540,11.8306,12.0633,11.7138,11.9203,11.7923,11.8249,11.7668, &
& 11.8816,11.7309,11.8979,11.5409,11.8740,11.7925,11.8366,11.6405, &
& 11.7987,11.5423,11.6409,11.5416,11.8479,11.4910,11.6074,11.5408, &
& 11.7121,11.5513,11.6039,11.4905,11.6605,11.3545,11.6760,11.5564, &
& 11.5822,11.4175,11.7421,11.3587,11.6018,11.2915,11.6825,11.4838, &
& 11.0829,11.5903,11.3953,11.2443,11.3815,15.3890,15.1413,15.1565, &
& 15.5163,15.7178,15.6537,15.4975,15.4238,15.1491,14.9868,15.2868, &
& 15.2940,15.2678,15.5604,15.8016,15.6674,15.5704,15.5968,15.2142, &
& 14.9153,15.1031,15.3682,15.3156,14.8862,14.9855,15.5545,15.6825, &
& 15.5133,15.3923,15.4749,15.9444,15.8928,15.2023,14.9441,15.0237, &
& 15.0072,15.0924,15.1288,15.1658,15.3202,15.3366,15.2617,15.4748, &
& 15.1760,15.1159,15.3510,15.2212,15.0562,15.4226,15.5417,15.5235, &
& 15.6619,15.6441,15.1573,14.9864,14.9026,15.2475,15.3708,14.9451, &
& 14.8857,15.5332,15.7471,15.6924,15.7509,15.6382,15.4916,15.3016, &
& 15.2165,15.2566,15.3190,15.3047,15.1344,15.4649,15.5090,15.0225, &
& 15.0747,15.5939,15.5789,15.1055,15.0502,15.1398,15.3789,15.2691, &
& 15.0726,15.2318,15.5404,15.4140,15.1812,15.4241,15.6581,15.5539, &
& 15.1559,14.8741,14.9057,14.8807,15.0158,15.0465,14.9844,14.8415, &
& 14.6863,14.9791,14.9228,14.9026,15.0997,15.1078,15.1873,15.2855, &
& 14.9533,14.5453,14.4174,14.5650,14.7194,14.6235,14.6307,14.6859, &
& 14.7297,14.5280,14.4471,14.4410,14.3772,14.5491,14.5737,14.2621, &
& 14.1482,14.1499,14.0284,13.7697,13.8731,14.4699,14.4733,14.0495, &
& 13.9516,14.1612,14.0191,13.3977,13.1430,13.1488,12.9506,12.8219, &
& 12.9121,12.7087,12.5455,12.5662,12.6723,12.7282,12.6047,12.3379, &
& 12.1003,11.8360,11.7381,11.6600,11.5194,11.3680,11.2113,11.1012, &
& 10.9647,10.4738,9.8599,9.4259,9.2964,9.3041,9.1841,8.6912, &
& 8.1427,7.7261,7.7565,7.9454,7.8910,7.3002,6.6976,6.7606, &
& 6.8541,6.6099,6.1878,5.8475,6.0055,5.7364,5.2199,4.8482, &
& 4.8505,5.0118,5.1664,5.4314,5.0693,4.9523,5.0877,5.0043, &
& 4.6259,4.5128,4.6519,4.5643,4.5890,4.7606,4.6029,4.4623, &
& 4.3240,4.4352,4.2321,3.8721,3.9110,4.0877,4.2212,4.1763, &
& 4.2340,4.6633,4.2946,3.7986,4.1342,4.0968,3.5492,4.0174, &
& 4.0158,3.6414,3.4798,3.6510,4.0238,4.5941,5.1369,4.0369, &
& 2.7480,3.2648,3.5131,4.3787,4.9321,4.0040,2.9873,2.7727, &
& 3.3411,3.6001,3.5195,3.6598,3.8554,3.6051,3.5892,4.1104, &
& 3.9823,3.7278,3.9103,3.9510,3.6951,3.6688,3.6766,3.8329, &
& 4.1070,3.8768,3.6052,3.7018,3.7456,3.7048,3.8269,4.0218, &
& 4.2779,4.3126,4.1548,3.8880,3.7743,3.9731,4.1195,3.9263, &
& 3.7188,3.6059,3.6412,3.4761,3.3305,3.6294,4.0070,4.1665, &
& 4.0568,3.7430,3.5048,3.5220,3.8686,3.5554,3.4886,3.8676, &
& 3.9007,3.5804,3.6316,3.7497,3.7645,3.2965,2.7515,3.0728, &
& 3.3730,3.4021,3.8369,3.7180,3.4790,3.7415,3.6012,3.6475, &
& 4.0595,4.0556,3.7083,3.7473,3.4058,2.7694,2.3844,2.8506, &
& 3.4957,3.5262,3.7979,3.8727,3.7018,3.4661,3.4550,3.5770, &
& 3.5265,3.4946,3.3785,3.3503,3.3880,3.5000,3.8141,3.6306, &
& 3.0665,3.0225,3.2378,3.5412,3.6208,3.4544,3.6587,3.7824, &
& 3.4015,3.2273,3.1072,3.0176,3.3960,3.6569,3.4880,3.2380, &
& 3.3522,3.7570,3.8174,3.7294,3.8543,3.8916,3.6504,3.5152, &
& 3.5620,3.6630,3.6141,3.4363,3.4246,3.5606,3.8888,3.9108, &
& 3.6151,3.4615,3.5337,3.6556,3.6574,3.5134,3.6667,3.8338, &
& 3.9752,3.8097,3.7586,3.8784,3.6090,3.5708,3.6193,3.4991, &
& 3.5064,3.8878,3.8916,3.6647,3.7603,3.9151,3.8419,3.9190, &
& 3.8864,4.0888,4.2457,4.2422,4.3032,3.9986,3.7532,3.6874, &
& 3.9918,3.8642,3.9428,4.0550,4.0077,3.8103,3.7600,3.9127, &
& 4.0782,3.9931,4.0577,4.2531,4.0544,3.7884,3.9067,4.1608, &
& 4.2689,4.2642,4.2113,4.1094,4.0443,4.3036,4.1674,3.9378, &
& 4.0051,4.2552,4.1418,4.0214,4.1437,4.3670,4.5284,4.4960, &
& 4.5391,4.4328,4.3139,4.3980,4.6331,4.5100,4.2715,4.3995, &
& 4.8420,4.6932,4.5071,4.4723,4.5481,4.8312,5.1038,5.0949, &
& 5.0809,5.0485,5.1144,5.0804,4.8941,4.8682,5.1373,5.1217, &
& 4.9250,5.2450,5.3437,5.4311,5.4253,5.3413,5.1922,5.1474, &
& 5.2646,5.6018,5.5489,5.3922,5.2278,5.2447,5.5020,5.6821, &
& 5.7103,5.8085,5.7559,5.4575,5.4077,5.8289,6.1598,5.9689, &
& 5.8260,5.8020,5.9085,6.0381,5.7655,5.6248,5.7546,5.8832, &
& 6.1201,6.3595,6.4303,6.4385,6.3273,6.4078,6.4615,6.2710, &
& 6.1502,6.3690,6.4099,6.2423,6.4356,6.8110,6.8704,6.6754, &
& 6.8120,6.7747,6.6517,6.7715,6.8435,6.9171,6.9141,6.8325, &
& 6.9441,7.1123,6.9925,6.8202,6.9368,7.2574,7.2769,7.3420, &
& 7.3499,7.2052,7.1951,7.2406,7.1712,7.1215,7.1874,7.5685, &
& 7.8826,7.9018,7.7454,7.5518,7.5618,7.6558,7.7080,7.8688, &
& 7.8776,7.7440,7.7447,7.8485,8.0156,8.0306,7.8820,7.8640, &
& 7.9013,7.9462,7.8962,7.8872,7.9140,7.9040,8.0599,8.1599, &
& 8.0532,7.9150,7.9228,8.0908,8.1412,8.1750,8.5558,8.4805, &
& 8.1475,8.0901,8.2333,8.2386,8.2497,8.3613,8.2503,8.1942, &
& 8.3973,8.5866,8.5990,8.6359,8.6222,8.7546,8.7471,8.5626, &
& 8.6352,8.7189,8.7522,8.9436,8.8861,8.9092,8.9999,8.9633, &
& 9.0332,9.0159,8.9862,9.1901,9.3820,9.4813,9.6400,9.4501, &
& 9.2537,9.4129,9.5124,9.4777,9.5431,9.5449,9.4840,9.5951, &
& 9.7345,9.7060,9.6950,9.7493,9.8521,9.8900,9.8739,9.8510, &
& 9.8008,9.8394,9.8344,9.7622,9.8077,9.8620,9.9159,10.0292, &
& 10.0774,10.0392,10.2674,10.4055,10.5077,10.6276,10.5269,10.6393, &
& 10.8392,10.8672,10.9135,10.8915,10.8027,10.8543,10.9581,11.0271, &
& 11.0535,11.1302,11.2220,11.3203,11.4907,11.5836,11.5362,11.4702, &
& 11.5142,11.5895,11.5825,11.5061,11.6491,11.7316,11.7815,11.8603, &
& 11.7961,11.8688,11.9812,12.0144,12.1210,12.2050,12.2778,12.3021, &
& 12.2709,12.2173,12.2175,12.2433,12.3740,12.5149,12.5172,12.3875, &
& 12.4410,12.5767,12.5896,12.5296,12.5188,12.6684,12.7742,12.7602, &
& 12.6950,12.7288,12.8449,12.8071,12.7401,12.8013,12.9043,13.0611, &
& 13.1503,13.2033,13.1980,13.0759,13.0708,13.2293,13.2537,13.1512, &
& 13.1688,13.3029,13.2976,13.3616,13.4155,13.4564,13.4920,13.3961, &
& 13.4486,13.6489,13.7061,13.7559,13.8033,13.6265,13.6106,13.6671, &
& 13.6780,13.8220,13.8546,13.7586,13.7750,13.8587,13.9001,13.9488, &
& 13.9107,13.9592,14.0653,14.0289,13.9334,14.0102,14.0557,14.0401, &
& 14.1206,14.1930,14.2996,14.4089,14.3612,14.1914,13.9977,13.9721, &
& 14.0286,14.1548,14.2301,14.1881,14.1722,14.2515,14.3233,14.3336, &
& 14.3999,14.3910,14.3868,14.4262,14.4060,14.3388,14.3837,14.4204, &
& 14.4187,14.4414,14.4869,14.5346,14.5799,14.6403,14.4986,14.2936, &
& 14.2564,14.3792,14.5072,14.4524,14.5564,14.5967,14.5135,14.5500, &
& 14.5025,14.4487,14.5159,14.5433,14.5363,14.4860,14.5146,14.4374, &
& 14.3968,14.4966,14.5760,14.4713,14.3386,14.3925,14.4404,14.3387, &
& 14.3175,14.4172,14.4579,14.4405,14.4521,14.4402,14.3945,14.3280, &
& 14.3056,14.3965,14.4608,14.4119,14.3116,14.3123,14.3881,14.3318, &
& 14.2377,14.1864,14.2579,14.2766,14.2726,14.3464,14.3382,14.3163, &
& 14.3217,14.3028,14.1877,14.2230,14.2705,14.1180,13.9695,14.0445, &
& 14.0690,14.0454,14.0968,14.1196,14.0503,14.0035,14.1022,14.0799, &
& 13.9640,13.9656,13.8587,13.7727,13.8477,13.9193,13.8671,13.7463, &
& 13.6647,13.5815,13.5600,13.5650,13.6047,13.7275,13.7238,13.6076, &
& 13.6135,13.6083,13.5953,13.5397,13.3776,13.3930,13.4565,13.4274, &
& 13.3899,13.3522,13.3199,13.3213,13.3508,13.2920,13.1900,13.1543, &
& 13.1883,13.2567,13.1404,12.9513,12.9009,12.9664,13.0423,13.0437, &
& 12.9832,12.9271,12.9492,12.9269,12.8115,12.7189,12.7204,12.6734, &
& 12.5930,12.4700,12.3585,12.2964,12.1841,12.0095,12.0109,12.1080, &
& 12.0566,12.0523,12.1047,12.2443,12.2807,12.2812,12.1979,12.1094, &
& 12.0555,11.9415,11.8558,11.9417,11.9195,11.8051,11.7635,11.7477, &
& 11.6930,11.6989,11.7400,11.7052,11.7406,11.7864,11.7512,11.8133, &
& 11.8426,11.7324,11.6175,11.6514,11.6182,11.5136,11.5782,11.5608, &
& 11.5063,11.4814,11.4705,11.4922,11.4589,11.4775,11.4125,11.2753, &
& 11.1854,11.1780,11.3067,11.3605,11.2645,11.1588,11.1093,11.1574, &
& 11.0718,10.9980,11.0015,10.9569,10.9261,10.8870,10.8138,10.7652, &
& 10.8272,10.7715,10.7211,10.7475,10.7576,10.7579,10.7328,10.7019, &
& 10.6415,10.6851,10.6631,10.6101,10.6169,10.5543,10.5029,10.4336, &
& 10.4287,10.3729,10.3422,10.3483,10.3774,10.4045,10.4201,10.3028, &
& 10.1917,10.2174,10.1429,10.1067,10.1183,10.1262,10.1401,10.0680, &
& 9.9848,10.0344,10.0824,10.0956,10.0910,10.0311,9.9591,9.8792, &
& 9.9006,9.8626,9.8935,9.8939,9.8084,9.7412,9.7523,9.7698, &
& 9.8067,9.7945,9.6496,9.6009,9.5644,9.5122,9.5061,9.5244, &
& 9.5305,9.4982,9.4491,9.5045,9.5359,9.4060,9.4027,9.4635, &
& 9.4253,9.2742,9.2917,9.3523,9.2564,9.1650,9.1976,9.2588, &
& 9.2241,9.2335,9.2711,9.2268,9.0908,9.0760,9.1181,9.1394, &
& 9.0193,8.9740,9.1049,9.1044,9.0871,9.1259,9.0682,9.0022, &
& 8.9676,8.9674,8.9711,9.0348,9.0089,8.9728,8.9951,8.9927, &
& 8.9148,8.9036,8.9704,8.9432,8.7928,8.7170,8.6900,8.7087, &
& 8.7190,8.6533,8.5680,8.6234,8.6954,8.5849,8.5297,8.5456, &
& 8.4922,8.4362,8.3649,8.2881,8.2486,8.1779,8.0589,8.0593, &
& 8.1297,8.1272,8.0198,7.9509,7.9347,7.9690,8.0025,7.9920, &
& 7.9054,7.7607,7.7388,7.8275,7.7683,7.7268,7.7204,7.7121, &
& 7.7336,7.7014,7.6089,7.6329,7.7536,7.7788,7.7035,7.6105, &
& 7.5843,7.5715,7.5109,7.4859,7.4726,7.4312,7.4461,7.4272, &
& 7.3289,7.3212,7.3362,7.3285,7.3058,7.2505,7.1405,7.0820, &
& 7.0853,7.1319,7.0851,6.9770,6.9127,6.8954,6.8224,6.7959, &
& 6.8047,6.6660,6.6009,6.5650,6.4919,6.4343,6.4353,6.4536, &
& 6.3664,6.2999,6.2937,6.2749,6.1737,6.0622,6.0712,6.0524, &
& 6.0150,5.9554,5.8818,5.7890,5.8162,5.8939,5.8529,5.7959, &
& 5.7049,5.5904,5.6324,5.7008,5.7062,5.7010,5.6280,5.5885, &
& 5.6545,5.6811,5.6205,5.5504,5.5594,5.5782,5.5536,5.6159, &
& 5.6145,5.5209,5.5009,5.5181,5.4327,5.3685,5.3902,5.4175, &
& 5.4229,5.4887,5.5326,5.4458,5.2721,5.2076,5.2937,5.3153, &
& 5.2119,5.1509,5.1158,5.1155,5.1329,5.1456,5.1260,5.0669, &
& 5.0524,5.0317,4.9462,4.8804,4.9163,5.0199,4.9723,4.8802, &
& 4.8586,4.8229,4.7843,4.6796,4.6342,4.6414,4.7288,4.8041, &
& 4.7637,4.6400,4.5838,4.5720,4.5087,4.5052,4.5081,4.4559, &
& 4.4330,4.4124,4.4013,4.4119,4.3602,4.3210,4.2387,4.1694, &
& 4.2751,4.3114,4.2288,4.2730,4.2533,4.1535,4.0828,4.0385, &
& 3.9949,3.9781,3.9358,3.8662,3.9030,3.8973,3.8308,3.8512, &
& 3.8024,3.7025,3.6824,3.7481,3.7469,3.6137,3.4706,3.4729, &
& 3.5291,3.4236,3.3608,3.3122,3.2530,3.2596,3.3281,3.2303, &
& 3.0770,3.0113,3.0342,3.0707,3.0343,2.9999,2.9073,2.8725, &
& 2.8698,2.8404,2.8118,2.8037,2.7905,2.8405,2.8953,2.7962, &
& 2.7165,2.8156,2.8700,2.8127,2.6904,2.6603,2.7813,2.7920, &
& 2.6857,2.6073,2.7011,2.8256,2.8458,2.7703,2.6987,2.6376, &
& 2.6783,2.7698,2.8610,2.9179,2.9679,3.0070,3.0613,3.0384, &
& 2.9256,2.9539,3.0359,3.0771,3.0650,3.0277,3.0922,3.1548, &
& 3.1997,3.1655,3.1607,3.2353,3.2616,3.3494,3.4745,3.4682, &
& 3.4243,3.4065,3.3436,3.3816,3.3772,3.3498,3.4939,3.5371, &
& 3.4832,3.5708,3.5759,3.5251,3.4774,3.4776,3.5511,3.6083, &
& 3.7438,3.7050,3.5628,3.6240,3.6944,3.7279,3.7595,3.7398, &
& 3.7267,3.7814,3.8930,3.8900,3.7827,3.7234,3.7399,3.6605, &
& 3.5695,3.6428,3.6623,3.6227,3.5925,3.5995,3.6232,3.5780, &
& 3.5632,3.5378,3.5149,3.5326,3.5108,3.4276,3.2725,3.2116, &
& 3.2571,3.2004,3.1184,3.1808,3.0817,2.9080,2.8711,2.8832, &
& 2.8000,2.8107,2.8275,2.7410,2.6814,2.6751,2.6018,2.5627, &
& 2.5689,2.4859,2.4447,2.3983,2.3077,2.2723,2.3551,2.3936, &
& 2.4521,2.2919,2.1680,2.2242,2.2269,2.2232,2.1952,2.2559, &
& 2.3905,2.4720,2.4254,2.3654,2.3031,2.4040,2.5742,2.5358, &
& 2.4756,2.5003,2.4385,2.3754,2.4314,2.3766,2.3498,2.4342, &
& 2.4001,2.2894,2.1938,2.1105,2.1516,2.2468,2.2216,2.1248, &
& 2.0511,2.1211,2.1622,2.0880,2.0653,2.1782,2.0870,2.0232, &
& 2.1215,2.1053,2.0543,2.0300,2.1092,2.2624,2.2327,2.1437, &
& 2.1366,2.0779,2.0172,2.0671,2.0067,1.9075,1.8752,1.9248, &
& 1.9804,1.9662,2.0006,2.0336,2.0061,1.9155,1.8471,1.9763, &
& 2.0810,2.1193,2.1078,2.0555,2.0781,2.0460,2.0509,2.1861, &
& 2.2314,2.2534,2.3051,2.2453,2.1932,2.1437,2.1951,2.2760, &
& 2.3251,2.3197,2.3256,2.4219,2.5933,2.5166,2.3851,2.3301, &
& 2.3289,2.3914,2.4663,2.5584,2.5575,2.5836,2.6966,2.6594, &
& 2.7518,2.8095,2.8412,2.9119,3.0851,3.2447,3.4156,3.4928, &
& 3.5063,3.6621,3.8660,4.0535,4.1551,4.2459,4.4616,4.7288, &
& 4.9794,5.0862,5.2979,5.6329,5.6644,5.5085,5.6501,5.7747, &
& 5.7180,5.7788,5.8852,6.0483,6.1085,6.1136,6.2360,6.4905, &
& 6.6528,6.7111,6.8177,7.0463,7.2238,7.2191,7.2347,7.3168, &
& 7.5891,7.6631,7.5963,7.4722,7.5315,7.9347,8.1051,8.0082, &
& 8.0074,8.0252,8.0489,8.0556,8.1008,8.1384,8.1916,8.1844, &
& 8.1521,8.1110,8.1498,8.2382,8.2058,7.9390,7.9181,8.0609, &
& 7.9669,7.9238,7.9389,7.9182,7.8600,7.9501,7.7910,7.6428, &
& 7.7534,7.7573,7.7571,7.7388,7.7172,7.8079,7.9055,7.9774, &
& 7.9292,7.9432,7.9359,7.8580,7.9653,8.1443,8.2522,8.2302, &
& 8.1576,8.3049,8.3513,8.3576,8.6804,8.9556,9.0141,9.1735, &
& 9.3819,9.6985,9.7978,9.9655,10.1814,10.2811,10.2134,10.1588, &
& 10.1333,10.2023,10.2344,10.3316,10.4910,10.3432,10.2018,10.3175, &
& 10.2624,10.1495,10.1114,9.9765,9.7830,9.6712,9.5891,9.5470, &
& 9.4477,9.2608,9.1436,9.1581,8.9806,8.8471,8.7831,8.6005, &
& 8.4208,8.2184,8.0120,7.9220,7.8447,7.7578,7.6602,7.5356, &
& 7.5060,7.3674,7.1681,6.9696,6.7978,6.7809,6.7162,6.5714, &
& 6.5289,6.4877,6.4543,6.4416,6.2338,6.0755,6.0954,6.0783, &
& 5.9754,5.9446,5.8986,5.8113,5.7233,5.6861,5.6483,5.6214, &
& 5.5885,5.3681,5.2531,5.2062,5.2542,5.2420,5.2327,5.2986, &
& 5.2712,5.1878,5.1632,5.0578,4.9955,4.9084,4.8783,4.7999, &
& 4.6323,4.6613,4.7318,4.7243,4.7084,4.5406,4.3407,4.1067, &
& 4.0815,4.1120,4.2123,4.3281,4.2399,4.2839,4.3245,4.1093, &
& 3.9763,4.1622,4.2233,4.1789,4.0332,3.9786,3.9451,3.9262, &
& 3.8722,3.8039,3.8254,3.8932,3.7316,3.6555,3.7426,3.8592, &
& 3.8088,3.6838,3.7571,3.6788,3.6550,3.5764,3.5316,3.4322, &
& 3.3864,3.3657,3.3152,3.2863,3.3528,3.3024,3.2172,3.1512, &
& 3.1295,3.1048,2.9869,2.8706,2.7552,2.7453,2.9738,2.9665, &
& 2.8205,2.6860,2.7572,2.8385,2.9806,2.9529,2.9364,2.9598, &
& 2.9595,2.8905,2.7535,2.8419,2.8841,2.7173,2.7006,2.9098, &
& 3.2012,3.1037,2.9113,2.7849,2.7469,2.7008,2.5983,2.5143, &
& 2.6838,2.8489,2.8330,2.6951,2.6837,2.7656,2.8021,2.8578, &
& 2.7162,2.5386,2.4649,2.3627,2.2905,2.2113,2.2002,2.3243, &
& 2.4169,2.3855,2.3833,2.3078,2.3791,2.6594,2.7093,2.5026, &
& 2.3998,2.5512,2.4442,2.3807,2.2883,2.2163,2.0718,1.9722, &
& 2.2490,2.4382,2.3255,2.2243,2.1880,2.1076,2.0416,2.0948, &
& 2.1577,2.2582,2.1361,1.9139,1.7227,1.6853,1.6725,1.6145, &
& 1.6529,1.9115,1.9003,1.6155,1.4003,1.5986,2.0753 /)
plasim/src/specs/rock.igneous.basic.solid.all.ward34.jpl.nicolet.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: basaltsolid(965) = (/7.6783,7.6783,7.6783,7.6783,7.6783,7.6783,7.6783,7.8871, &
& 8.0925,8.3816,8.7383,9.0837,9.3495,9.5214,9.6825,9.9317, &
& 10.3407,10.8533,11.3887,11.9152,12.3850,12.8001,13.1957,13.6036, &
& 14.0051,14.4052,14.7795,15.1605,15.5271,15.8997,16.2855,16.6850, &
& 17.1064,17.5287,17.9439,18.2987,18.6642,18.9930,19.2803,19.5282, &
& 19.7345,19.9013,20.0189,20.0978,20.1743,20.1818,20.2026,20.1734, &
& 20.0458,19.8459,19.7809,19.7726,19.7685,19.7043,19.5459,19.4604, &
& 19.4285,19.4050,19.3875,19.2954,19.2733,19.1439,19.1787,19.0314, &
& 19.0469,18.9559,18.8959,18.9060,18.9195,18.8044,18.6792,18.6266, &
& 18.5178,18.4567,18.3532,18.1229,17.2476,16.6060,16.8964,17.0867, &
& 17.2007,17.4018,17.3908,17.4363,17.3450,17.3855,17.3396,17.3163, &
& 17.3520,17.1866,17.1961,17.0237,16.9572,16.9041,16.8196,16.7748, &
& 16.6778,16.6284,16.4561,16.3385,15.6295,12.9602,12.2910,13.2060, &
& 13.6062,14.0297,14.4798,14.7965,14.9861,15.0576,15.0947,15.0094, &
& 15.1332,15.3185,15.2286,15.1554,14.8710,14.6071,14.3750,14.2838, &
& 14.2819,14.2274,14.0102,13.7940,13.6314,13.6589,13.7120,13.5974, &
& 13.5768,13.3855,13.3123,13.1401,12.9753,12.9167,12.7342,12.6511, &
& 12.5177,12.3736,12.1637,12.0632,11.9203,11.8366,11.7121,11.7421, &
& 11.3815,15.1356,15.5770,15.2226,15.0732,15.3020,15.4722,15.2854, &
& 15.6156,15.4395,15.1053,15.2373,14.9869,14.9632,14.5334,14.4458, &
& 14.0805,14.1313,12.8830,12.2700,11.1641,9.2355,7.5534,5.9378, &
& 5.2989,4.5684,4.3462,4.1763,3.6952,4.2519,4.4156,3.5497, &
& 3.9346,3.7841,3.7211,3.8274,3.6368,3.9940,3.6781,3.4341, &
& 3.7320,4.0352,2.9644,3.4635,3.3592,3.0732,3.7152,3.6470, &
& 3.7392,3.6349,3.9004,3.6235,3.7614,3.5036,3.8979,4.2428, &
& 3.9422,3.7628,4.1758,4.2649,4.1070,4.0986,4.4328,4.3119, &
& 4.5162,5.0536,5.1365,5.4299,5.3826,5.3605,5.5918,5.8832, &
& 5.6811,6.4020,6.3567,6.3343,6.7989,6.9164,6.9839,7.3327, &
& 7.1943,7.8899,7.6608,7.7446,7.8734,7.8896,8.0837,8.1504, &
& 8.1005,8.3209,8.5973,8.6884,8.9020,8.9785,9.3069,9.2622, &
& 9.5436,9.7167,9.8868,9.8384,9.8854,10.1913,10.5400,10.9126, &
& 10.9696,11.2507,11.5087,11.5458,11.8242,12.0006,12.2924,12.2324, &
& 12.4446,12.5596,12.7683,12.8328,12.9357,13.1886,13.2510,13.2990, &
& 13.4749,13.6658,13.6259,13.7900,13.8184,13.9215,13.9440,14.0832, &
& 14.4001,13.9776,14.2136,14.3233,14.3887,14.3434,14.4328,14.5882, &
& 14.2705,14.4632,14.5336,14.5136,14.4974,14.4760,14.3479,14.3274, &
& 14.4422,14.3790,14.4308,14.3122,14.2311,14.2751,14.3243,14.2026, &
& 14.1041,14.0624,14.0871,14.0878,13.8821,13.9148,13.6595,13.5712, &
& 13.6948,13.6040,13.3837,13.4115,13.3206,13.2425,13.2215,12.9269, &
& 13.0429,12.9362,12.7788,12.6498,12.3457,12.0097,12.0566,12.2283, &
& 12.2193,11.9871,11.9318,11.7591,11.7023,11.7357,11.7926,11.6813, &
& 11.5979,11.5618,11.4740,11.4664,11.2656,11.2824,11.2131,11.1439, &
& 11.0009,10.9076,10.7717,10.7344,10.7577,10.7035,10.6733,10.6105, &
& 10.4567,10.3658,10.3707,10.3849,10.2129,10.1106,10.1377,10.0009, &
& 10.0930,10.0118,9.8947,9.8936,9.7674,9.7707,9.7309,9.5697, &
& 9.5105,9.5105,9.5045,9.4048,9.4362,9.2945,9.2216,9.2403, &
& 9.2344,9.1835,9.1018,9.0302,9.1048,9.1039,9.0227,8.9674, &
& 9.0302,8.9817,8.9442,8.9588,8.7911,8.6941,8.6919,8.6005, &
& 8.6137,8.5439,8.4332,8.2805,8.1399,8.0893,8.0690,7.9404, &
& 7.9939,7.9198,7.7406,7.7695,7.7201,7.7309,7.6123,7.7581, &
& 7.6845,7.5814,7.5049,7.4627,7.4416,7.3271,7.3345,7.2958, &
& 7.1313,7.0908,7.0787,6.9127,6.8266,6.8035,6.6147,6.5130, &
& 6.4349,6.4092,6.2973,6.2463,6.0637,6.0510,5.9609,5.8113, &
& 5.8637,5.8270,5.6716,5.6400,5.7059,5.6463,5.6257,5.6591, &
& 5.5518,5.5772,5.5992,5.5677,5.5055,5.4304,5.3856,5.4204, &
& 5.5010,5.4428,5.2243,5.3038,5.2003,5.1194,5.1261,5.1396, &
& 5.0669,5.0384,4.9221,4.9198,4.9866,4.8723,4.8223,4.7139, &
& 4.6364,4.7245,4.7803,4.6280,4.5739,4.5071,4.5047,4.4406, &
& 4.4094,4.4104,4.3428,4.2365,4.2338,4.2970,4.2619,4.2226, &
& 4.0927,4.0208,3.9789,3.9015,3.9028,3.8605,3.8475,3.7434, &
& 3.6894,3.7474,3.5966,3.4720,3.5181,3.3861,3.3078,3.2567, &
& 3.3252,3.1548,3.0142,3.0492,3.0390,2.9708,2.8811,2.8643, &
& 2.8224,2.8029,2.8144,2.8898,2.7715,2.7877,2.8627,2.7482, &
& 2.6628,2.7847,2.7177,2.6150,2.7582,2.8425,2.7556,2.6640, &
& 2.6755,2.7957,2.8971,2.9672,3.0244,3.0461,2.9256,2.9801, &
& 3.0628,3.0653,3.0464,3.1301,3.1956,3.1644,3.1995,3.2565, &
& 3.3622,3.4720,3.4384,3.4074,3.3524,3.3794,3.3560,3.4955, &
& 3.5214,3.5314,3.5749,3.5227,3.4775,3.5171,3.5956,3.7438, &
& 3.6716,3.5912,3.6721,3.7246,3.7571,3.7355,3.7557,3.8634, &
& 3.8902,3.7749,3.7287,3.6993,3.5973,3.6341,3.6600,3.6157, &
& 3.5953,3.6130,3.5901,3.5647,3.5367,3.5186,3.5248,3.4692, &
& 3.3278,3.2247,3.2535,3.1958,3.1296,3.1507,3.0075,2.8877, &
& 2.8792,2.8185,2.8095,2.8275,2.7351,2.6802,2.6534,2.5865, &
& 2.5657,2.5216,2.4590,2.4104,2.3243,2.2761,2.3516,2.3955, &
& 2.4368,2.2721,2.1804,2.2249,2.2257,2.2126,2.2211,2.3190, &
& 2.4321,2.4463,2.3901,2.3269,2.3686,2.5198,2.5472,2.4922, &
& 2.4940,2.4535,2.3901,2.4190,2.3882,2.3554,2.4171,2.4069, &
& 2.3124,2.2146,2.1295,2.1418,2.2225,2.2283,2.1530,2.0742, &
& 2.0973,2.1470,2.1175,2.0751,2.1250,2.1335,2.0582,2.0635, &
& 2.1156,2.0479,2.0464,2.1323,2.2596,2.2302,2.1470,2.1373, &
& 2.0878,2.0318,2.0511,2.0307,1.9548,1.8933,1.9400,1.9778, &
& 1.9693,2.0006,2.0303,2.0116,1.9424,1.8746,1.9105,2.0165, &
& 2.1175,2.1055,2.0592,2.0737,2.0561,2.0488,2.1097,2.2352, &
& 2.2556,2.3002,2.2592,2.2125,2.1691,2.2110,2.2785,2.3201, &
& 2.3211,2.3232,2.3669,2.5850,2.5211,2.4138,2.3515,2.3296, &
& 2.3988,2.4602,2.5342,2.5579,2.6056,2.6963,2.6663,2.7172, &
& 2.8171,2.8440,2.9006,3.0227,3.2851,3.4174,3.4787,3.5010, &
& 3.6990,3.8596,4.0066,4.1071,4.2626,4.4298,4.6281,4.9967, &
& 5.0788,5.2333,5.6398,5.6637,5.5498,5.5782,5.7747,5.7324, &
& 5.7479,5.8836,6.0036,6.1096,6.1133,6.1973,6.5144,6.6337, &
& 6.6883,6.8310,6.9966,7.1357,7.2194,7.2294,7.3419,7.5350, &
& 7.6269,7.6010,7.5176,7.5484,7.8304,8.0923,8.0250,8.0078, &
& 8.0235,8.0393,8.0554,8.0850,8.1395,8.1754,8.1827,8.1610, &
& 8.1138,8.1397,8.2356,8.2140,7.9375,7.9237,8.0560,7.9945, &
& 7.9241,7.9339,7.9189,7.8823,7.9420,7.8624,7.6667,7.7538, &
& 7.7563,7.7568,7.7452,7.7191,7.8244,7.8854,7.9753,7.9454, &
& 7.9418,7.9254,7.8776,7.9627,8.0701,8.2311,8.2293,8.1853, &
& 8.2784,8.3514,8.3552,8.6189,8.9556,8.9900,9.1360,9.3696, &
& 9.7095,9.7672,9.9411,10.1825,10.2398,10.2313,10.1654,10.1345, &
& 10.1737,10.2253,10.3168,10.4865,10.3306,10.2521,10.2892,10.2700, &
& 10.1532,10.1026,10.0288,9.8408,9.6949,9.5998,9.5493,9.4437, &
& 9.2502,9.1879,9.1535,9.0257,8.8738,8.7928,8.6196,8.4329, &
& 8.2247,8.0115,7.9196,7.8398,7.7503,7.6482,7.5325,7.4900, &
& 7.3435,7.2438,6.9491,6.7959,6.7745,6.7041,6.5685,6.5271, &
& 6.4871,6.4546,6.4422,6.2508,6.0952,6.0921,6.0820,6.0032, &
& 5.9546,5.8913,5.8097,5.7274,5.6906,5.6557,5.6288,5.5664, &
& 5.3665,5.2620,5.2143,5.2412,5.2413,5.2329,5.2895,5.2780, &
& 5.1860,5.1643,5.0754,5.0139,4.9081,4.8821,4.8208,4.6329, &
& 4.6577,4.7126,4.7243,4.7109,4.5942,4.3532,4.1611,4.0819, &
& 4.1070,4.2203,4.3149,4.2662,4.2803,4.3134,4.1232,4.0114, &
& 4.1496,4.2066,4.1829,4.0774,3.9856,3.9443,3.9296,3.8735, &
& 3.8212,3.8232,3.8871,3.7642,3.6607,3.7496,3.8366,3.8126, &
& 3.6865,3.7406,3.6883,3.6555,3.5733,3.5409,3.4444,3.3884, &
& 3.3643,3.3283,3.2920,3.3436,3.3068,3.2205,3.1511,3.1285, &
& 3.1114,3.0152,2.8956,2.7779,2.7471,2.9339,2.9677,2.8453, &
& 2.7096,2.7440,2.8222,2.9495,2.9596,2.9376,2.9598,2.9595, &
& 2.8951,2.7692,2.8271,2.8746,2.7169,2.7013,2.8859,3.1456, &
& 3.0967,2.9207,2.8025,2.7558,2.7023,2.6124,2.5348,2.6733, &
& 2.8193,2.8331,2.7135,2.6858,2.7564,2.8042,2.8518,2.7117, &
& 2.5612,2.4651,2.3798,2.2945,2.2292,2.2016,2.3206,2.3970, &
& 2.3897,2.3834,2.3089,2.3658,2.6238 /)
plasim/src/specs/rock.igneous.basic.solid.vswir.ward34.jpl.perkin.spectrum.txt
+2122
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/rock.igneous.basic.solid.vswir.ward34.jpl.perkin.spectrum_f90.txt
+528
View File
@@ -0,0 +1,528 @@
real :: wvsolidbasaltalb(2101) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.408,0.409,0.41,0.411,0.412,0.413,0.414,0.415, &
& 0.416,0.417,0.418,0.419,0.42,0.421,0.422,0.423, &
& 0.424,0.425,0.426,0.427,0.428,0.429,0.43,0.431, &
& 0.432,0.433,0.434,0.435,0.436,0.437,0.438,0.439, &
& 0.44,0.441,0.442,0.443,0.444,0.445,0.446,0.447, &
& 0.448,0.449,0.45,0.451,0.452,0.453,0.454,0.455, &
& 0.456,0.457,0.458,0.459,0.46,0.461,0.462,0.463, &
& 0.464,0.465,0.466,0.467,0.468,0.469,0.47,0.471, &
& 0.472,0.473,0.474,0.475,0.476,0.477,0.478,0.479, &
& 0.48,0.481,0.482,0.483,0.484,0.485,0.486,0.487, &
& 0.488,0.489,0.49,0.491,0.492,0.493,0.494,0.495, &
& 0.496,0.497,0.498,0.499,0.5,0.501,0.502,0.503, &
& 0.504,0.505,0.506,0.507,0.508,0.509,0.51,0.511, &
& 0.512,0.513,0.514,0.515,0.516,0.517,0.518,0.519, &
& 0.52,0.521,0.522,0.523,0.524,0.525,0.526,0.527, &
& 0.528,0.529,0.53,0.531,0.532,0.533,0.534,0.535, &
& 0.536,0.537,0.538,0.539,0.54,0.541,0.542,0.543, &
& 0.544,0.545,0.546,0.547,0.548,0.549,0.55,0.551, &
& 0.552,0.553,0.554,0.555,0.556,0.557,0.558,0.559, &
& 0.56,0.561,0.562,0.563,0.564,0.565,0.566,0.567, &
& 0.568,0.569,0.57,0.571,0.572,0.573,0.574,0.575, &
& 0.576,0.577,0.578,0.579,0.58,0.581,0.582,0.583, &
& 0.584,0.585,0.586,0.587,0.588,0.589,0.59,0.591, &
& 0.592,0.593,0.594,0.595,0.596,0.597,0.598,0.599, &
& 0.6,0.601,0.602,0.603,0.604,0.605,0.606,0.607, &
& 0.608,0.609,0.61,0.611,0.612,0.613,0.614,0.615, &
& 0.616,0.617,0.618,0.619,0.62,0.621,0.622,0.623, &
& 0.624,0.625,0.626,0.627,0.628,0.629,0.63,0.631, &
& 0.632,0.633,0.634,0.635,0.636,0.637,0.638,0.639, &
& 0.64,0.641,0.642,0.643,0.644,0.645,0.646,0.647, &
& 0.648,0.649,0.65,0.651,0.652,0.653,0.654,0.655, &
& 0.656,0.657,0.658,0.659,0.66,0.661,0.662,0.663, &
& 0.664,0.665,0.666,0.667,0.668,0.669,0.67,0.671, &
& 0.672,0.673,0.674,0.675,0.676,0.677,0.678,0.679, &
& 0.68,0.681,0.682,0.683,0.684,0.685,0.686,0.687, &
& 0.688,0.689,0.69,0.691,0.692,0.693,0.694,0.695, &
& 0.696,0.697,0.698,0.699,0.7,0.701,0.702,0.703, &
& 0.704,0.705,0.706,0.707,0.708,0.709,0.71,0.711, &
& 0.712,0.713,0.714,0.715,0.716,0.717,0.718,0.719, &
& 0.72,0.721,0.722,0.723,0.724,0.725,0.726,0.727, &
& 0.728,0.729,0.73,0.731,0.732,0.733,0.734,0.735, &
& 0.736,0.737,0.738,0.739,0.74,0.741,0.742,0.743, &
& 0.744,0.745,0.746,0.747,0.748,0.749,0.75,0.751, &
& 0.752,0.753,0.754,0.755,0.756,0.757,0.758,0.759, &
& 0.76,0.761,0.762,0.763,0.764,0.765,0.766,0.767, &
& 0.768,0.769,0.77,0.771,0.772,0.773,0.774,0.775, &
& 0.776,0.777,0.778,0.779,0.78,0.781,0.782,0.783, &
& 0.784,0.785,0.786,0.787,0.788,0.789,0.79,0.791, &
& 0.792,0.793,0.794,0.795,0.796,0.797,0.798,0.799, &
& 0.8,0.801,0.802,0.803,0.804,0.805,0.806,0.807, &
& 0.808,0.809,0.81,0.811,0.812,0.813,0.814,0.815, &
& 0.816,0.817,0.818,0.819,0.82,0.821,0.822,0.823, &
& 0.824,0.825,0.826,0.827,0.828,0.829,0.83,0.831, &
& 0.832,0.833,0.834,0.835,0.836,0.837,0.838,0.839, &
& 0.84,0.841,0.842,0.843,0.844,0.845,0.846,0.847, &
& 0.848,0.849,0.85,0.851,0.852,0.853,0.854,0.855, &
& 0.856,0.857,0.858,0.859,0.86,0.861,0.862,0.863, &
& 0.864,0.865,0.866,0.867,0.868,0.869,0.87,0.871, &
& 0.872,0.873,0.874,0.875,0.876,0.877,0.878,0.879, &
& 0.88,0.881,0.882,0.883,0.884,0.885,0.886,0.887, &
& 0.888,0.889,0.89,0.891,0.892,0.893,0.894,0.895, &
& 0.896,0.897,0.898,0.899,0.9,0.901,0.902,0.903, &
& 0.904,0.905,0.906,0.907,0.908,0.909,0.91,0.911, &
& 0.912,0.913,0.914,0.915,0.916,0.917,0.918,0.919, &
& 0.92,0.921,0.922,0.923,0.924,0.925,0.926,0.927, &
& 0.928,0.929,0.93,0.931,0.932,0.933,0.934,0.935, &
& 0.936,0.937,0.938,0.939,0.94,0.941,0.942,0.943, &
& 0.944,0.945,0.946,0.947,0.948,0.949,0.95,0.951, &
& 0.952,0.953,0.954,0.955,0.956,0.957,0.958,0.959, &
& 0.96,0.961,0.962,0.963,0.964,0.965,0.966,0.967, &
& 0.968,0.969,0.97,0.971,0.972,0.973,0.974,0.975, &
& 0.976,0.977,0.978,0.979,0.98,0.981,0.982,0.983, &
& 0.984,0.985,0.986,0.987,0.988,0.989,0.99,0.991, &
& 0.992,0.993,0.994,0.995,0.996,0.997,0.998,0.999, &
& 1.0,1.001,1.002,1.003,1.004,1.005,1.006,1.007, &
& 1.008,1.009,1.01,1.011,1.012,1.013,1.014,1.015, &
& 1.016,1.017,1.018,1.019,1.02,1.021,1.022,1.023, &
& 1.024,1.025,1.026,1.027,1.028,1.029,1.03,1.031, &
& 1.032,1.033,1.034,1.035,1.036,1.037,1.038,1.039, &
& 1.04,1.041,1.042,1.043,1.044,1.045,1.046,1.047, &
& 1.048,1.049,1.05,1.051,1.052,1.053,1.054,1.055, &
& 1.056,1.057,1.058,1.059,1.06,1.061,1.062,1.063, &
& 1.064,1.065,1.066,1.067,1.068,1.069,1.07,1.071, &
& 1.072,1.073,1.074,1.075,1.076,1.077,1.078,1.079, &
& 1.08,1.081,1.082,1.083,1.084,1.085,1.086,1.087, &
& 1.088,1.089,1.09,1.091,1.092,1.093,1.094,1.095, &
& 1.096,1.097,1.098,1.099,1.1,1.101,1.102,1.103, &
& 1.104,1.105,1.106,1.107,1.108,1.109,1.11,1.111, &
& 1.112,1.113,1.114,1.115,1.116,1.117,1.118,1.119, &
& 1.12,1.121,1.122,1.123,1.124,1.125,1.126,1.127, &
& 1.128,1.129,1.13,1.131,1.132,1.133,1.134,1.135, &
& 1.136,1.137,1.138,1.139,1.14,1.141,1.142,1.143, &
& 1.144,1.145,1.146,1.147,1.148,1.149,1.15,1.151, &
& 1.152,1.153,1.154,1.155,1.156,1.157,1.158,1.159, &
& 1.16,1.161,1.162,1.163,1.164,1.165,1.166,1.167, &
& 1.168,1.169,1.17,1.171,1.172,1.173,1.174,1.175, &
& 1.176,1.177,1.178,1.179,1.18,1.181,1.182,1.183, &
& 1.184,1.185,1.186,1.187,1.188,1.189,1.19,1.191, &
& 1.192,1.193,1.194,1.195,1.196,1.197,1.198,1.199, &
& 1.2,1.201,1.202,1.203,1.204,1.205,1.206,1.207, &
& 1.208,1.209,1.21,1.211,1.212,1.213,1.214,1.215, &
& 1.216,1.217,1.218,1.219,1.22,1.221,1.222,1.223, &
& 1.224,1.225,1.226,1.227,1.228,1.229,1.23,1.231, &
& 1.232,1.233,1.234,1.235,1.236,1.237,1.238,1.239, &
& 1.24,1.241,1.242,1.243,1.244,1.245,1.246,1.247, &
& 1.248,1.249,1.25,1.251,1.252,1.253,1.254,1.255, &
& 1.256,1.257,1.258,1.259,1.26,1.261,1.262,1.263, &
& 1.264,1.265,1.266,1.267,1.268,1.269,1.27,1.271, &
& 1.272,1.273,1.274,1.275,1.276,1.277,1.278,1.279, &
& 1.28,1.281,1.282,1.283,1.284,1.285,1.286,1.287, &
& 1.288,1.289,1.29,1.291,1.292,1.293,1.294,1.295, &
& 1.296,1.297,1.298,1.299,1.3,1.301,1.302,1.303, &
& 1.304,1.305,1.306,1.307,1.308,1.309,1.31,1.311, &
& 1.312,1.313,1.314,1.315,1.316,1.317,1.318,1.319, &
& 1.32,1.321,1.322,1.323,1.324,1.325,1.326,1.327, &
& 1.328,1.329,1.33,1.331,1.332,1.333,1.334,1.335, &
& 1.336,1.337,1.338,1.339,1.34,1.341,1.342,1.343, &
& 1.344,1.345,1.346,1.347,1.348,1.349,1.35,1.351, &
& 1.352,1.353,1.354,1.355,1.356,1.357,1.358,1.359, &
& 1.36,1.361,1.362,1.363,1.364,1.365,1.366,1.367, &
& 1.368,1.369,1.37,1.371,1.372,1.373,1.374,1.375, &
& 1.376,1.377,1.378,1.379,1.38,1.381,1.382,1.383, &
& 1.384,1.385,1.386,1.387,1.388,1.389,1.39,1.391, &
& 1.392,1.393,1.394,1.395,1.396,1.397,1.398,1.399, &
& 1.4,1.401,1.402,1.403,1.404,1.405,1.406,1.407, &
& 1.408,1.409,1.41,1.411,1.412,1.413,1.414,1.415, &
& 1.416,1.417,1.418,1.419,1.42,1.421,1.422,1.423, &
& 1.424,1.425,1.426,1.427,1.428,1.429,1.43,1.431, &
& 1.432,1.433,1.434,1.435,1.436,1.437,1.438,1.439, &
& 1.44,1.441,1.442,1.443,1.444,1.445,1.446,1.447, &
& 1.448,1.449,1.45,1.451,1.452,1.453,1.454,1.455, &
& 1.456,1.457,1.458,1.459,1.46,1.461,1.462,1.463, &
& 1.464,1.465,1.466,1.467,1.468,1.469,1.47,1.471, &
& 1.472,1.473,1.474,1.475,1.476,1.477,1.478,1.479, &
& 1.48,1.481,1.482,1.483,1.484,1.485,1.486,1.487, &
& 1.488,1.489,1.49,1.491,1.492,1.493,1.494,1.495, &
& 1.496,1.497,1.498,1.499,1.5,1.501,1.502,1.503, &
& 1.504,1.505,1.506,1.507,1.508,1.509,1.51,1.511, &
& 1.512,1.513,1.514,1.515,1.516,1.517,1.518,1.519, &
& 1.52,1.521,1.522,1.523,1.524,1.525,1.526,1.527, &
& 1.528,1.529,1.53,1.531,1.532,1.533,1.534,1.535, &
& 1.536,1.537,1.538,1.539,1.54,1.541,1.542,1.543, &
& 1.544,1.545,1.546,1.547,1.548,1.549,1.55,1.551, &
& 1.552,1.553,1.554,1.555,1.556,1.557,1.558,1.559, &
& 1.56,1.561,1.562,1.563,1.564,1.565,1.566,1.567, &
& 1.568,1.569,1.57,1.571,1.572,1.573,1.574,1.575, &
& 1.576,1.577,1.578,1.579,1.58,1.581,1.582,1.583, &
& 1.584,1.585,1.586,1.587,1.588,1.589,1.59,1.591, &
& 1.592,1.593,1.594,1.595,1.596,1.597,1.598,1.599, &
& 1.6,1.601,1.602,1.603,1.604,1.605,1.606,1.607, &
& 1.608,1.609,1.61,1.611,1.612,1.613,1.614,1.615, &
& 1.616,1.617,1.618,1.619,1.62,1.621,1.622,1.623, &
& 1.624,1.625,1.626,1.627,1.628,1.629,1.63,1.631, &
& 1.632,1.633,1.634,1.635,1.636,1.637,1.638,1.639, &
& 1.64,1.641,1.642,1.643,1.644,1.645,1.646,1.647, &
& 1.648,1.649,1.65,1.651,1.652,1.653,1.654,1.655, &
& 1.656,1.657,1.658,1.659,1.66,1.661,1.662,1.663, &
& 1.664,1.665,1.666,1.667,1.668,1.669,1.67,1.671, &
& 1.672,1.673,1.674,1.675,1.676,1.677,1.678,1.679, &
& 1.68,1.681,1.682,1.683,1.684,1.685,1.686,1.687, &
& 1.688,1.689,1.69,1.691,1.692,1.693,1.694,1.695, &
& 1.696,1.697,1.698,1.699,1.7,1.701,1.702,1.703, &
& 1.704,1.705,1.706,1.707,1.708,1.709,1.71,1.711, &
& 1.712,1.713,1.714,1.715,1.716,1.717,1.718,1.719, &
& 1.72,1.721,1.722,1.723,1.724,1.725,1.726,1.727, &
& 1.728,1.729,1.73,1.731,1.732,1.733,1.734,1.735, &
& 1.736,1.737,1.738,1.739,1.74,1.741,1.742,1.743, &
& 1.744,1.745,1.746,1.747,1.748,1.749,1.75,1.751, &
& 1.752,1.753,1.754,1.755,1.756,1.757,1.758,1.759, &
& 1.76,1.761,1.762,1.763,1.764,1.765,1.766,1.767, &
& 1.768,1.769,1.77,1.771,1.772,1.773,1.774,1.775, &
& 1.776,1.777,1.778,1.779,1.78,1.781,1.782,1.783, &
& 1.784,1.785,1.786,1.787,1.788,1.789,1.79,1.791, &
& 1.792,1.793,1.794,1.795,1.796,1.797,1.798,1.799, &
& 1.8,1.801,1.802,1.803,1.804,1.805,1.806,1.807, &
& 1.808,1.809,1.81,1.811,1.812,1.813,1.814,1.815, &
& 1.816,1.817,1.818,1.819,1.82,1.821,1.822,1.823, &
& 1.824,1.825,1.826,1.827,1.828,1.829,1.83,1.831, &
& 1.832,1.833,1.834,1.835,1.836,1.837,1.838,1.839, &
& 1.84,1.841,1.842,1.843,1.844,1.845,1.846,1.847, &
& 1.848,1.849,1.85,1.851,1.852,1.853,1.854,1.855, &
& 1.856,1.857,1.858,1.859,1.86,1.861,1.862,1.863, &
& 1.864,1.865,1.866,1.867,1.868,1.869,1.87,1.871, &
& 1.872,1.873,1.874,1.875,1.876,1.877,1.878,1.879, &
& 1.88,1.881,1.882,1.883,1.884,1.885,1.886,1.887, &
& 1.888,1.889,1.89,1.891,1.892,1.893,1.894,1.895, &
& 1.896,1.897,1.898,1.899,1.9,1.901,1.902,1.903, &
& 1.904,1.905,1.906,1.907,1.908,1.909,1.91,1.911, &
& 1.912,1.913,1.914,1.915,1.916,1.917,1.918,1.919, &
& 1.92,1.921,1.922,1.923,1.924,1.925,1.926,1.927, &
& 1.928,1.929,1.93,1.931,1.932,1.933,1.934,1.935, &
& 1.936,1.937,1.938,1.939,1.94,1.941,1.942,1.943, &
& 1.944,1.945,1.946,1.947,1.948,1.949,1.95,1.951, &
& 1.952,1.953,1.954,1.955,1.956,1.957,1.958,1.959, &
& 1.96,1.961,1.962,1.963,1.964,1.965,1.966,1.967, &
& 1.968,1.969,1.97,1.971,1.972,1.973,1.974,1.975, &
& 1.976,1.977,1.978,1.979,1.98,1.981,1.982,1.983, &
& 1.984,1.985,1.986,1.987,1.988,1.989,1.99,1.991, &
& 1.992,1.993,1.994,1.995,1.996,1.997,1.998,1.999, &
& 2.0,2.001,2.002,2.003,2.004,2.005,2.006,2.007, &
& 2.008,2.009,2.01,2.011,2.012,2.013,2.014,2.015, &
& 2.016,2.017,2.018,2.019,2.02,2.021,2.022,2.023, &
& 2.024,2.025,2.026,2.027,2.028,2.029,2.03,2.031, &
& 2.032,2.033,2.034,2.035,2.036,2.037,2.038,2.039, &
& 2.04,2.041,2.042,2.043,2.044,2.045,2.046,2.047, &
& 2.048,2.049,2.05,2.051,2.052,2.053,2.054,2.055, &
& 2.056,2.057,2.058,2.059,2.06,2.061,2.062,2.063, &
& 2.064,2.065,2.066,2.067,2.068,2.069,2.07,2.071, &
& 2.072,2.073,2.074,2.075,2.076,2.077,2.078,2.079, &
& 2.08,2.081,2.082,2.083,2.084,2.085,2.086,2.087, &
& 2.088,2.089,2.09,2.091,2.092,2.093,2.094,2.095, &
& 2.096,2.097,2.098,2.099,2.1,2.101,2.102,2.103, &
& 2.104,2.105,2.106,2.107,2.108,2.109,2.11,2.111, &
& 2.112,2.113,2.114,2.115,2.116,2.117,2.118,2.119, &
& 2.12,2.121,2.122,2.123,2.124,2.125,2.126,2.127, &
& 2.128,2.129,2.13,2.131,2.132,2.133,2.134,2.135, &
& 2.136,2.137,2.138,2.139,2.14,2.141,2.142,2.143, &
& 2.144,2.145,2.146,2.147,2.148,2.149,2.15,2.151, &
& 2.152,2.153,2.154,2.155,2.156,2.157,2.158,2.159, &
& 2.16,2.161,2.162,2.163,2.164,2.165,2.166,2.167, &
& 2.168,2.169,2.17,2.171,2.172,2.173,2.174,2.175, &
& 2.176,2.177,2.178,2.179,2.18,2.181,2.182,2.183, &
& 2.184,2.185,2.186,2.187,2.188,2.189,2.19,2.191, &
& 2.192,2.193,2.194,2.195,2.196,2.197,2.198,2.199, &
& 2.2,2.201,2.202,2.203,2.204,2.205,2.206,2.207, &
& 2.208,2.209,2.21,2.211,2.212,2.213,2.214,2.215, &
& 2.216,2.217,2.218,2.219,2.22,2.221,2.222,2.223, &
& 2.224,2.225,2.226,2.227,2.228,2.229,2.23,2.231, &
& 2.232,2.233,2.234,2.235,2.236,2.237,2.238,2.239, &
& 2.24,2.241,2.242,2.243,2.244,2.245,2.246,2.247, &
& 2.248,2.249,2.25,2.251,2.252,2.253,2.254,2.255, &
& 2.256,2.257,2.258,2.259,2.26,2.261,2.262,2.263, &
& 2.264,2.265,2.266,2.267,2.268,2.269,2.27,2.271, &
& 2.272,2.273,2.274,2.275,2.276,2.277,2.278,2.279, &
& 2.28,2.281,2.282,2.283,2.284,2.285,2.286,2.287, &
& 2.288,2.289,2.29,2.291,2.292,2.293,2.294,2.295, &
& 2.296,2.297,2.298,2.299,2.3,2.301,2.302,2.303, &
& 2.304,2.305,2.306,2.307,2.308,2.309,2.31,2.311, &
& 2.312,2.313,2.314,2.315,2.316,2.317,2.318,2.319, &
& 2.32,2.321,2.322,2.323,2.324,2.325,2.326,2.327, &
& 2.328,2.329,2.33,2.331,2.332,2.333,2.334,2.335, &
& 2.336,2.337,2.338,2.339,2.34,2.341,2.342,2.343, &
& 2.344,2.345,2.346,2.347,2.348,2.349,2.35,2.351, &
& 2.352,2.353,2.354,2.355,2.356,2.357,2.358,2.359, &
& 2.36,2.361,2.362,2.363,2.364,2.365,2.366,2.367, &
& 2.368,2.369,2.37,2.371,2.372,2.373,2.374,2.375, &
& 2.376,2.377,2.378,2.379,2.38,2.381,2.382,2.383, &
& 2.384,2.385,2.386,2.387,2.388,2.389,2.39,2.391, &
& 2.392,2.393,2.394,2.395,2.396,2.397,2.398,2.399, &
& 2.4,2.401,2.402,2.403,2.404,2.405,2.406,2.407, &
& 2.408,2.409,2.41,2.411,2.412,2.413,2.414,2.415, &
& 2.416,2.417,2.418,2.419,2.42,2.421,2.422,2.423, &
& 2.424,2.425,2.426,2.427,2.428,2.429,2.43,2.431, &
& 2.432,2.433,2.434,2.435,2.436,2.437,2.438,2.439, &
& 2.44,2.441,2.442,2.443,2.444,2.445,2.446,2.447, &
& 2.448,2.449,2.45,2.451,2.452,2.453,2.454,2.455, &
& 2.456,2.457,2.458,2.459,2.46,2.461,2.462,2.463, &
& 2.464,2.465,2.466,2.467,2.468,2.469,2.47,2.471, &
& 2.472,2.473,2.474,2.475,2.476,2.477,2.478,2.479, &
& 2.48,2.481,2.482,2.483,2.484,2.485,2.486,2.487, &
& 2.488,2.489,2.49,2.491,2.492,2.493,2.494,2.495, &
& 2.496,2.497,2.498,2.499,2.5 /)
real :: solidbasaltalb(2101) = (/7.6783,7.7023,7.7254,7.7441,7.7678,7.7909,7.81,7.8264, &
& 7.8471,7.8694,7.8871,7.9076,7.9249,7.9438,7.9626,7.9851, &
& 8.0077,8.0268,8.0492,8.0728,8.0925,8.1234,8.1458,8.1717, &
& 8.2021,8.2248,8.2602,8.292,8.3191,8.3547,8.3816,8.4174, &
& 8.4524,8.4847,8.5208,8.5561,8.595,8.6279,8.6656,8.704, &
& 8.7383,8.7764,8.8112,8.8465,8.8869,8.9227,8.9621,8.9785, &
& 9.0108,9.0507,9.0837,9.1208,9.1468,9.1758,9.2107,9.2325, &
& 9.2592,9.285,9.3058,9.3269,9.3495,9.37,9.3812,9.4048, &
& 9.4266,9.4451,9.4647,9.4753,9.4924,9.5056,9.5214,9.5383, &
& 9.5528,9.5692,9.5831,9.6,9.618,9.6329,9.6451,9.6611, &
& 9.6825,9.6977,9.7171,9.7327,9.7558,9.78,9.8107,9.835, &
& 9.8689,9.9015,9.9317,9.9683,10.0039,10.0381,10.0778,10.1203, &
& 10.1593,10.2001,10.249,10.2942,10.3407,10.3865,10.4347,10.4852, &
& 10.5334,10.582,10.6385,10.6871,10.7422,10.7944,10.8533,10.8993, &
& 10.9554,11.0122,11.0648,11.1203,11.1744,11.2252,11.2838,11.3335, &
& 11.3887,11.445,11.498,11.5539,11.6085,11.6604,11.713,11.7647, &
& 11.8145,11.8651,11.9152,11.9692,12.0188,12.0674,12.1171,12.1619, &
& 12.2101,12.2569,12.3003,12.3401,12.385,12.4313,12.4691,12.5141, &
& 12.5559,12.5975,12.6351,12.6753,12.7146,12.7592,12.8001,12.8392, &
& 12.8775,12.9165,12.9592,12.9984,13.0372,13.0754,13.1171,13.1588, &
& 13.1957,13.2428,13.2927,13.3276,13.3675,13.4069,13.4456,13.484, &
& 13.5244,13.5673,13.6036,13.6414,13.6817,13.7213,13.7608,13.8003, &
& 13.8426,13.8845,13.9236,13.9634,14.0051,14.0425,14.0818,14.1237, &
& 14.1635,14.2021,14.2433,14.2843,14.3263,14.3664,14.4052,14.4456, &
& 14.4827,14.524,14.5635,14.6,14.6375,14.6746,14.7149,14.7495, &
& 14.7795,14.8195,14.8586,14.8976,14.9346,14.9728,15.0093,15.0438, &
& 15.0877,15.1265,15.1605,15.1937,15.2307,15.2663,15.3034,15.3425, &
& 15.3794,15.4158,15.4544,15.4948,15.5271,15.5613,15.6019,15.6399, &
& 15.6747,15.711,15.7497,15.7845,15.8209,15.8622,15.8997,15.936, &
& 15.9747,16.016,16.0564,16.0939,16.1283,16.1637,16.202,16.2449, &
& 16.2855,16.3206,16.3628,16.4018,16.4426,16.4891,16.5267,16.5671, &
& 16.608,16.6445,16.685,16.7301,16.7705,16.8102,16.8548,16.8948, &
& 16.9294,16.9754,17.025,17.0662,17.1064,17.1519,17.1928,17.2329, &
& 17.2741,17.3166,17.3638,17.4025,17.441,17.4852,17.5287,17.5652, &
& 17.6105,17.6571,17.6985,17.7365,17.7811,17.8222,17.8637,17.9056, &
& 17.9439,17.986,18.0247,18.0636,18.1039,18.1442,18.1799,18.2153, &
& 18.233,18.2607,18.2987,18.3313,18.3715,18.4075,18.4431,18.4762, &
& 18.5127,18.5552,18.5941,18.6201,18.6642,18.695,18.726,18.7548, &
& 18.7914,18.827,18.8606,18.8951,18.933,18.9651,18.993,19.029, &
& 19.0577,19.0871,19.1168,19.1405,19.182,19.2008,19.234,19.2512, &
& 19.2803,19.3014,19.336,19.3593,19.3789,19.4119,19.4386,19.457, &
& 19.4724,19.508,19.5282,19.5455,19.5635,19.5993,19.6149,19.6361, &
& 19.6569,19.6737,19.6937,19.7122,19.7345,19.7453,19.7645,19.7845, &
& 19.7973,19.8185,19.8398,19.86,19.8722,19.8808,19.9013,19.9138, &
& 19.9197,19.9367,19.9534,19.9597,19.9793,19.9765,19.9981,20.01, &
& 20.0189,20.0297,20.0388,20.0526,20.0591,20.0581,20.0856,20.0849, &
& 20.0874,20.1051,20.0978,20.1075,20.1164,20.118,20.1323,20.1347, &
& 20.1392,20.1518,20.1558,20.1683,20.1743,20.1728,20.1706,20.1689, &
& 20.1774,20.176,20.1872,20.1855,20.1829,20.1877,20.1818,20.1817, &
& 20.1967,20.1876,20.1682,20.1835,20.1863,20.2007,20.1893,20.2011, &
& 20.2026,20.2005,20.2004,20.1911,20.1985,20.1916,20.205,20.168, &
& 20.1731,20.1857,20.1625,20.1755,20.1685,20.1547,20.1626,20.1588, &
& 20.1594,20.1663,20.1593,20.1638,20.1734,20.1589,20.1639,20.1578, &
& 20.1449,20.1706,20.1352,20.1414,20.1132,20.1252,20.1146,20.0926, &
& 20.102,20.1082,20.0912,20.0934,20.0618,20.0574,20.0517,20.0345, &
& 20.0458,20.0601,20.0303,19.9994,19.9988,19.9881,19.9877,19.9615, &
& 19.934,19.9651,19.9553,19.9322,19.9185,19.8864,19.9018,19.9031, &
& 19.8996,19.8881,19.8694,19.8832,19.8459,19.6652,19.7934,19.7961, &
& 19.8654,19.8269,19.757,19.7244,19.7965,19.759,19.8038,19.7974, &
& 19.8234,19.7875,19.8745,19.7622,19.7709,19.7543,19.795,19.7343, &
& 19.7809,19.7168,19.7891,19.7364,19.7451,19.729,19.7981,19.7318, &
& 19.7833,19.752,19.7346,19.7422,19.7806,19.7523,19.8069,19.7157, &
& 19.6644,19.6786,19.7845,19.7663,19.7726,19.7099,19.7025,19.6655, &
& 19.7674,19.7383,19.7134,19.74,19.7351,19.6865,19.7067,19.75, &
& 19.7806,19.7085,19.7328,19.7475,19.7662,19.715,19.7154,19.7155, &
& 19.7685,19.7746,19.7651,19.7299,19.7118,19.71,19.7936,19.7788, &
& 19.7202,19.6988,19.6986,19.701,19.7474,19.7611,19.7162,19.687, &
& 19.7018,19.7293,19.6886,19.7031,19.7043,19.664,19.6477,19.6903, &
& 19.6642,19.6732,19.6486,19.6738,19.6451,19.6167,19.6395,19.6322, &
& 19.5959,19.5979,19.5594,19.6215,19.6271,19.6248,19.5533,19.5799, &
& 19.5459,19.6044,19.5281,19.6071,19.587,19.6176,19.5998,19.6521, &
& 19.5201,19.4637,19.4302,19.5569,19.5731,19.5782,19.5759,19.5726, &
& 19.5206,19.5592,19.5037,19.5133,19.4604,19.5136,19.4805,19.5325, &
& 19.536,19.5238,19.4869,19.5574,19.4593,19.5068,19.5208,19.5308, &
& 19.5257,19.5155,19.4222,19.4597,19.436,19.5028,19.4614,19.4438, &
& 19.4285,19.52,19.4066,19.5207,19.4486,19.4497,19.3796,19.4513, &
& 19.3758,19.4859,19.3919,19.3979,19.3275,19.4553,19.3632,19.4337, &
& 19.4219,19.4358,19.3373,19.5013,19.405,19.4597,19.3947,19.386, &
& 19.3625,19.4295,19.34,19.4015,19.3288,19.4833,19.3472,19.4437, &
& 19.3055,19.4473,19.3815,19.4234,19.3382,19.3771,19.2879,19.3968, &
& 19.3875,19.4304,19.2954,19.3417,19.2631,19.3526,19.2481,19.4617, &
& 19.3129,19.3109,19.2292,19.3875,19.313,19.3634,19.2336,19.3024, &
& 19.2926,19.3067,19.2812,19.3855,19.2954,19.2427,19.1888,19.3955, &
& 19.2697,19.4271,19.272,19.373,19.26,19.3812,19.1002,19.4311, &
& 19.2062,19.3171,19.1899,19.2705,19.143,19.397,19.3225,19.3121, &
& 19.2733,19.2847,19.1425,19.348,19.2489,19.3098,19.1693,19.3523, &
& 19.2282,19.3682,19.1983,19.28,19.1622,19.3234,19.2392,19.3089, &
& 19.2247,19.3025,19.2691,19.304,19.1439,19.2342,19.2744,19.3314, &
& 19.2212,19.282,19.2769,19.2412,19.1908,19.3058,19.241,19.3218, &
& 19.2696,19.2883,19.1934,19.2842,19.1873,19.2395,19.2321,19.2758, &
& 19.1787,19.2996,19.2436,19.228,19.1725,19.2204,19.2082,19.2199, &
& 19.2031,19.289,19.2073,19.2749,19.1515,19.1866,19.1461,19.1762, &
& 19.1308,19.1872,19.1296,19.1832,19.0314,19.1636,19.1264,19.1569, &
& 19.0887,19.1549,19.1165,19.0895,19.0399,19.1218,19.1161,19.1948, &
& 19.0731,19.0885,19.0489,19.1331,19.084,19.1442,19.054,19.0835, &
& 19.0469,19.1168,19.0804,19.0973,19.0223,19.0786,19.0471,19.038, &
& 19.0248,19.0954,19.0034,19.0701,19.0347,19.0642,19.0536,19.0649, &
& 19.0068,19.0678,19.0617,19.0374,18.9559,19.0709,19.0131,19.0168, &
& 18.9702,18.9858,19.0408,18.9821,18.8513,18.999,18.9878,18.9634, &
& 18.954,19.0174,18.96,18.9216,18.9056,18.9339,18.9478,18.9153, &
& 18.8959,18.945,18.9805,18.9496,18.907,18.9337,18.917,18.9288, &
& 18.9226,18.8931,18.9196,18.9071,18.8691,18.9465,18.9513,18.8988, &
& 18.8915,18.9229,18.9305,18.9057,18.906,18.9137,18.8891,18.8459, &
& 18.8658,18.8517,18.8667,18.8777,18.8681,18.8547,18.8741,18.8642, &
& 18.8707,18.831,18.8193,18.839,18.852,18.8289,18.8502,18.8226, &
& 18.9195,18.8658,18.8508,18.8211,18.84,18.8094,18.8711,18.7995, &
& 18.8437,18.8397,18.7912,18.7605,18.813,18.7516,18.8004,18.7278, &
& 18.7532,18.7706,18.7373,18.7274,18.8044,18.7722,18.777,18.7508, &
& 18.7491,18.7275,18.7409,18.688,18.7661,18.7152,18.7317,18.715, &
& 18.7716,18.7313,18.7179,18.6765,18.7428,18.6329,18.697,18.6423, &
& 18.6792,18.6906,18.7379,18.6523,18.6337,18.6471,18.7109,18.6919, &
& 18.6754,18.6375,18.6968,18.6288,18.6322,18.5937,18.6662,18.617, &
& 18.6531,18.6161,18.6309,18.5957,18.6266,18.5999,18.6577,18.5716, &
& 18.593,18.4742,18.6716,18.5482,18.5615,18.5241,18.579,18.5224, &
& 18.5691,18.5016,18.5841,18.5545,18.603,18.4927,18.5438,18.485, &
& 18.5178,18.4797,18.5852,18.4489,18.5748,18.5164,18.5513,18.3951, &
& 18.5066,18.4559,18.4925,18.4116,18.44,18.3653,18.3601,18.4183, &
& 18.4915,18.3767,18.4018,18.3307,18.4567,18.4015,18.3636,18.2849, &
& 18.4343,18.3965,18.3694,18.3233,18.4328,18.2564,18.3872,18.2731, &
& 18.3954,18.3242,18.426,18.1298,18.4634,18.2691,18.3301,18.1682, &
& 18.3532,18.1303,18.2677,18.2536,18.2689,18.1993,18.2858,18.1111, &
& 18.2982,18.23,18.1867,18.1387,18.2421,18.1998,18.2632,18.1026, &
& 18.1759,18.1414,18.2392,18.1271,18.1229,17.9513,18.154,17.9807, &
& 18.0481,17.8688,18.0049,17.7924,17.8895,17.7577,17.8247,17.6867, &
& 17.7744,17.5284,17.5595,17.4182,17.4835,17.4137,17.3933,17.2606, &
& 17.2476,17.1415,17.1086,16.9459,16.931,16.7917,16.8293,16.7056, &
& 16.7739,16.6625,16.6865,16.669,16.6355,16.5269,16.5453,16.5609, &
& 16.5211,16.5281,16.5586,16.4729,16.606,16.4998,16.5295,16.5439, &
& 16.621,16.5835,16.6869,16.6492,16.6703,16.6538,16.7043,16.7079, &
& 16.7694,16.6809,16.8111,16.8226,16.8464,16.7755,16.8629,16.9524, &
& 16.8964,16.9005,16.9499,16.8967,16.9667,16.9682,16.9878,16.9169, &
& 17.1034,17.049,17.0438,17.0238,17.0782,17.0659,17.1425,17.0588, &
& 17.0841,17.0365,17.0998,17.0919,17.0867,17.1471,17.1947,17.0492, &
& 17.1096,16.9928,17.0886,17.1108,17.152,17.1315,17.1637,17.0989, &
& 17.1599,17.1625,17.177,17.1614,17.1894,17.2095,17.2158,17.1978, &
& 17.2007,17.2193,17.2758,17.3307,17.3342,17.2528,17.2258,17.2611, &
& 17.3286,17.3011,17.3625,17.336,17.3095,17.3337,17.2949,17.2846, &
& 17.3349,17.3365,17.3613,17.3827,17.4018,17.3948,17.3637,17.3989, &
& 17.4214,17.4384,17.3967,17.4074,17.4197,17.3771,17.3872,17.4011, &
& 17.4295,17.4639,17.4034,17.4093,17.421,17.4278,17.3964,17.3938, &
& 17.3908,17.4475,17.4055,17.4481,17.433,17.4186,17.3764,17.3964, &
& 17.4443,17.5413,17.4899,17.4484,17.4208,17.4689,17.455,17.4508, &
& 17.3882,17.4655,17.4313,17.4266,17.4363,17.424,17.4073,17.4193, &
& 17.3783,17.4485,17.4133,17.4597,17.4013,17.4502,17.4265,17.4664, &
& 17.3895,17.4663,17.4013,17.422,17.4184,17.4809,17.3983,17.423, &
& 17.345,17.4495,17.4085,17.4508,17.4063,17.5077,17.4454,17.3962, &
& 17.4025,17.4255,17.3851,17.4383,17.3641,17.4497,17.3258,17.4245, &
& 17.3711,17.4551,17.4139,17.4578,17.3855,17.4449,17.3186,17.4019, &
& 17.399,17.4885,17.3812,17.4139,17.4401,17.441,17.2989,17.3737, &
& 17.3191,17.4423,17.4281,17.3713,17.3442,17.4714,17.3793,17.4329, &
& 17.3396,17.4019,17.3213,17.3591,17.3963,17.4165,17.3424,17.4153, &
& 17.3647,17.4714,17.291,17.4258,17.2981,17.4397,17.25,17.3634, &
& 17.2553,17.3853,17.2207,17.4444,17.3163,17.4012,17.2831,17.2916, &
& 17.2584,17.3561,17.2334,17.3252,17.3253,17.3792,17.2996,17.3588, &
& 17.2449,17.3087,17.2285,17.3177,17.3343,17.3359,17.2626,17.3649, &
& 17.352,17.1805,17.3277,17.3019,17.2582,17.3417,17.1838,17.3068, &
& 17.2062,17.31,17.2557,17.2866,17.1956,17.3431,17.2515,17.2938, &
& 17.1684,17.2901,17.1791,17.3272,17.1866,17.3142,17.1389,17.2425, &
& 17.1614,17.2375,17.1656,17.3385,17.0436,17.2278,17.1324,17.213, &
& 17.1266,17.2136,17.1485,17.1965,17.1368,17.2175,17.0659,17.2064, &
& 17.1961,17.1825,17.111,17.2328,17.0139,17.1638,17.1141,17.1083, &
& 17.1536,17.1187,17.1676,17.2225,17.0961,17.1396,17.1345,17.158, &
& 17.0331,17.1557,17.0863,17.1419,17.0237,17.0749,16.9948,17.0283, &
& 16.991,17.0176,17.0531,17.0562,17.0461,17.0955,16.9969,17.0546, &
& 17.0201,17.0489,16.9889,16.9995,16.9913,16.97,17.004,17.0929, &
& 16.9572,17.0339,16.8975,16.9548,16.9345,16.944,16.9365,16.9878, &
& 16.947,16.9463,16.9517,16.9904,16.9054,16.9887,16.9443,16.9515, &
& 16.8758,16.9313,16.8939,16.8964,16.9041,16.9101,16.8388,16.8727, &
& 16.8781,16.9125,16.8474,16.9104,16.8346,16.8503,16.8442,16.8599, &
& 16.8148,16.8648,16.8238,16.8329,16.7863,16.9013,16.8388,16.818, &
& 16.8196,16.8375,16.7895,16.8397,16.8129,16.811,16.7941,16.793, &
& 16.7602,16.766,16.741,16.7587,16.7736,16.7605,16.7347,16.7527, &
& 16.7337,16.7496,16.7508,16.7618,16.7748,16.7623,16.7696,16.7493, &
& 16.6689,16.6948,16.7536,16.723,16.7127,16.7147,16.6819,16.7238, &
& 16.7608,16.7086,16.6852,16.6555,16.6928,16.7468,16.7567,16.6988, &
& 16.6778,16.6504,16.667,16.6624,16.6619,16.6278,16.6679,16.6983, &
& 16.6998,16.6887,16.7163,16.6789,16.6929,16.6699,16.7047,16.6677, &
& 16.6671,16.6119,16.6374,16.6452,16.6284,16.5537,16.6707,16.5991, &
& 16.6197,16.5749,16.5873,16.6234,16.6152,16.5503,16.5846,16.5684, &
& 16.6285,16.6054,16.5786,16.5604,16.5513,16.5352,16.5683,16.5149, &
& 16.4561,16.4409,16.4708,16.4497,16.524,16.4997,16.5374,16.4341, &
& 16.4773,16.4231,16.4614,16.3714,16.4658,16.3528,16.4246,16.3905, &
& 16.3932,16.2495,16.3665,16.2524,16.3385,16.275,16.275,16.2231, &
& 16.2782,16.207,16.2604,16.1552,16.1942,16.047,16.0725,15.9923, &
& 15.9894,15.9247,15.8753,15.7476,15.7487,15.6739,15.7588,15.6157, &
& 15.6295,15.524,15.5056,15.2816,15.2495,15.1419,15.1077,14.9116, &
& 14.9214,14.6192,14.6042,14.3451,14.2681,14.063,14.0293,13.7088, &
& 13.6298,13.3513,13.28,13.0232,12.9602,12.8164,12.6389,12.4452, &
& 12.3744,12.1392,12.1083,11.979,12.0392,11.8257,12.013,11.8973, &
& 12.0513,11.9198,12.1038,11.9959,12.0643,12.054,12.1087,12.2356, &
& 12.291,12.2792,12.4515,12.41,12.5232,12.5464,12.5644,12.7519, &
& 12.7794,12.7793,12.9127,12.7582,12.9196,12.9297,12.9906,12.9757, &
& 13.0733,13.0346,13.1801,13.0694,13.206,13.1207,13.3054,13.3015, &
& 13.3397,13.1635,13.3504,13.2867,13.4658,13.3346,13.3999,13.3348, &
& 13.4708,13.3842,13.4401,13.4163,13.4801,13.4575,13.6278,13.4482, &
& 13.6062,13.5686,13.6827,13.5573,13.7335,13.6498,13.7413,13.7138, &
& 13.844,13.6897,13.8256,13.7802,13.8573,13.767,13.8656,13.7884, &
& 13.8612,13.8684,13.9985,13.9613,14.0297,13.9426,14.0254,13.9944, &
& 14.0583,14.038,14.1567,14.0494,14.1828,14.1471,14.2236,14.1155, &
& 14.2758,14.2749,14.2745,14.1954,14.3413,14.2676,14.3738,14.3916, &
& 14.4798,14.392,14.542,14.4349,14.4957,14.4856,14.5667,14.5024, &
& 14.615,14.5407,14.6181,14.6209,14.6498,14.655,14.7653,14.6792, &
& 14.6629,14.6855,14.7882,14.7546,14.7965,14.7614,14.8378,14.7443, &
& 14.8539,14.8129,14.8404,14.8146,14.8782,14.918,14.964,14.9103, &
& 14.9482,14.8822,14.9641,14.9148,14.9373,14.9696,14.9635,14.9037, &
& 14.9861,15.0142,14.9617,14.9722,15.0577,14.983,15.006,15.0017, &
& 15.0471,15.0606,15.0106,15.0688,15.1124,15.0376,15.045,15.0498, &
& 15.0709,15.0397,15.0158,15.0339,15.0576,15.0521,15.1105,15.1243, &
& 15.1265,15.1066,15.0752,15.1004,15.1369,15.0978,15.077,15.0985, &
& 15.1241,15.1081,15.0823,15.1054,15.1172,15.0953,15.0669,15.0408, &
& 15.0947,15.1031,15.0571,15.0728,15.0733,15.0767,15.0231,15.0348, &
& 15.0733,15.0381,15.0411,15.0966,15.0469,15.0676,15.0661,15.0473, &
& 15.003,15.0824,15.0742,15.036,15.0094,15.0871,15.0428,15.0614, &
& 15.0286,15.0789,15.1074,15.133,15.1337,15.1694,15.1432,15.1626, &
& 15.1229,15.1422,15.1035,15.1782,15.1963,15.1822,15.1878,15.2246, &
& 15.1332,15.2028,15.202,15.2621,15.2503,15.26,15.2014,15.3056, &
& 15.3077,15.3209,15.2819,15.3432,15.3122,15.3343,15.3173,15.3363, &
& 15.2285,15.2949,15.2535,15.3442,15.3185,15.3002,15.3087,15.3473, &
& 15.3251,15.3712,15.31,15.3307,15.2933,15.3632,15.3291,15.3186, &
& 15.2509,15.3634,15.3023,15.3488,15.3052,15.3015,15.321,15.3258, &
& 15.2286,15.3446,15.1942,15.3459,15.2171,15.3255,15.2522,15.2822, &
& 15.251,15.3155,15.1352,15.3304,15.1885,15.2972,15.1219,15.2758, &
& 15.1563,15.239,15.1742,15.1806,15.1554,15.2201,15.0605,15.1777, &
& 15.0495,15.1661,15.0544,15.1799,14.9959,15.1746,14.8835,15.0694, &
& 14.9888,15.0659,14.9505,15.0797,14.8983,15.0533,14.8656,14.9121, &
& 14.871,14.8565,14.7729,14.8337,14.7581,14.8116,14.719,14.7954, &
& 14.7452,14.799,14.7457,14.6031,14.7675,14.8065,14.6228,14.7971, &
& 14.5855,14.734,14.6644,14.7584,14.6071,14.7078,14.5494,14.726, &
& 14.5734,14.6056,14.5058,14.6553,14.5252,14.5796,14.4786,14.4692, &
& 14.5383,14.6084,14.5276,14.6198,14.451,14.559,14.4447,14.5302, &
& 14.375,14.4298,14.4441,14.4378,14.3019,14.4101,14.315,14.5364, &
& 14.3096,14.3634,14.2838,14.3329,14.3389,14.3616,14.2386,14.3737, &
& 14.2886,14.41,14.3186,14.4335,14.2819,14.3794,14.3339,14.3643, &
& 14.3114,14.3589,14.2497,14.302,14.2937,14.3256,14.2274,14.302, &
& 14.2859,14.2255,14.1761,14.1929,14.1241,14.2095,14.0697,14.0947, &
& 14.0102,14.0139,13.9531,13.99,13.9262,13.8947,13.8772,13.912, &
& 13.8054,13.854,13.794,13.7867,13.7323,13.7635,13.6646,13.7385, &
& 13.6923,13.7016,13.6758,13.7246,13.6314,13.6656,13.6381,13.6777, &
& 13.6121,13.6903,13.6519,13.654,13.701,13.7449,13.6589,13.7315, &
& 13.6686,13.7547,13.6997,13.7272,13.6896,13.7385,13.7043,13.6804, &
& 13.712,13.7658,13.7546,13.7581,13.7274,13.759,13.7085,13.7085, &
& 13.7033,13.7121,13.5974,13.6998,13.703,13.6919,13.653,13.6369, &
& 13.6458,13.6576,13.6498,13.6261,13.5768,13.6043,13.592,13.6046, &
& 13.5923,13.5834,13.5677,13.5493,13.5236,13.4615,13.3855,13.4489, &
& 13.449,13.3865,13.3618,13.3712,13.3665,13.33,13.3399,13.3527, &
& 13.3123,13.2751,13.2905,13.2914,13.2562,13.1592,13.1259,13.1808, &
& 13.1497,13.0985,13.1401,13.0767,13.0628,13.038,13.0038,13.0224, &
& 12.9876,12.8751,12.9215,12.9693,12.9753,12.884,12.919,12.8986, &
& 12.8766,12.8395,12.85,12.8481,12.843,12.7895,12.9167,12.8163, &
& 12.7447,12.7542,12.824,12.7791,12.7539,12.7735,12.8102,12.7291, &
& 12.7342,12.6937,12.728,12.599,12.6789,12.6659,12.7001,12.6537, &
& 12.6077,12.5516,12.6511,12.5667,12.6284,12.6223,12.5694,12.4814, &
& 12.6186,12.4564,12.5731,12.4328,12.5177,12.4162,12.5698,12.4175, &
& 12.4194,12.3638,12.3712,12.3383,12.3763,12.259,12.3736,12.2905, &
& 12.3999,12.2904,12.3088,12.2658,12.313,12.0775,12.1905,12.1638, &
& 12.1637,12.0704,12.2133,12.1279,12.1772,12.0704,12.1492,12.039, &
& 12.1428,12.0074,12.0632,11.9582,12.093,12.0433,11.9936,11.8554, &
& 11.854,11.8306,12.0633,11.7138,11.9203,11.7923,11.8249,11.7668, &
& 11.8816,11.7309,11.8979,11.5409,11.874,11.7925,11.8366,11.6405, &
& 11.7987,11.5423,11.6409,11.5416,11.8479,11.491,11.6074,11.5408, &
& 11.7121,11.5513,11.6039,11.4905,11.6605,11.3545,11.676,11.5564, &
& 11.5822,11.4175,11.7421,11.3587,11.6018,11.2915,11.6825,11.4838, &
& 11.0829,11.5903,11.3953,11.2443,11.3815 /)
plasim/src/specs/rock.igneous.intermediate.fine.all.andesite_h4.jhu.becknic.ancillary.txt
+31
View File
@@ -0,0 +1,31 @@
Name: Basaltic Andesite
Type: rock
Class: Igneous
Subclass: Intermediate
Particle Size: Fine
Sample No.: Andesite_H4
Owner: JHU
Wavelength Range: All
Origin: Agrigan Volcano, Mariana Is., via Smithsonian (Cat. No115263-19)
Collection Date: N/A
Description: A dark gray, porphyritic and vuggy rock. The phenocrysts are plagioclase laths, orangish-yellow olivine and opaques.Particle size was 0-75 micrometers. Original ASTER Spectral Library name was jhu.becknic.rock.igneous.intermediate.fine.andesi4.spectrum.txt
Composition:
Petrographic Description: None.
Microprobe Analysis: None.
Chemical Analysis: (analyzed by Robert J. Stern, Carnegie Geophysical
Laboratory)
SiO2 - 53.3
CaO 10.05
TiO2 0.73
Na2O 3.04
Al2O3 19.5
K2O 1.18
Fe2O3 3.5
P2O5 0.20
FeO 6.07
MnO 0.18
MgO 2.87
TOTAL 100.62
plasim/src/specs/rock.igneous.intermediate.fine.all.andesite_h4.jhu.becknic.spectrum.txt
+2865
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/rock.igneous.intermediate.fine.all.andesite_h4.jhu.becknic.spectrum_f90.txt
+714
View File
@@ -0,0 +1,714 @@
real :: wvandesitefine(2844) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0270,10.0470,10.0660,10.0860,10.1060,10.1250,10.1450,10.1650, &
& 10.1850,10.2050,10.2250,10.2450,10.2660,10.2860,10.3060,10.3270, &
& 10.3480,10.3680,10.3890,10.4100,10.4310,10.4520,10.4730,10.4940, &
& 10.5160,10.5370,10.5580,10.5800,10.6020,10.6230,10.6450,10.6670, &
& 10.6890,10.7110,10.7330,10.7550,10.7780,10.8000,10.8230,10.8460, &
& 10.8680,10.8910,10.9140,10.9370,10.9600,10.9830,11.0070,11.0300, &
& 11.0540,11.0770,11.1010,11.1250,11.1490,11.1730,11.1970,11.2210, &
& 11.2450,11.2700,11.2940,11.3190,11.3440,11.3690,11.3940,11.4190, &
& 11.4440,11.4690,11.4950,11.5200,11.5460,11.5720,11.5980,11.6240, &
& 11.6500,11.6760,11.7020,11.7290,11.7550,11.7820,11.8090,11.8360, &
& 11.8630,11.8900,11.9180,11.9450,11.9730,12.0000,12.0280,12.0560, &
& 12.0840,12.1130,12.1410,12.1690,12.1980,12.2270,12.2560,12.2850, &
& 12.3140,12.3430,12.3730,12.4020,12.4320,12.4620,12.4920,12.5220, &
& 12.5520,12.5830,12.6140,12.6440,12.6750,12.7060,12.7370,12.7690, &
& 12.8000,12.8320,12.8640,12.8960,12.9280,12.9600,12.9930,13.0260, &
& 13.0580,13.0910,13.1240,13.1580,13.1910,13.2250,13.2590,13.2930, &
& 13.3270,13.3610,13.3960,13.4300,13.4650,13.5000,13.5360,13.5710, &
& 13.6070,13.6430,13.6790,13.7150,13.7510,13.7880,13.8240,13.8610, &
& 13.899,13.936,13.973,14.011 /)
real :: andesitefine(2844) = (/17.473,17.611,17.686,17.656,17.671,17.626,17.86,17.815, &
& 17.8570,17.8570,17.8570,17.9290,18.0060,18.0210,17.9600,18.0920, &
& 18.1650,18.2760,18.3960,18.0870,18.2720,18.1370,18.2420,18.1960, &
& 18.2470,18.7610,18.5870,18.6540,18.5540,18.7610,18.6250,18.7120, &
& 18.8990,18.5260,18.5590,18.8160,18.6460,18.5440,18.7650,18.9150, &
& 19.0340,18.9500,18.9050,18.7660,18.8510,18.8840,18.8320,18.9830, &
& 19.0660,18.9950,19.3870,19.0310,18.9300,18.9600,19.1420,19.0600, &
& 19.0420,19.0240,19.0990,19.0740,18.8980,19.0740,18.9770,19.1290, &
& 18.9700,19.0660,19.0480,19.2430,19.2840,19.2250,19.1270,19.1270, &
& 19.1270,19.0650,19.2410,19.2230,19.3180,19.4160,19.3360,19.4560, &
& 19.2800,19.4560,19.5350,19.5310,19.4560,19.3580,19.4330,19.5510, &
& 19.5700,19.4560,19.7660,19.8040,19.8040,19.6490,19.4190,19.6300, &
& 19.7260,19.7640,19.7450,19.9210,19.8220,19.7070,19.6280,19.8420, &
& 19.6640,19.8390,19.8220,19.7640,19.8040,19.9170,19.9750,20.1300, &
& 20.2500,19.8390,19.8000,19.9960,19.9560,20.0150,20.1100,20.1100, &
& 20.2260,20.2290,19.9360,20.0910,20.1900,20.1340,20.2300,20.2300, &
& 20.3300,20.4470,20.3300,20.3100,20.2500,20.4070,20.4070,20.5810, &
& 20.4790,20.4590,20.5810,20.5220,20.3640,20.5400,20.4810,20.4790, &
& 20.4790,20.4950,20.4180,20.5930,20.6200,20.3030,20.4150,20.2020, &
& 20.4510,20.5310,20.6800,21.1550,21.0590,21.1210,21.0490,21.2370, &
& 21.1930,21.1070,21.0850,21.0640,21.0990,21.3640,21.4650,21.3780, &
& 21.3480,21.6120,21.6120,21.6340,21.7340,21.7440,21.8220,21.7870, &
& 21.7870,21.7200,21.5970,21.4170,21.3950,21.4830,21.5280,21.6390, &
& 21.7980,21.5830,21.6500,21.7980,21.7980,21.8210,21.7980,21.9000, &
& 21.9000,21.7310,21.8550,21.8320,21.7870,21.7870,21.8440,21.7990, &
& 21.8780,21.7660,21.7660,21.8670,21.7440,21.8000,22.0010,21.9780, &
& 21.8000,21.8670,21.9780,21.9560,21.7120,21.7120,21.9560,22.0340, &
& 22.0780,22.0010,22.0450,21.8780,21.9560,22.0560,22.0780,22.0560, &
& 22.0340,22.0780,22.0780,21.9340,21.9670,21.9340,22.0440,22.0990, &
& 22.1440,22.1210,21.9230,21.9450,22.0660,21.9230,22.1110,22.1330, &
& 22.0660,22.0660,21.9560,22.0220,21.9450,21.9450,22.0440,22.0220, &
& 21.9230,21.9670,22.2330,22.1780,22.0120,21.8580,21.9230,21.9230, &
& 21.8580,22.2210,22.0230,22.0230,22.2660,22.5640,22.3650,22.4100, &
& 22.3650,22.2080,22.0550,22.1990,22.1550,22.2980,22.1990,22.0230, &
& 22.3200,22.4100,22.4100,22.3210,22.3980,22.4520,22.2620,22.3610, &
& 22.3070,22.0570,22.2080,22.2330,22.2330,22.3210,22.4200,22.3540, &
& 22.4420,22.3530,22.3530,22.2540,22.1230,22.2440,22.3440,22.2440, &
& 22.2210,22.1880,22.2220,22.0150,22.1160,22.3320,22.4530,22.4350, &
& 22.2300,22.2730,22.1120,22.3010,22.0980,22.0230,22.1290,22.3690, &
& 22.1650,21.9470,21.9050,22.0900,22.0050,21.9050,22.1180,22.3890, &
& 22.2610,22.3260,22.3260,22.5620,22.3040,22.1400,22.5620,22.6560, &
& 22.3040,21.9800,22.1650,22.1010,21.8960,21.8960,22.0230,22.1190, &
& 22.5620,22.1400,22.2050,22.2830,22.3330,22.4750,22.3220,22.5930, &
& 22.3110,22.0980,22.0130,22.1630,22.1840,22.4100,22.2940,22.2690, &
& 22.4080,22.2690,21.9010,22.0130,22.2260,22.1190,22.4750,22.2260, &
& 22.2050,22.2050,22.3220,22.3650,22.3890,22.1840,22.2690,22.0340, &
& 22.2900,22.2690,22.2260,22.1410,22.1630,22.0710,22.1460,22.1920, &
& 22.1710,22.1670,21.8090,22.1340,21.9840,22.2720,22.1170,22.3050, &
& 22.1990,22.2410,22.3090,22.1000,22.1920,22.1500,22.1000,22.1420, &
& 22.2050,22.0960,22.1500,22.0540,22.0590,21.8810,21.9590,21.9590, &
& 22.2110,22.2300,22.2140,22.1620,22.0570,22.0390,21.9690,21.9150, &
& 21.8980,21.7910,21.7560,21.7200,21.6660,21.6480,21.5590,21.5760, &
& 21.3830,21.3490,21.3490,21.1550,21.0660,20.9100,20.9260,20.7880, &
& 20.7000,20.4740,20.4130,20.5560,20.3090,20.2200,20.1320,20.1320, &
& 20.1010,20.0760,19.9470,19.9150,19.7960,19.7960,19.7960,19.8120, &
& 19.6610,19.7070,19.6030,19.6450,19.7960,19.7330,19.7180,19.7440, &
& 19.8580,19.7340,19.7340,19.9000,19.8060,19.9670,20.0870,20.0720, &
& 20.2720,20.2970,20.2490,20.1850,20.2100,20.2890,20.3210,20.6030, &
& 20.6420,20.7310,20.8750,21.0790,21.0450,20.9900,21.1840,21.2630, &
& 21.2290,21.3520,21.4230,21.3860,21.3520,21.3350,21.4850,21.6790, &
& 21.7320,21.6970,21.9260,21.9970,22.0140,21.9080,21.7860,21.8470, &
& 21.8470,21.9000,21.9190,21.8840,22.0070,22.1620,21.9680,21.7440, &
& 21.9160,21.9510,21.9860,21.9930,22.0470,22.0650,22.0120,21.9230, &
& 22.1220,22.0670,22.0930,22.0390,21.9770,22.0140,22.0940,21.9320, &
& 21.8070,21.8250,21.9570,21.9390,21.9570,22.0840,21.9950,21.9050, &
& 21.9760,21.9040,21.9030,21.9380,21.8840,21.8670,21.8490,21.7430, &
& 21.7780,21.9150,21.8430,21.9110,21.9630,21.9810,22.0160,22.1370, &
& 22.1280,22.1820,22.1180,22.2160,22.1270,22.1950,22.1000,22.1810, &
& 22.1540,22.0300,21.9570,21.9200,21.8650,22.0990,22.1540,21.8650, &
& 22.1360,22.0990,22.0410,22.0930,22.1110,22.1290,22.1750,22.1750, &
& 22.2080,22.1530,22.1680,22.1490,22.0400,21.8980,21.9340,21.8640, &
& 21.9600,21.9600,21.8820,21.9410,21.9230,21.8720,21.7140,22.1100, &
& 22.0510,22.0660,22.1530,22.2090,22.3150,22.2460,22.2460,22.1720, &
& 22.1720,22.2270,22.2460,22.2460,22.1720,22.2010,22.2760,22.1390, &
& 22.2390,22.1510,22.1180,22.1140,22.0630,22.1370,22.3180,22.2480, &
& 22.3940,22.3940,22.2430,22.2060,22.1550,22.0150,22.0940,22.1920, &
& 22.1370,22.1400,22.1550,22.2110,22.1920,22.1920,22.1000,22.0190, &
& 22.0380,22.0560,22.0560,22.2140,22.1770,22.1960,22.2330,22.0190, &
& 22.0380,22.2140,22.2330,22.0150,22.1500,22.1170,22.1540,22.1540, &
& 22.0650,22.0650,22.0470,22.0610,22.0240,21.9020,21.8840,21.6880, &
& 21.7060,21.6880,21.6150,21.7920,21.7730,21.5240,21.6150,21.5970, &
& 21.8280,21.9070,21.7730,21.7730,21.8250,21.9020,21.7920,21.8470, &
& 21.9020,21.9760,21.7800,21.8720,21.7830,21.7280,21.6990,21.6100, &
& 21.4340,21.4760,21.5790,21.5150,21.6220,21.6500,21.6100,21.4950, &
& 21.7890,21.5400,21.5630,21.6060,21.5390,21.5350,21.4990,21.2220, &
& 21.2280,21.3570,21.4330,21.4500,21.7000,21.5960,21.7570,21.6630, &
& 21.6970,21.6220,21.5660,21.4760,21.4940,21.4410,21.4670,21.3300, &
& 21.3490,21.2970,21.3340,21.5150,21.5150,21.4780,21.5530,21.1960, &
& 21.2800,21.2800,21.3910,21.7040,21.6660,21.7040,21.7800,21.5770, &
& 21.6150,21.9150,21.8070,21.5250,21.5250,21.6180,21.6560,21.5990, &
& 21.5990,21.6740,21.5950,21.5420,21.5270,21.5520,21.5550,21.4940, &
& 21.5460,21.5860,21.5560,21.5410,21.5440,21.5270,21.5700,21.5870, &
& 21.5700,21.5940,21.5560,21.5260,21.4590,21.4460,21.5170,21.5000, &
& 21.4810,21.4570,21.4770,21.4940,21.4380,21.4960,21.6050,21.5670, &
& 21.5210,21.4570,21.3900,21.3790,21.4140,21.4430,21.4800,21.3780, &
& 21.3560,21.4430,21.4130,21.3520,21.3640,21.3320,21.3210,21.3710, &
& 21.3850,21.3730,21.3810,21.3980,21.3980,21.3890,21.4230,21.3640, &
& 21.3010,21.3110,21.3860,21.4510,21.4020,21.3270,21.4020,21.4030, &
& 21.2970,21.3020,21.2840,21.3140,21.3970,21.3120,21.2300,21.2720, &
& 21.3230,21.2790,21.2290,21.2230,21.3020,21.2640,21.2680,21.2870, &
& 21.2980,21.2720,21.2510,21.2490,21.3140,21.2920,21.2700,21.2530, &
& 21.2120,21.1960,21.2210,21.2300,21.2230,21.2740,21.2040,21.1190, &
& 21.1560,21.2220,21.2160,21.1640,21.1490,21.2290,21.3090,21.2470, &
& 21.2190,21.1800,21.0830,21.0680,21.1550,21.2060,21.1900,21.1690, &
& 21.1610,21.2170,21.1860,21.0860,21.1550,21.2130,21.1090,21.0700, &
& 21.1430,21.1140,21.0490,21.0490,21.0790,21.0290,21.0440,21.0820, &
& 21.0940,21.1680,21.1800,21.1170,21.0750,21.0850,21.0870,20.9830, &
& 20.9410,21.0000,21.0500,21.0810,21.0320,21.0000,21.0530,21.0050, &
& 20.9650,21.0220,21.0340,21.0410,21.0690,21.0050,20.9630,20.9850, &
& 20.9260,20.9150,21.0030,21.0640,21.0400,20.9980,21.0170,21.0040, &
& 20.9930,20.9210,20.9170,20.9410,20.9340,20.9350,20.9070,20.9230, &
& 20.9170,20.9550,20.9370,20.9630,20.9760,20.9360,20.9030,20.9000, &
& 20.9430,20.9240,20.8970,20.9390,21.0080,20.9390,20.9240,20.9410, &
& 20.9430,20.9620,20.9850,20.9610,20.9200,20.8810,20.8910,20.8960, &
& 20.9200,20.8530,20.8520,20.9560,21.0070,20.9490,20.9060,20.9400, &
& 20.9180,20.9090,20.8800,20.8510,20.9150,20.9410,20.9180,20.9230, &
& 20.9510,20.9370,20.9170,20.9670,20.9610,20.9810,21.0080,20.9460, &
& 20.9040,20.9730,20.9600,20.8860,20.9250,20.9840,20.9810,20.9430, &
& 20.9300,20.8960,20.8990,20.9220,20.9400,20.9070,20.8590,20.9310, &
& 20.9720,20.9210,20.9040,20.9320,20.9090,20.8330,20.8860,20.9440, &
& 20.9340,20.9340,20.9320,20.9440,20.9290,20.9410,20.9680,20.9260, &
& 20.9000,20.9350,21.0030,21.0130,21.0050,20.9440,20.9180,20.9340, &
& 20.9540,20.9520,20.9400,20.9510,20.9490,20.9800,20.9940,20.9740, &
& 20.8760,20.8500,20.8930,20.9030,20.9590,20.9300,20.9190,20.9940, &
& 21.0850,21.0180,20.9970,20.9820,20.9620,20.9660,20.9130,20.8750, &
& 20.9330,20.9720,20.9660,20.9330,20.9350,20.9210,20.9180,20.8940, &
& 20.9100,21.0610,21.0800,21.0380,21.0060,20.9790,20.9630,20.9060, &
& 21.0070,21.0760,21.0280,20.9820,21.0140,20.9980,20.9240,20.9870, &
& 21.0200,20.9790,20.9910,20.9730,21.0000,21.0460,21.0820,21.0250, &
& 21.0100,21.0330,21.0610,21.1000,21.0970,21.1030,21.1000,21.1180, &
& 21.1130,21.0360,21.0370,21.0480,20.9950,20.9850,21.0580,21.0200, &
& 21.0030,21.0070,21.0550,21.1290,21.0960,21.1180,21.1220,21.0460, &
& 21.0370,21.0600,21.1090,21.1220,21.0250,21.0430,21.1220,21.1480, &
& 21.1400,21.0450,21.0650,21.1410,21.1280,21.1410,21.1290,21.0630, &
& 21.1020,21.1480,21.1430,21.0940,21.0600,21.0690,21.1510,21.2110, &
& 21.1980,21.1390,21.1240,21.1920,21.2280,21.1600,21.1160,21.1280, &
& 21.2140,21.2360,21.2530,21.2610,21.1790,21.1490,21.1940,21.2250, &
& 21.2460,21.2240,21.2410,21.2950,21.3200,21.2810,21.2450,21.2430, &
& 21.2620,21.2740,21.2490,21.2800,21.3110,21.3370,21.3470,21.2990, &
& 21.2880,21.3230,21.3450,21.3060,21.2970,21.3740,21.3600,21.2790, &
& 21.3110,21.4040,21.4190,21.3640,21.3510,21.3690,21.3450,21.3130, &
& 21.3750,21.3730,21.3610,21.3650,21.3740,21.3720,21.3640,21.3820, &
& 21.3820,21.3990,21.3820,21.3060,21.3310,21.3990,21.4520,21.4470, &
& 21.3840,21.3880,21.4240,21.4560,21.4390,21.4270,21.4070,21.3790, &
& 21.4220,21.4360,21.4320,21.4990,21.4550,21.4420,21.3970,21.4110, &
& 21.4410,21.4590,21.5210,21.5930,21.5350,21.4840,21.4930,21.5780, &
& 21.5700,21.4680,21.4520,21.4430,21.4290,21.4940,21.5840,21.5750, &
& 21.5660,21.5640,21.5260,21.5000,21.5290,21.6060,21.5930,21.5520, &
& 21.5580,21.6030,21.6160,21.5770,21.5610,21.6310,21.6080,21.5460, &
& 21.5580,21.6170,21.5920,21.5310,21.5860,21.6420,21.5770,21.6320, &
& 21.6800,21.5920,21.5530,21.6030,21.6260,21.5990,21.5960,21.6090, &
& 21.6590,21.6420,21.6200,21.6090,21.6110,21.6360,21.5940,21.5860, &
& 21.6460,21.7190,21.7000,21.6970,21.6920,21.6730,21.7080,21.6970, &
& 21.6970,21.7130,21.6910,21.7070,21.7220,21.7330,21.7300,21.7320, &
& 21.7480,21.7630,21.7810,21.7580,21.7160,21.7600,21.8270,21.7700, &
& 21.7490,21.8030,21.7700,21.7720,21.8490,21.8710,21.8340,21.7970, &
& 21.7990,21.8040,21.7740,21.7740,21.7810,21.8200,21.8620,21.8190, &
& 21.7760,21.8050,21.8080,21.8180,21.8160,21.7960,21.8010,21.7990, &
& 21.8370,21.8410,21.8430,21.7620,21.7290,21.7640,21.7370,21.6920, &
& 21.7010,21.7010,21.7290,21.7530,21.7140,21.6280,21.6270,21.6780, &
& 21.7540,21.8030,21.7360,21.6380,21.6540,21.6770,21.6340,21.6110, &
& 21.6610,21.6800,21.6470,21.6120,21.6010,21.5840,21.5320,21.5250, &
& 21.4720,21.4300,21.4440,21.4140,21.3270,21.2900,21.2150,21.1180, &
& 21.1050,21.0710,21.0190,20.9040,20.7990,20.7550,20.7230,20.6950, &
& 20.6440,20.5940,20.5300,20.4770,20.4670,20.3990,20.3200,20.3180, &
& 20.2840,20.1970,20.1390,20.1020,20.0770,20.1150,20.1070,20.0990, &
& 20.0310,20.0070,19.9710,19.9050,19.8810,19.9300,19.9430,19.8820, &
& 19.8720,19.8950,19.8960,19.8510,19.8360,19.8280,19.7730,19.7760, &
& 19.8150,19.8160,19.7680,19.7400,19.7680,19.7220,19.6820,19.7070, &
& 19.7510,19.7220,19.6520,19.6350,19.6240,19.6540,19.6970,19.6820, &
& 19.6800,19.6880,19.6800,19.6910,19.6880,19.6810,19.6430,19.6610, &
& 19.7100,19.6720,19.6620,19.6540,19.6400,19.6510,19.6570,19.6730, &
& 19.7430,19.7280,19.6830,19.6740,19.7040,19.6800,19.6680,19.7250, &
& 19.7690,19.7500,19.6920,19.6850,19.7100,19.6930,19.6920,19.7240, &
& 19.6540,19.6390,19.7140,19.7540,19.7220,19.6920,19.6880,19.6870, &
& 19.7040,19.7360,19.7140,19.7210,19.7220,19.6940,19.7000,19.7070, &
& 19.6930,19.7040,19.7650,19.7910,19.7810,19.7010,19.6640,19.7430, &
& 19.7660,19.7610,19.7930,19.7740,19.7810,19.8310,19.7500,19.7210, &
& 19.7470,19.7520,19.7480,19.7270,19.7330,19.7700,19.8050,19.8230, &
& 19.8020,19.8060,19.7660,19.8260,19.8760,19.8180,19.7670,19.7670, &
& 19.7450,19.7400,19.7710,19.8260,19.8300,19.8330,19.7870,19.8100, &
& 19.8620,19.8320,19.8190,19.8090,19.8080,19.8230,19.8260,19.8150, &
& 19.8290,19.8470,19.8690,19.8620,19.8350,19.8590,19.9240,19.9380, &
& 19.9460,19.9500,19.9500,19.9210,19.8990,19.9250,19.9590,19.9810, &
& 19.9740,19.9430,19.9470,19.9700,19.9720,19.9790,20.0280,20.0350, &
& 20.0110,19.9790,19.9900,20.0380,20.0740,20.0680,20.0660,20.0750, &
& 20.0650,20.0850,20.1330,20.1580,20.1940,20.1820,20.1620,20.1430, &
& 20.1250,20.1810,20.2270,20.1870,20.1920,20.2240,20.2440,20.2480, &
& 20.2140,20.2090,20.2750,20.2890,20.2520,20.2750,20.3080,20.2690, &
& 20.2610,20.2790,20.2610,20.2720,20.3040,20.3240,20.3480,20.3290, &
& 20.2740,20.2840,20.3200,20.3180,20.3370,20.3170,20.3140,20.3470, &
& 20.3100,20.2880,20.3300,20.3890,20.3790,20.3530,20.3870,20.3970, &
& 20.3940,20.4050,20.3940,20.4000,20.4090,20.4210,20.4330,20.4240, &
& 20.4520,20.4860,20.4820,20.4780,20.4700,20.5120,20.5490,20.5720, &
& 20.5560,20.5010,20.4860,20.5660,20.6130,20.5760,20.5670,20.6040, &
& 20.6270,20.6090,20.6070,20.6220,20.6420,20.6980,20.6630,20.6430, &
& 20.6700,20.6720,20.6920,20.7300,20.7640,20.7380,20.7320,20.7580, &
& 20.7810,20.7740,20.7530,20.7800,20.8210,20.8290,20.8100,20.8040, &
& 20.7990,20.8100,20.8210,20.8420,20.8320,20.8270,20.8950,20.8960, &
& 20.8590,20.8540,20.8650,20.9150,20.9140,20.9090,20.9360,20.9440, &
& 20.9390,20.9850,21.0210,21.0130,20.9890,20.9690,20.9480,20.9760, &
& 21.0200,21.0250,21.0430,21.0200,20.9930,21.0140,21.0670,21.0790, &
& 21.0660,21.0740,21.0810,21.0740,21.0720,21.0910,21.1070,21.1210, &
& 21.1160,21.0930,21.1120,21.1360,21.1560,21.1650,21.1420,21.1630, &
& 21.1940,21.1960,21.1910,21.1800,21.1800,21.2160,21.2110,21.2060, &
& 21.2310,21.2020,21.1860,21.2100,21.2390,21.2510,21.2790,21.2610, &
& 21.2380,21.2810,21.2890,21.3000,21.2740,21.2430,21.2520,21.2690, &
& 21.2910,21.3260,21.3530,21.3330,21.3360,21.3390,21.3220,21.3200, &
& 21.3290,21.3400,21.3540,21.3520,21.3480,21.3440,21.3520,21.3720, &
& 21.3770,21.3820,21.4020,21.3970,21.4080,21.3990,21.3940,21.3890, &
& 21.3890,21.4240,21.4380,21.4140,21.4400,21.4280,21.4370,21.4500, &
& 21.4450,21.4240,21.4060,21.4070,21.4130,21.4230,21.4280,21.4290, &
& 21.4460,21.4580,21.4790,21.4880,21.4820,21.4630,21.4730,21.4830, &
& 21.5070,21.5220,21.5130,21.5100,21.5200,21.5000,21.4620,21.4810, &
& 21.5190,21.5160,21.5020,21.5100,21.5190,21.5020,21.4760,21.5090, &
& 21.5580,21.5680,21.5210,21.4930,21.4980,21.5160,21.5380,21.5050, &
& 21.4800,21.5230,21.5310,21.5370,21.5390,21.5350,21.5040,21.4970, &
& 21.5320,21.4930,21.4720,21.5170,21.5350,21.5200,21.5090,21.4920, &
& 21.4940,21.4990,21.5030,21.4920,21.4810,21.5060,21.5280,21.5170, &
& 21.5030,21.5030,21.5130,21.4790,21.4860,21.5330,21.5320,21.4880, &
& 21.4720,21.4940,21.4940,21.4750,21.4970,21.4810,21.4660,21.4680, &
& 21.4810,21.4990,21.4860,21.4500,21.4730,21.4590,21.4340,21.4490, &
& 21.4790,21.5030,21.4830,21.4860,21.4670,21.4530,21.4750,21.4760, &
& 21.4530,21.4460,21.4580,21.4650,21.4590,21.4540,21.4490,21.4560, &
& 21.4510,21.4370,21.4670,21.4470,21.4090,21.4210,21.4530,21.4250, &
& 21.4020,21.4410,21.4420,21.4220,21.4160,21.3970,21.3860,21.4220, &
& 21.4130,21.4040,21.4280,21.4280,21.4030,21.3900,21.3930,21.4100, &
& 21.4100,21.4000,21.3920,21.3760,21.3720,21.3890,21.4160,21.3960, &
& 21.3580,21.3660,21.3600,21.3760,21.3870,21.3630,21.3630,21.3570, &
& 21.3450,21.3270,21.3260,21.3510,21.3770,21.3620,21.3400,21.3420, &
& 21.3110,21.2890,21.3110,21.3430,21.3340,21.3240,21.3120,21.3140, &
& 21.3190,21.3010,21.2850,21.2680,21.2660,21.2930,21.3130,21.2840, &
& 21.2630,21.2660,21.2690,21.2660,21.2390,21.2300,21.2420,21.2250, &
& 21.2390,21.2590,21.2250,21.2270,21.2500,21.2300,21.2040,21.2010, &
& 21.2020,21.1900,21.1920,21.1990,21.1680,21.1590,21.1570,21.1640, &
& 21.1400,21.1490,21.1550,21.1500,21.1620,21.1560,21.1220,21.0840, &
& 21.1160,21.1380,21.0910,21.0770,21.1070,21.1010,21.0880,21.0860, &
& 21.0680,21.0480,21.0570,21.0550,21.0300,21.0130,21.0280,21.0300, &
& 21.0060,21.0050,21.0080,20.9980,21.0070,21.0030,20.9960,21.0150, &
& 20.9950,20.9760,20.9670,20.9570,20.9370,20.9210,20.9250,20.9430, &
& 20.9540,20.9580,20.9240,20.9140,20.9000,20.9170,20.9020,20.8870, &
& 20.8970,20.8960,20.8730,20.8710,20.8620,20.8440,20.8340,20.8290, &
& 20.8310,20.8260,20.8250,20.8160,20.7870,20.8040,20.8250,20.8040, &
& 20.7740,20.7750,20.7600,20.7260,20.7330,20.7550,20.7530,20.7100, &
& 20.7000,20.7210,20.7230,20.7020,20.6660,20.6680,20.6770,20.6770, &
& 20.6670,20.6650,20.6560,20.6180,20.5890,20.5960,20.6180,20.6420, &
& 20.6320,20.5850,20.5640,20.5710,20.5510,20.5510,20.5600,20.5270, &
& 20.5180,20.5240,20.5030,20.4780,20.4600,20.4510,20.4460,20.4440, &
& 20.4340,20.4140,20.4070,20.4170,20.4040,20.3800,20.3810,20.3890, &
& 20.3800,20.3570,20.3400,20.3180,20.2880,20.2810,20.2930,20.2650, &
& 20.2380,20.2310,20.2090,20.2230,20.2260,20.2000,20.1730,20.1410, &
& 20.1210,20.1090,20.0780,20.0590,20.0590,20.0290,20.0460,20.0490, &
& 20.0090,19.9630,19.9380,19.9100,19.8890,19.8960,19.9090,19.8770, &
& 19.8440,19.8520,19.8130,19.7860,19.8090,19.7840,19.7440,19.7290, &
& 19.7090,19.6810,19.6640,19.6630,19.6390,19.6260,19.6470,19.6420, &
& 19.6170,19.5870,19.5790,19.5880,19.5630,19.5340,19.5230,19.5330, &
& 19.5350,19.5140,19.4950,19.4870,19.4590,19.4490,19.4320,19.4100, &
& 19.3810,19.3640,19.3630,19.3160,19.2670,19.2870,19.2970,19.2450, &
& 19.2080,19.2110,19.2090,19.1700,19.1470,19.1410,19.1110,19.0780, &
& 19.0370,19.0010,18.9760,18.9670,18.9680,18.9630,18.9120,18.8700, &
& 18.8220,18.7770,18.7840,18.7710,18.7200,18.6990,18.6790,18.6520, &
& 18.6160,18.5760,18.5510,18.5390,18.5210,18.4690,18.4290,18.3720, &
& 18.3330,18.3260,18.2970,18.2780,18.2600,18.2300,18.1930,18.1560, &
& 18.1420,18.0930,18.0540,18.0390,18.0280,17.9940,17.9530,17.9330, &
& 17.9210,17.8790,17.8470,17.8240,17.7820,17.7540,17.7360,17.6970, &
& 17.6400,17.6140,17.6080,17.5750,17.5220,17.4850,17.4900,17.4770, &
& 17.4430,17.4220,17.3780,17.3440,17.3260,17.2950,17.2350,17.2040, &
& 17.1890,17.1700,17.1490,17.1430,17.1360,17.1050,17.0440,17.0120, &
& 16.9930,16.9320,16.8520,16.8260,16.8080,16.7700,16.7130,16.6760, &
& 16.6480,16.5960,16.5230,16.4700,16.4220,16.3870,16.3230,16.2500, &
& 16.2080,16.1420,16.0500,15.9740,15.9420,15.8890,15.8160,15.7510, &
& 15.7080,15.7110,15.6720,15.5970,15.5660,15.5280,15.4690,15.4320, &
& 15.3960,15.3400,15.3040,15.2900,15.2390,15.1960,15.1500,15.1180, &
& 15.0980,15.0570,15.0470,15.0500,15.0160,14.9620,14.9410,14.9260, &
& 14.8750,14.8250,14.8230,14.8290,14.8000,14.7810,14.7360,14.6760, &
& 14.6320,14.5850,14.5340,14.5190,14.4960,14.4290,14.3820,14.3490, &
& 14.2920,14.2490,14.2220,14.1660,14.1130,14.0710,13.9830,13.9360, &
& 13.8820,13.7910,13.7050,13.6660,13.6120,13.5360,13.4600,13.3750, &
& 13.2920,13.2110,13.1110,13.0040,12.9480,12.9060,12.8250,12.7350, &
& 12.6680,12.5940,12.5350,12.4830,12.4460,12.4060,12.3720,12.3300, &
& 12.2950,12.2740,12.2320,12.2060,12.1960,12.2090,12.2380,12.2400, &
& 12.2740,12.3040,12.3080,12.3280,12.3300,12.3190,12.3220,12.3090, &
& 12.2890,12.2810,12.2510,12.2390,12.2320,12.2090,12.1870,12.1530, &
& 12.1140,12.0860,12.0590,12.0770,12.0580,12.0040,11.9830,11.9510, &
& 11.8990,11.8620,11.8540,11.8190,11.7690,11.7460,11.7360,11.6950, &
& 11.6290,11.6120,11.6150,11.5550,11.4910,11.4610,11.4440,11.4010, &
& 11.3690,11.3570,11.3040,11.2730,11.2700,11.2180,11.1700,11.1480, &
& 11.1200,11.1080,11.0860,11.0550,11.0500,11.0320,10.9880,10.9510, &
& 10.9370,10.9080,10.8870,10.8750,10.8710,10.8500,10.7780,10.7420, &
& 10.7340,10.6960,10.6330,10.6340,10.6170,10.5840,10.5660,10.5190, &
& 10.4700,10.4490,10.4070,10.3660,10.3420,10.3260,10.2760,10.2000, &
& 10.1660,10.1220,10.0680,10.0010,9.9501,9.9281,9.8857,9.8395, &
& 9.8198,9.7670,9.6886,9.6164,9.5623,9.5364,9.4870,9.4280, &
& 9.3621,9.3056,9.2325,9.1800,9.1364,9.0743,9.0182,8.9862, &
& 8.9294,8.8889,8.8549,8.7813,8.7108,8.7093,8.6867,8.6290, &
& 8.5908,8.5734,8.5099,8.4802,8.4231,8.3592,8.3421,8.3250, &
& 8.2816,8.2472,8.2303,8.2067,8.2005,8.2130,8.2141,8.1963, &
& 8.2188,8.2402,8.2605,8.2755,8.2696,8.2769,8.3006,8.2929, &
& 8.2922,8.3171,8.3433,8.3514,8.3444,8.3580,8.4063,8.4288, &
& 8.4241,8.4012,8.4054,8.3995,8.3946,8.4202,8.4228,8.4042, &
& 8.4244,8.4206,8.3920,8.3803,8.3683,8.3496,8.3283,8.3226, &
& 8.3402,8.3250,8.3044,8.2810,8.2413,8.2038,8.1891,8.1537, &
& 8.1560,8.1525,8.1086,8.0941,8.0927,8.0594,8.0273,8.0135, &
& 7.9741,7.9327,7.9186,7.9192,7.9171,7.8792,7.8541,7.8304, &
& 7.8031,7.8127,7.7937,7.7587,7.7412,7.7023,7.7055,7.7192, &
& 7.6732,7.6524,7.6577,7.6610,7.6317,7.6005,7.5790,7.5394, &
& 7.5249,7.5056,7.4550,7.4171,7.3877,7.3488,7.3280,7.3228, &
& 7.2773,7.2070,7.1946,7.1709,7.1339,7.0901,7.0327,6.9893, &
& 6.9626,6.9291,6.8789,6.8299,6.7629,6.7345,6.7260,6.6782, &
& 6.6150,6.5688,6.5423,6.5086,6.4652,6.4233,6.3722,6.3384, &
& 6.3049,6.2337,6.1722,6.1376,6.0924,6.0506,6.0096,5.9498, &
& 5.8835,5.8141,5.7945,5.7377,5.6702,5.6187,5.5603,5.5254, &
& 5.4759,5.4156,5.3548,5.2950,5.2348,5.1876,5.1278,5.0733, &
& 4.9982,4.9359,4.9003,4.8473,4.7798,4.7275,4.6664,4.6075, &
& 4.5517,4.4868,4.3990,4.3387,4.3200,4.2496,4.1878,4.1285, &
& 4.0877,4.0291,3.9639,3.9077,3.8578,3.8049,3.7525,3.6972, &
& 3.6382,3.5772,3.5179,3.4605,3.3951,3.3276,3.2979,3.2951, &
& 3.2763,3.1997,3.1200,3.0748,3.0490,2.9868,2.9189,2.8870, &
& 2.8617,2.7940,2.7176,2.6784,2.6555,2.6210,2.5797,2.5720, &
& 2.5554,2.4954,2.4467,2.3880,2.3379,2.3067,2.2714,2.2671, &
& 2.2333,2.1654,2.1464,2.0862,1.9437,1.9517,2.0072,1.9812, &
& 1.9788,1.9833,1.9418,1.9135,1.9519,1.9629,1.9322,1.9652, &
& 1.9945,1.9995,2.0013,2.0395,2.0852,2.0867,2.0925,2.1418, &
& 2.1616,2.1907,2.2432,2.2692,2.3065,2.3156,2.2992,2.3320, &
& 2.3847,2.3700,2.3158,2.3330,2.3792,2.3917,2.4143,2.4766, &
& 2.5216,2.5090,2.4984,2.5205,2.5408,2.5645,2.5641,2.5554, &
& 2.5380,2.4933,2.4509,2.4928,2.5376,2.5132,2.5015,2.5308, &
& 2.5898,2.6023,2.5746,2.5514,2.5233,2.4787,2.5294,2.5533, &
& 2.5411,2.5774,2.6200,2.6356,2.6346,2.6571,2.6623,2.6381, &
& 2.6545,2.6595,2.6880,2.7485,2.7694,2.7467,2.8059,2.8629, &
& 2.7875,2.7743,2.8186,2.7996,2.7527,2.7593,2.7834,2.7389, &
& 2.6838,2.7862,2.7511,2.6241,2.5929,2.5434,2.5071,2.4834, &
& 2.4384,2.3871,2.4276,2.4649,2.4426,2.4182,2.4223,2.3529, &
& 2.3229,2.3707,2.4039,2.3749,2.4073,2.4556,2.4886,2.5008, &
& 2.4753,2.5015,2.5976,2.5945,2.5730,2.6124,2.6020,2.6158, &
& 2.6815,2.6981,2.6730,2.6771,2.7068,2.7276,2.7494,2.7855, &
& 2.7724,2.7309,2.6829,2.7358,2.8013,2.7626,2.7452,2.7654, &
& 2.7844,2.7551,2.7710,2.7790,2.7584,2.7771,2.7743,2.7476, &
& 2.6824,2.6273,2.6678,2.7204,2.7717,2.8090,2.8050,2.8139, &
& 2.8990,2.9121,2.8924,2.9381,2.9852,2.9655,2.9597,3.0300, &
& 3.0389,3.0228,2.9977,2.9564,3.0185,3.0989,3.0813,3.0556, &
& 3.0417,3.1212,3.1714,3.1549,3.1598,3.2100,3.1964,3.1873, &
& 3.2320,3.1863,3.1319,3.1596,3.2418,3.2339,3.2194,3.2515, &
& 3.1844,3.1312,3.2309,3.2691,3.2662,3.3059,3.3330,3.4101, &
& 3.4399,3.4259,3.4488,3.4753,3.4751,3.4976,3.5250,3.4950, &
& 3.4982,3.5489,3.5935,3.6394,3.5649,3.5137,3.5034,3.4865, &
& 3.5990,3.6204,3.6014,3.6804,3.7223,3.8719,3.9325,3.9743, &
& 3.9792,3.9316,3.9820,4.0772,4.1585,4.3205,4.3938,4.4156, &
& 4.4817,4.4751,4.3378,4.2891,4.2896,4.2727,4.1508,3.8590, &
& 3.7376,3.5388,3.1985,2.9508,2.6977,2.6208,2.6316,2.3327, &
& 2.0700,2.1382,2.3301,2.1694,2.0377,2.0620,1.8958,1.7320, &
& 1.8438,1.7871,1.8164,1.8722,1.6228,1.3097,1.1414,1.3865, &
& 1.5891,1.7439,1.5844,1.3982,1.5724,1.4855,1.4742,1.6847, &
& 1.6676,1.0917,1.1499,1.9164,1.8220,1.3716,1.4460,1.0727, &
& 0.9696,1.6875,2.0963,0.9947,0.3867,0.9187,1.1686,0.8250, &
& 1.394,1.0013,0.1767,0.0619 /)
plasim/src/specs/rock.igneous.intermediate.fine.all.andesite_h4.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: andesitefine(965) = (/17.473,17.473,17.473,17.473,17.473,17.473,17.473,17.857, &
& 18.2720,18.6250,19.0340,19.3870,18.8980,19.1270,19.2800,19.7660, &
& 19.8220,19.9750,20.2260,20.3300,20.3640,20.4150,21.1930,21.6120, &
& 21.3950,21.7980,21.8780,21.9780,21.9560,22.0440,22.0660,22.2330, &
& 22.2660,22.1990,22.3070,22.3530,22.1160,22.1290,22.2610,22.1650, &
& 22.3330,22.2940,22.2050,22.2260,21.9840,22.1000,22.2110,22.0390, &
& 21.7560,21.5760,21.0660,20.4740,20.1320,19.9150,19.6610,19.7330, &
& 19.7340,20.0720,20.2100,20.7310,21.1840,21.3860,21.7320,21.9080, &
& 21.9190,21.7440,22.0470,22.0670,22.0940,21.9390,21.9760,21.8670, &
& 21.8430,22.1370,22.1270,22.0300,22.1540,22.0930,22.2080,21.8980, &
& 21.8820,22.1100,22.3150,22.2270,22.2760,22.1140,22.3940,22.0150, &
& 22.1550,22.0190,22.1770,22.2140,22.1540,22.0610,21.7060,21.5240, &
& 21.7730,21.8470,21.7830,21.4760,21.6100,21.6060,21.2280,21.5960, &
& 21.5660,21.3300,21.5150,21.2800,21.7800,21.5250,21.6459,21.4720, &
& 21.3803,21.2510,21.2683,21.0860,20.9738,21.0132,20.9250,20.8849, &
& 20.9378,20.9330,20.8938,20.8974,20.9440,20.9280,20.9450,20.9590, &
& 20.9371,20.8940,21.0277,20.9862,21.0929,20.9998,21.1160,21.1148, &
& 21.0750,21.2034,21.2213,21.2240,21.2581,21.3385,21.3869,21.3650, &
& 21.3143,21.4461,21.4623,21.5398,21.4290,21.5290,21.5622,21.5768, &
& 21.6172,21.6098,21.6966,21.7033,21.7739,21.7751,21.7948,21.7967, &
& 21.8373,21.6952,21.6598,21.6432,21.5852,21.3270,20.8965,20.5265, &
& 20.1970,20.0407,19.9023,19.8023,19.7588,19.6373,19.6837,19.7052, &
& 19.6677,19.6784,19.7000,19.7140,19.7160,19.7048,19.7060,19.7753, &
& 19.7505,19.8125,19.7880,19.8286,19.8231,19.8241,19.8972,19.9106, &
& 19.9444,20.0308,20.0684,20.1506,20.1468,20.2442,20.2643,20.2740, &
& 20.3322,20.3303,20.3230,20.3962,20.4172,20.4818,20.5653,20.5857, &
& 20.6070,20.6497,20.7523,20.7607,20.8055,20.8331,20.8543,20.9360, &
& 21.0130,21.0200,21.0130,21.0800,21.1177,21.1484,21.1950,21.2146, &
& 21.1871,21.2644,21.2864,21.2977,21.3386,21.3470,21.3538,21.3986, &
& 21.3890,21.4332,21.4395,21.4203,21.4617,21.4689,21.5130,21.4686, &
& 21.5076,21.5090,21.4945,21.4909,21.5387,21.5304,21.5317,21.4961, &
& 21.4945,21.5030,21.5232,21.4905,21.4823,21.4983,21.4596,21.5020, &
& 21.4541,21.4471,21.4552,21.4413,21.4159,21.4185,21.4109,21.4123, &
& 21.4059,21.4100,21.3744,21.3904,21.3736,21.3597,21.3316,21.3424, &
& 21.3008,21.3223,21.3055,21.2747,21.2653,21.2544,21.2256,21.2259, &
& 21.2049,21.1908,21.1602,21.1428,21.1587,21.0883,21.0838,21.0897, &
& 21.0501,21.0204,21.0092,20.9995,21.0046,20.9696,20.9215,20.9548, &
& 20.9081,20.8928,20.8775,20.8446,20.8304,20.8087,20.8171,20.7677, &
& 20.7457,20.7034,20.7079,20.6748,20.6654,20.5943,20.6376,20.5683, &
& 20.5510,20.5204,20.4861,20.4479,20.4234,20.4114,20.3835,20.3536, &
& 20.2876,20.2674,20.2147,20.2111,20.1332,20.0747,20.0298,20.0198, &
& 19.9240,19.8992,19.8449,19.7940,19.7678,19.7061,19.6632,19.6356, &
& 19.6138,19.5859,19.5297,19.5344,19.4899,19.4451,19.3862,19.3437, &
& 19.2865,19.2260,19.2061,19.1434,19.0729,18.9854,18.9674,18.8864, &
& 18.7777,18.7424,18.6790,18.5975,18.5404,18.4563,18.3435,18.2947, &
& 18.2443,18.1595,18.0821,18.0319,17.9530,17.9073,17.8320,17.7547, &
& 17.6802,17.6104,17.5280,17.4876,17.4335,17.3538,17.2957,17.2007, &
& 17.1607,17.1383,17.0508,16.9864,16.8441,16.7894,16.6881,16.6039, &
& 16.4700,16.3761,16.2372,16.1009,15.9556,15.8377,15.7162,15.6753, &
& 15.5660,15.4659,15.3867,15.3006,15.2258,15.1389,15.0816,15.0483, &
& 14.9912,14.9338,14.8500,14.8260,14.7905,14.7066,14.6099,14.5272, &
& 14.4684,14.3697,14.2785,14.2069,14.1049,13.9767,13.8785,13.7083, &
& 13.6191,13.4775,13.3202,13.1563,12.9808,12.8820,12.7251,12.5940, &
& 12.4907,12.4179,12.3494,12.2874,12.2273,12.1960,12.2323,12.2606, &
& 12.3056,12.3284,12.3194,12.3123,12.2849,12.2476,12.2312,12.1919, &
& 12.1328,12.0790,12.0767,12.0198,11.9692,11.8940,11.8552,11.7919, &
& 11.7436,11.6984,11.6188,11.5990,11.4953,11.4508,11.3926,11.3582, &
& 11.2867,11.2598,11.1785,11.1354,11.1066,11.0645,11.0448,10.9923, &
& 10.9440,10.9060,10.8788,10.8654,10.7894,10.7387,10.6972,10.6335, &
& 10.6140,10.5725,10.5100,10.4548,10.3969,10.3472,10.3108,10.2138, &
& 10.1513,10.0769,9.9835,9.9317,9.8705,9.8233,9.7436,9.6323, &
& 9.5558,9.5013,9.4165,9.3264,9.2279,9.1566,9.0761,9.0049, &
& 8.9383,8.8797,8.8034,8.7106,8.6974,8.6323,8.5849,8.5260, &
& 8.4723,8.3894,8.3435,8.3119,8.2585,8.2290,8.2042,8.2103, &
& 8.2117,8.2076,8.2370,8.2633,8.2724,8.2759,8.2991,8.2925, &
& 8.3135,8.3448,8.3479,8.3555,8.4089,8.4268,8.4074,8.4053, &
& 8.3980,8.4099,8.4225,8.4075,8.4227,8.4003,8.3806,8.3638, &
& 8.3390,8.3240,8.3400,8.3199,8.2927,8.2516,8.2047,8.1817, &
& 8.1547,8.1537,8.1135,8.0940,8.0821,8.0424,8.0172,7.9765, &
& 7.9308,7.9188,7.9181,7.8900,7.8568,7.8285,7.8056,7.8047, &
& 7.7727,7.7453,7.7050,7.7068,7.7080,7.6648,7.6553,7.6600, &
& 7.6364,7.6012,7.5745,7.5358,7.5177,7.4800,7.4314,7.3953, &
& 7.3544,7.3285,7.3193,7.2640,7.2033,7.1852,7.1528,7.1084, &
& 7.0514,6.9997,6.9667,6.9316,6.8789,6.8249,6.7586,6.7326, &
& 6.7123,6.6562,6.5963,6.5565,6.5249,6.4839,6.4394,6.3898, &
& 6.3486,6.3136,6.2498,6.1842,6.1433,6.0985,6.0553,6.0134, &
& 5.9541,5.8875,5.8169,5.7951,5.7394,5.6716,5.6197,5.5615, &
& 5.5264,5.4774,5.4180,5.3584,5.2991,5.2401,5.1927,5.1359, &
& 5.0818,5.0121,4.9497,4.9093,4.8626,4.8019,4.7469,4.6917, &
& 4.6344,4.5233,4.4528,4.3793,4.3338,4.3055,4.2409,4.1834, &
& 4.1285,4.0904,4.0377,3.9784,3.9247,3.8770,3.7816,3.7329, &
& 3.6816,3.6278,3.5729,3.5195,3.4677,3.4103,3.3505,3.3112, &
& 3.2888,3.2595,3.1919,3.1214,3.0811,3.0560,3.0114,2.9078, &
& 2.8815,2.8564,2.7981,2.7327,2.6918,2.6429,2.6122,2.5792, &
& 2.5727,2.5594,2.5196,2.4304,2.3822,2.3404,2.3137,2.2852, &
& 2.2582,2.2277,2.1721,2.1517,2.0352,1.9451,1.9516,1.9956, &
& 1.9802,1.9797,1.9830,1.9498,1.9287,1.9540,1.9627,1.9392, &
& 1.9753,1.9951,1.9990,2.0007,2.0505,2.0852,2.0864,2.1084, &
& 2.1436,2.1587,2.2106,2.2467,2.2664,2.2935,2.3130,2.3008, &
& 2.3205,2.3826,2.3716,2.3221,2.3378,2.3717,2.3986,2.4166, &
& 2.4620,2.5189,2.5097,2.5020,2.5225,2.5370,2.5644,2.5641, &
& 2.5583,2.5342,2.5027,2.4588,2.4881,2.5307,2.5137,2.5053, &
& 2.5341,2.5747,2.5989,2.5801,2.5466,2.5275,2.4890,2.5232, &
& 2.5506,2.5424,2.5871,2.6155,2.6354,2.6347,2.6581,2.6615, &
& 2.6408,2.6515,2.6628,2.6813,2.7497,2.7631,2.7471,2.8208, &
& 2.8571,2.7853,2.7770,2.8175,2.7849,2.7556,2.7638,2.7788, &
& 2.7365,2.7121,2.7749,2.7364,2.6589,2.5946,2.5377,2.5158, &
& 2.4843,2.4301,2.3994,2.4257,2.4619,2.4487,2.4205,2.4166, &
& 2.3454,2.3280,2.3704,2.3996,2.3829,2.4032,2.4562,2.4905, &
& 2.4974,2.4789,2.5011,2.5973,2.5897,2.5777,2.6082,2.6020, &
& 2.6223,2.6848,2.6938,2.6771,2.6768,2.7069,2.7294,2.7550, &
& 2.7826,2.7756,2.7384,2.6887,2.7322,2.7999,2.7621,2.7466, &
& 2.7674,2.7800,2.7576,2.7726,2.7749,2.7623,2.7764,2.7676, &
& 2.7313,2.6987,2.6374,2.6810,2.7326,2.7792,2.8082,2.8067, &
& 2.8261,2.9003,2.9102,2.8946,2.9381,2.9830,2.9674,2.9605, &
& 3.0166,3.0358,3.0192,2.9939,2.9564,3.0129,3.0874,3.0755, &
& 3.0537,3.0453,3.1176,3.1646,3.1560,3.1644,3.2100,3.1982, &
& 3.1954,3.2280,3.1883,3.1414,3.1703,3.2418,3.2349,3.2236, &
& 3.2515,3.1956,3.1437,3.2267,3.2611,3.2679,3.3009,3.3426, &
& 3.4069,3.4371,3.4259,3.4450,3.4753,3.4751,3.4987,3.5206, &
& 3.4951,3.4977,3.5506,3.5849,3.6394,3.5570,3.5176,3.5021, &
& 3.4891,3.5990,3.6175,3.6029,3.6820,3.7500,3.8608,3.9340, &
& 3.9750,3.9787,3.9316,3.9891,4.0917,4.1498,4.3205,4.3954, &
& 4.4250,4.4723,4.4758,4.3427,4.2891,4.2884,4.2601,4.1106, &
& 3.9093,3.7543,3.5594,3.2325,2.9679,2.7146,2.6259,2.6309, &
& 2.3526,2.0875,2.1316,2.3053,2.1908,2.0416,2.0406,1.8804, &
& 1.7356,1.8438,1.7906,1.8127,1.8410,1.6032,1.3097,1.1567, &
& 1.4118,1.5985,1.7392,1.6037,1.4088,1.5671,1.4983,1.4804, &
& 1.6661,1.6168,1.1086,1.2401,1.9164,1.7577,1.3716,1.4033, &
& 1.0834,1.0294,1.6277,2.0657,1.1477,0.4036,0.9326,1.1408, &
& 0.8343,1.3834,0.9122,0.2436,0.0649 /)
plasim/src/specs/rock.igneous.intermediate.solid.all.andesite_h4.jhu.becknic.ancillary.txt
+31
View File
@@ -0,0 +1,31 @@
Name: Basaltic Andesite
Type: rock
Class: Igneous
Subclass: Intermediate
Particle Size: Solid
Sample No.: Andesite_H4
Owner: JHU
Wavelength Range: All
Origin: Agrigan Volcano, Mariana Is., via Smithsonian (Cat. No115263-19)
Collection Date: N/A
Description: A dark gray, porphyritic and vuggy rock. The phenocrysts are plagioclase laths, orangish-yellow olivine and opaques. Original ASTER Spectral Library name was jhu.becknic.rock.igneous.intermediate.solid.andesi4.spectrum.txt
Composition:
Petrographic Description: None.
Microprobe Analysis: None.
Chemical Analysis: (analyzed by Robert J. Stern, Carnegie Geophysical
Laboratory)
SiO2 - 53.3
CaO 10.05
TiO2 0.73
Na2O 3.04
Al2O3 19.5
K2O 1.18
Fe2O3 3.5
P2O5 0.20
FeO 6.07
MnO 0.18
MgO 2.87
TOTAL 100.62
plasim/src/specs/rock.igneous.intermediate.solid.all.andesite_h4.jhu.becknic.spectrum.txt
+2865
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/rock.igneous.intermediate.solid.all.andesite_h4.jhu.becknic.spectrum_f90.txt
+714
View File
@@ -0,0 +1,714 @@
real :: wvandesitesolid(2844) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0274,10.0468,10.0663,10.0859,10.1056,10.1253,10.1451,10.1650, &
& 10.1850,10.2050,10.2251,10.2454,10.2656,10.2860,10.3065,10.3270, &
& 10.3476,10.3683,10.3891,10.4099,10.4309,10.4519,10.4730,10.4942, &
& 10.5155,10.5369,10.5584,10.5799,10.6015,10.6233,10.6451,10.6670, &
& 10.6890,10.7111,10.7332,10.7555,10.7779,10.8003,10.8229,10.8455, &
& 10.8682,10.8911,10.9140,10.9370,10.9602,10.9834,11.0067,11.0301, &
& 11.0536,11.0773,11.1010,11.1248,11.1487,11.1727,11.1969,11.2211, &
& 11.2455,11.2699,11.2944,11.3191,11.3439,11.3688,11.3937,11.4188, &
& 11.4440,11.4694,11.4948,11.5203,11.5460,11.5718,11.5977,11.6237, &
& 11.6498,11.6760,11.7024,11.7289,11.7555,11.7822,11.8090,11.8360, &
& 11.8631,11.8903,11.9176,11.9450,11.9726,12.0003,12.0282,12.0562, &
& 12.0843,12.1125,12.1409,12.1694,12.1980,12.2268,12.2557,12.2847, &
& 12.3139,12.3432,12.3727,12.4023,12.4320,12.4619,12.4919,12.5221, &
& 12.5524,12.5829,12.6135,12.6443,12.6752,12.7063,12.7375,12.7688, &
& 12.8004,12.8321,12.8639,12.8959,12.9281,12.9604,12.9929,13.0255, &
& 13.0583,13.0913,13.1244,13.1577,13.1912,13.2249,13.2587,13.2927, &
& 13.3269,13.3612,13.3957,13.4304,13.4653,13.5004,13.5356,13.5711, &
& 13.6067,13.6425,13.6785,13.7147,13.7511,13.7876,13.8244,13.8614, &
& 13.8985,13.9359,13.9734,14.0112 /)
real :: andesitesolid(2844) = (/8.5157,8.665,8.3332,8.4721,8.4604,8.5441,8.8068,8.7612, &
& 8.4512,8.5736,8.8603,8.6942,8.5915,8.4711,8.7234,8.8427, &
& 9.0236,8.8665,8.8009,8.8570,9.0040,8.9794,9.0597,9.3552, &
& 9.0317,8.9485,9.1597,9.2870,9.3136,9.0686,9.1913,9.2697, &
& 9.3534,9.1994,9.2871,9.3831,9.3412,9.3604,9.6036,9.2749, &
& 9.4962,9.8077,9.8227,9.7553,9.6829,9.4629,9.5001,9.6497, &
& 9.6301,10.0207,10.0146,9.8297,9.7264,9.6798,9.7519,9.7384, &
& 9.7072,9.8586,10.1082,9.9695,9.6464,9.5720,9.5983,9.8232, &
& 9.8958,9.6560,9.6313,9.5108,9.7527,9.6278,9.8673,9.8223, &
& 9.9272,9.9734,9.9208,10.1772,9.9563,10.0517,9.9309,9.8731, &
& 9.6789,9.6880,9.7546,9.9054,9.9784,9.8572,10.0119,10.1465, &
& 9.8478,9.7334,9.9626,9.9396,9.9006,9.8943,10.1186,10.1850, &
& 10.2429,10.0652,9.9528,9.9921,9.7475,9.9267,10.0064,10.1468, &
& 10.4122,10.2548,9.9009,10.0802,10.0491,10.2354,10.1259,10.2886, &
& 10.0834,10.1892,10.5324,10.3401,10.5120,10.4828,10.6649,10.5684, &
& 10.2515,10.5617,10.5544,10.6898,10.3889,10.2169,10.2589,10.2973, &
& 10.6858,10.5826,10.3075,10.4489,10.5758,10.5178,10.6266,10.7143, &
& 10.3860,10.5416,10.3422,10.2933,10.4302,10.5751,10.3647,10.5027, &
& 10.5494,10.6186,10.4484,10.4584,10.4250,10.4287,10.4666,10.4678, &
& 10.5787,10.6394,10.8525,10.6622,10.9329,10.9169,10.8263,11.1890, &
& 11.2567,11.2226,11.1845,11.1822,10.9551,11.0283,11.2406,11.0380, &
& 11.1425,11.1514,11.1961,11.1098,11.0837,11.1716,11.0646,10.9862, &
& 10.8498,10.9799,10.9179,10.9543,10.9517,10.9559,11.1093,10.9166, &
& 11.0243,10.9443,10.9317,10.9686,11.2339,11.1145,10.8852,10.9157, &
& 11.0760,10.9307,11.0688,10.9668,11.1992,11.0788,11.0182,10.9500, &
& 11.1596,10.9150,11.0886,11.0393,11.1748,11.1748,11.3168,11.3886, &
& 11.0485,11.2652,11.1258,11.1464,11.0877,11.1043,11.0535,11.0241, &
& 10.9651,10.9820,11.1420,11.1442,11.1019,11.1910,11.0563,11.0326, &
& 11.0595,11.1442,11.1536,11.2274,11.1939,11.0519,11.1473,10.9201, &
& 11.1077,11.1163,11.1233,11.1233,11.3789,11.1895,11.2964,11.2406, &
& 11.3679,11.1379,11.2206,11.0435,10.9734,10.9958,11.1764,11.2520, &
& 11.3076,11.4933,11.2444,11.1404,11.1913,11.0800,11.1774,11.0516, &
& 11.2212,11.1455,11.2697,11.2677,11.2589,11.3476,11.2765,11.1319, &
& 11.1276,11.3414,11.3370,11.1990,11.2877,11.2076,11.3055,11.1095, &
& 11.3299,11.2274,11.1903,11.1342,11.2022,11.1761,11.1063,10.9946, &
& 11.0159,11.2371,11.1657,11.2920,11.1447,11.1333,11.1092,11.0862, &
& 11.3223,11.3150,11.4838,11.3687,11.3913,11.4176,11.5615,11.4684, &
& 11.1821,11.2546,11.1483,11.3439,11.0770,11.2198,11.4042,11.1329, &
& 11.3999,11.3934,11.3785,11.2824,11.5336,11.6613,11.2956,11.2397, &
& 11.4280,11.1771,11.2459,11.2975,11.2583,11.5336,11.4432,11.5699, &
& 11.5702,11.3656,11.2315,11.2996,11.3523,11.6195,11.4975,11.5317, &
& 11.3733,11.3758,11.5763,11.4676,11.3931,11.4372,11.3684,11.3994, &
& 11.3093,11.3146,11.4749,11.4378,11.5443,11.6203,11.7093,11.7122, &
& 11.5080,11.3548,11.3736,11.4521,11.4637,11.3873,11.4155,11.4593, &
& 11.4319,11.3629,11.6388,11.5518,11.6050,11.6241,11.6264,11.7136, &
& 11.6001,11.4966,11.4841,11.8020,11.7426,11.5370,11.4178,11.2306, &
& 11.3696,11.6675,11.5421,11.4002,11.4285,11.4687,11.5917,11.7213, &
& 11.5370,11.4594,11.5526,11.5265,11.4299,11.4420,11.5213,11.5751, &
& 11.6072,11.6985,11.5866,11.3565,11.4700,11.4272,11.4033,11.5668, &
& 11.5469,11.7195,11.4361,11.5700,11.4594,11.5743,11.5856,11.5857, &
& 11.8395,11.9661,11.9425,11.8627,11.7674,11.7369,11.8365,11.8749, &
& 11.6641,11.5762,11.3995,11.3918,11.2695,11.2581,11.2770,11.2333, &
& 11.0454,10.9796,10.9040,10.7747,10.7433,10.7615,10.7398,10.6973, &
& 10.5819,10.6839,10.5572,10.4318,10.3293,10.4040,10.3941,10.2747, &
& 10.2153,10.1630,10.0662,10.0662,10.0280,10.0342,9.9697,9.9778, &
& 9.9657,9.9049,9.9687,9.9368,9.8356,9.8240,9.8847,9.8863, &
& 9.9868,9.9507,10.0051,10.0622,10.0216,9.9738,10.0095,10.0065, &
& 9.9264,9.9637,10.1572,10.0486,10.1541,10.1543,10.2965,10.2568, &
& 10.2259,10.4034,10.3441,10.2416,10.2137,10.3687,10.2815,10.3959, &
& 10.4604,10.5116,10.5647,10.4945,10.5186,10.5573,10.5506,10.4861, &
& 10.5988,10.6114,10.5740,10.5824,10.5800,10.5055,10.5073,10.4800, &
& 10.5795,10.5550,10.5283,10.5385,10.5859,10.5352,10.5822,10.5862, &
& 10.6477,10.5870,10.5050,10.5058,10.5533,10.5997,10.6018,10.5312, &
& 10.5513,10.2749,10.4677,10.3050,10.1634,10.3252,10.4237,10.4071, &
& 10.3978,10.4198,10.3782,10.3237,10.3777,10.4014,10.3229,10.2555, &
& 10.3048,10.2643,10.2218,10.3036,10.2642,10.3833,10.4195,10.4161, &
& 10.3024,10.2542,10.2953,10.3055,10.3143,10.2070,10.2660,10.2803, &
& 10.3988,10.3958,10.2883,10.2678,10.2312,10.2873,10.2716,10.3127, &
& 10.2178,10.1414,10.1558,10.2762,10.2475,10.2373,10.2432,10.2123, &
& 10.2044,10.1740,10.2916,10.2478,10.2973,10.2307,10.2784,10.2747, &
& 10.2336,10.2831,10.2264,10.2302,10.1888,10.2074,10.1552,10.1632, &
& 10.1707,10.2279,10.2200,10.2451,10.1789,10.1599,10.1633,10.2593, &
& 10.2626,10.3146,10.1962,10.2500,10.1463,10.2024,10.1598,10.1061, &
& 10.1216,10.0406,10.1126,10.1658,10.2301,10.1624,10.1726,10.1650, &
& 10.1718,10.1897,10.2078,10.0939,10.1109,10.1501,10.1432,10.2980, &
& 10.1652,10.1802,10.1802,10.1692,10.1330,10.0217,10.0549,10.1308, &
& 10.0769,10.0668,9.9993,10.0297,10.1043,9.9519,9.9872,9.9167, &
& 9.9200,9.8594,9.8848,9.9839,10.0331,9.9731,9.8888,9.9327, &
& 9.7569,9.7505,9.8659,9.8971,9.8113,9.9551,10.0389,9.9170, &
& 9.8540,9.8594,9.7932,9.7356,9.7102,9.7295,9.7488,9.6759, &
& 9.6516,9.8235,9.7646,9.7029,9.6785,9.7408,9.7890,9.6658, &
& 9.6562,9.6308,9.6245,9.6657,9.6625,9.6987,9.6987,9.7116, &
& 9.5580,9.4684,9.4630,9.4214,9.2965,9.4396,9.4436,9.5469, &
& 9.5357,9.6991,9.4686,9.3284,9.3406,9.4150,9.4027,9.3713, &
& 9.4953,9.4699,9.4453,9.3707,9.4274,9.4079,9.4301,9.4685, &
& 9.3687,9.3115,9.1885,9.1766,9.1651,9.2729,9.2457,9.3122, &
& 9.1581,9.0896,9.1141,9.1170,9.1884,9.1535,9.0937,9.0991, &
& 9.1174,9.0819,9.1561,9.1817,9.1712,9.0634,9.0548,9.0708, &
& 9.0953,9.1722,9.0530,8.9745,9.0325,9.0437,9.1346,9.1028, &
& 8.9769,8.9912,9.0330,9.0246,9.0027,9.1441,9.0745,9.0355, &
& 9.0630,9.0145,8.9433,8.9850,9.0600,9.0281,9.0262,9.0431, &
& 8.9838,9.0096,9.0696,9.0574,8.9646,8.9576,9.0584,9.0467, &
& 8.9721,8.9740,9.0496,9.0372,9.0356,9.0546,9.0190,8.9841, &
& 8.9437,8.9639,8.9963,9.0229,9.0026,8.9316,8.9906,9.0145, &
& 8.9641,8.9896,8.9480,8.8774,8.9606,8.9636,8.9456,8.9958, &
& 8.9667,8.8750,8.8992,8.9529,8.9958,9.0787,8.9745,8.8547, &
& 8.9004,8.9034,8.9442,8.9843,8.9651,8.9672,8.9625,8.8935, &
& 8.8711,8.9610,9.0555,9.0148,8.9683,8.9498,8.9299,8.8971, &
& 8.9098,8.9413,8.9156,8.9074,8.9198,8.9212,8.9634,9.0166, &
& 8.9901,8.9306,8.9273,8.9158,8.9004,8.9267,8.9166,8.8950, &
& 8.9151,8.8638,8.8711,8.9137,8.8678,8.8750,8.8976,8.8638, &
& 8.8741,8.9238,8.9620,8.9862,8.9510,8.8678,8.8704,8.9878, &
& 9.0131,8.8982,8.9128,8.8889,8.7989,8.8551,8.9010,8.8371, &
& 8.9090,8.9413,8.9140,8.8844,8.8068,8.8080,8.8835,8.9540, &
& 8.9449,8.9592,8.9552,8.8870,8.8910,8.8870,8.9044,8.9116, &
& 8.9008,8.9121,8.9309,8.9613,8.9397,8.9194,8.9220,8.8608, &
& 8.8125,8.8498,8.8851,8.9402,8.9628,8.8917,8.8633,8.8472, &
& 8.8474,8.8767,8.8774,8.8636,8.8792,8.8999,8.8771,8.8296, &
& 8.8306,8.8617,8.8221,8.7663,8.8312,8.8645,8.8966,8.8924, &
& 8.8992,8.9018,8.8410,8.8239,8.8205,8.7963,8.8462,8.8373, &
& 8.8038,8.7621,8.8003,8.8493,8.7623,8.7311,8.7823,8.8106, &
& 8.8502,8.8537,8.8566,8.9036,8.8423,8.7600,8.7911,8.7972, &
& 8.7968,8.7982,8.7693,8.7689,8.7883,8.7925,8.7441,8.7665, &
& 8.7935,8.7457,8.7592,8.7436,8.7197,8.7555,8.7659,8.8015, &
& 8.8094,8.7989,8.8195,8.8914,8.8532,8.7426,8.7316,8.7703, &
& 8.7750,8.8272,8.8425,8.7876,8.7114,8.6838,8.6826,8.7769, &
& 8.8137,8.7244,8.7494,8.8104,8.7792,8.7470,8.6992,8.6681, &
& 8.7488,8.8186,8.8366,8.8280,8.7558,8.7044,8.7708,8.7844, &
& 8.7780,8.7740,8.7202,8.7293,8.7689,8.7127,8.7441,8.8127, &
& 8.7717,8.7408,8.7059,8.6916,8.7504,8.7131,8.6620,8.6930, &
& 8.7366,8.7703,8.7555,8.7408,8.6997,8.6740,8.7412,8.7909, &
& 8.6854,8.6290,8.6517,8.6384,8.6203,8.6623,8.7056,8.6997, &
& 8.7328,8.7246,8.6431,8.6672,8.7475,8.7431,8.7550,8.7537, &
& 8.7304,8.6698,8.6948,8.7049,8.6892,8.6702,8.6463,8.6264, &
& 8.6510,8.6686,8.7389,8.7581,8.7127,8.6578,8.5987,8.6020, &
& 8.7028,8.6986,8.6771,8.7005,8.7124,8.7454,8.7002,8.6859, &
& 8.6920,8.6288,8.5976,8.5610,8.5940,8.6646,8.6702,8.6533, &
& 8.6208,8.5969,8.6174,8.6078,8.6322,8.6477,8.6121,8.5997, &
& 8.5955,8.6309,8.6250,8.5704,8.6013,8.6296,8.6153,8.5643, &
& 8.5694,8.5847,8.6564,8.6615,8.6125,8.6198,8.6533,8.6800, &
& 8.6649,8.6369,8.6135,8.6189,8.6292,8.5598,8.5472,8.5615, &
& 8.5696,8.6257,8.6489,8.5896,8.5999,8.6076,8.5514,8.5373, &
& 8.6049,8.6278,8.6067,8.6008,8.5870,8.5404,8.5169,8.5688, &
& 8.6334,8.6252,8.5779,8.5111,8.5008,8.5638,8.5530,8.5256, &
& 8.4834,8.4677,8.4501,8.4532,8.5413,8.5935,8.5376,8.5251, &
& 8.5111,8.4818,8.5127,8.5284,8.4852,8.4639,8.4940,8.5067, &
& 8.5289,8.5310,8.4855,8.4989,8.5605,8.5774,8.5335,8.5083, &
& 8.4659,8.4947,8.5373,8.5041,8.5036,8.5120,8.5111,8.5594, &
& 8.5460,8.4953,8.4947,8.5303,8.5202,8.5608,8.5882,8.5031, &
& 8.4787,8.5038,8.4780,8.4571,8.4949,8.5008,8.4672,8.4703, &
& 8.4977,8.5340,8.5235,8.4787,8.4527,8.4394,8.4740,8.4452, &
& 8.4828,8.5415,8.4834,8.4234,8.4220,8.3984,8.4314,8.4945, &
& 8.5298,8.5155,8.4808,8.4663,8.4236,8.4283,8.4496,8.4953, &
& 8.4797,8.4286,8.4639,8.4733,8.4429,8.4483,8.4302,8.4077, &
& 8.4152,8.4417,8.4464,8.4761,8.4567,8.4005,8.3979,8.4112, &
& 8.4005,8.4199,8.4569,8.4262,8.4379,8.4156,8.3782,8.4047, &
& 8.4553,8.4353,8.4260,8.3990,8.3667,8.4206,8.4225,8.4016, &
& 8.3850,8.3791,8.4072,8.3911,8.3826,8.3740,8.3896,8.3695, &
& 8.3243,8.3130,8.3119,8.3174,8.3182,8.3728,8.4028,8.4171, &
& 8.3721,8.3374,8.3410,8.3552,8.3543,8.3512,8.3693,8.4059, &
& 8.4223,8.4013,8.3667,8.3836,8.4173,8.3771,8.3649,8.3608, &
& 8.3841,8.3711,8.3556,8.4060,8.4096,8.4298,8.3979,8.3407, &
& 8.3592,8.3831,8.3867,8.3730,8.3555,8.3646,8.3576,8.3428, &
& 8.3351,8.3489,8.3397,8.3644,8.3604,8.3655,8.3862,8.3695, &
& 8.3418,8.3074,8.3132,8.3081,8.3337,8.3709,8.3498,8.3355, &
& 8.3540,8.3662,8.3339,8.3196,8.3301,8.2971,8.2662,8.2387, &
& 8.2927,8.3867,8.3714,8.3002,8.2985,8.3078,8.2795,8.2805, &
& 8.2805,8.2987,8.2781,8.2659,8.2511,8.2673,8.3102,8.2976, &
& 8.2293,8.1631,8.1813,8.2164,8.2425,8.2919,8.3083,8.2924, &
& 8.3055,8.2966,8.2444,8.2141,8.2017,8.1797,8.2333,8.2720, &
& 8.2722,8.2621,8.2249,8.1829,8.1623,8.1517,8.1663,8.1265, &
& 8.0984,8.1283,8.1371,8.1337,8.1241,8.1169,8.0742,8.0465, &
& 8.0031,7.9491,7.9566,7.9366,7.9303,7.9493,7.9017,7.8616, &
& 7.8377,7.7355,7.5823,7.5194,7.5748,7.6324,7.7114,7.7288, &
& 7.7212,7.6652,7.5953,7.6291,7.6460,7.5881,7.5431,7.5281, &
& 7.5272,7.5265,7.4826,7.4683,7.4805,7.4221,7.3641,7.3901, &
& 7.4093,7.3701,7.3415,7.3272,7.3338,7.3179,7.2972,7.2958, &
& 7.3099,7.2806,7.2400,7.2065,7.2042,7.2202,7.2330,7.2169, &
& 7.2012,7.1892,7.1751,7.1608,7.1472,7.1452,7.1559,7.1203, &
& 7.1046,7.0692,7.0617,7.0566,7.0369,7.0685,7.0849,7.0884, &
& 7.0919,7.0092,6.9649,6.9808,6.9867,6.9912,7.0064,6.9597, &
& 6.9635,6.9782,6.9579,6.9394,6.9335,6.9349,6.9337,6.9520, &
& 6.9499,6.9112,6.9140,6.9295,6.8871,6.8615,6.8688,6.8681, &
& 6.8556,6.8343,6.8477,6.8330,6.8233,6.8555,6.8756,6.7980, &
& 6.7969,6.8602,6.8442,6.7856,6.8151,6.8264,6.8177,6.8395, &
& 6.7898,6.7624,6.7662,6.7720,6.7950,6.7959,6.7692,6.7314, &
& 6.7519,6.7621,6.7282,6.6776,6.7212,6.7582,6.7064,6.7167, &
& 6.7317,6.7244,6.6825,6.6977,6.7289,6.7113,6.6797,6.6553, &
& 6.6652,6.6719,6.6756,6.6635,6.6283,6.6265,6.6471,6.6551, &
& 6.6387,6.6340,6.6176,6.5937,6.5751,6.5941,6.6012,6.5800, &
& 6.5709,6.5974,6.5681,6.5395,6.5447,6.5133,6.4717,6.4556, &
& 6.4826,6.5149,6.5008,6.4956,6.4901,6.5109,6.4997,6.5013, &
& 6.5133,6.5018,6.4880,6.4833,6.4645,6.5055,6.5296,6.5023, &
& 6.4769,6.4844,6.4953,6.4826,6.4956,6.4860,6.4692,6.4948, &
& 6.4955,6.4704,6.4725,6.4943,6.5083,6.4816,6.4896,6.4835, &
& 6.4956,6.4990,6.4767,6.4896,6.4997,6.4701,6.4596,6.4561, &
& 6.4856,6.5236,6.5119,6.4807,6.4725,6.4990,6.4932,6.4537, &
& 6.4298,6.4716,6.5182,6.5252,6.5205,6.4943,6.4969,6.5151, &
& 6.4865,6.4462,6.4478,6.4425,6.4582,6.4683,6.4870,6.4992, &
& 6.4922,6.4992,6.4964,6.4966,6.5078,6.4647,6.4701,6.5271, &
& 6.5606,6.5447,6.5172,6.4903,6.4652,6.5174,6.5442,6.5243, &
& 6.5034,6.5039,6.5463,6.5473,6.5100,6.4833,6.4896,6.5179, &
& 6.5121,6.4906,6.5215,6.5498,6.5470,6.5452,6.5721,6.5657, &
& 6.5538,6.5665,6.5981,6.5922,6.5688,6.5625,6.5792,6.5943, &
& 6.6080,6.5836,6.5747,6.6005,6.6187,6.6159,6.6272,6.6337, &
& 6.6459,6.6429,6.6534,6.6612,6.6520,6.6213,6.6382,6.6539, &
& 6.6525,6.6825,6.6820,6.6748,6.6987,6.6974,6.6753,6.6613, &
& 6.6992,6.7551,6.7624,6.7273,6.7192,6.7537,6.7650,6.7425, &
& 6.7545,6.7743,6.7792,6.7474,6.7413,6.7692,6.7720,6.7788, &
& 6.8081,6.8238,6.8290,6.8285,6.7875,6.7730,6.8194,6.8512, &
& 6.8473,6.8020,6.7802,6.8049,6.8330,6.8132,6.8149,6.8449, &
& 6.8418,6.8231,6.8192,6.8392,6.8428,6.8508,6.8456,6.8459, &
& 6.8564,6.8691,6.8447,6.8124,6.8210,6.8611,6.8803,6.8564, &
& 6.8843,6.8768,6.8412,6.8463,6.8824,6.8969,6.8880,6.8909, &
& 6.8810,6.8916,6.9133,6.9013,6.8990,6.8916,6.8771,6.8995, &
& 6.9199,6.8992,6.9161,6.9420,6.9431,6.9228,6.9257,6.9321, &
& 6.9194,6.9049,6.8958,6.9005,6.9199,6.9039,6.8972,6.8859, &
& 6.8845,6.9033,6.9068,6.8953,6.8740,6.8384,6.8259,6.8273, &
& 6.8125,6.7802,6.7873,6.7818,6.7493,6.7212,6.7057,6.6642, &
& 6.6244,6.5749,6.5569,6.5463,6.5163,6.4969,6.4788,6.4880, &
& 6.4849,6.4774,6.4730,6.4704,6.5135,6.5275,6.5049,6.5078, &
& 6.5264,6.5210,6.5013,6.4488,6.4059,6.4169,6.4259,6.4120, &
& 6.4017,6.4146,6.4521,6.4692,6.4633,6.4948,6.5508,6.5909, &
& 6.5810,6.5646,6.5826,6.6192,6.6459,6.6581,6.6459,6.6475, &
& 6.6693,6.6712,6.6963,6.7275,6.7329,6.7254,6.7218,6.7148, &
& 6.7101,6.6956,6.6940,6.6719,6.6501,6.6654,6.6691,6.6733, &
& 6.6846,6.6945,6.7054,6.7078,6.7029,6.7064,6.7139,6.7270, &
& 6.7371,6.7662,6.8285,6.8704,6.8988,6.9103,6.9150,6.9291, &
& 6.9447,6.9438,6.9501,6.9480,6.9530,6.9693,6.9862,6.9792, &
& 6.9883,7.0120,7.0289,7.0249,7.0047,7.0054,7.0092,7.0090, &
& 7.0306,7.0195,7.0029,6.9888,7.0071,7.0333,7.0071,6.9904, &
& 6.9919,6.9886,6.9963,7.0155,7.0332,7.0213,7.0008,7.0000, &
& 7.0125,7.0104,7.0134,7.0059,6.9979,7.0045,6.9972,6.9992, &
& 7.0052,6.9919,6.9928,6.9972,7.0130,7.0184,7.0036,7.0008, &
& 6.9895,6.9665,6.9698,6.9686,6.9764,6.9928,6.9878,6.9832, &
& 6.9872,6.9881,6.9804,6.9712,6.9940,6.9932,6.9755,6.9656, &
& 6.9828,6.9925,6.9839,6.9647,6.9712,6.9886,6.9872,6.9756, &
& 6.9597,6.9675,6.9745,6.9771,6.9878,6.9878,6.9717,6.9564, &
& 6.9478,6.9581,6.9787,6.9748,6.9701,6.9755,6.9766,6.9567, &
& 6.9471,6.9590,6.9475,6.9236,6.9581,6.9621,6.9255,6.9293, &
& 6.9371,6.9309,6.9420,6.9483,6.9405,6.9283,6.9194,6.9072, &
& 6.9255,6.9431,6.9309,6.9307,6.9288,6.9063,6.9143,6.9202, &
& 6.9156,6.8974,6.8805,6.8749,6.8758,6.8969,6.8997,6.8951, &
& 6.8911,6.8913,6.8792,6.8787,6.8618,6.8662,6.8691,6.8548, &
& 6.8686,6.8831,6.8753,6.8618,6.8800,6.8997,6.8913,6.8615, &
& 6.8477,6.8498,6.8611,6.8555,6.8512,6.8473,6.8475,6.8273, &
& 6.8259,6.8374,6.8435,6.8322,6.8386,6.8273,6.8132,6.8055, &
& 6.8008,6.8283,6.8369,6.7992,6.7955,6.7994,6.8039,6.8130, &
& 6.8147,6.7854,6.7835,6.7999,6.7849,6.7914,6.7982,6.7739, &
& 6.7603,6.7748,6.7859,6.7945,6.7908,6.7730,6.7716,6.7821, &
& 6.7816,6.7683,6.7629,6.7709,6.7873,6.7657,6.7605,6.7696, &
& 6.7457,6.7371,6.7556,6.7600,6.7509,6.7470,6.7376,6.7387, &
& 6.7498,6.7413,6.7286,6.7148,6.6935,6.7184,6.7322,6.7286, &
& 6.7184,6.6974,6.6968,6.7024,6.7146,6.7106,6.6974,6.6870, &
& 6.6919,6.6849,6.6818,6.6735,6.6717,6.6761,6.6902,6.6764, &
& 6.6612,6.6740,6.6888,6.6635,6.6496,6.6501,6.6361,6.6309, &
& 6.6330,6.6270,6.6206,6.6143,6.6302,6.6345,6.6110,6.5974, &
& 6.6070,6.6044,6.5901,6.5916,6.5850,6.5838,6.5871,6.5772, &
& 6.5564,6.5452,6.5667,6.5660,6.5553,6.5486,6.5423,6.5416, &
& 6.5203,6.5133,6.5025,6.4948,6.5032,6.4849,6.4620,6.4429, &
& 6.4397,6.4263,6.4104,6.4104,6.4282,6.4172,6.3909,6.3839, &
& 6.3764,6.3569,6.3537,6.3429,6.3488,6.3330,6.3106,6.3129, &
& 6.3077,6.2969,6.2676,6.2470,6.2625,6.2678,6.2317,6.2121, &
& 6.2224,6.2198,6.2013,6.2013,6.1917,6.1751,6.1739,6.1624, &
& 6.1449,6.1329,6.1397,6.1397,6.1324,6.1317,6.1143,6.0963, &
& 6.1031,6.1043,6.1052,6.1021,6.0790,6.0618,6.0605,6.0506, &
& 6.0612,6.0560,6.0270,6.0164,6.0281,6.0194,6.0093,6.0164, &
& 6.0016,5.9784,5.9691,5.9465,5.9644,5.9751,5.9519,5.9243, &
& 5.9296,5.9221,5.9060,5.8971,5.8999,5.8860,5.8537,5.8350, &
& 5.8397,5.8314,5.8020,5.7989,5.7940,5.7714,5.7753,5.7761, &
& 5.7564,5.7426,5.7309,5.7023,5.6772,5.6896,5.6894,5.6594, &
& 5.6416,5.6367,5.6072,5.5917,5.5896,5.5716,5.5608,5.5571, &
& 5.5423,5.5109,5.4844,5.4652,5.4614,5.4483,5.4312,5.4129, &
& 5.4145,5.4368,5.4208,5.3735,5.3655,5.3725,5.3782,5.3779, &
& 5.3529,5.3452,5.3137,5.2807,5.2894,5.2933,5.2610,5.2434, &
& 5.2268,5.2195,5.2385,5.2275,5.1961,5.1924,5.1790,5.1694, &
& 5.1602,5.1665,5.1895,5.1691,5.1272,5.1091,5.1002,5.0878, &
& 5.0847,5.0728,5.0686,5.0665,5.0608,5.0480,5.0384,5.0271, &
& 5.0088,4.9818,4.9753,4.9889,4.9865,4.9582,4.9376,4.9282, &
& 4.9148,4.8989,4.8966,4.8876,4.8490,4.8337,4.8133,4.8035, &
& 4.7960,4.7691,4.7294,4.7133,4.7182,4.7184,4.6901,4.6643, &
& 4.6486,4.6542,4.6634,4.6364,4.6139,4.6099,4.6073,4.5703, &
& 4.5516,4.5579,4.5488,4.5239,4.5161,4.5106,4.5084,4.4909, &
& 4.4670,4.4463,4.4414,4.4449,4.4414,4.4236,4.4036,4.4044, &
& 4.4171,4.4145,4.3898,4.3847,4.3816,4.3701,4.3259,4.3216, &
& 4.3348,4.3176,4.2872,4.2612,4.2698,4.2595,4.2361,4.2241, &
& 4.2176,4.2060,4.1883,4.1747,4.1676,4.1559,4.1489,4.1496, &
& 4.1236,4.0955,4.0856,4.0769,4.0675,4.0514,4.0470,4.0356, &
& 4.0075,3.9797,3.9660,3.9434,3.9293,3.8972,3.8826,3.8939, &
& 3.8850,3.8728,3.8639,3.8264,3.8083,3.8065,3.7903,3.7720, &
& 3.7776,3.7873,3.7805,3.7566,3.7390,3.7355,3.7322,3.7380, &
& 3.7441,3.7312,3.7247,3.7282,3.7236,3.7068,3.7193,3.7169, &
& 3.7062,3.7156,3.7068,3.6816,3.6823,3.6971,3.6876,3.6698, &
& 3.6715,3.6867,3.6857,3.6771,3.6682,3.6347,3.6084,3.6002, &
& 3.6148,3.6166,3.5963,3.5824,3.5878,3.6070,3.5948,3.5651, &
& 3.5498,3.5491,3.5322,3.5023,3.5057,3.5205,3.5172,3.4844, &
& 3.4722,3.4746,3.4699,3.4577,3.4280,3.4076,3.4263,3.4356, &
& 3.4210,3.3914,3.3839,3.3954,3.3820,3.3473,3.3403,3.3190, &
& 3.2909,3.2702,3.2698,3.2758,3.2634,3.2372,3.2078,3.1915, &
& 3.1877,3.1823,3.1863,3.1908,3.1769,3.1652,3.1483,3.1621, &
& 3.1706,3.1525,3.1436,3.1336,3.1163,3.0998,3.0867,3.0867, &
& 3.0832,3.0717,3.0628,3.0710,3.0668,3.0068,3.0012,3.0270, &
& 2.9972,2.9649,2.9414,2.9200,2.9367,2.9356,2.9314,2.9238, &
& 2.9098,2.8746,2.8610,2.8906,2.8992,2.8903,2.8680,2.8530, &
& 2.8504,2.8397,2.8353,2.8462,2.8470,2.8413,2.8453,2.8572, &
& 2.8558,2.8324,2.8106,2.8200,2.8052,2.7804,2.7972,2.8036, &
& 2.7776,2.7478,2.7522,2.7660,2.7546,2.7408,2.7434,2.7539, &
& 2.7286,2.7112,2.7218,2.7431,2.7511,2.7464,2.7551,2.7581, &
& 2.7405,2.7333,2.7514,2.7631,2.7769,2.7878,2.7644,2.7556, &
& 2.7846,2.7689,2.7682,2.7727,2.7657,2.7736,2.7998,2.7994, &
& 2.7780,2.7804,2.7729,2.7564,2.7612,2.7616,2.7457,2.7302, &
& 2.7166,2.7150,2.7180,2.7314,2.7415,2.7119,2.7278,2.7375, &
& 2.7267,2.7368,2.7319,2.7276,2.7445,2.7180,2.6873,2.6717, &
& 2.6789,2.6632,2.6470,2.6618,2.6629,2.6463,2.6395,2.6459, &
& 2.6294,2.6154,2.6208,2.6662,2.6922,2.6838,2.7007,2.7143, &
& 2.6969,2.6850,2.6733,2.6522,2.6433,2.6433,2.6297,2.6013, &
& 2.5818,2.5688,2.5540,2.5411,2.5758,2.6062,2.6109,2.6151, &
& 2.6016,2.5898,2.5961,2.5786,2.5880,2.5957,2.5886,2.5716, &
& 2.5525,2.5512,2.5408,2.5275,2.5594,2.5906,2.5922,2.5680, &
& 2.5735,2.5685,2.5517,2.5556,2.5319,2.5104,2.5085,2.4984, &
& 2.5008,2.5249,2.4940,2.4612,2.4636,2.4553,2.4457,2.4335, &
& 2.4382,2.4317,2.4349,2.4410,2.4328,2.4091,2.3883,2.3796, &
& 2.3653,2.3550,2.3503,2.3283,2.3367,2.3367,2.3078,2.2873, &
& 2.2764,2.2652,2.2701,2.2111,2.1745,2.2184,2.2193,2.1977, &
& 2.1844,2.1663,2.1649,2.1682,2.1509,2.1398,2.1572,2.1712, &
& 2.1351,2.1286,2.1400,2.1377,2.1150,2.1232,2.1260,2.1190, &
& 2.1216,2.1436,2.1492,2.1436,2.1182,2.1016,2.1016,2.1115, &
& 2.0733,2.0341,2.0841,2.1039,2.1018,2.0964,2.1136,2.1283, &
& 2.1228,2.1569,2.1802,2.1839,2.2127,2.2332,2.2428,2.2549, &
& 2.2714,2.3076,2.3447,2.3508,2.3704,2.3834,2.3977,2.4171, &
& 2.4426,2.4516,2.4832,2.4755,2.4548,2.5076,2.5542,2.5680, &
& 2.5976,2.6578,2.7065,2.7522,2.8242,2.9081,2.9751,3.0649, &
& 3.1714,3.2847,3.4117,3.5449,3.6984,3.8364,3.9785,4.1290, &
& 4.3017,4.5115,4.7367,4.9439,5.1447,5.3171,5.5207,5.7059, &
& 5.9506,6.0971,6.1078,6.2330,6.3992,6.5850,6.7786,6.9232, &
& 7.0314,7.1304,7.2129,7.3212,7.4210,7.4454,7.5215,7.6324, &
& 7.7364,7.8494,7.9301,7.9802,8.0283,8.0815,8.1208,8.1454, &
& 8.1389,8.1644,8.2085,8.2990,8.4122,8.4916,8.5387,8.5912, &
& 8.6343,8.7042,8.8282,8.9194,8.9672,9.0206,9.0855,9.1343, &
& 9.1837,9.2529,9.2721,9.2948,9.3010,9.2758,9.2651,9.2704, &
& 9.2369,9.1390,9.0771,9.0436,8.9831,8.8938,8.7971,8.7197, &
& 8.5919,8.4340,8.3714,8.3189,8.2186,8.0564,7.9474,7.9106, &
& 7.8288,7.7343,7.7132,7.7317,7.7559,7.7480,7.7545,7.7932, &
& 7.8349,7.8806,7.9397,8.0217,8.1070,8.1872,8.3313,8.4787, &
& 8.5514,8.6369,8.7391,8.8753,9.1244,9.2168,9.1807,9.2870, &
& 9.3548,9.4340,9.4568,9.4725,9.4924,9.5125,9.4884,9.4418, &
& 9.4584,9.4847,9.4891,9.5100,9.5121,9.5512,9.5610,9.5704, &
& 9.5798,9.5662,9.5506,9.5296,9.4945,9.4446,9.4036,9.3506, &
& 9.3670,9.4282,9.4008,9.4070,9.4842,9.5810,9.6748,9.7641, &
& 9.8870,10.0033,10.1224,10.1711,10.2764,10.3548,10.3760,10.4114, &
& 10.4628,10.5114,10.5288,10.5255,10.5133,10.5537,10.5764,10.5420, &
& 10.5145,10.5180,10.4700,10.4148,10.4046,10.3413,10.2307,10.0880, &
& 9.9778,9.8508,9.7540,9.6148,9.4439,9.2784,9.1399,8.9995, &
& 8.8709,8.7501,8.6198,8.4919,8.3587,8.2514,8.0413,7.8255, &
& 7.6478,7.4629,7.3090,7.1498,6.9686,6.7781,6.6656,6.5367, &
& 6.3553,6.1685,5.9972,5.9257,5.8650,5.7445,5.6147,5.4652, &
& 5.3423,5.2350,5.1778,5.0880,4.9055,4.7519,4.7028,4.6064, &
& 4.5119,4.4808,4.4145,4.2670,4.1826,4.2063,4.0453,3.8660, &
& 3.8538,3.8151,3.6883,3.5696,3.4151,3.3349,3.3251,3.2501, &
& 3.1491,3.0112,2.8542,2.7464,2.7106,2.6452,2.5767,2.5948, &
& 2.6238,2.5800,2.5784,2.5195,2.2818,2.1241,2.2319,2.2418, &
& 2.1649,2.1588,2.1169,2.0660,2.1237,2.1855,2.0264,1.9592, &
& 1.7437,2.0044,2.2551,2.2047,1.9971,1.7686,1.8631,1.7958, &
& 1.7859,1.8073,1.6097,1.6764,1.9678,1.8904,2.1108,2.6049, &
& 2.1434,1.7398,1.5717,1.8543,1.7569,1.0706,1.8084,2.2366, &
& 1.2518,0.6921,1.1927,0.975 /)
plasim/src/specs/rock.igneous.intermediate.solid.all.andesite_h4.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: andesitesolid(965) = (/8.5157,8.5157,8.5157,8.5157,8.5157,8.5157,8.5157,8.8603, &
& 9.0040,9.1913,9.4962,10.0146,9.6464,9.8673,9.6789,9.9626, &
& 9.7475,10.1259,10.2515,10.3075,10.4302,10.4666,11.2567,11.1961, &
& 10.9517,10.8852,11.1596,11.1258,11.1019,11.1473,11.3679,11.2444, &
& 11.2589,11.3055,11.0159,11.4838,11.0770,11.2956,11.5702,11.5763, &
& 11.5443,11.4155,11.6001,11.5421,11.4299,11.4033,11.8395,11.7369, &
& 11.3995,11.2333,10.7433,10.6839,10.3941,10.0662,9.9657,9.8240, &
& 10.0051,10.0065,10.1541,10.4034,10.2815,10.4945,10.5988,10.5055, &
& 10.5283,10.5862,10.5533,10.2749,10.4237,10.3237,10.3048,10.3833, &
& 10.2953,10.2803,10.2312,10.1414,10.2432,10.2478,10.2336,10.2074, &
& 10.2200,10.2593,10.1463,10.0406,10.1726,10.0939,10.1652,10.0217, &
& 9.9993,9.9167,10.0331,9.7505,10.0389,9.7356,9.6516,9.7408, &
& 9.6245,9.7116,9.2965,9.6991,9.4027,9.3707,9.3687,9.2729, &
& 9.1141,9.0991,9.1712,9.1722,9.1346,9.0246,9.0327,8.9513, &
& 8.8852,8.9900,8.8770,8.8870,8.8637,8.8362,8.7690,8.7519, &
& 8.7708,8.7294,8.8136,8.7190,8.6930,8.6403,8.6541,8.6892, &
& 8.6256,8.6859,8.6136,8.6274,8.6606,8.6283,8.6069,8.5190, &
& 8.5306,8.5169,8.5296,8.4947,8.4949,8.4745,8.4974,8.4234, &
& 8.4521,8.4556,8.4599,8.4369,8.3667,8.3826,8.3181,8.3544, &
& 8.4043,8.4074,8.3717,8.3587,8.3116,8.3389,8.3820,8.2935, &
& 8.2246,8.2971,8.2582,8.1632,8.1174,7.9303,7.5234,7.5976, &
& 7.5265,7.4066,7.2963,7.2262,7.1468,7.0573,6.9856,6.9653, &
& 6.9459,6.8625,6.8272,6.8442,6.7795,6.7432,6.7559,6.7036, &
& 6.6733,6.6469,6.5983,6.5429,6.5052,6.5091,6.5197,6.4887, &
& 6.4711,6.4856,6.4718,6.4899,6.4461,6.4979,6.4530,6.4984, &
& 6.5176,6.4826,6.5392,6.5163,6.5458,6.5978,6.6001,6.6166, &
& 6.6534,6.6536,6.6981,6.7597,6.7481,6.7419,6.8230,6.8194, &
& 6.8049,6.8418,6.8504,6.8482,6.8621,6.8686,6.8860,6.8875, &
& 6.9173,6.9309,6.9107,6.8881,6.8435,6.7837,6.7019,6.5497, &
& 6.4873,6.5023,6.5250,6.4139,6.4211,6.5279,6.5826,6.6465, &
& 6.7180,6.7148,6.6653,6.6797,6.7038,6.7383,6.9013,6.9443, &
& 6.9618,7.0041,7.0053,7.0213,7.0312,6.9887,7.0218,7.0105, &
& 7.0040,6.9939,7.0172,6.9736,6.9859,6.9876,6.9938,6.9835, &
& 6.9705,6.9652,6.9815,6.9551,6.9754,6.9655,6.9422,6.9296, &
& 6.9368,6.9270,6.9387,6.9216,6.9161,6.8753,6.8953,6.8790, &
& 6.8690,6.8799,6.8970,6.8484,6.8524,6.8271,6.8377,6.8151, &
& 6.8303,6.7977,6.8145,6.7974,6.7872,6.7827,6.7736,6.7790, &
& 6.7778,6.7661,6.7520,6.7471,6.7487,6.7095,6.7309,6.6971, &
& 6.7123,6.6902,6.6758,6.6868,6.6713,6.6521,6.6318,6.6219, &
& 6.6335,6.6045,6.5911,6.5858,6.5505,6.5614,6.5421,6.5111, &
& 6.5022,6.4445,6.4145,6.4219,6.3810,6.3518,6.3334,6.3091, &
& 6.2573,6.2590,6.2221,6.2013,6.1746,6.1436,6.1397,6.1237, &
& 6.1032,6.1028,6.0613,6.0611,6.0203,6.0171,6.0043,5.9598, &
& 5.9748,5.9270,5.9053,5.8916,5.8356,5.8130,5.7912,5.7758, &
& 5.7415,5.6882,5.6894,5.6393,5.5935,5.5682,5.5463,5.4821, &
& 5.4545,5.4146,5.4323,5.3684,5.3782,5.3504,5.2922,5.2932, &
& 5.2385,5.2310,5.1997,5.1773,5.1631,5.1750,5.1095,5.0871, &
& 5.0709,5.0627,5.0395,5.0059,4.9794,4.9727,4.9313,4.9013, &
& 4.8876,4.8302,4.8012,4.7514,4.7161,4.6985,4.6516,4.6626, &
& 4.6139,4.6042,4.5526,4.5427,4.5144,4.5023,4.4587,4.4429, &
& 4.4332,4.4040,4.4158,4.3873,4.3759,4.3238,4.3267,4.2755, &
& 4.2656,4.2316,4.2140,4.1846,4.1654,4.1490,4.1225,4.0860, &
& 4.0687,4.0480,4.0170,3.9722,3.9375,3.8929,3.8926,3.8728, &
& 3.8320,3.8070,3.7805,3.7811,3.7762,3.7390,3.7328,3.7417, &
& 3.7286,3.7273,3.7074,3.7175,3.7110,3.6997,3.6828,3.6897, &
& 3.6707,3.6864,3.6772,3.6445,3.6049,3.6150,3.5995,3.5853, &
& 3.6041,3.5676,3.5494,3.5242,3.5055,3.5185,3.4812,3.4744, &
& 3.4631,3.4240,3.4230,3.4290,3.3909,3.3919,3.3719,3.3410, &
& 3.3049,3.2702,3.2739,3.2564,3.2125,3.1900,3.1825,3.1887, &
& 3.1758,3.1544,3.1637,3.1575,3.1411,3.1200,3.0958,3.0867, &
& 3.0794,3.0643,3.0696,3.0167,3.0097,3.0025,2.9579,2.9247, &
& 2.9364,2.9326,2.9214,2.8875,2.8636,2.8952,2.8906,2.8618, &
& 2.8508,2.8385,2.8429,2.8464,2.8434,2.8565,2.8479,2.8161, &
& 2.8179,2.7921,2.7958,2.7958,2.7576,2.7529,2.7613,2.7438, &
& 2.7448,2.7412,2.7138,2.7258,2.7474,2.7470,2.7557,2.7487, &
& 2.7343,2.7536,2.7700,2.7858,2.7634,2.7678,2.7732,2.7683, &
& 2.7705,2.7704,2.7968,2.7959,2.7790,2.7751,2.7568,2.7613, &
& 2.7537,2.7341,2.7166,2.7157,2.7247,2.7389,2.7126,2.7298, &
& 2.7328,2.7334,2.7324,2.7292,2.7361,2.7017,2.6758,2.6785, &
& 2.6611,2.6519,2.6624,2.6510,2.6402,2.6447,2.6258,2.6177, &
& 2.6480,2.6862,2.6844,2.7020,2.7101,2.6921,2.6785,2.6587, &
& 2.6447,2.6433,2.6265,2.5965,2.5769,2.5613,2.5460,2.5668, &
& 2.6018,2.6108,2.6140,2.5994,2.5917,2.5892,2.5832,2.5925, &
& 2.5909,2.5757,2.5554,2.5513,2.5408,2.5299,2.5641,2.5910, &
& 2.5852,2.5699,2.5715,2.5607,2.5537,2.5421,2.5187,2.5092, &
& 2.5015,2.5002,2.5194,2.5001,2.4666,2.4633,2.4562,2.4466, &
& 2.4344,2.4379,2.4320,2.4348,2.4408,2.4330,2.4096,2.3887, &
& 2.3799,2.3657,2.3554,2.3506,2.3298,2.3360,2.3367,2.3117, &
& 2.2905,2.2784,2.2677,2.2689,2.2281,2.1865,2.2021,2.2189, &
& 2.2076,2.1765,2.1658,2.1660,2.1636,2.1486,2.1422,2.1582, &
& 2.1712,2.1375,2.1296,2.1375,2.1384,2.1237,2.1244,2.1235, &
& 2.1197,2.1254,2.1440,2.1490,2.1443,2.1241,2.1072,2.1016, &
& 2.0987,2.0647,2.0390,2.0832,2.1011,2.1024,2.0985,2.1187, &
& 2.1271,2.1254,2.1548,2.1756,2.1826,2.2202,2.2353,2.2436, &
& 2.2539,2.2674,2.2930,2.3464,2.3531,2.3694,2.3805,2.3921, &
& 2.4238,2.4433,2.4507,2.4744,2.4681,2.4638,2.5067,2.5444, &
& 2.5799,2.6101,2.6582,2.6971,2.7808,2.8402,2.9068,2.9598, &
& 3.1015,3.1856,3.2741,3.3720,3.5818,3.7005,3.8067,4.0271, &
& 4.1448,4.2767,4.5968,4.7650,4.9219,5.0747,5.3490,5.5009, &
& 5.6409,5.9714,6.0807,6.1538,6.2501,6.3723,6.6444,6.7839, &
& 6.8894,7.0529,7.1247,7.1850,7.3312,7.4025,7.4639,7.5182, &
& 7.5954,7.7459,7.8255,7.9396,7.9746,8.0434,8.0804,8.1080, &
& 8.1450,8.1406,8.1698,8.1998,8.3183,8.3953,8.5011,8.5330, &
& 8.6007,8.6297,8.7323,8.8150,8.9298,8.9615,9.0334,9.0761, &
& 9.1424,9.1747,9.2551,9.2676,9.2952,9.2991,9.2763,9.2665, &
& 9.2699,9.2208,9.1588,9.0752,9.0247,8.9869,8.8758,8.8157, &
& 8.7142,8.5483,8.4514,8.3653,8.3333,8.2241,8.0393,7.9737, &
& 7.9119,7.8135,7.7569,7.7142,7.7350,7.7493,7.7487,7.7577, &
& 7.8036,7.8279,7.8803,7.9520,7.9991,8.0962,8.1897,8.3546, &
& 8.4379,8.5411,8.6355,8.7536,8.9310,9.0701,9.2070,9.1807, &
& 9.2937,9.3704,9.4137,9.4531,9.4713,9.4925,9.5106,9.4812, &
& 9.4455,9.4543,9.4799,9.4886,9.5086,9.5121,9.5515,9.5616, &
& 9.5714,9.5780,9.5636,9.5466,9.5223,9.4834,9.4349,9.3905, &
& 9.3547,9.3629,9.4214,9.4023,9.4246,9.5051,9.5993,9.6900, &
& 9.7820,9.9005,10.0130,10.1245,10.1716,10.2719,10.3477,10.3730, &
& 10.4044,10.4730,10.5139,10.5286,10.5254,10.5141,10.5476,10.5687, &
& 10.5382,10.5147,10.5178,10.4770,10.4128,10.3987,10.3421,10.2449, &
& 10.0662,9.9678,9.8569,9.7709,9.5927,9.4454,9.3027,9.1201, &
& 9.0001,8.8906,8.7353,8.6253,8.5177,8.3529,8.2635,8.0137, &
& 7.8353,7.6137,7.4623,7.3366,7.1432,6.9971,6.7727,6.6823, &
& 6.5281,6.3841,6.1645,6.0296,5.9265,5.8463,5.7529,5.6015, &
& 5.4865,5.3415,5.2263,5.1830,5.0805,4.8796,4.7646,4.6992, &
& 4.5925,4.5227,4.4811,4.4016,4.2517,4.1906,4.2060,4.0338, &
& 3.8644,3.8557,3.8185,3.6923,3.5664,3.4095,3.3338,3.3140, &
& 3.2623,3.1626,3.0263,2.8686,2.7548,2.7130,2.6494,2.5810, &
& 2.5935,2.6215,2.5842,2.5786,2.5277,2.2575,2.1369,2.2327, &
& 2.2389,2.1659,2.1592,2.1220,2.0733,2.1273,2.1847,2.0406, &
& 1.9296,1.7571,1.9941,2.2218,2.1904,2.0045,1.8018,1.8605, &
& 1.8011,1.7878,1.8066,1.6180,1.6756,1.9574,1.8913,2.1720, &
& 2.5896,2.1062,1.7680,1.5834,1.8176,1.7598,1.1187,1.7202, &
& 2.2204,1.2294,0.7468,1.1473,0.9819 /)
plasim/src/specs/seaicemax_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: seaicemax(965) = (/84.3952,84.4913,84.5538,84.6150,84.7150,84.7809,84.8242,84.9336, &
& 84.9797,85.0743,85.1379,85.2607,85.3174,85.3047,85.2414,85.2520, &
& 85.1589,85.1186,85.1000,85.0692,84.9663,84.9477,84.9342,84.8681, &
& 84.8002,84.6725,84.5134,84.2831,84.1709,83.9925,83.7970,83.4668, &
& 83.4117,83.2416,83.1556,82.9362,82.4124,82.3690,82.0309,81.9060, &
& 81.5489,81.1646,80.6918,80.4107,79.9039,79.3585,79.1911,78.9953, &
& 78.8623,77.6571,75.6470,74.8071,74.2222,73.5040,71.6163,68.9615, &
& 66.0054,63.7376,63.2382,65.1569,65.3929,66.8309,66.4327,64.7008, &
& 61.7899,57.2628,49.9999,48.4204,46.4343,45.6743,45.6011,46.0404, &
& 45.2214,46.4344,45.8455,44.7145,41.7898,27.6900,11.7636,7.7049, &
& 5.4501,4.7137,5.0821,5.5035,6.5600,7.5630,8.4745,9.2113, &
& 11.3066,11.9891,14.0900,16.2985,16.6177,17.4824,19.3772,20.9155, &
& 22.2751,23.6426,25.2521,22.8283,14.2622,8.5025,4.9861,3.4900, &
& 2.5465,2.0972,2.0363,2.1435,2.3985,2.8197,3.4214,4.4489, &
& 6.0674,7.6522,9.6965,11.2972,12.9382,15.0650,16.2868,16.0534, &
& 15.4587,14.3950,12.9656,11.4361,10.0465,8.8068,7.6763,6.7822, &
& 6.0807,5.5486,5.1834,4.9028,4.7282,4.6003,4.4972,4.3989, &
& 4.2781,4.1545,4.0406,3.9248,3.7993,3.6800,3.5614,3.4494, &
& 3.3597,3.2892,3.2429,3.2019,3.1849,3.1889,3.1902,3.2122, &
& 3.2165,3.1584,3.1327,3.0671,2.9448,2.7770,2.6747,2.4476, &
& 2.1805,1.8246,1.5460,1.2547,1.0070,0.7862,0.6300,0.5383, &
& 0.4401,0.4132,0.3802,0.3500,0.3418,0.3273,0.3038,0.3064, &
& 0.2848,0.3007,0.3089,0.3189,0.3666,0.3743,0.4368,0.5180, &
& 0.6189,0.7404,0.8780,1.0196,1.1676,1.2870,1.3969,1.5146, &
& 1.5893,1.7225,1.8431,2.0325,2.2659,2.5083,2.8168,3.1987, &
& 3.5322,3.8448,4.0764,4.1703,4.0999,3.9030,3.6950,3.5466, &
& 3.4601,3.4131,3.3900,3.3717,3.3460,3.2943,3.1980,3.0943, &
& 2.9799,2.8586,2.7526,2.6580,2.5718,2.4798,2.4163,2.3461, &
& 2.2880,2.2320,2.1863,2.1506,2.1044,2.0682,2.0362,2.0173, &
& 1.9869,1.9509,1.9297,1.9117,1.8906,1.8746,1.8446,1.8214, &
& 1.8116,1.8045,1.7902,1.7800,1.7742,1.7691,1.7519,1.7477, &
& 1.7433,1.7410,1.7410,1.7295,1.7289,1.7342,1.7362,1.7299, &
& 1.7243,1.7177,1.7054,1.6991,1.6989,1.6898,1.6788,1.6678, &
& 1.6464,1.6323,1.6266,1.6075,1.5809,1.5737,1.5630,1.5393, &
& 1.5200,1.5078,1.4975,1.4787,1.4592,1.4506,1.4437,1.4287, &
& 1.4105,1.4017,1.3918,1.3829,1.3770,1.3683,1.3534,1.3465, &
& 1.3451,1.3351,1.3204,1.3096,1.3071,1.3034,1.2972,1.2883, &
& 1.2812,1.2740,1.2658,1.2606,1.2593,1.2584,1.2477,1.2380, &
& 1.2373,1.2339,1.2307,1.2288,1.2251,1.2248,1.2227,1.2153, &
& 1.2111,1.2090,1.1990,1.1892,1.1881,1.1880,1.1799,1.1746, &
& 1.1777,1.1774,1.1682,1.1636,1.1671,1.1656,1.1588,1.1546, &
& 1.1520,1.1504,1.1484,1.1467,1.1450,1.1451,1.1436,1.1430, &
& 1.1463,1.1449,1.1485,1.1577,1.1593,1.1551,1.1532,1.1562, &
& 1.1590,1.1572,1.1530,1.1571,1.1704,1.1822,1.1853,1.1828, &
& 1.1806,1.1800,1.1818,1.1883,1.1947,1.1941,1.1918,1.1908, &
& 1.1920,1.1921,1.1904,1.1923,1.1982,1.2006,1.1965,1.1915, &
& 1.1930,1.1949,1.1928,1.1918,1.1934,1.1950,1.1952,1.1939, &
& 1.1913,1.1887,1.1869,1.1888,1.1937,1.1983,1.2025,1.2028, &
& 1.2006,1.2010,1.2007,1.1976,1.1963,1.1980,1.2002,1.1985, &
& 1.1890,1.1822,1.1847,1.1860,1.1842,1.1807,1.1803,1.1815, &
& 1.1837,1.1817,1.1752,1.1687,1.1624,1.1586,1.1591,1.1582, &
& 1.1489,1.1386,1.1342,1.1358,1.1342,1.1276,1.1165,1.1096, &
& 1.1077,1.1052,1.1005,1.0969,1.0956,1.0940,1.0902,1.0860, &
& 1.0823,1.0773,1.0722,1.0684,1.0605,1.0538,1.0541,1.0598, &
& 1.0605,1.0547,1.0455,1.0279,1.0162,1.0179,1.0254,1.0199, &
& 1.0056,0.9968,0.9991,1.0069,1.0112,1.0079,1.0022,0.9921, &
& 0.9805,0.9741,0.9690,0.9640,0.9625,0.9627,0.9630,0.9602, &
& 0.9524,0.9376,0.9258,0.9229,0.9263,0.9287,0.9243,0.9189, &
& 0.9101,0.9013,0.8987,0.8986,0.8989,0.8860,0.8738,0.8757, &
& 0.8866,0.9023,0.9022,0.8840,0.8668,0.8662,0.8780,0.8888, &
& 0.8816,0.8643,0.8476,0.8434,0.8542,0.8686,0.8683,0.8604, &
& 0.8595,0.8629,0.8717,0.8742,0.8771,0.8874,0.8957,0.9046, &
& 0.9101,0.8970,0.8832,0.8731,0.8776,0.9041,0.9312,0.9395, &
& 0.9383,0.9339,0.9375,0.9516,0.9619,0.9613,0.9545,0.9478, &
& 0.9494,0.9573,0.9679,0.9815,0.9895,0.9913,0.9936,0.9940, &
& 0.9948,0.9966,0.9987,1.0009,1.0012,1.0001,0.9918,0.9807, &
& 0.9757,0.9718,0.9710,0.9763,0.9758,0.9602,0.9427,0.9272, &
& 0.9283,0.9464,0.9749,0.9915,0.9904,0.9745,0.9584,0.9542, &
& 0.9588,0.9721,0.9861,0.9905,0.9866,0.9824,0.9762,0.9710, &
& 0.9751,0.9839,0.9923,0.9872,0.9742,0.9685,0.9720,0.9847, &
& 1.0003,1.0116,1.0124,1.0066,1.0046,1.0071,1.0103,1.0151, &
& 1.0225,1.0254,1.0159,1.0001,0.9899,0.9865,0.9889,0.9959, &
& 1.0044,1.0026,0.9877,0.9772,0.9758,0.9801,0.9918,1.0080, &
& 1.0186,1.0221,1.0244,1.0232,1.0189,1.0146,1.0117,1.0117, &
& 1.0168,1.0242,1.0299,1.0295,1.0223,1.0117,1.0036,1.0001, &
& 1.0010,1.0064,1.0134,1.0167,1.0175,1.0175,1.0166,1.0142, &
& 1.0101,1.0073,1.0063,1.0061,1.0074,1.0088,1.0094,1.0085, &
& 1.0050,1.0010,0.9981,0.9940,0.9903,0.9898,0.9912,0.9927, &
& 0.9923,0.9889,0.9833,0.9773,0.9740,0.9721,0.9731,0.9748, &
& 0.9765,0.9764,0.9781,0.9797,0.9792,0.9764,0.9725,0.9675, &
& 0.9626,0.9595,0.9586,0.9596,0.9614,0.9629,0.9624,0.9605, &
& 0.9570,0.9523,0.9485,0.9461,0.9470,0.9502,0.9551,0.9595, &
& 0.9631,0.9636,0.9619,0.9580,0.9537,0.9503,0.9481,0.9483, &
& 0.9489,0.9501,0.9517,0.9529,0.9533,0.9532,0.9528,0.9519, &
& 0.9504,0.9492,0.9484,0.9471,0.9466,0.9462,0.9461,0.9456, &
& 0.9448,0.9440,0.9435,0.9437,0.9429,0.9428,0.9417,0.9399, &
& 0.9381,0.9357,0.9342,0.9332,0.9327,0.9331,0.9342,0.9362, &
& 0.9381,0.9403,0.9426,0.9432,0.9431,0.9429,0.9417,0.9400, &
& 0.9398,0.9383,0.9366,0.9354,0.9345,0.9338,0.9321,0.9294, &
& 0.9260,0.9211,0.9172,0.9137,0.9123,0.9115,0.9106,0.9095, &
& 0.9086,0.9070,0.9065,0.9063,0.9054,0.9041,0.9024,0.8999, &
& 0.8986,0.8968,0.8952,0.8942,0.8925,0.8902,0.8885,0.8870, &
& 0.8859,0.8864,0.8870,0.8892,0.8920,0.8951,0.8962,0.8954, &
& 0.8915,0.8858,0.8795,0.8747,0.8703,0.8683,0.8667,0.8657, &
& 0.8645,0.8637,0.8634,0.8646,0.8654,0.8658,0.8630,0.8594, &
& 0.8540,0.8480,0.8438,0.8404,0.8398,0.8415,0.8430,0.8454, &
& 0.8479,0.8492,0.8500,0.8507,0.8508,0.8483,0.8439,0.8396, &
& 0.8346,0.8300,0.8271,0.8248,0.8229,0.8219,0.8207,0.8193, &
& 0.8184,0.8171,0.8147,0.8106,0.8048,0.7973,0.7886,0.7803, &
& 0.7733,0.7664,0.7584,0.7493,0.7389,0.7287,0.7174,0.7078, &
& 0.7004,0.6935,0.6870,0.6771,0.6663,0.6534,0.6406,0.6289, &
& 0.6203,0.6145,0.6098,0.6031,0.5948,0.5851,0.5746,0.5643, &
& 0.5547,0.5469,0.5401,0.5337,0.5283,0.5234,0.5190,0.5141, &
& 0.5092,0.5042,0.4962,0.4884,0.4802,0.4727,0.4668,0.4623, &
& 0.4598,0.4564,0.4525,0.4480,0.4442,0.4425,0.4438,0.4476, &
& 0.4533,0.4610,0.4697,0.4792,0.4904,0.5038,0.5212,0.5425, &
& 0.5647,0.5879,0.6121,0.6352,0.6580,0.6784,0.6988,0.7213, &
& 0.7473,0.7737,0.8024,0.8326,0.8661,0.8979,0.9307,0.9670, &
& 1.0014,1.0358,1.0714,1.1017,1.1287,1.1558,1.1795,1.2056, &
& 1.2310,1.2613,1.2917,1.3236,1.3593,1.3917,1.4246,1.4519, &
& 1.4776,1.4984,1.5219,1.5446,1.5715,1.6004,1.6266,1.6535, &
& 1.6757,1.6985,1.7207,1.7406,1.7646,1.7897,1.8140,1.8405, &
& 1.8672,1.8899,1.9149,1.9371,1.9585,1.9776,1.9992,2.0217, &
& 2.0457,2.0685,2.0941,2.1195,2.1425,2.1629,2.1798,2.1957, &
& 2.2104,2.2291,2.2497,2.2703,2.2876,2.3015,2.3118,2.3195, &
& 2.3248,2.3307,2.3394,2.3514,2.3662,2.3836,2.3990,2.4120, &
& 2.4197,2.4216,2.4181,2.4128,2.4097,2.4091,2.4132,2.4217, &
& 2.4327,2.4391,2.4420,2.4393,2.4344,2.4279,2.4236,2.4244, &
& 2.4278,2.4338,2.4391,2.4432,2.4434,2.4409,2.4345,2.4280, &
& 2.4211,2.4188,2.4198,2.4218,2.4269,2.4284,2.4256,2.4159, &
& 2.4029,2.3913,2.3839,2.3766,2.3712 /)
plasim/src/specs/seaicemin_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: seaicemin(965) = (/63.7232,63.8155,63.8870,63.9539,64.0566,64.1136,64.1879,64.3061, &
& 64.3513,64.4550,64.4961,64.6427,64.7033,64.7169,64.6058,64.5981, &
& 64.5453,64.4776,64.4476,64.3931,64.3236,64.2880,64.2511,64.1995, &
& 64.1227,64.0151,63.8082,63.4353,63.4578,63.2500,63.0222,62.7842, &
& 62.6513,62.3697,62.3330,62.0783,61.7111,61.4903,61.1514,61.0185, &
& 60.7199,60.3163,59.8497,59.3833,58.8037,58.3719,58.0844,57.7799, &
& 57.7347,56.4529,54.4746,53.4116,52.8343,52.0940,50.2247,47.6096, &
& 44.3354,42.2188,41.9084,43.6634,44.6948,45.2152,44.7806,43.1203, &
& 40.4363,36.2569,32.0581,28.3198,26.5904,25.9552,25.9938,26.2599, &
& 26.2138,26.4962,25.9052,24.9788,22.6739,12.8247,4.5918,2.9693, &
& 2.2126,1.9515,2.0933,2.1886,2.5550,2.8920,3.2142,3.5190, &
& 4.2278,4.7224,5.5441,6.3847,6.7416,7.2386,7.9924,8.7012, &
& 9.5166,10.3728,11.2507,9.9134,5.5240,3.1801,1.9787,1.5174, &
& 1.2430,1.1157,1.1005,1.1583,1.1970,1.3134,1.4837,1.7808, &
& 2.2831,2.8606,3.5824,4.2370,4.9506,5.8203,6.3143,6.2492, &
& 6.0380,5.6488,5.1334,4.5857,4.0927,3.6582,3.2805,2.9925, &
& 2.7621,2.5789,2.4570,2.3616,2.3057,2.2514,2.2056,2.1788, &
& 2.1326,2.0917,2.0420,2.0007,1.9601,1.9172,1.8783,1.8391, &
& 1.7909,1.7602,1.7449,1.7196,1.6894,1.6768,1.6675,1.6590, &
& 1.6508,1.6266,1.6125,1.5657,1.5037,1.4287,1.4231,1.3273, &
& 1.2335,1.0782,0.9869,0.9028,0.7958,0.6889,0.6103,0.5741, &
& 0.5001,0.5008,0.4828,0.4488,0.4386,0.4334,0.4121,0.4230, &
& 0.4212,0.4468,0.4690,0.5045,0.5632,0.6177,0.7068,0.8399, &
& 0.9841,1.1874,1.3805,1.5971,1.8185,1.9920,2.1622,2.3333, &
& 2.4789,2.6757,2.8816,3.1596,3.4815,3.8530,4.2589,4.7316, &
& 5.1532,5.4979,5.7163,5.7553,5.6729,5.4702,5.2866,5.1573, &
& 5.0746,5.0192,4.9799,4.9245,4.8633,4.7516,4.6264,4.4680, &
& 4.3103,4.1565,4.0070,3.8803,3.7587,3.6398,3.5423,3.4494, &
& 3.3645,3.2944,3.2218,3.1556,3.0903,3.0362,2.9913,2.9452, &
& 2.8800,2.8324,2.7996,2.7676,2.7294,2.6935,2.6455,2.6056, &
& 2.5821,2.5509,2.5180,2.4942,2.4741,2.4497,2.4154,2.4060, &
& 2.3861,2.3648,2.3461,2.3276,2.3192,2.3056,2.2913,2.2694, &
& 2.2541,2.2482,2.2252,2.2128,2.2043,2.1874,2.1756,2.1636, &
& 2.1464,2.1237,2.1239,2.1145,2.0892,2.0812,2.0709,2.0539, &
& 2.0399,2.0322,2.0227,2.0077,1.9960,1.9895,1.9860,1.9731, &
& 1.9544,1.9485,1.9435,1.9292,1.9186,1.9109,1.9042,1.8996, &
& 1.8959,1.8878,1.8730,1.8655,1.8619,1.8563,1.8537,1.8456, &
& 1.8353,1.8303,1.8194,1.8062,1.8070,1.8132,1.8019,1.7884, &
& 1.7870,1.7850,1.7790,1.7750,1.7722,1.7668,1.7646,1.7610, &
& 1.7544,1.7534,1.7485,1.7372,1.7297,1.7285,1.7269,1.7225, &
& 1.7213,1.7192,1.7140,1.7126,1.7134,1.7085,1.7014,1.6990, &
& 1.7000,1.6983,1.6937,1.6914,1.6891,1.6896,1.6921,1.6941, &
& 1.6951,1.6907,1.6918,1.7028,1.7100,1.7077,1.7049,1.7076, &
& 1.7095,1.7085,1.7091,1.7140,1.7199,1.7250,1.7300,1.7333, &
& 1.7338,1.7336,1.7351,1.7389,1.7447,1.7471,1.7468,1.7431, &
& 1.7398,1.7380,1.7360,1.7367,1.7392,1.7376,1.7316,1.7263, &
& 1.7257,1.7252,1.7207,1.7181,1.7199,1.7218,1.7178,1.7114, &
& 1.7078,1.7051,1.7014,1.7003,1.7018,1.7020,1.7007,1.6983, &
& 1.6959,1.6943,1.6916,1.6890,1.6893,1.6862,1.6815,1.6781, &
& 1.6726,1.6656,1.6636,1.6578,1.6550,1.6560,1.6571,1.6532, &
& 1.6515,1.6473,1.6399,1.6334,1.6275,1.6223,1.6231,1.6230, &
& 1.6103,1.5989,1.5967,1.6010,1.5994,1.5895,1.5710,1.5603, &
& 1.5617,1.5642,1.5639,1.5645,1.5655,1.5597,1.5477,1.5402, &
& 1.5404,1.5419,1.5375,1.5312,1.5150,1.5049,1.5107,1.5245, &
& 1.5229,1.5142,1.5052,1.4768,1.4598,1.4622,1.4786,1.4691, &
& 1.4473,1.4337,1.4385,1.4521,1.4600,1.4541,1.4455,1.4343, &
& 1.4196,1.4112,1.4009,1.3895,1.3875,1.3893,1.3948,1.3930, &
& 1.3844,1.3628,1.3410,1.3357,1.3443,1.3516,1.3474,1.3397, &
& 1.3217,1.3010,1.2949,1.2994,1.3090,1.2892,1.2670,1.2677, &
& 1.2852,1.3174,1.3207,1.2899,1.2624,1.2610,1.2804,1.2990, &
& 1.2837,1.2516,1.2244,1.2220,1.2461,1.2781,1.2761,1.2604, &
& 1.2609,1.2742,1.2982,1.3041,1.3061,1.3248,1.3407,1.3650, &
& 1.3872,1.3638,1.3430,1.3235,1.3262,1.3772,1.4351,1.4566, &
& 1.4594,1.4564,1.4654,1.4959,1.5177,1.5180,1.5103,1.5023, &
& 1.5073,1.5234,1.5386,1.5638,1.5723,1.5689,1.5709,1.5705, &
& 1.5709,1.5727,1.5771,1.5821,1.5845,1.5847,1.5654,1.5373, &
& 1.5231,1.5110,1.5104,1.5276,1.5346,1.5039,1.4638,1.4257, &
& 1.4197,1.4515,1.5116,1.5455,1.5372,1.4970,1.4569,1.4447, &
& 1.4516,1.4817,1.5147,1.5241,1.5124,1.4961,1.4764,1.4606, &
& 1.4681,1.4896,1.5120,1.5048,1.4759,1.4617,1.4671,1.4871, &
& 1.5125,1.5349,1.5344,1.5216,1.5194,1.5261,1.5323,1.5405, &
& 1.5578,1.5668,1.5493,1.5179,1.4993,1.4957,1.4992,1.5131, &
& 1.5326,1.5300,1.4985,1.4779,1.4770,1.4856,1.5046,1.5320, &
& 1.5516,1.5561,1.5586,1.5541,1.5434,1.5326,1.5242,1.5227, &
& 1.5312,1.5459,1.5558,1.5528,1.5400,1.5254,1.5157,1.5151, &
& 1.5228,1.5362,1.5495,1.5511,1.5456,1.5409,1.5361,1.5306, &
& 1.5223,1.5173,1.5169,1.5177,1.5199,1.5227,1.5257,1.5282, &
& 1.5266,1.5273,1.5284,1.5232,1.5153,1.5104,1.5087,1.5098, &
& 1.5103,1.5064,1.4987,1.4910,1.4869,1.4863,1.4891,1.4941, &
& 1.4986,1.4989,1.5016,1.5038,1.5017,1.4942,1.4840,1.4730, &
& 1.4637,1.4596,1.4612,1.4677,1.4756,1.4817,1.4832,1.4816, &
& 1.4771,1.4699,1.4626,1.4563,1.4537,1.4537,1.4560,1.4585, &
& 1.4609,1.4611,1.4596,1.4567,1.4542,1.4521,1.4511,1.4513, &
& 1.4511,1.4507,1.4502,1.4492,1.4487,1.4485,1.4486,1.4481, &
& 1.4470,1.4442,1.4417,1.4378,1.4361,1.4352,1.4361,1.4372, &
& 1.4371,1.4368,1.4360,1.4351,1.4341,1.4341,1.4342,1.4339, &
& 1.4326,1.4310,1.4294,1.4280,1.4263,1.4245,1.4234,1.4223, &
& 1.4211,1.4220,1.4239,1.4256,1.4252,1.4250,1.4231,1.4196, &
& 1.4171,1.4136,1.4085,1.4044,1.4006,1.3979,1.3951,1.3940, &
& 1.3934,1.3918,1.3903,1.3871,1.3852,1.3831,1.3807,1.3797, &
& 1.3793,1.3764,1.3731,1.3680,1.3600,1.3531,1.3464,1.3423, &
& 1.3406,1.3397,1.3406,1.3414,1.3421,1.3407,1.3400,1.3384, &
& 1.3353,1.3339,1.3307,1.3289,1.3260,1.3238,1.3207,1.3179, &
& 1.3144,1.3126,1.3107,1.3096,1.3066,1.3031,1.2977,1.2936, &
& 1.2911,1.2916,1.2931,1.2949,1.2929,1.2886,1.2798,1.2699, &
& 1.2618,1.2548,1.2518,1.2490,1.2473,1.2473,1.2445,1.2427, &
& 1.2397,1.2364,1.2345,1.2324,1.2300,1.2258,1.2209,1.2170, &
& 1.2115,1.2049,1.1993,1.1915,1.1843,1.1785,1.1731,1.1683, &
& 1.1641,1.1594,1.1517,1.1429,1.1341,1.1228,1.1109,1.0991, &
& 1.0904,1.0825,1.0761,1.0708,1.0664,1.0620,1.0531,1.0425, &
& 1.0311,1.0186,1.0073,0.9936,0.9814,0.9693,0.9563,0.9435, &
& 0.9325,0.9241,0.9142,0.9029,0.8911,0.8786,0.8657,0.8534, &
& 0.8434,0.8345,0.8267,0.8190,0.8126,0.8057,0.7978,0.7887, &
& 0.7781,0.7668,0.7489,0.7336,0.7199,0.7095,0.7026,0.6986, &
& 0.6966,0.6926,0.6872,0.6803,0.6734,0.6689,0.6679,0.6687, &
& 0.6715,0.6767,0.6848,0.6936,0.7045,0.7181,0.7379,0.7617, &
& 0.7855,0.8113,0.8405,0.8716,0.9056,0.9361,0.9663,0.9983, &
& 1.0367,1.0727,1.1113,1.1524,1.2011,1.2434,1.2864,1.3371, &
& 1.3830,1.4297,1.4836,1.5288,1.5707,1.6169,1.6575,1.7052, &
& 1.7490,1.8001,1.8451,1.8894,1.9394,1.9812,2.0297,2.0707, &
& 2.1155,2.1536,2.1983,2.2376,2.2835,2.3279,2.3639,2.4031, &
& 2.4335,2.4689,2.5057,2.5368,2.5759,2.6161,2.6508,2.6918, &
& 2.7333,2.7685,2.8108,2.8507,2.8908,2.9262,2.9675,3.0086, &
& 3.0494,3.0828,3.1213,3.1594,3.1968,3.2331,3.2668,3.2993, &
& 3.3266,3.3574,3.3882,3.4178,3.4450,3.4704,3.4953,3.5193, &
& 3.5407,3.5602,3.5815,3.6040,3.6271,3.6533,3.6757,3.6976, &
& 3.7166,3.7314,3.7399,3.7458,3.7550,3.7625,3.7723,3.7848, &
& 3.8005,3.8101,3.8184,3.8237,3.8295,3.8310,3.8306,3.8317, &
& 3.8310,3.8332,3.8389,3.8504,3.8629,3.8761,3.8842,3.8891, &
& 3.8885,3.8889,3.8892,3.8901,3.8876,3.8819,3.8732,3.8592, &
& 3.8476,3.8402,3.8404,3.8389,3.8344 /)
plasim/src/specs/seawater_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 25 KiB

plasim/src/specs/seawater_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

plasim/src/specs/snow_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/soil.aridisol.calciorthid.none.all.79p1536.jhu.becknic.ancillary.txt
+20
View File
@@ -0,0 +1,20 @@
Name: Light yellowish brown interior dry gravelly loam
Type: soil
Class: Aridisol
Subclass: Calciorthid
Particle Size: none
Sample No.: 79P1536
Owner: JHU
Wavelength Range: All
Origin: 8 km north of Deir El zor, Syria via USDA Soil Conservationservice.
Collection Date: N/A
Description: The parent material is alluvium from mixed material; alluvial fine material overlayed on gypsum sandy loam, uncultivated from terracettes in lake plains. Light yellowish brown interior dry gravelly loam. Original ASTER Spectral Library name was jhu.becknic.soil.aridisol.calciorthid.coarse.79P1536.spectrum.txt
Weak medium subangular blocky structure, soft, friable, slightly sticky and
plastic and strongly effervescent with a clear smooth boundary. 0.5%
organic carbon, 0.6% extractable Fe. 10.7% clay, 40.4% silt, 48.9% sand.
Chemical analyses give 21% CaCO3.
Clay mineralogy: none.
Coarse mineralogy: none.
plasim/src/specs/soil.aridisol.calciorthid.none.all.79p1536.jhu.becknic.spectrum.txt
+2889
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/soil.aridisol.calciorthid.none.all.79p1536.jhu.becknic.spectrum_f90.txt
+720
View File
@@ -0,0 +1,720 @@
real :: wvyellowloam(2868) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0270,10.0470,10.0660,10.0860,10.1060,10.1250,10.1450,10.1650, &
& 10.1850,10.2050,10.2250,10.2450,10.2660,10.2860,10.3060,10.3270, &
& 10.3480,10.3680,10.3890,10.4100,10.4310,10.4520,10.4730,10.4940, &
& 10.5160,10.5370,10.5580,10.5800,10.6020,10.6230,10.6450,10.6670, &
& 10.6890,10.7110,10.7330,10.7550,10.7780,10.8000,10.8230,10.8460, &
& 10.8680,10.8910,10.9140,10.9370,10.9600,10.9830,11.0070,11.0300, &
& 11.0540,11.0770,11.1010,11.1250,11.1490,11.1730,11.1970,11.2210, &
& 11.2450,11.2700,11.2940,11.3190,11.3440,11.3690,11.3940,11.4190, &
& 11.4440,11.4690,11.4950,11.5200,11.5460,11.5720,11.5980,11.6240, &
& 11.6500,11.6760,11.7020,11.7290,11.7550,11.7820,11.8090,11.8360, &
& 11.8630,11.8900,11.9180,11.9450,11.9730,12.0000,12.0280,12.0560, &
& 12.0840,12.1130,12.1410,12.1690,12.1980,12.2270,12.2560,12.2850, &
& 12.3140,12.3430,12.3730,12.4020,12.4320,12.4620,12.4920,12.5220, &
& 12.5520,12.5830,12.6140,12.6440,12.6750,12.7060,12.7370,12.7690, &
& 12.8000,12.8320,12.8640,12.8960,12.9280,12.9600,12.9930,13.0260, &
& 13.0580,13.0910,13.1240,13.1580,13.1910,13.2250,13.2590,13.2930, &
& 13.3270,13.3610,13.3960,13.4300,13.4650,13.5000,13.5360,13.5710, &
& 13.6070,13.6430,13.6790,13.7150,13.7510,13.7880,13.8240,13.8610, &
& 13.8990,13.9360,13.9730,14.0110,14.0490,14.0870,14.1260,14.1640, &
& 14.2030,14.2420,14.2810,14.3210,14.3610,14.4000,14.4410,14.4810, &
& 14.5210,14.5620,14.6030,14.6450,14.6860,14.7280,14.7700,14.8120, &
& 14.854,14.897,14.94,14.983 /)
real :: yellowloam(2868) = (/2.902,3.1628,3.2727,3.2619,3.2445,3.3412,3.3919,3.4011, &
& 3.4937,3.8165,3.5685,3.4548,3.7550,3.9889,4.0118,4.0232, &
& 4.0461,4.1417,4.1357,4.1357,4.3690,4.3164,4.3353,4.5167, &
& 4.5896,4.5735,4.8769,4.9687,5.1502,5.0173,5.1552,5.5122, &
& 5.3296,5.0895,5.4223,5.6146,5.8380,5.6393,5.8549,5.8549, &
& 6.0613,6.1680,6.2389,6.2299,6.5484,6.6154,6.8109,7.0207, &
& 7.0967,7.1721,7.2997,7.4942,7.7180,7.5604,7.8543,7.9262, &
& 7.7680,7.8625,7.8512,7.7894,7.9329,8.2226,8.2408,8.0864, &
& 8.1980,8.2420,8.4576,8.4576,8.4702,8.4344,8.6782,8.7252, &
& 8.5627,8.7065,8.7453,9.0419,9.2508,9.0687,9.3063,9.3063, &
& 9.4544,9.3982,9.5872,9.5302,9.5019,9.7216,9.8335,10.0610, &
& 10.1660,10.1810,10.3530,10.4220,10.3920,10.4530,10.6020,10.7070, &
& 10.6300,11.0020,11.3030,11.3760,11.5380,11.5600,11.5430,11.4000, &
& 11.4560,11.3950,11.9470,11.8790,11.9830,11.7950,12.3760,12.4630, &
& 12.6350,12.6710,12.8300,13.0070,13.0620,13.2040,13.4730,13.5220, &
& 13.7390,13.7530,13.7610,13.7220,13.7560,13.9850,14.0700,14.0460, &
& 14.2000,14.5120,14.6270,14.6960,14.8010,15.0140,15.3280,15.2820, &
& 15.4070,15.4490,15.9390,16.0850,16.1460,16.5040,16.5370,16.5970, &
& 16.8200,16.9540,17.0580,17.2020,17.6130,17.5950,17.7320,18.0060, &
& 18.1430,18.1990,18.5670,18.7250,18.8580,18.9890,18.9600,18.9840, &
& 19.4380,19.4920,19.9650,20.0680,20.3260,20.2160,20.7380,20.9710, &
& 21.0940,21.3540,21.4360,21.6430,21.5340,21.7530,22.0640,22.1660, &
& 22.4940,22.7050,22.6930,22.7990,23.0970,23.2030,23.5320,23.6550, &
& 23.6550,24.2240,24.5600,24.4470,24.7200,24.6790,24.6160,24.9490, &
& 25.0030,25.0980,25.2150,24.8960,25.5800,25.5650,25.5320,25.5750, &
& 25.3500,25.4660,25.8030,25.6550,25.7370,25.8100,25.9640,26.0360, &
& 25.8590,26.2450,26.0270,26.3880,26.1150,26.4370,26.4330,26.6050, &
& 26.4710,26.2460,26.6190,26.6510,26.7570,26.7490,26.5680,26.9880, &
& 26.9600,27.0190,27.2980,26.9210,26.9910,27.2250,27.4010,27.3940, &
& 27.4070,26.9640,27.4070,27.5410,27.6410,27.5340,27.0430,27.3400, &
& 27.8520,28.1240,28.1240,27.8890,27.4790,27.8550,27.6800,27.6140, &
& 27.8200,28.2970,28.3920,28.7100,28.4270,28.4290,28.6340,28.8060, &
& 28.8060,28.8130,28.6050,28.7710,28.9100,29.0130,29.0830,29.0120, &
& 29.0110,28.9420,29.2860,29.3920,29.6010,29.4930,29.3170,29.2150, &
& 29.4930,29.9090,30.1200,29.9430,29.7020,29.9760,29.9370,30.2140, &
& 29.8620,29.9330,30.0710,30.1070,30.4510,30.4150,30.4120,30.3760, &
& 30.7290,30.5200,30.3710,30.6200,31.0390,31.0750,30.9360,31.3480, &
& 31.4970,31.3980,31.3810,32.7110,31.5820,31.5840,31.2710,31.3560, &
& 31.5570,31.5290,31.8960,32.0710,32.1730,31.8970,31.8320,32.0340, &
& 31.6850,31.8320,32.0810,32.2850,32.3860,32.5140,32.2520,32.1780, &
& 31.7500,31.8490,31.9950,32.1680,32.0490,32.0580,32.0850,32.3680, &
& 32.3310,32.6310,32.8050,32.7560,32.8800,32.8540,32.8800,32.8800, &
& 33.0560,32.7310,32.7680,32.9300,33.1680,33.2920,33.3920,33.2810, &
& 33.2300,33.1930,33.2920,33.2550,33.1420,33.1930,33.2920,33.1550, &
& 33.4920,33.5920,33.6820,33.6820,33.5540,33.5540,33.4030,33.4650, &
& 33.5400,33.7300,33.8060,33.9830,33.8770,33.7110,33.9000,33.9610, &
& 33.8850,33.9010,33.9610,33.6650,33.7860,34.0990,34.1290,34.4840, &
& 34.4060,34.4520,34.1830,34.3580,34.1000,34.3740,34.6290,34.2990, &
& 34.1760,34.3680,34.2910,34.0780,34.3750,34.3980,34.4750,34.2830, &
& 34.2380,34.6510,34.5730,34.7900,34.8890,34.7070,34.3830,34.3830, &
& 34.3830,34.5000,34.5580,34.7650,34.4610,34.6620,35.0440,34.8180, &
& 35.0400,34.8770,34.7820,34.5800,34.7690,34.8280,34.8280,35.0390, &
& 34.9170,34.8680,35.0190,35.2050,35.0690,35.1910,35.3120,35.2260, &
& 35.1690,35.1690,35.3550,35.2690,35.4770,35.5820,35.7470,35.7400, &
& 35.9640,35.9280,35.8550,35.9640,36.0370,36.1680,36.3350,36.3520, &
& 36.4280,36.2530,36.6080,36.4600,36.3500,36.0230,36.1760,37.0410, &
& 36.6360,36.8910,36.9470,36.8540,37.2150,37.3840,37.2900,37.8390, &
& 37.8310,37.5470,37.5830,37.5900,37.3270,37.5530,37.5510,37.7530, &
& 37.8840,38.1540,37.7580,38.1370,38.4030,38.2430,38.3470,38.3590, &
& 38.5310,38.4530,38.4250,38.4420,38.3870,38.3970,38.9530,39.2210, &
& 39.3400,39.5700,39.3150,39.9220,39.4350,39.6790,39.2900,39.0920, &
& 39.3090,39.5580,39.5720,39.8380,40.1580,40.1980,40.3720,40.2780, &
& 40.4000,40.6230,40.8400,40.8400,40.7460,40.7460,40.7110,40.8760, &
& 40.8460,40.8990,40.8990,41.3360,41.3150,41.4620,41.5670,41.6520, &
& 41.8690,41.7840,41.7090,41.8020,41.5820,41.7510,41.7610,41.5500, &
& 41.5290,41.5900,41.5070,41.8370,42.0190,41.6900,41.4840,41.6940, &
& 41.8280,42.0540,42.1380,42.2220,41.9700,42.1960,42.0300,42.4570, &
& 43.1100,42.9180,42.9140,43.2070,42.9230,42.9130,42.9170,43.1120, &
& 42.3950,41.8960,42.1290,41.5500,41.0430,40.5880,40.2310,39.7530, &
& 39.5630,39.7220,40.3760,40.8750,41.1040,41.2920,41.4470,41.5070, &
& 41.6060,41.8420,41.7210,42.1130,42.3350,42.4830,42.6580,42.6150, &
& 42.6650,42.9820,43.4430,43.7680,43.5810,43.7090,43.1800,43.0060, &
& 43.3840,43.5690,43.4380,43.4820,43.5800,43.7640,44.1260,43.9530, &
& 44.2190,44.0850,44.4000,44.6300,44.5370,44.0910,44.1310,44.4000, &
& 44.2630,43.7320,44.1350,44.9550,45.0420,44.8540,44.7250,44.8110, &
& 44.7250,44.3190,44.3630,44.9100,44.9550,45.0860,45.1800,45.3580, &
& 45.2210,45.2210,44.9950,45.1330,45.6380,45.9160,45.6870,45.2730, &
& 45.2230,45.4100,45.5500,45.7310,45.6870,45.9660,45.4140,45.4150, &
& 45.5040,45.5970,46.1030,45.8710,46.1480,46.5690,46.1010,45.8170, &
& 45.6870,45.9190,45.9650,45.8670,45.9130,46.0510,45.8650,45.6800, &
& 45.6800,45.7270,45.6810,45.6810,45.6800,45.6790,45.6340,45.7250, &
& 45.8180,45.8180,45.8650,45.9110,45.9570,46.1430,45.8180,45.8640, &
& 45.6790,45.3500,44.8360,44.7000,45.0160,45.3400,45.8580,46.3720, &
& 46.4680,45.6150,44.2410,42.9400,42.4770,42.2510,41.5100,40.7420, &
& 39.6080,38.2800,37.5530,36.2850,35.4110,35.2560,35.3330,35.2940, &
& 35.8380,36.5760,37.3840,38.0610,38.9090,39.0940,39.3930,39.7880, &
& 40.0320,40.0430,40.2330,40.5610,41.4100,41.6880,41.8270,42.1070, &
& 42.3360,42.5280,42.5900,42.8740,43.0250,43.3480,43.6310,44.2080, &
& 44.5900,44.9710,45.0160,45.0180,45.1610,45.3050,45.2580,45.5960, &
& 45.4010,45.7890,45.9350,46.1790,45.9840,45.7900,46.0340,46.1310, &
& 46.1310,46.0970,46.0840,46.1480,46.1400,46.1580,46.1680,46.1670, &
& 46.1720,46.1730,46.1730,46.1710,46.1640,46.1570,46.1540,46.1620, &
& 46.1860,46.2240,46.2680,46.3060,46.3260,46.3210,46.2890,46.2380, &
& 46.1790,46.1230,46.0790,46.0510,46.0400,46.0430,46.0570,46.0780, &
& 46.1010,46.1200,46.1310,46.1290,46.1160,46.0970,46.0770,46.0660, &
& 46.0690,46.0840,46.1080,46.1310,46.1430,46.1390,46.1200,46.0910, &
& 46.0570,46.0290,46.0080,45.9960,45.9890,45.9850,45.9810,45.9730, &
& 45.9650,45.9580,45.9570,45.9630,45.9800,46.0050,46.0350,46.0650, &
& 46.0900,46.1080,46.1180,46.1210,46.1210,46.1200,46.1170,46.1110, &
& 46.0980,46.0750,46.0420,46.0000,45.9520,45.9040,45.8620,45.8300, &
& 45.8110,45.8040,45.8080,45.8180,45.8280,45.8340,45.8290,45.8120, &
& 45.7820,45.7430,45.6980,45.6540,45.6160,45.5860,45.5640,45.5470, &
& 45.5300,45.5130,45.4910,45.4650,45.4370,45.4090,45.3840,45.3630, &
& 45.3490,45.3420,45.3400,45.3400,45.3370,45.3270,45.3070,45.2760, &
& 45.2330,45.1830,45.1320,45.0830,45.0370,44.9960,44.9570,44.9180, &
& 44.8750,44.8300,44.7810,44.7300,44.6780,44.6250,44.5700,44.5140, &
& 44.4560,44.3990,44.3450,44.2980,44.2570,44.2220,44.1870,44.1450, &
& 44.0880,44.0090,43.9050,43.7760,43.6270,43.4690,43.3120,43.1730, &
& 43.0630,42.9930,42.9640,42.9720,43.0050,43.0460,43.0790,43.0890, &
& 43.0690,43.0180,42.9420,42.8530,42.7670,42.6970,42.6550,42.6490, &
& 42.6800,42.7430,42.8310,42.9340,43.0410,43.1430,43.2330,43.3050, &
& 43.3560,43.3850,43.3920,43.3780,43.3460,43.3000,43.2450,43.1880, &
& 43.1330,43.0870,43.0530,43.0290,43.0140,43.0030,42.9900,42.9710, &
& 42.9450,42.9100,42.8710,42.8290,42.7860,42.7450,42.7080,42.6770, &
& 42.6530,42.6390,42.6350,42.6400,42.6530,42.6720,42.6970,42.7270, &
& 42.7610,42.7960,42.8290,42.8580,42.8790,42.8910,42.8950,42.8910, &
& 42.8820,42.8680,42.8470,42.8220,42.7920,42.7600,42.7280,42.6960, &
& 42.6640,42.6280,42.5850,42.5300,42.4640,42.3910,42.3150,42.2410, &
& 42.1730,42.1100,42.0520,41.9970,41.9410,41.8860,41.8300,41.7740, &
& 41.7190,41.6650,41.6100,41.5550,41.5010,41.4500,41.4040,41.3630, &
& 41.3240,41.2840,41.2390,41.1870,41.1290,41.0700,41.0140,40.9650, &
& 40.9230,40.8850,40.8470,40.8010,40.7440,40.6740,40.5910,40.4970, &
& 40.3970,40.2950,40.1980,40.1110,40.0370,39.9780,39.9280,39.8800, &
& 39.8260,39.7590,39.6760,39.5820,39.4850,39.3910,39.3080,39.2400, &
& 39.1840,39.1390,39.1030,39.0720,39.0480,39.0290,39.0130,39.0000, &
& 38.9870,38.9760,38.9660,38.9610,38.9630,38.9720,38.9890,39.0140, &
& 39.0450,39.0820,39.1250,39.1720,39.2190,39.2620,39.2950,39.3130, &
& 39.3160,39.3080,39.2940,39.2820,39.2760,39.2790,39.2900,39.3050, &
& 39.3180,39.3210,39.3100,39.2850,39.2480,39.2030,39.1580,39.1170, &
& 39.0830,39.0560,39.0340,39.0160,39.0000,38.9840,38.9670,38.9500, &
& 38.9300,38.9060,38.8780,38.8460,38.8110,38.7750,38.7370,38.6960, &
& 38.6510,38.5990,38.5430,38.4850,38.4320,38.3890,38.3600,38.3440, &
& 38.3360,38.3270,38.3100,38.2780,38.2320,38.1740,38.1140,38.0570, &
& 38.0080,37.9660,37.9290,37.8900,37.8460,37.7950,37.7380,37.6810, &
& 37.6250,37.5730,37.5240,37.4750,37.4200,37.3580,37.2890,37.2140, &
& 37.1380,37.0670,37.0030,36.9480,36.9000,36.8560,36.8120,36.7680, &
& 36.7210,36.6720,36.6220,36.5740,36.5280,36.4840,36.4440,36.4070, &
& 36.3750,36.3470,36.3240,36.3040,36.2850,36.2630,36.2360,36.2030, &
& 36.1640,36.1210,36.0770,36.0330,35.9890,35.9440,35.8940,35.8400, &
& 35.7800,35.7170,35.6520,35.5880,35.5250,35.4640,35.4010,35.3370, &
& 35.2690,35.1960,35.1200,35.0430,34.9700,34.9010,34.8390,34.7810, &
& 34.7270,34.6720,34.6170,34.5600,34.5030,34.4480,34.3960,34.3470, &
& 34.2990,34.2520,34.2030,34.1540,34.1040,34.0550,34.0070,33.9620, &
& 33.9210,33.8820,33.8440,33.8070,33.7670,33.7230,33.6750,33.6230, &
& 33.5680,33.5150,33.4650,33.4200,33.3780,33.3370,33.2920,33.2420, &
& 33.1820,33.1130,33.0350,32.9530,32.8730,32.8010,32.7410,32.6980, &
& 32.6700,32.6530,32.6410,32.6300,32.6170,32.6030,32.5920,32.5860, &
& 32.5880,32.6010,32.6290,32.6740,32.7390,32.8200,32.9030,32.9670, &
& 32.9840,32.9360,32.8210,32.6610,32.4950,32.3660,32.3060,32.3210, &
& 32.3940,32.4880,32.5640,32.6000,32.5950,32.5650,32.5340,32.5170, &
& 32.5130,32.5050,32.4720,32.4060,32.3130,32.2210,32.1570,32.1350, &
& 32.1410,32.1370,32.0750,31.9290,31.7120,31.4780,31.3020,31.2470, &
& 31.3320,31.5190,31.7300,31.8810,31.9180,31.8450,31.7120,31.5940, &
& 31.5530,31.6030,31.7130,31.8200,31.8610,31.8010,31.6530,31.4650, &
& 31.2990,31.2050,31.1920,31.2340,31.2790,31.2730,31.1850,31.0250, &
& 30.8340,30.6690,30.5830,30.6000,30.7090,30.8720,31.0330,31.1450, &
& 31.1760,31.1220,30.9960,30.8240,30.6290,30.4270,30.2250,30.0240, &
& 29.8230,29.6270,29.4410,29.2700,29.1100,28.9440,28.7420,28.4710, &
& 28.1050,27.6420,27.1060,26.5440,26.0150,25.5670,25.2250,24.9810, &
& 24.8020,24.6390,24.4480,24.2020,23.8950,23.5320,23.1260,22.6800, &
& 22.1840,21.6170,20.9520,20.1700,19.2640,18.2430,17.1330,15.9700, &
& 14.7940,13.6390,12.5340,11.4980,10.5490,9.7011,8.9709,8.3738, &
& 7.9214,7.6159,7.4458,7.3847,7.3938,7.4275,7.4402,7.3962, &
& 7.2759,7.0786,6.8210,6.5329,6.2461,5.9861,5.7659,5.5835, &
& 5.4245,5.2700,5.1042,4.9189,4.7173,4.5105,4.3140,4.1418, &
& 4.0024,3.8957,3.8152,3.7473,3.6794,3.6006,3.5049,3.3943, &
& 3.2734,3.1509,3.0347,2.9297,2.8381,2.7607,2.6973,2.6489, &
& 2.6184,2.6079,2.6201,2.6538,2.7041,2.7644,2.8259,2.8806, &
& 2.9226,2.9487,2.9587,2.9546,2.9385,2.9141,2.8855,2.8574, &
& 2.8340,2.8198,2.8176,2.8281,2.8501,2.8789,2.9092,2.9353, &
& 2.9529,2.9590,2.9538,2.9382,2.9143,2.8845,2.8513,2.8171, &
& 2.7847,2.7563,2.7351,2.7224,2.7183,2.7224,2.7322,2.7451, &
& 2.7593,2.7742,2.7900,2.8093,2.8335,2.8633,2.8992,2.9394, &
& 2.9817,3.0244,3.0657,3.1052,3.1423,3.1775,3.2097,3.2383, &
& 3.2622,3.2808,3.2947,3.3054,3.3152,3.3276,3.3445,3.3660, &
& 3.3911,3.4165,3.4387,3.4546,3.4629,3.4639,3.4597,3.4534, &
& 3.4463,3.4399,3.4333,3.4267,3.4184,3.4089,3.3987,3.3894, &
& 3.3823,3.3769,3.3733,3.3694,3.3633,3.3555,3.3455,3.3354, &
& 3.3269,3.3220,3.3203,3.3210,3.3227,3.3232,3.3205,3.3147, &
& 3.3059,3.2954,3.2854,3.2776,3.2729,3.2715,3.2712,3.2698, &
& 3.2644,3.2532,3.2361,3.2151,3.1941,3.1782,3.1704,3.1726, &
& 3.1829,3.1975,3.2119,3.2214,3.2244,3.2207,3.2131,3.2048, &
& 3.1985,3.1965,3.1992,3.2060,3.2163,3.2283,3.2410,3.2544, &
& 3.2690,3.2854,3.3035,3.3235,3.3440,3.3633,3.3804,3.3938, &
& 3.4033,3.4101,3.4163,3.4224,3.4297,3.4382,3.4475,3.4573, &
& 3.4678,3.4795,3.4932,3.5107,3.5320,3.5571,3.5852,3.6140, &
& 3.6421,3.6667,3.6863,3.6997,3.7078,3.7119,3.7158,3.7217, &
& 3.7319,3.7461,3.7629,3.7800,3.7949,3.8074,3.8181,3.8284, &
& 3.8401,3.8540,3.8701,3.8865,3.9011,3.9128,3.9202,3.9226, &
& 3.9214,3.9184,3.9160,3.9170,3.9238,3.9380,3.9590,3.9846, &
& 4.0124,4.0386,4.0600,4.0769,4.0893,4.1006,4.1133,4.1296, &
& 4.1511,4.1770,4.2058,4.2349,4.2634,4.2900,4.3157,4.3415, &
& 4.3691,4.4001,4.4348,4.4722,4.5110,4.5498,4.5871,4.6218, &
& 4.6540,4.6853,4.7161,4.7488,4.7832,4.8203,4.8586,4.8979, &
& 4.9363,4.9731,5.0093,5.0456,5.0847,5.1289,5.1789,5.2353, &
& 5.2966,5.3601,5.4226,5.4817,5.5361,5.5854,5.6313,5.6760, &
& 5.7219,5.7705,5.8225,5.8772,5.9341,5.9914,6.0478,6.1020, &
& 6.1538,6.2024,6.2493,6.2959,6.3445,6.3972,6.4553,6.5190, &
& 6.5862,6.6545,6.7214,6.7844,6.8430,6.8979,6.9514,7.0061, &
& 7.0635,7.1252,7.1907,7.2593,7.3288,7.3982,7.4660,7.5327, &
& 7.5974,7.6614,7.7239,7.7844,7.8425,7.8982,7.9526,8.0063, &
& 8.0622,8.1213,8.1843,8.2514,8.3208,8.3906,8.4592,8.5261, &
& 8.5908,8.6553,8.7214,8.7912,8.8652,8.9428,9.0219,9.1001, &
& 9.1743,9.2429,9.3066,9.3669,9.4275,9.4907,9.5588,9.6325, &
& 9.7109,9.7917,9.8723,9.9507,10.0250,10.0960,10.1620,10.2260, &
& 10.2890,10.3500,10.4120,10.4740,10.5380,10.6040,10.6730,10.7430, &
& 10.8130,10.8800,10.9450,11.0050,11.0620,11.1130,11.1590,11.1940, &
& 11.2120,11.2060,11.1700,11.1020,11.0060,10.8920,10.7720,10.6650, &
& 10.5830,10.5370,10.5310,10.5620,10.6250,10.7090,10.8060,10.9060, &
& 11.0000,11.0820,11.1500,11.2040,11.2470,11.2830,11.3210,11.3660, &
& 11.4220,11.4900,11.5660,11.6460,11.7230,11.7920,11.8500,11.8970, &
& 11.9340,11.9650,11.9930,12.0210,12.0500,12.0820,12.1180,12.1610, &
& 12.2120,12.2730,12.3460,12.4320,12.5290,12.6360,12.7480,12.8610, &
& 12.9700,13.0730,13.1670,13.2500,13.3230,13.3860,13.4380,13.4770, &
& 13.5000,13.4980,13.4680,13.4030,13.3040,13.1750,13.0310,12.8880, &
& 12.7670,12.6840,12.6510,12.6720,12.7420,12.8510,12.9880,13.1380, &
& 13.2920,13.4450,13.5930,13.7400,13.8910,14.0530,14.2360,14.4470, &
& 14.6910,14.9710,15.2860,15.6310,15.9980,16.3760,16.7530,17.1180, &
& 17.4600,17.7750,18.0600,18.3170,18.5500,18.7630,18.9590,19.1420, &
& 19.3130,19.4740,19.6240,19.7660,19.8980,20.0200,20.1340,20.2420, &
& 20.3480,20.4560,20.5730,20.7020,20.8420,20.9900,21.1400,21.2860, &
& 21.4230,21.5480,21.6640,21.7740,21.8820,21.9910,22.1010,22.2090, &
& 22.3140,22.4150,22.5100,22.6010,22.6910,22.7810,22.8750,22.9700, &
& 23.0680,23.1670,23.2660,23.3630,23.4570,23.5460,23.6290,23.7060, &
& 23.7780,23.8460,23.9140,23.9860,24.0640,24.1490,24.2390,24.3310, &
& 24.4210,24.5040,24.5800,24.6480,24.7100,24.7680,24.8250,24.8820, &
& 24.9420,25.0020,25.0630,25.1250,25.1860,25.2480,25.3090,25.3710, &
& 25.4320,25.4940,25.5580,25.6220,25.6880,25.7530,25.8160,25.8740, &
& 25.9240,25.9650,25.9970,26.0200,26.0380,26.0540,26.0710,26.0930, &
& 26.1230,26.1580,26.1970,26.2350,26.2670,26.2900,26.2990,26.2940, &
& 26.2710,26.2300,26.1670,26.0780,25.9570,25.8010,25.6070,25.3790, &
& 25.1220,24.8450,24.5560,24.2630,23.9700,23.6800,23.3910,23.1030, &
& 22.8120,22.5220,22.2320,21.9480,21.6770,21.4260,21.2010,21.0060, &
& 20.8440,20.7120,20.6080,20.5280,20.4670,20.4190,20.3790,20.3450, &
& 20.3130,20.2840,20.2580,20.2350,20.2160,20.1990,20.1820,20.1620, &
& 20.1350,20.1010,20.0570,20.0040,19.9430,19.8740,19.7980,19.7130, &
& 19.6230,19.5290,19.4300,19.3260,19.2080,19.0620,18.8690,18.6100, &
& 18.2700,17.8430,17.3370,16.7720,16.1790,15.5920,15.0410,14.5490, &
& 14.1290,13.7840,13.5100,13.3020,13.1590,13.0820,13.0780,13.1590, &
& 13.3350,13.6170,14.0060,14.4980,15.0810,15.7360,16.4400,17.1680, &
& 17.8960,18.6040,19.2770,19.9110,20.5070,21.0720,21.6170,22.1500, &
& 22.6750,23.1920,23.6920,24.1640,24.5960,24.9780,25.3050,25.5770, &
& 25.7990,25.9810,26.1330,26.2640,26.3810,26.4880,26.5880,26.6820, &
& 26.7720,26.8550,26.9320,27.0010,27.0610,27.1120,27.1530,27.1880, &
& 27.2180,27.2460,27.2710,27.2960,27.3180,27.3340,27.3450,27.3480, &
& 27.3440,27.3350,27.3230,27.3090,27.2930,27.2770,27.2570,27.2350, &
& 27.2070,27.1750,27.1380,27.0980,27.0550,27.0110,26.9680,26.9240, &
& 26.8800,26.8310,26.7750,26.7060,26.6210,26.5190,26.4010,26.2700, &
& 26.1370,26.0070,25.8890,25.7910,25.7150,25.6600,25.6210,25.5850, &
& 25.5390,25.4690,25.3680,25.2350,25.0810,24.9230,24.7810,24.6730, &
& 24.6070,24.5840,24.5950,24.6290,24.6710,24.7120,24.7430,24.7630, &
& 24.7710,24.7670,24.7530,24.7320,24.7040,24.6730,24.6390,24.6040, &
& 24.5670,24.5270,24.4820,24.4320,24.3760,24.3160,24.2540,24.1910, &
& 24.1250,24.0560,23.9810,23.8980,23.8060,23.7070,23.6030,23.4960, &
& 23.3910,23.2890,23.1890,23.0930,22.9980,22.9040,22.8120,22.7200, &
& 22.6290,22.5410,22.4550,22.3710,22.2890,22.2080,22.1250,22.0400, &
& 21.9540,21.8660,21.7780,21.6950,21.6170,21.5460,21.4840,21.4290, &
& 21.3820,21.3430,21.3100,21.2860,21.2710,21.2660,21.2700,21.2810, &
& 21.2950,21.3100,21.3190,21.3220,21.3170,21.3040,21.2870,21.2670, &
& 21.2470,21.2260,21.2030,21.1770,21.1470,21.1110,21.0670,21.0160, &
& 20.9570,20.8890,20.8150,20.7350,20.6510,20.5650,20.4790,20.3920, &
& 20.3020,20.2080,20.1060,19.9950,19.8700,19.7300,19.5760,19.4100, &
& 19.2370,19.0630,18.8950,18.7390,18.5970,18.4710,18.3620,18.2710, &
& 18.2010,18.1560,18.1410,18.1590,18.2080,18.2840,18.3780,18.4790, &
& 18.5760,18.6610,18.7280,18.7750,18.8030,18.8130,18.8060,18.7850, &
& 18.7510,18.7060,18.6520,18.5930,18.5320,18.4730,18.4180,18.3690, &
& 18.3250,18.2840,18.2430,18.2000,18.1530,18.0980,18.0350,17.9670, &
& 17.8930,17.8180,17.7430,17.6710,17.6010,17.5320,17.4610,17.3840, &
& 17.2990,17.2050,17.1000,16.9850,16.8590,16.7210,16.5710,16.4100, &
& 16.2370,16.0570,15.8720,15.6870,15.5060,15.3340,15.1720,15.0250, &
& 14.8920,14.7760,14.6740,14.5830,14.4970,14.4100,14.3160,14.2100, &
& 14.0920,13.9620,13.8260,13.6890,13.5580,13.4380,13.3320,13.2410, &
& 13.1670,13.1060,13.0560,13.0150,12.9810,12.9510,12.9230,12.8960, &
& 12.8720,12.8480,12.8250,12.8030,12.7800,12.7530,12.7200,12.6830, &
& 12.6420,12.6020,12.5690,12.5450,12.5330,12.5290,12.5300,12.5290, &
& 12.5200,12.5010,12.4710,12.4330,12.3920,12.3510,12.3150,12.2850, &
& 12.2600,12.2380,12.2140,12.1840,12.1450,12.0940,12.0310,11.9570, &
& 11.8710,11.7770,11.6740,11.5610,11.4380,11.3020,11.1560,11.0000, &
& 10.8380,10.6760,10.5180,10.3670,10.2260,10.0950,9.9741,9.8637, &
& 9.7644,9.6772,9.6013,9.5346,9.4741,9.4140,9.3498,9.2785, &
& 9.1997,9.1181,9.0407,8.9758,8.9324,8.9145,8.9236,8.9553, &
& 9.0024,9.0556,9.1057,9.1462,9.1738,9.1885,9.1948,9.1972, &
& 9.1992,9.2011,9.1985,9.1828,9.1457,9.0805,8.9856,8.8652, &
& 8.7282,8.5840,8.4409,8.3037,8.1726,8.0437,7.9099,7.7612, &
& 7.5842,7.3645,7.0879,6.7451,6.3379,5.8823,5.4101,4.9665, &
& 4.6008,4.3574,4.2659,4.3325,4.5410,4.8542,5.2222,5.5935, &
& 5.9243,6.1870,6.3708,6.4824,6.5400,6.5661,6.5805,6.5974, &
& 6.6203,6.6460,6.6658,6.6706,6.6540,6.6138,6.5520,6.4751, &
& 6.3909,6.3049,6.2204,6.1367,6.0508,5.9597,5.8633,5.7659, &
& 5.6745,5.5981,5.5408,5.5017,5.4719,5.4387,5.3884,5.3130, &
& 5.2126,5.0947,4.9714,4.8535,4.7451,4.6426,4.5361,4.4145, &
& 4.2712,4.1069,3.9302,3.7537,3.5879,3.4375,3.3010,3.1697, &
& 3.0356,2.8940,2.7471,2.6020,2.4697,2.3584,2.2725,2.2107, &
& 2.1675,2.1360,2.1094,2.0825,2.0530,2.0193,1.9805,1.9370, &
& 1.8892,1.8394,1.7913,1.7500,1.7205,1.7048,1.7041,1.7153, &
& 1.7341,1.7549,1.7744,1.7915,1.8061,1.8213,1.8394,1.8618, &
& 1.8892,1.9214,1.9582,2.0010,2.0510,2.1101,2.1804,2.2622, &
& 2.3545,2.4548,2.5601,2.6672,2.7729,2.8747,2.9709,3.0605, &
& 3.1423,3.2175,3.2881,3.3572,3.4282,3.5041,3.5854,3.6719, &
& 3.7629,3.8584,3.9597,4.0688,4.1865,4.3093,4.4314,4.5439, &
& 4.6394,4.7156,4.7778,4.8367,4.9040,4.9849,5.0735,5.1533, &
& 5.2007,5.1938,5.1225,4.9919,4.8225,4.6426,4.4795,4.3496, &
& 4.2561,4.1880,4.1287,4.0615,3.9768,3.8738,3.7588,3.6426, &
& 3.5342,3.4382,3.3542,3.2793,3.2095,3.1433,3.0818,3.0283, &
& 2.9863,2.9558,2.9353,2.9194,2.9043,2.8857,2.8635,2.8398, &
& 2.8174,2.7991,2.7854,2.7751,2.7651,2.7544,2.7419,2.7297, &
& 2.7205,2.7151,2.7131,2.7109,2.7041,2.6892,2.6655,2.6367, &
& 2.6106,2.5950,2.5957,2.6143,2.6472,2.6872,2.7258,2.7563, &
& 2.7759,2.7864,2.7927,2.8015,2.8179,2.8442,2.8794,2.9197, &
& 2.9609,3.0002,3.0373,3.0742,3.1157,3.1633,3.2178,3.2746, &
& 3.3264,3.3652,3.3835,3.3777,3.3501,3.3069,3.2580,3.2151, &
& 3.1880,3.1846,3.2090,3.2620,3.3408,3.4397,3.5517,3.6694, &
& 3.7864,3.8996,4.0088,4.1177,4.2307,4.3518,4.4827,4.6216, &
& 4.7644,4.9053,5.0400,5.1662,5.2832,5.3911,5.4905,5.5793, &
& 5.6565,5.7185,5.7654,5.7978,5.8201,5.8376,5.8557,5.8784, &
& 5.9055,5.9333,5.9570,5.9695,5.9682,5.9531,5.9292,5.9033, &
& 5.8840,5.8764,5.8835,5.9028,5.9306,5.9621,5.9931,6.0210, &
& 6.0452,6.0659,6.0837,6.0979,6.1074,6.1111,6.1077,6.0969, &
& 6.0793,6.0561,6.0298,6.0019,5.9739,5.9468,5.9209,5.8965, &
& 5.8743,5.8564,5.8450,5.8430,5.8523,5.8738,5.9060,5.9448, &
& 5.9846,6.0210,6.0500,6.0701,6.0827,6.0910,6.0998,6.1128, &
& 6.1338,6.1650,6.2082,6.2619,6.3254,6.3945,6.4646,6.5283, &
& 6.5776,6.6052,6.6055,6.5752,6.5141,6.4245,6.3105,6.1755, &
& 6.0234,5.8577,5.6809,5.4975,5.3127,5.1333,4.9661,4.8186, &
& 4.6955,4.6006,4.5339,4.4927,4.4719,4.4648,4.4648,4.4658, &
& 4.4636,4.4565,4.4436,4.4253,4.4009,4.3689,4.3266,4.2717, &
& 4.2048,4.1299,4.0552,3.9897,3.9426,3.9182,3.9150,3.9265, &
& 3.9429,3.9553,3.9582,3.9507,3.9358,3.9182,3.9016,3.8877, &
& 3.8752,3.8611,3.8420,3.8166,3.7854,3.7500,3.7134,3.6780, &
& 3.6457,3.6169,3.5918,3.5710,3.5554,3.5471,3.5474,3.5566, &
& 3.5747,3.5996,3.6287,3.6609,3.6958,3.7334,3.7754,3.8218, &
& 3.8728,3.9260,3.9802,4.0334,4.0854,4.1355,4.1829,4.2258, &
& 4.2615,4.2871,4.3010,4.3042,4.3005,4.2959,4.2964,4.3059, &
& 4.3235,4.3457,4.3672,4.3828,4.3899,4.3891,4.3833,4.3757, &
& 4.3677,4.3577,4.3418,4.3157,4.2764,4.2241,4.1628,4.0969, &
& 4.0315,3.9704,3.9148,3.8645,3.8186,3.7761,3.7361,3.6980, &
& 3.6606,3.6238,3.5867,3.5498,3.5156,3.4868,3.4670,3.4580, &
& 3.4592,3.4670,3.4761,3.4809,3.4773,3.4639,3.4419,3.4136, &
& 3.3823,3.3494,3.3162,3.2820,3.2466,3.2100,3.1726,3.1355, &
& 3.0996,3.0666,3.0373,3.0122,2.9919,2.9763,2.9641,2.9536, &
& 2.9424,2.9289,2.9121,2.8926,2.8711,2.8498,2.8291,2.8093, &
& 2.7895,2.7693,2.7483,2.7268,2.7051,2.6846,2.6645,2.6455, &
& 2.6287,2.6152,2.6084,2.6111,2.6243,2.6465,2.6748,2.7048, &
& 2.7344,2.7632,2.7937,2.8291,2.8708,2.9163,2.9600,2.9946, &
& 3.0142,3.0156,3.0022,2.9800,2.9587,2.9473,2.9514,2.9724, &
& 3.0088,3.0542,3.1018,3.1440,3.1738,3.1865,3.1787,3.1499, &
& 3.1030,3.0432,2.9785,2.9175,2.8672,2.8310,2.8086,2.7942, &
& 2.7800,2.7593,2.7275,2.6855,2.6374,2.5898,2.5478,2.5137, &
& 2.4853,2.4568,2.4219,2.3769,2.3208,2.2593,2.1990,2.1489, &
& 2.1155,2.1011,2.1040,2.1182,2.1365,2.1511,2.1560,2.1487, &
& 2.1301,2.1050,2.0789,2.0586,2.0503,2.0564,2.0764,2.1069, &
& 2.1421,2.1748,2.1982,2.2082,2.2036,2.1868,2.1611,2.1326, &
& 2.1062,2.0857,2.0723,2.0664,2.0662,2.0693,2.0735,2.0764, &
& 2.0757,2.0703,2.0603,2.0461,2.0290,2.0100,1.9897,1.9685, &
& 1.9448,1.9177,1.8855,1.8469,1.8025,1.7539,1.7051,1.6616, &
& 1.6289,1.6121,1.6121,1.6262,1.6475,1.6670,1.6765,1.6711, &
& 1.6501,1.6189,1.5857,1.5583,1.5432,1.5427,1.5547,1.5752, &
& 1.6001,1.6255,1.6494,1.6711,1.6904,1.7061,1.7151,1.7151, &
& 1.7046,1.6846,1.6604,1.6401 /)
plasim/src/specs/soil.aridisol.calciorthid.none.all.79p1536.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: yellowloam(965) = (/2.902,2.902,2.902,2.902,2.902,2.902,2.902,3.5685, &
& 4.3690,5.1552,6.0613,7.2997,7.9329,8.6782,9.4544,10.3530, &
& 11.5380,12.3760,13.7390,14.6270,16.1460,17.7320,19.4380,21.4360, &
& 23.0970,24.6160,25.3500,26.0270,26.7570,27.4010,27.8520,28.3920, &
& 28.9100,29.3170,29.8620,30.3710,31.5820,31.8320,31.7500,32.8050, &
& 33.1680,33.2920,33.5400,33.9610,34.1000,34.4750,34.3830,34.6620, &
& 34.7820,35.0390,35.0690,35.1690,35.7470,35.9640,36.4280,36.0230, &
& 36.9470,37.8390,37.3270,38.1540,38.3470,38.4420,39.3400,39.6790, &
& 39.5720,40.2780,40.7460,40.8990,41.5670,41.8020,41.5290,41.6900, &
& 42.1380,42.4570,42.9230,41.8960,40.2310,40.8750,41.6060,42.4830, &
& 43.4430,43.0060,43.5800,44.0850,44.1310,44.9550,44.7250,45.0860, &
& 44.9950,45.2730,45.6870,45.5970,46.1010,45.8670,45.6800,45.6790, &
& 45.8650,45.8640,45.0160,45.6150,41.5100,36.2850,35.8380,39.0940, &
& 40.2330,42.1070,43.0250,44.9710,45.2580,46.1790,46.1097,46.1580, &
& 46.0683,46.1140,45.5893,45.0830,44.0441,42.6634,43.0370,42.7491, &
& 42.7304,42.8638,42.5168,41.8748,41.3630,40.8926,40.1585,39.4850, &
& 39.0203,39.0140,39.3136,39.3144,39.0193,38.8142,38.3929,38.1195, &
& 37.6914,37.1697,36.7047,36.3470,36.0930,35.6413,35.0751,34.5600, &
& 34.1373,33.7837,33.3850,32.8797,32.6170,32.7390,32.5078,32.5958, &
& 32.3488,31.8455,31.8838,31.7953,31.2049,30.5962,31.0832,29.6830, &
& 28.0719,24.9171,22.8393,17.3709,9.7617,7.3938,6.5124,5.0918, &
& 3.8957,3.2907,2.6650,2.7931,2.9336,2.8267,2.9562,2.7811, &
& 2.7408,2.8681,3.1275,3.2947,3.4006,3.4554,3.4095,3.3683, &
& 3.3214,3.3103,3.2713,3.2015,3.2074,3.2007,3.2358,3.3331, &
& 3.4123,3.4592,3.5556,3.6958,3.7374,3.8187,3.8962,3.9177, &
& 3.9803,4.0931,4.2010,4.3492,4.5375,4.7179,4.9141,5.1173, &
& 5.4226,5.6875,5.9599,6.2320,6.5031,6.8368,7.1221,7.4660, &
& 7.7844,8.0622,8.3871,8.7120,9.0815,9.4044,9.7494,10.1149, &
& 10.4150,10.7297,11.0349,11.2109,10.9083,10.5340,10.8151,11.1868, &
& 11.3787,11.7029,11.9421,12.0733,12.2857,12.7022,13.1670,13.4516, &
& 13.4228,12.8880,12.6933,13.2250,13.8647,14.7027,16.0802,17.5912, &
& 18.6654,19.4203,19.9946,20.4387,20.9782,21.5430,21.9866,22.4110, &
& 22.7738,23.1518,23.5255,23.8251,24.1130,24.4561,24.7256,24.9466, &
& 25.1790,25.4109,25.6489,25.8814,26.0166,26.0832,26.2054,26.2980, &
& 26.1963,25.7733,24.9143,23.8768,22.8432,21.8319,21.0130,20.5709, &
& 20.3804,20.2732,20.2013,20.1244,19.9598,19.7010,19.3762,18.8947, &
& 17.7249,15.8464,14.1850,13.2782,13.1146,13.8931,15.7149,18.0330, &
& 20.1609,21.9437,23.5952,24.9657,25.8217,26.2933,26.6232,26.8923, &
& 27.0904,27.2077,27.2890,27.3423,27.3369,27.2959,27.2390,27.1456, &
& 27.0214,26.8916,26.7283,26.4461,26.0682,25.7584,25.6097,25.4488, &
& 25.0720,24.6823,24.5922,24.6944,24.7661,24.7494,24.6739,24.5770, &
& 24.4570,24.3009,24.1268,23.9227,23.6648,23.3803,23.1138,22.8617, &
& 22.6195,22.3909,22.1752,21.9517,21.7256,21.5317,21.3904,21.3002, &
& 21.2661,21.2882,21.3192,21.3092,21.2645,21.2116,21.1425,21.0359, &
& 20.8818,20.6879,20.4790,20.2584,20.0082,19.6812,19.2834,18.8760, &
& 18.5310,18.2797,18.1518,18.1905,18.3780,18.6037,18.7586,18.8128, &
& 18.7750,18.6733,18.5389,18.4091,18.3064,18.2124,18.0992,17.9506, &
& 17.7847,17.6243,17.4689,17.2888,17.0650,16.7915,16.4625,16.0844, &
& 15.6870,15.3064,14.9845,14.7304,14.5336,14.3440,14.1146,13.8376, &
& 13.5580,13.3244,13.1568,13.0460,12.9718,12.9136,12.8624,12.8156, &
& 12.7676,12.7022,12.6220,12.5570,12.5310,12.5295,12.5111,12.4539, &
& 12.3751,12.3038,12.2531,12.2059,12.1352,12.0210,11.8674,11.6780, &
& 11.4542,11.1897,10.8930,10.5895,10.3085,10.0592,9.8490,9.6772, &
& 9.5445,9.4318,9.3115,9.1700,9.0289,8.9324,8.9218,8.9839, &
& 9.0756,9.1516,9.1880,9.1966,9.2002,9.1941,9.1434,9.0069, &
& 8.7943,8.5470,8.3061,8.0815,7.8458,7.5544,7.1308,6.5242, &
& 5.7703,5.0035,4.4548,4.2837,4.5271,5.0750,5.6803,6.1612, &
& 6.4330,6.5451,6.5779,6.6077,6.6473,6.6691,6.6423,6.5580, &
& 6.4330,6.2969,6.1633,6.0266,5.8786,5.7288,5.6005,5.5200, &
& 5.4688,5.4065,5.2945,5.1273,4.9424,4.7684,4.6103,4.4366, &
& 4.2164,3.9592,3.6968,3.4622,3.2579,3.0596,2.8501,2.6340, &
& 2.4419,2.2974,2.2032,2.1476,2.1071,2.0667,2.0203,1.9625, &
& 1.8967,1.8263,1.7624,1.7187,1.7044,1.7147,1.7411,1.7695, &
& 1.7935,1.8141,1.8379,1.8701,1.9108,1.9605,2.0215,2.0971, &
& 2.1916,2.3084,2.4399,2.5804,2.7236,2.8611,2.9888,3.1041, &
& 3.2066,3.3008,3.3927,3.4901,3.5955,3.7102,3.8324,3.9611, &
& 4.1050,4.2599,4.4173,4.5596,4.6726,4.7597,4.8352,4.9235, &
& 5.0292,5.1333,5.2006,5.1760,5.0572,4.8664,4.6470,4.4522, &
& 4.3086,4.2113,4.1353,4.0532,3.9441,3.8128,3.6734,3.5407, &
& 3.4271,3.3292,3.2427,3.1622,3.0883,3.0253,2.9785,2.9471, &
& 2.9258,2.9078,2.8870,2.8613,2.8343,2.8100,2.7915,2.7783, &
& 2.7667,2.7546,2.7405,2.7274,2.7185,2.7141,2.7117,2.7059, &
& 2.6914,2.6660,2.6347,2.6077,2.5952,2.6031,2.6304,2.6705, &
& 2.7132,2.7490,2.7729,2.7856,2.7927,2.8027,2.8219,2.8521, &
& 2.8910,2.9340,2.9768,3.0174,3.0563,3.0978,3.1450,3.1991, &
& 3.2574,3.3129,3.3564,3.3799,3.3787,3.3538,3.3117,3.2625, &
& 3.2182,3.1896,3.1847,3.2083,3.2604,3.3392,3.4377,3.5495, &
& 3.6659,3.7829,3.8951,4.0024,4.1102,4.2207,4.3387,4.4649, &
& 4.5998,4.7381,4.8741,5.0060,5.1298,5.2449,5.3510,5.4494, &
& 5.5387,5.6837,5.7366,5.7760,5.8037,5.8237,5.8401,5.8574, &
& 5.8784,5.9037,5.9292,5.9517,5.9657,5.9687,5.9425,5.9200, &
& 5.8982,5.8827,5.8769,5.8833,5.9004,5.9241,5.9514,5.9793, &
& 6.0291,6.0497,6.0676,6.0834,6.0959,6.1048,6.1096,6.1039, &
& 6.0931,6.0775,6.0575,6.0350,6.0114,5.9640,5.9413,5.9192, &
& 5.8986,5.8797,5.8636,5.8444,5.8441,5.8518,5.8690,5.8934, &
& 5.9552,5.9876,6.0174,6.0419,6.0746,6.0841,6.0909,6.0980, &
& 6.1213,6.1403,6.1653,6.1999,6.2871,6.3386,6.3934,6.4486, &
& 6.5452,6.5811,6.6026,6.6054,6.5605,6.5127,6.4438,6.2669, &
& 6.1616,6.0455,5.7907,5.6559,5.5170,5.3771,5.1071,4.9823, &
& 4.8703,4.6820,4.6112,4.5188,4.4906,4.4753,4.4648,4.4648, &
& 4.4656,4.4621,4.4569,4.4480,4.4229,4.4054,4.3586,4.3284, &
& 4.2900,4.1985,4.1457,4.0428,3.9970,3.9357,3.9187,3.9160, &
& 3.9274,3.9387,3.9557,3.9576,3.9482,3.9380,3.9148,3.9036, &
& 3.8849,3.8765,3.8568,3.8440,3.8098,3.7891,3.7428,3.7187, &
& 3.6727,3.6516,3.6140,3.5977,3.5701,3.5601,3.5473,3.5498, &
& 3.5557,3.5788,3.5946,3.6305,3.6718,3.6936,3.7412,3.7673, &
& 3.8240,3.8875,3.9201,3.9864,4.0188,4.0825,4.1429,4.1715, &
& 4.2242,4.2656,4.2810,4.3003,4.3037,4.3015,4.2963,4.2972, &
& 4.3103,4.3205,4.3456,4.3695,4.3785,4.3890,4.3890,4.3821, &
& 4.3778,4.3688,4.3579,4.3390,4.3069,4.2850,4.2296,4.1628, &
& 4.0904,4.0195,3.9861,3.9239,3.8683,3.8184,3.7729,3.7302, &
& 3.6896,3.6698,3.6305,3.5912,3.5523,3.5163,3.4863,3.4664, &
& 3.4581,3.4604,3.4684,3.4771,3.4802,3.4745,3.4584,3.4348, &
& 3.4058,3.3901,3.3411,3.3076,3.2736,3.2393,3.2025,3.1655, &
& 3.1304,3.0963,3.0638,3.0361,3.0122,2.9929,2.9778,2.9658, &
& 2.9556,2.9398,2.9265,2.9103,2.8926,2.8731,2.8528,2.8246, &
& 2.8066,2.7886,2.7702,2.7512,2.7221,2.7032,2.6846,2.6671, &
& 2.6424,2.6275,2.6158,2.6096,2.6128,2.6243,2.6436,2.6787, &
& 2.7048,2.7295,2.7670,2.7924,2.8217,2.8727,2.9106,2.9643, &
& 2.9932,3.0145,3.0156,3.0044,2.9791,2.9621,2.9475,2.9507, &
& 2.9739,3.0030,3.0560,3.0926,3.1440,3.1758,3.1855,3.1765, &
& 3.1543,3.1030,3.0332,2.9835,2.9156,2.8605,2.8337,2.8081, &
& 2.7921,2.7816,2.7593,2.7244,2.6769,2.6426,2.5898,2.5454, &
& 2.5096,2.4894,2.4597,2.4231,2.3750,2.3166,2.2531,2.1921, &
& 2.1575,2.1201,2.1026,2.1037,2.1172,2.1353,2.1501,2.1557, &
& 2.1492,2.1313,2.1074,2.0823,2.0613,2.0513,2.0590,2.0793, &
& 2.1080,2.1421,2.1728,2.1953,2.2076,2.2026,2.1868,2.1634, &
& 2.1293,2.1050,2.0863,2.0739,2.0664,2.0662,2.0688,2.0736, &
& 2.0761,2.0752,2.0705,2.0586,2.0461,2.0263,2.0100,1.9873, &
& 1.9691,1.9425,1.9200,1.8844,1.8523,1.8037,1.7512,1.7105, &
& 1.6628,1.6284,1.6121,1.6121,1.6258 /)
plasim/src/specs/soil.aridisol.camborthid.none.all.89p1772.jhu.becknic.ancillary.txt
+20
View File
@@ -0,0 +1,20 @@
Name: Light yellowish brown loamy sand
Type: soil
Class: Aridisol
Subclass: Camborthid
Particle Size: none
Sample No.: 89P1772
Owner: JHU
Wavelength Range: All
Origin: Kern Co., Ca., China Lake. via USDA Soil Conservation service.
Collection Date: N/A
Description: The parent material is alluvium material over eolian. Light yellowish brown loamy sand, (sandy, mixed, thermic typic camborthid). Original ASTER Spectral Library name was jhu.becknic.soil.aridisol.camborthid.coarse.89P1772.spectrum.txt
Very friable and slightly effervescent, non sticky and non plastic, moderately
alkaline (pH 8.2). 0.13% organic carbon; 4.0% clay; 8.3% silt; 87.7% sand.
Trace of CaCO3.
Clay mineralogy: none.
Coarse mineralogy (B horizon at 35 cm): 62% quartz, 16% potassic feldspar,
10% other, 4% opaque, 3% biotite, 2% plagioclase feldspar, 2% hornblende,
1% zircon, traces of calcite and glass.
plasim/src/specs/soil.aridisol.camborthid.none.all.89p1772.jhu.becknic.spectrum.txt
+2889
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/soil.aridisol.camborthid.none.all.89p1772.jhu.becknic.spectrum_f90.txt
+720
View File
@@ -0,0 +1,720 @@
real :: wvyellowsand(2868) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0274,10.0468,10.0663,10.0859,10.1056,10.1253,10.1451,10.1650, &
& 10.1850,10.2050,10.2251,10.2454,10.2656,10.2860,10.3065,10.3270, &
& 10.3476,10.3683,10.3891,10.4099,10.4309,10.4519,10.4730,10.4942, &
& 10.5155,10.5369,10.5584,10.5799,10.6015,10.6233,10.6451,10.6670, &
& 10.6890,10.7111,10.7332,10.7555,10.7779,10.8003,10.8229,10.8455, &
& 10.8682,10.8911,10.9140,10.9370,10.9602,10.9834,11.0067,11.0301, &
& 11.0536,11.0773,11.1010,11.1248,11.1487,11.1727,11.1969,11.2211, &
& 11.2455,11.2699,11.2944,11.3191,11.3439,11.3688,11.3937,11.4188, &
& 11.4440,11.4694,11.4948,11.5203,11.5460,11.5718,11.5977,11.6237, &
& 11.6498,11.6760,11.7024,11.7289,11.7555,11.7822,11.8090,11.8360, &
& 11.8631,11.8903,11.9176,11.9450,11.9726,12.0003,12.0282,12.0562, &
& 12.0843,12.1125,12.1409,12.1694,12.1980,12.2268,12.2557,12.2847, &
& 12.3139,12.3432,12.3727,12.4023,12.4320,12.4619,12.4919,12.5221, &
& 12.5524,12.5829,12.6135,12.6443,12.6752,12.7063,12.7375,12.7688, &
& 12.8004,12.8321,12.8639,12.8959,12.9281,12.9604,12.9929,13.0255, &
& 13.0583,13.0913,13.1244,13.1577,13.1912,13.2249,13.2587,13.2927, &
& 13.3269,13.3612,13.3957,13.4304,13.4653,13.5004,13.5356,13.5711, &
& 13.6067,13.6425,13.6785,13.7147,13.7511,13.7876,13.8244,13.8614, &
& 13.8985,13.9359,13.9734,14.0112,14.0492,14.0874,14.1258,14.1643, &
& 14.2032,14.2422,14.2814,14.3209,14.3605,14.4004,14.4405,14.4809, &
& 14.5214,14.5622,14.6033,14.6445,14.6860,14.7277,14.7697,14.8119, &
& 14.8543,14.897,14.9399,14.9831 /)
real :: yellowsand(2868) = (/6.1194,6.2814,6.2325,6.4265,6.4124,6.5747,6.5721,6.5669, &
& 6.5617,6.9532,6.9417,7.0195,7.2829,7.4563,7.4563,7.4705, &
& 7.6353,7.8156,7.8156,8.0046,8.0376,8.1799,8.5206,8.2581, &
& 8.8282,8.8626,9.1607,9.1451,9.2981,9.2455,9.3933,9.5899, &
& 9.6994,9.6654,10.1010,10.2448,10.2509,10.4014,10.7405,10.6813, &
& 11.2766,11.0277,11.2337,11.3503,11.4592,11.6295,11.7449,11.7223, &
& 11.8906,12.0086,11.9520,12.3622,12.6144,12.6861,12.7029,12.7113, &
& 12.5584,13.0939,13.1089,12.9391,13.3281,13.6406,13.2916,13.6311, &
& 13.9030,13.8453,13.5745,13.8070,14.1073,14.0439,14.3174,14.3580, &
& 14.3378,14.1369,14.4380,14.4686,14.7096,14.9972,14.6785,15.2469, &
& 14.9080,15.1016,15.3770,15.3661,15.5980,15.5487,15.7853,15.8189, &
& 16.0934,16.0590,16.0590,16.1766,16.3756,16.4107,16.8362,16.7524, &
& 16.8700,17.0632,17.0253,17.1546,17.2038,17.5016,17.6846,17.9434, &
& 17.8797,17.8290,17.9069,18.3414,18.3938,18.5906,18.5642,18.4986, &
& 18.7002,18.6538,19.2073,19.2814,19.1636,19.4836,19.5527,19.7962, &
& 20.0252,20.2394,20.0677,20.1396,20.1112,20.8399,20.6098,20.7235, &
& 20.8224,21.0342,21.3940,21.6923,21.7435,22.1422,21.9070,21.9224, &
& 22.3960,22.8626,22.2256,22.3074,22.6925,23.1830,22.5667,22.6944, &
& 23.4985,23.6591,23.7088,23.7536,24.1097,24.2050,24.3339,24.3882, &
& 24.5255,24.7123,24.8053,24.7377,24.9058,25.2437,25.1686,25.6459, &
& 26.2849,26.6022,26.5075,26.8777,26.9123,26.7072,26.8168,27.0918, &
& 27.2561,27.5125,27.7566,27.9438,28.1136,28.1493,28.2973,28.3062, &
& 28.5198,28.6934,29.1146,28.9384,29.0090,28.9677,29.3157,29.1622, &
& 29.4557,29.7291,29.6021,30.1765,30.1031,30.0431,30.2331,30.2368, &
& 30.3054,30.9056,30.8611,30.3309,30.3801,30.4504,30.9532,30.9976, &
& 30.9989,31.1511,31.1727,31.1512,31.3436,31.5495,31.6123,31.4063, &
& 31.5123,31.8023,31.5968,31.5324,31.6532,31.7617,31.7913,31.8131, &
& 31.6001,31.6653,31.7962,31.9472,32.1206,32.4238,32.4860,32.2636, &
& 32.3616,32.1278,32.2991,32.4758,32.0842,32.1935,32.4586,32.1278, &
& 32.2333,32.6152,32.5268,32.8093,32.8316,32.6923,32.8252,32.9817, &
& 33.2450,33.3132,33.3421,33.4102,33.5014,33.5838,33.4330,33.4557, &
& 33.0163,33.6109,34.1891,34.2820,34.2705,33.8756,33.7250,34.0606, &
& 33.8226,34.2474,34.6820,34.1855,34.3265,34.5610,34.2007,34.5353, &
& 33.8462,34.2590,34.5246,34.5711,34.6409,34.6176,34.3631,34.4552, &
& 34.7689,35.0012,34.8839,35.5912,35.1484,35.0781,34.9980,35.2899, &
& 35.8576,35.6965,35.8089,35.6166,35.6567,35.2143,35.3318,35.4499, &
& 35.6091,35.2847,35.7599,35.9348,35.9348,35.8526,36.1343,36.3043, &
& 36.0861,36.2799,36.2921,37.7324,36.4042,36.7736,36.8219,36.8985, &
& 36.7905,36.5458,36.6533,36.8020,36.9064,37.0306,36.9823,36.9525, &
& 37.1789,37.0547,37.1305,37.4784,37.3973,37.2546,37.7251,37.6498, &
& 37.6007,37.6214,37.5727,37.4755,37.5750,37.6257,37.6805,37.9267, &
& 38.1483,38.3212,38.2968,38.2673,38.2921,38.6389,38.1445,38.2674, &
& 38.3663,38.4408,38.9920,38.7127,38.7377,38.6877,38.9833,39.0792, &
& 39.1797,38.6844,38.6350,38.9294,38.6316,38.7053,38.8535,39.1545, &
& 39.1269,38.9772,38.7793,39.2491,39.2743,39.5176,39.3416,39.1219, &
& 39.2669,38.9978,39.3168,39.6117,40.0168,39.7127,39.5842,39.5813, &
& 39.3834,39.6585,39.9837,40.3264,40.3007,40.2495,40.2186,39.9938, &
& 39.8986,39.6501,39.5505,39.5972,40.4056,40.8102,40.2832,40.1568, &
& 40.2170,40.4212,40.3189,40.7120,40.4358,40.2832,39.8143,39.7397, &
& 40.5067,40.6348,40.3819,40.6031,40.4812,40.3104,40.4163,40.4133, &
& 40.9090,40.5924,40.4941,40.6440,40.9127,40.8105,40.7861,40.8117, &
& 40.6649,40.8592,40.7389,41.2812,40.9594,41.1796,40.7366,40.5671, &
& 40.5225,40.3100,40.5772,40.6503,40.4624,40.5586,40.5376,40.1612, &
& 40.4007,40.4742,40.4540,40.7595,40.4799,40.5745,40.6690,40.7429, &
& 40.7885,40.9520,40.8604,41.1419,41.2604,41.1419,41.5184,41.5418, &
& 41.5888,41.2878,41.3585,41.7327,41.8724,41.7093,42.0583,42.1264, &
& 42.2371,42.2438,42.2422,42.7323,42.7085,42.6847,42.7057,42.8659, &
& 43.2610,42.9743,42.8762,42.9869,43.6164,44.0602,43.4009,43.4154, &
& 43.6831,43.6460,43.5500,43.6296,43.6296,43.3829,43.5234,44.0144, &
& 44.1355,44.3474,44.4055,44.4220,44.4467,44.4143,44.5032,44.4223, &
& 44.3332,44.4953,44.7314,44.5518,44.8761,45.1770,45.2164,45.1677, &
& 44.6861,44.7558,44.8486,44.9379,45.0129,44.9404,45.3458,45.2835, &
& 45.5672,45.5918,45.8267,45.7647,45.9013,46.2880,46.1247,46.3734, &
& 46.8357,47.0442,46.9932,47.2081,47.4668,47.3630,47.5354,47.5956, &
& 47.8011,47.9202,48.1500,48.3201,48.6153,49.1992,49.4818,49.0297, &
& 48.9724,49.0442,48.9746,48.9317,49.1018,49.0585,49.3307,49.7714, &
& 49.8819,49.6458,49.4269,49.3897,49.6380,49.7163,49.9312,50.1219, &
& 50.0717,50.2536,49.8472,49.7213,50.3526,50.5736,50.1239,49.5062, &
& 49.2874,49.4998,49.4075,48.9063,48.5989,48.1784,47.7265,47.0141, &
& 46.9375,47.3875,48.1458,48.4400,48.6880,49.0318,49.3807,49.5669, &
& 49.9716,50.1357,50.4408,50.5948,50.8612,50.8082,51.3149,51.4745, &
& 51.7944,52.0694,52.2555,52.5167,52.8764,52.9006,53.0998,52.2310, &
& 52.1318,52.3377,52.8747,53.3023,53.2972,53.3976,53.4530,53.9156, &
& 53.9653,53.8315,53.5253,53.5419,53.9615,53.8072,54.2061,54.1781, &
& 54.4237,54.4028,54.6215,54.7272,54.5083,54.5985,54.4299,54.5141, &
& 54.9443,54.9551,55.1359,55.2689,54.8249,55.0136,55.1744,55.2120, &
& 55.4306,55.2593,55.6588,55.5731,55.7344,55.8009,55.9973,55.7810, &
& 56.0548,55.9421,55.8850,55.8749,55.9787,55.9759,55.9217,56.5056, &
& 56.4651,56.0047,56.0047,56.5686,56.4939,56.1470,56.1478,56.1700, &
& 56.0749,56.5345,56.7300,56.7919,56.4577,56.6936,56.6593,56.6999, &
& 56.9461,57.1708,56.8381,57.0247,57.1285,56.7802,56.6936,56.9828, &
& 57.0445,56.8132,56.8709,56.8709,56.9799,57.2961,57.2220,57.1509, &
& 57.0641,57.1026,57.0468,57.2422,57.0058,56.8419,56.8503,56.3957, &
& 56.5501,56.3903,55.6214,54.9815,53.8603,52.9665,51.6067,50.5620, &
& 48.6658,47.0823,45.3290,44.3037,44.2521,44.2752,44.8621,45.0715, &
& 45.3673,46.0088,47.0225,47.2945,47.9031,48.1010,48.3920,48.8621, &
& 48.9901,49.3544,49.7444,49.5193,49.7227,50.0548,50.2323,50.7393, &
& 51.3499,51.5015,51.6756,52.3109,52.3563,52.4983,52.7990,53.1009, &
& 53.5521,53.5934,54.0679,54.0611,53.9279,53.8371,54.3198,54.4193, &
& 53.8891,54.2450,54.3778,54.2909,54.4695,54.7316,54.8222,54.8438, &
& 55.0673,55.0881,55.1615,55.1440,55.1580,55.1684,55.1757,55.1928, &
& 55.2037,55.2058,55.1977,55.1802,55.1598,55.1416,55.1291,55.1224, &
& 55.1191,55.1165,55.1122,55.1066,55.1004,55.0957,55.0938,55.0947, &
& 55.0973,55.0992,55.0973,55.0881,55.0715,55.0500,55.0279,55.0111, &
& 55.0031,55.0047,55.0123,55.0197,55.0225,55.0187,55.0097,54.9988, &
& 54.9900,54.9858,54.9867,54.9912,54.9974,55.0026,55.0043,54.9990, &
& 54.9865,54.9687,54.9503,54.9368,54.9330,54.9394,54.9517,54.9638, &
& 54.9704,54.9699,54.9638,54.9555,54.9479,54.9408,54.9320,54.9185, &
& 54.8993,54.8752,54.8480,54.8200,54.7930,54.7672,54.7426,54.7198, &
& 54.7000,54.6834,54.6687,54.6531,54.6322,54.6014,54.5581,54.5010, &
& 54.4328,54.3570,54.2794,54.2052,54.1387,54.0814,54.0317,53.9860, &
& 53.9395,53.8891,53.8344,53.7768,53.7193,53.6644,53.6127,53.5630, &
& 53.5135,53.4631,53.4119,53.3612,53.3129,53.2689,53.2296,53.1936, &
& 53.1585,53.1213,53.0787,53.0299,52.9764,52.9215,52.8679,52.8170, &
& 52.7666,52.7121,52.6491,52.5755,52.4928,52.4054,52.3190,52.2375, &
& 52.1608,52.0862,52.0097,51.9280,51.8404,51.7476,51.6521,51.5565, &
& 51.4617,51.3675,51.2728,51.1764,51.0769,50.9732,50.8647,50.7513, &
& 50.6317,50.5050,50.3707,50.2291,50.0828,49.9373,49.8017,49.6866, &
& 49.6032,49.5601,49.5625,49.6108,49.7022,49.8298,49.9857,50.1583, &
& 50.3361,50.5067,50.6592,50.7875,50.8905,50.9715,51.0376,51.0949, &
& 51.1477,51.1967,51.2405,51.2770,51.3052,51.3260,51.3417,51.3547, &
& 51.3665,51.3779,51.3874,51.3926,51.3916,51.3833,51.3684,51.3488, &
& 51.3272,51.3064,51.2872,51.2685,51.2486,51.2278,51.2069,51.1892, &
& 51.1778,51.1740,51.1766,51.1830,51.1901,51.1965,51.2019,51.2090, &
& 51.2202,51.2372,51.2602,51.2891,51.3220,51.3563,51.3878,51.4139, &
& 51.4333,51.4461,51.4551,51.4629,51.4710,51.4769,51.4757,51.4624, &
& 51.4345,51.3928,51.3424,51.2896,51.2389,51.1915,51.1453,51.0954, &
& 51.0369,50.9665,50.8844,50.7918,50.6916,50.5874,50.4820,50.3766, &
& 50.2708,50.1635,50.0539,49.9418,49.8291,49.7188,49.6148,49.5198, &
& 49.4344,49.3569,49.2854,49.2177,49.1528,49.0900,49.0301,48.9723, &
& 48.9160,48.8603,48.8054,48.7507,48.6967,48.6422,48.5866,48.5292, &
& 48.4700,48.4108,48.3540,48.3031,48.2607,48.2278,48.2034,48.1861, &
& 48.1726,48.1603,48.1473,48.1316,48.1120,48.0869,48.0551,48.0170, &
& 47.9746,47.9299,47.8868,47.8484,47.8148,47.7840,47.7520,47.7160, &
& 47.6741,47.6270,47.5780,47.5313,47.4896,47.4536,47.4228,47.3961, &
& 47.3707,47.3452,47.3186,47.2916,47.2649,47.2403,47.2204,47.2071, &
& 47.2009,47.2007,47.2043,47.2092,47.2144,47.2189,47.2230,47.2272, &
& 47.2308,47.2327,47.2310,47.2249,47.2140,47.1986,47.1794,47.1569, &
& 47.1304,47.0993,47.0629,47.0205,46.9715,46.9158,46.8526,46.7813, &
& 46.7024,46.6181,46.5324,46.4505,46.3761,46.3122,46.2584,46.2129, &
& 46.1739,46.1393,46.1080,46.0794,46.0531,46.0294,46.0093,45.9934, &
& 45.9830,45.9776,45.9759,45.9749,45.9714,45.9622,45.9463,45.9238, &
& 45.8968,45.8674,45.8381,45.8111,45.7862,45.7630,45.7393,45.7133, &
& 45.6830,45.6481,45.6100,45.5700,45.5297,45.4892,45.4478,45.4040, &
& 45.3573,45.3085,45.2586,45.2096,45.1620,45.1139,45.0623,45.0028, &
& 44.9337,44.8558,44.7729,44.6909,44.6149,44.5477,44.4885,44.4347, &
& 44.3831,44.3317,44.2803,44.2299,44.1815,44.1356,44.0918,44.0494, &
& 44.0077,43.9675,43.9296,43.8936,43.8590,43.8239,43.7875,43.7482, &
& 43.7072,43.6655,43.6248,43.5848,43.5447,43.5024,43.4562,43.4050, &
& 43.3506,43.2958,43.2442,43.1988,43.1594,43.1251,43.0922,43.0567, &
& 43.0157,42.9686,42.9153,42.8577,42.7990,42.7417,42.6879,42.6394, &
& 42.5961,42.5565,42.5186,42.4800,42.4395,42.3964,42.3517,42.3071, &
& 42.2638,42.2224,42.1821,42.1423,42.1018,42.0606,42.0196,41.9806, &
& 41.9451,41.9133,41.8847,41.8562,41.8252,41.7895,41.7485,41.7049, &
& 41.6616,41.6216,41.5860,41.5555,41.5283,41.5024,41.4764,41.4480, &
& 41.4141,41.3701,41.3132,41.2436,41.1657,41.0890,41.0253,40.9831, &
& 40.9627,40.9552,40.9478,40.9301,40.8957,40.8467,40.7910,40.7342, &
& 40.6745,40.6080,40.5374,40.4754,40.4410,40.4503,40.5014,40.5616, &
& 40.5741,40.4839,40.2674,39.9530,39.6136,39.3403,39.2008,39.2098, &
& 39.3218,39.4537,39.5267,39.5021,39.3917,39.2470,39.1277,39.0763, &
& 39.0914,39.1269,39.1241,39.0412,38.8771,38.6753,38.5046,38.4248, &
& 38.4411,38.4866,38.4591,38.2787,37.9386,37.5218,37.1727,37.0323, &
& 37.1571,37.4763,37.8313,38.0577,38.0615,37.8574,37.5580,37.3167, &
& 37.2480,37.3655,37.5874,37.7901,37.8614,37.7451,37.4685,37.1313, &
& 36.8566,36.7278,36.7578,36.8952,37.0392,37.0816,36.9662,36.7105, &
& 36.3953,36.1208,35.9721,35.9910,36.1521,36.3796,36.5885,36.7098, &
& 36.7086,36.5873,36.3825,36.1442,35.9084,35.6905,35.4871,35.2801, &
& 35.0530,34.8036,34.5441,34.2935,34.0626,33.8422,33.5971,33.2729, &
& 32.8267,32.2444,31.5472,30.7981,30.0882,29.4985,29.0661,28.7717, &
& 28.5595,28.3523,28.0781,27.7041,27.2402,26.7157,26.1485,25.5344, &
& 24.8465,24.0427,23.0803,21.9379,20.6250,19.1766,17.6475,16.1037, &
& 14.6134,13.2368,12.0167,10.9750,10.1158,9.4307,8.9033,8.5140, &
& 8.2433,8.0733,7.9852,7.9563,7.9622,7.9736,7.9570,7.8836, &
& 7.7358,7.5151,7.2425,6.9531,6.6837,6.4596,6.2877,6.1567, &
& 6.0452,5.9294,5.7925,5.6282,5.4399,5.2381,5.0380,4.8557, &
& 4.7039,4.5895,4.5111,4.4588,4.4161,4.3669,4.2982,4.2051, &
& 4.0912,3.9674,3.8468,3.7407,3.6581,3.6029,3.5754,3.5731, &
& 3.5930,3.6325,3.6879,3.7554,3.8303,3.9068,3.9785,4.0398, &
& 4.0874,4.1213,4.1445,4.1623,4.1803,4.2032,4.2328,4.2684, &
& 4.3072,4.3470,4.3856,4.4230,4.4588,4.4933,4.5248,4.5504, &
& 4.5684,4.5779,4.5819,4.5855,4.5952,4.6158,4.6477,4.6882, &
& 4.7325,4.7754,4.8128,4.8438,4.8701,4.8940,4.9182,4.9450, &
& 4.9753,5.0087,5.0439,5.0785,5.1102,5.1368,5.1576,5.1740, &
& 5.1884,5.2031,5.2204,5.2403,5.2613,5.2815,5.2988,5.3115, &
& 5.3205,5.3262,5.3288,5.3293,5.3279,5.3255,5.3236,5.3236, &
& 5.3260,5.3300,5.3340,5.3357,5.3333,5.3258,5.3137,5.2995, &
& 5.2850,5.2729,5.2647,5.2602,5.2590,5.2590,5.2580,5.2549, &
& 5.2493,5.2410,5.2308,5.2194,5.2076,5.1962,5.1860,5.1787, &
& 5.1742,5.1713,5.1680,5.1614,5.1510,5.1372,5.1230,5.1117, &
& 5.1062,5.1065,5.1098,5.1126,5.1121,5.1074,5.1001,5.0937, &
& 5.0913,5.0937,5.0996,5.1060,5.1098,5.1091,5.1048,5.1001, &
& 5.0982,5.1020,5.1121,5.1273,5.1443,5.1593,5.1690,5.1728, &
& 5.1718,5.1697,5.1690,5.1721,5.1794,5.1898,5.2021,5.2152, &
& 5.2289,5.2440,5.2618,5.2815,5.3023,5.3227,5.3419,5.3608, &
& 5.3812,5.4046,5.4316,5.4596,5.4856,5.5060,5.5206,5.5311, &
& 5.5410,5.5548,5.5746,5.6009,5.6305,5.6613,5.6912,5.7193, &
& 5.7463,5.7731,5.7991,5.8233,5.8444,5.8617,5.8756,5.8887, &
& 5.9038,5.9232,5.9472,5.9737,6.0002,6.0239,6.0438,6.0601, &
& 6.0748,6.0902,6.1080,6.1288,6.1525,6.1785,6.2053,6.2313, &
& 6.2548,6.2749,6.2912,6.3045,6.3159,6.3270,6.3391,6.3531, &
& 6.3687,6.3867,6.4066,6.4286,6.4525,6.4781,6.5044,6.5311, &
& 6.5579,6.5849,6.6117,6.6391,6.6673,6.6962,6.7260,6.7564, &
& 6.7871,6.8184,6.8504,6.8842,6.9205,6.9595,7.0019,7.0476, &
& 7.0962,7.1462,7.1971,7.2477,7.2977,7.3472,7.3962,7.4453, &
& 7.4950,7.5464,7.6011,7.6593,7.7226,7.7903,7.8613,7.9340, &
& 8.0058,8.0757,8.1429,8.2076,8.2710,8.3354,8.4020,8.4721, &
& 8.5464,8.6248,8.7051,8.7854,8.8633,8.9374,9.0071,9.0743, &
& 9.1418,9.2121,9.2874,9.3684,9.4542,9.5423,9.6306,9.7177, &
& 9.8035,9.8882,9.9730,10.0588,10.1452,10.2307,10.3143,10.3946, &
& 10.4715,10.5464,10.6214,10.6996,10.7829,10.8729,10.9691,11.0695, &
& 11.1711,11.2698,11.3634,11.4508,11.5332,11.6134,11.6951,11.7806, &
& 11.8716,11.9663,12.0627,12.1581,12.2517,12.3433,12.4340,12.5254, &
& 12.6185,12.7127,12.8072,12.9010,12.9931,13.0831,13.1724,13.2622, &
& 13.3540,13.4497,13.5497,13.6541,13.7614,13.8703,13.9790,14.0870, &
& 14.1931,14.2982,14.4024,14.5059,14.6087,14.7108,14.8126,14.9144, &
& 15.0172,15.1219,15.2284,15.3364,15.4451,15.5534,15.6611,15.7679, &
& 15.8738,15.9784,16.0819,16.1830,16.2816,16.3777,16.4720,16.5655, &
& 16.6579,16.7490,16.8374,16.9221,17.0022,17.0777,17.1502,17.2205, &
& 17.2892,17.3562,17.4214,17.4839,17.5438,17.6016,17.6584,17.7148, &
& 17.7707,17.8251,17.8770,17.9255,17.9727,18.0212,18.0764,18.1427, &
& 18.2227,18.3153,18.4155,18.5157,18.6076,18.6843,18.7418,18.7797, &
& 18.8006,18.8096,18.8131,18.8176,18.8304,18.8581,18.9062,18.9782, &
& 19.0760,19.1991,19.3460,19.5129,19.6967,19.8925,20.0945,20.2965, &
& 20.4921,20.6773,20.8497,21.0103,21.1614,21.3061,21.4458,21.5808, &
& 21.7096,21.8302,21.9415,22.0426,22.1349,22.2195,22.2983,22.3734, &
& 22.4482,22.5254,22.6083,22.6976,22.7921,22.8871,22.9768,23.0552, &
& 23.1187,23.1684,23.2101,23.2534,23.3117,23.3979,23.5222,23.6889, &
& 23.8945,24.1299,24.3814,24.6338,24.8751,25.0975,25.2983,25.4781, &
& 25.6400,25.7881,25.9261,26.0571,26.1835,26.3069,26.4279,26.5468, &
& 26.6638,26.7794,26.8942,27.0091,27.1244,27.2397,27.3536,27.4649, &
& 27.5725,27.6755,27.7749,27.8723,27.9696,28.0681,28.1685,28.2706, &
& 28.3729,28.4747,28.5756,28.6753,28.7741,28.8719,28.9685,29.0632, &
& 29.1553,29.2446,29.3315,29.4170,29.5016,29.5856,29.6702,29.7552, &
& 29.8407,29.9262,30.0110,30.0934,30.1725,30.2482,30.3212,30.3932, &
& 30.4654,30.5381,30.6113,30.6830,30.7517,30.8166,30.8775,30.9350, &
& 30.9897,31.0418,31.0915,31.1384,31.1830,31.2258,31.2682,31.3104, &
& 31.3523,31.3935,31.4330,31.4709,31.5074,31.5436,31.5806,31.6192, &
& 31.6590,31.6995,31.7411,31.7842,31.8292,31.8768,31.9270,31.9791, &
& 32.0324,32.0859,32.1399,32.1953,32.2534,32.3154,32.3817,32.4513, &
& 32.5229,32.5944,32.6640,32.7320,32.7988,32.8658,32.9340,33.0034, &
& 33.0727,33.1402,33.2039,33.2622,33.3148,33.3617,33.4033,33.4403, &
& 33.4727,33.5011,33.5265,33.5485,33.5677,33.5840,33.5973,33.6068, &
& 33.6127,33.6153,33.6155,33.6143,33.6125,33.6108,33.6098,33.6094, &
& 33.6106,33.6143,33.6219,33.6352,33.6546,33.6797,33.7088,33.7396, &
& 33.7699,33.7981,33.8244,33.8495,33.8758,33.9054,33.9388,33.9750, &
& 34.0122,34.0468,34.0766,34.0998,34.1173,34.1308,34.1415,34.1507, &
& 34.1578,34.1612,34.1590,34.1495,34.1313,34.1038,34.0662,34.0165, &
& 33.9535,33.8760,33.7841,33.6797,33.5665,33.4493,33.3330,33.2219, &
& 33.1187,33.0251,32.9425,32.8710,32.8115,32.7658,32.7360,32.7237, &
& 32.7298,32.7538,32.7928,32.8435,32.9018,32.9648,33.0299,33.0950, &
& 33.1592,33.2210,33.2790,33.3328,33.3823,33.4275,33.4687,33.5066, &
& 33.5405,33.5703,33.5952,33.6148,33.6295,33.6387,33.6425,33.6402, &
& 33.6304,33.6129,33.5866,33.5521,33.5104,33.4633,33.4123,33.3591, &
& 33.3044,33.2480,33.1900,33.1291,33.0645,32.9958,32.9219,32.8433, &
& 32.7604,32.6747,32.5885,32.5037,32.4220,32.3436,32.2676,32.1932, &
& 32.1193,32.0454,31.9713,31.8974,31.8235,31.7489,31.6727,31.5938, &
& 31.5117,31.4266,31.3390,31.2497,31.1590,31.0679,30.9767,30.8865, &
& 30.7993,30.7171,30.6425,30.5767,30.5196,30.4697,30.4233,30.3771, &
& 30.3276,30.2724,30.2106,30.1419,30.0664,29.9830,29.8909,29.7879, &
& 29.6733,29.5475,29.4135,29.2759,29.1407,29.0130,28.8972,28.7944, &
& 28.7035,28.6206,28.5418,28.4634,28.3828,28.3002,28.2173,28.1358, &
& 28.0577,27.9836,27.9123,27.8408,27.7652,27.6821,27.5888,27.4841, &
& 27.3679,27.2416,27.1071,26.9653,26.8173,26.6638,26.5047,26.3403, &
& 26.1712,25.9979,25.8203,25.6391,25.4541,25.2659,25.0750,24.8832, &
& 24.6928,24.5064,24.3267,24.1554,23.9930,23.8386,23.6899,23.5454, &
& 23.4040,23.2655,23.1305,22.9988,22.8695,22.7405,22.6083,22.4710, &
& 22.3282,22.1828,22.0402,21.9071,21.7892,21.6895,21.6075,21.5408, &
& 21.4849,21.4370,21.3970,21.3665,21.3489,21.3473,21.3627,21.3932, &
& 21.4335,21.4775,21.5195,21.5545,21.5798,21.5948,21.5993,21.5936, &
& 21.5777,21.5512,21.5131,21.4626,21.3999,21.3246,21.2388,21.1443, &
& 21.0432,20.9383,20.8306,20.7202,20.6068,20.4884,20.3638,20.2328, &
& 20.0955,19.9532,19.8066,19.6559,19.5011,19.3417,19.1778,19.0106, &
& 18.8418,18.6729,18.5057,18.3407,18.1785,18.0203,17.8694,17.7306, &
& 17.6106,17.5158,17.4505,17.4161,17.4093,17.4223,17.4453,17.4678, &
& 17.4815,17.4813,17.4652,17.4339,17.3906,17.3378,17.2778,17.2118, &
& 17.1398,17.0612,16.9754,16.8835,16.7874,16.6905,16.5970,16.5101, &
& 16.4315,16.3611,16.2970,16.2363,16.1764,16.1153,16.0518,15.9851, &
& 15.9143,15.8382,15.7556,15.6663,15.5706,15.4695,15.3637,15.2531, &
& 15.1370,15.0136,14.8813,14.7382,14.5838,14.4171,14.2376,14.0458, &
& 13.8428,13.6316,13.4168,13.2044,13.0017,12.8153,12.6502,12.5096, &
& 12.3926,12.2952,12.2112,12.1323,12.0511,11.9616,11.8607,11.7487, &
& 11.6279,11.5029,11.3792,11.2620,11.1547,11.0598,10.9755,10.8994, &
& 10.8282,10.7590,10.6913,10.6255,10.5634,10.5075,10.4578,10.4130, &
& 10.3711,10.3292,10.2856,10.2385,10.1883,10.1362,10.0836,10.0322, &
& 9.9832,9.9368,9.8918,9.8461,9.7983,9.7464,9.6900,9.6282, &
& 9.5610,9.4880,9.4106,9.3308,9.2519,9.1780,9.1124,9.0558, &
& 9.0080,8.9651,8.9237,8.8787,8.8268,8.7648,8.6919,8.6083, &
& 8.5164,8.4195,8.3203,8.2213,8.1233,8.0255,7.9267,7.8270, &
& 7.7275,7.6300,7.5362,7.4471,7.3628,7.2818,7.2035,7.1279, &
& 7.0573,6.9948,6.9430,6.9022,6.8707,6.8435,6.8141,6.7767, &
& 6.7279,6.6694,6.6074,6.5496,6.5041,6.4764,6.4674,6.4734, &
& 6.4880,6.5058,6.5207,6.5283,6.5269,6.5181,6.5058,6.4949, &
& 6.4899,6.4937,6.5030,6.5091,6.5025,6.4764,6.4295,6.3663, &
& 6.2967,6.2311,6.1752,6.1290,6.0876,6.0442,5.9929,5.9308, &
& 5.8593,5.7821,5.7035,5.6260,5.5512,5.4778,5.4041,5.3303, &
& 5.2583,5.1927,5.1391,5.1031,5.0868,5.0880,5.0996,5.1131, &
& 5.1197,5.1140,5.0953,5.0681,5.0406,5.0217,5.0179,5.0321, &
& 5.0619,5.1005,5.1396,5.1713,5.1898,5.1924,5.1801,5.1567, &
& 5.1278,5.0979,5.0702,5.0435,5.0136,4.9746,4.9229,4.8616, &
& 4.7988,4.7453,4.7110,4.6982,4.6989,4.6970,4.6769,4.6297, &
& 4.5578,4.4730,4.3925,4.3292,4.2852,4.2504,4.2080,4.1429, &
& 4.0486,3.9309,3.8056,3.6924,3.6058,3.5484,3.5108,3.4772, &
& 3.4317,3.3680,3.2889,3.2051,3.1302,3.0710,3.0270,2.9907, &
& 2.9552,2.9166,2.8757,2.8368,2.8046,2.7788,2.7535,2.7208, &
& 2.6748,2.6154,2.5481,2.4840,2.4347,2.4077,2.4020,2.4101, &
& 2.4222,2.4288,2.4262,2.4165,2.4079,2.4084,2.4222,2.4484, &
& 2.4823,2.5166,2.5451,2.5661,2.5827,2.6002,2.6251,2.6623, &
& 2.7120,2.7710,2.8333,2.8927,2.9453,2.9905,3.0298,3.0670, &
& 3.1044,3.1442,3.1859,3.2292,3.2730,3.3157,3.3545,3.3855, &
& 3.4054,3.4139,3.4149,3.4158,3.4253,3.4483,3.4819,3.5151, &
& 3.5342,3.5302,3.5027,3.4632,3.4310,3.4241,3.4499,3.5008, &
& 3.5570,3.5946,3.5958,3.5565,3.4876,3.4109,3.3481,3.3138, &
& 3.3093,3.3237,3.3405,3.3448,3.3282,3.2941,3.2534,3.2195, &
& 3.2017,3.2008,3.2089,3.2136,3.2051,3.1816,3.1494,3.1189, &
& 3.0999,3.0966,3.1047,3.1151,3.1196,3.1153,3.1044,3.0923, &
& 3.0843,3.0826,3.0841,3.0817,3.0691,3.0426,3.0035,2.9574, &
& 2.9121,2.8752,2.8501,2.8349,2.8236,2.8093,2.7885,2.7615, &
& 2.7324,2.7085,2.6950,2.6938,2.7009,2.7106,2.7160,2.7120, &
& 2.6966,2.6715,2.6419,2.6130,2.5893,2.5732,2.5640,2.5571, &
& 2.5477,2.5323,2.5114,2.4877,2.4671,2.4551,2.4534,2.4600, &
& 2.4693,2.4757,2.4747,2.4653,2.4480,2.4264,2.4032,2.3805, &
& 2.3587,2.3381,2.3198,2.3047,2.2929,2.2846,2.2789,2.2734, &
& 2.2656,2.2538,2.2379,2.2187,2.1981,2.1770,2.1572,2.1380, &
& 2.1195,2.1022,2.0871,2.0743,2.0641,2.0556,2.0475,2.0376, &
& 2.0248,2.0087,1.9900,1.9696,1.9499,1.9331,1.9203,1.9121, &
& 1.9073,1.9052,1.9033,1.9000,1.8943,1.8867,1.8775,1.8680, &
& 1.8597,1.8533,1.8483,1.8450,1.8431,1.8422,1.8431,1.8469, &
& 1.8538,1.8640,1.8768,1.8900,1.9028,1.9144,1.9251,1.9362, &
& 1.9492,1.9653,1.9845,2.0063,2.0300,2.0553,2.0833,2.1164, &
& 2.1567,2.2066,2.2682,2.3431,2.4314,2.5330,2.6476,2.7741, &
& 2.9114,3.0582,3.2131,3.3756,3.5458,3.7251,3.9167,4.1241, &
& 4.3505,4.5985,4.8682,5.1590,5.4681,5.7920,6.1267,6.4660, &
& 6.8037,7.1317,7.4417,7.7264,7.9802,8.2012,8.3904,8.5514, &
& 8.6895,8.8088,8.9128,9.0026,9.0776,9.1375,9.1818,9.2119, &
& 9.2285,9.2323,9.2237,9.2022,9.1681,9.1229,9.0700,9.0139, &
& 8.9592,8.9109,8.8706,8.8354,8.7963,8.7376,8.6424,8.4972, &
& 8.3025,8.0776,7.8590,7.6908,7.6108,7.6359,7.7567,7.9400, &
& 8.1429,8.3269,8.4678,8.5588,8.6071,8.6260,8.6272,8.6184, &
& 8.6028,8.5803,8.5491,8.5067,8.4503,8.3788,8.2935,8.1981, &
& 8.0998,8.0072,7.9291,7.8713,7.8372,7.8275,7.8412,7.8760, &
& 7.9293,7.9977,8.0790,8.1687,8.2642,8.3636,8.4659,8.5715, &
& 8.6810,8.7946,8.9123,9.0324,9.1510,9.2642,9.3668,9.4546, &
& 9.5235,9.5714,9.5981,9.6052,9.5955,9.5730,9.5420,9.5063, &
& 9.4677,9.4269,9.3822,9.3303,9.2675,9.1920,9.1023,8.9999, &
& 8.8870,8.7657,8.6369,8.5003,8.3549,8.2002,8.0375,7.8696, &
& 7.7012,7.5386,7.3865,7.2499,7.1315,7.0318,6.9482,6.8762, &
& 6.8092,6.7405,6.6652,6.5797,6.4847,6.3810,6.2704,6.1556, &
& 6.0381,5.9204,5.8053,5.6957,5.5941,5.5019,5.4181,5.3402, &
& 5.2651,5.1896,5.1124,5.0333,4.9549,4.8794,4.8088,4.7441, &
& 4.6852,4.6300,4.5769,4.5237,4.4694,4.4142,4.3598,4.3072, &
& 4.2591,4.2170,4.1807,4.1492,4.1206,4.0927,4.0628,4.0301, &
& 3.9951,3.9593,3.9252,3.8954,3.8715,3.8547,3.8452,3.8419, &
& 3.8433,3.8473,3.8518,3.8544,3.8539,3.8506,3.8445,3.8364, &
& 3.8265,3.8144,3.8004,3.7846,3.7675,3.7505,3.7343,3.7185, &
& 3.7014,3.6808,3.6557,3.6264,3.5953,3.5655,3.5394,3.5191, &
& 3.5035,3.4907,3.4788,3.4670,3.4544,3.4414,3.4281,3.4149, &
& 3.4004,3.3839,3.3633,3.3374,3.3050,3.2662,3.2224,3.1752, &
& 3.1279,3.0819,3.0383,2.9967,2.9562,2.9154,2.8733,2.8292, &
& 2.7821,2.7300,2.6703,2.6019,2.5254,2.4473,2.3781,2.3312, &
& 2.3201,2.3516,2.4222,2.5176,2.6147,2.6898,2.7253,2.7163, &
& 2.6727,2.6161,2.5721,2.5612,2.5922,2.6592,2.7440,2.8226, &
& 2.8738,2.8849,2.8553,2.7942,2.7153,2.6327,2.5564,2.4925, &
& 2.4428,2.4058,2.3800,2.3625,2.3497,2.3371,2.3225,2.3042, &
& 2.2820,2.2561,2.2289,2.2012,2.1740,2.1470,2.1204,2.0937, &
& 2.0657,2.0359,2.0051,1.9760,1.9511,1.9334,1.9232,1.9163, &
& 1.9064,1.8855,1.8467,1.7842,1.6970,1.5902,1.4735,1.3591, &
& 1.2606,1.1886,1.1493,1.1391,1.1502,1.1753,1.2059,1.2303, &
& 1.2350,1.2073,1.1398,1.0351,0.9162,0.8206,0.7779,0.7914, &
& 0.8362,0.8625,0.8175,0.6787 /)
plasim/src/specs/soil.aridisol.camborthid.none.all.89p1772.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: yellowsand(965) = (/6.1194,6.1194,6.1194,6.1194,6.1194,6.1194,6.1194,6.9417, &
& 8.0376,9.3933,11.2766,11.9520,13.3281,14.3174,14.9080,16.0590, &
& 17.2038,18.5642,20.0252,21.3940,22.6925,24.3339,26.2849,27.7566, &
& 29.0090,30.2331,30.9989,31.5968,32.1206,32.4586,33.2450,34.1891, &
& 34.3265,34.3631,35.8576,35.7599,36.4042,36.9823,37.6007,38.2968, &
& 38.7377,38.8535,39.2669,39.9837,40.4056,39.8143,40.9090,40.8105, &
& 40.7389,40.5671,40.4624,40.4742,40.6690,41.1419,41.5888,41.7093, &
& 42.2422,42.8659,43.6164,43.6460,43.5234,44.4220,44.3332,45.1770, &
& 44.8486,45.2835,45.9013,47.0442,47.5354,48.3201,48.9724,49.0585, &
& 49.4269,50.1219,50.3526,49.4998,47.7265,48.4400,49.9716,50.8082, &
& 52.2555,52.2310,53.2972,53.8315,54.2061,54.7272,54.9443,55.0136, &
& 55.6588,55.7810,55.9787,56.0047,56.1478,56.7919,56.9461,56.7802, &
& 56.8709,57.1509,57.0058,56.3903,51.6067,44.3037,45.3673,48.1010, &
& 49.7444,50.7393,52.3563,53.5934,54.3198,54.2909,55.0803,55.0980, &
& 54.9907,54.7312,53.6705,52.5755,50.5613,51.0244,51.2747,51.1959, &
& 51.4158,51.3827,50.7718,49.6980,48.9723,48.4226,48.1402,47.8148, &
& 47.4368,47.2071,47.2314,47.0775,46.4654,46.0555,45.9630,45.7415, &
& 45.4120,44.9625,44.3660,43.9675,43.6396,43.2366,42.8817,42.4800, &
& 42.1288,41.8381,41.5328,41.1722,40.8957,40.4410,39.6397,39.4101, &
& 38.9402,38.1479,38.0580,37.7433,36.8001,35.9950,36.5243,34.8749, &
& 32.7851,28.6959,25.7537,17.9752,9.4796,7.9622,6.9339,5.7815, &
& 4.5895,4.1075,3.5739,3.9403,4.1849,4.4180,4.5800,4.7379, &
& 4.9361,5.1396,5.2529,5.3288,5.3275,5.3039,5.2590,5.2172, &
& 5.1701,5.1089,5.1031,5.1085,5.1089,5.1722,5.1970,5.2913, &
& 5.4141,5.5328,5.6595,5.8162,5.9113,6.0447,6.1446,6.2794, &
& 6.3508,6.4610,6.6072,6.7649,6.9472,7.1999,7.4662,7.7725, &
& 8.1429,8.4907,8.8966,9.2597,9.6959,10.1361,10.5427,10.9691, &
& 11.4508,11.8716,12.3387,12.7937,13.2408,13.7205,14.2431,14.7399, &
& 15.2335,15.7476,16.2346,16.6753,17.0669,17.3888,17.6635,17.9101, &
& 18.1609,18.5836,18.8029,18.8505,19.2246,20.0119,20.8497,21.4928, &
& 22.0118,22.3734,22.7264,23.0911,23.3016,23.9043,24.9234,25.7017, &
& 26.2503,26.7409,27.2157,27.6590,28.0602,28.4706,28.8680,29.2410, &
& 29.5789,29.9130,30.2307,30.5157,30.7891,31.0117,31.1945,31.3555, &
& 31.5032,31.6452,31.8025,31.9870,32.1871,32.4204,32.6791,32.9264, &
& 33.1743,33.3676,33.4940,33.5729,33.6121,33.6135,33.6094,33.6281, &
& 33.7078,33.8090,33.9013,34.0229,34.1125,34.1516,34.1541,34.0712, &
& 33.8546,33.5001,33.1325,32.8611,32.7304,32.7815,32.9628,33.1712, &
& 33.3536,33.4919,33.5904,33.6384,33.6282,33.5417,33.3924,33.2199, &
& 33.0249,32.7889,32.5275,32.2860,32.0611,31.8369,31.6081,31.3570, &
& 31.0893,30.8224,30.5980,30.4410,30.2984,30.1095,29.8585,29.5207, &
& 29.1334,28.8032,28.5621,28.3356,28.1054,27.9000,27.6844,27.3993, &
& 27.0362,26.6251,26.1758,25.6930,25.1885,24.6732,24.1924,23.7703, &
& 23.3890,23.0300,22.6883,22.3244,21.9561,21.6706,21.4949,21.3845, &
& 21.3473,21.4139,21.5221,21.5888,21.5916,21.5274,21.3905,21.1812, &
& 20.9278,20.6566,20.3638,20.0296,19.6738,19.2897,18.8871,18.4856, &
& 18.0956,17.7438,17.4976,17.4117,17.4453,17.4814,17.4448,17.3390, &
& 17.1905,17.0093,16.7983,16.5812,16.3995,16.2538,16.1167,15.9694, &
& 15.8015,15.6025,15.3755,15.1236,14.8377,14.5023,14.1083,13.6637, &
& 13.2044,12.7872,12.4740,12.2577,12.0857,11.8908,11.6510,11.3897, &
& 11.1547,10.9692,10.8167,10.6752,10.5463,10.4423,10.3543,10.2654, &
& 10.1643,10.0589,9.9600,9.8690,9.7724,9.6597,9.5266,9.3746, &
& 9.2215,9.0913,8.9945,8.9116,8.8149,8.6806,8.5127,8.3241, &
& 8.1362,7.9495,7.7613,7.5787,7.4121,7.2586,7.1174,6.9948, &
& 6.9082,6.8516,6.7940,6.7066,6.5969,6.5041,6.4692,6.4823, &
& 6.5118,6.5280,6.5184,6.4976,6.4918,6.5047,6.5016,6.4400, &
& 6.3303,6.2166,6.1298,6.0569,5.9661,5.8488,5.7157,5.5854, &
& 5.4603,5.3365,5.2189,5.1295,5.0879,5.0950,5.1148,5.1146, &
& 5.0801,5.0369,5.0186,5.0456,5.1031,5.1616,5.1906,5.1813, &
& 5.1422,5.0953,5.0520,5.0032,4.9311,4.8361,4.7470,4.7042, &
& 4.6987,4.6841,4.6164,4.4965,4.3769,4.2947,4.2376,4.1547, &
& 4.0094,3.8262,3.6627,3.5578,3.4998,3.4398,3.3444,3.2236, &
& 3.1154,3.0398,2.9845,2.9308,2.8723,2.8195,2.7795,2.7400, &
& 2.6820,2.5971,2.5032,2.4317,2.4047,2.4096,2.4244,2.4269, &
& 2.4153,2.4082,2.4211,2.4586,2.5053,2.5462,2.5729,2.5964, &
& 2.6302,2.6872,2.7622,2.8445,2.9208,2.9845,3.0372,3.0869, &
& 3.1384,3.1939,3.2511,3.3078,3.3581,3.3939,3.4116,3.4149, &
& 3.4187,3.4390,3.4780,3.5182,3.5325,3.5107,3.4642,3.4293, &
& 3.4370,3.4881,3.5575,3.5949,3.5762,3.5055,3.4128,3.3409, &
& 3.3118,3.3188,3.3386,3.3432,3.3174,3.2725,3.2285,3.2028, &
& 3.2019,3.2105,3.2091,3.1883,3.1528,3.1175,3.0991,3.1000, &
& 3.1109,3.1186,3.1156,3.1033,3.0903,3.0836,3.0834,3.0824, &
& 3.0711,3.0432,2.9983,2.9462,2.8983,2.8625,2.8406,2.8265, &
& 2.8114,2.7890,2.7592,2.7279,2.7045,2.6945,2.6973,2.7065, &
& 2.7142,2.7130,2.6989,2.6734,2.6419,2.6112,2.5869,2.5711, &
& 2.5620,2.5538,2.5415,2.5226,2.4992,2.4760,2.4597,2.4540, &
& 2.4580,2.4669,2.4742,2.4749,2.4669,2.4503,2.4288,2.4053, &
& 2.3821,2.3600,2.3389,2.3204,2.3052,2.2931,2.2848,2.2790, &
& 2.2736,2.2658,2.2543,2.2388,2.2200,2.1999,2.1793,2.1599, &
& 2.1410,2.1229,2.1060,2.0909,2.0780,2.0674,2.0588,2.0508, &
& 2.0421,2.0177,2.0015,1.9833,1.9644,1.9464,1.9313,1.9197, &
& 1.9121,1.9076,1.9055,1.9037,1.9010,1.8965,1.8826,1.8741, &
& 1.8658,1.8586,1.8529,1.8484,1.8454,1.8435,1.8425,1.8427, &
& 1.8492,1.8560,1.8652,1.8766,1.8881,1.8993,1.9098,1.9290, &
& 1.9390,1.9504,1.9643,1.9807,1.9988,2.0392,2.0613,2.0855, &
& 2.1136,2.1469,2.1865,2.2890,2.3534,2.4270,2.5103,2.6027, &
& 2.8101,2.9234,3.0438,3.1699,3.4365,3.5764,3.7222,3.8765, &
& 4.2154,4.4021,4.6007,4.8164,5.2817,5.5298,5.7869,6.0503, &
& 6.5821,6.8447,7.1010,7.3448,7.7874,7.9836,8.1536,8.4424, &
& 8.5641,8.6695,8.8482,8.9250,8.9931,9.0515,9.1444,9.1775, &
& 9.2013,9.2290,9.2319,9.2158,9.1987,9.1736,9.1067,9.0680, &
& 9.0270,8.9487,8.9137,8.8842,8.8315,8.8036,8.7145,8.6465, &
& 8.5456,8.2835,8.1251,7.8272,7.7096,7.6179,7.6354,7.7173, &
& 7.9512,8.0911,8.3442,8.4400,8.5670,8.5999,8.6262,8.6271, &
& 8.6149,8.6045,8.5732,8.5524,8.4944,8.4570,8.3620,8.3058, &
& 8.1820,8.1178,7.9981,7.9474,7.8693,7.8475,7.8277,7.8503, &
& 7.8725,7.9406,7.9838,8.0841,8.1985,8.2582,8.3827,8.4462, &
& 8.5762,8.7124,8.7821,8.9262,8.9994,9.1445,9.2803,9.3421, &
& 9.4514,9.5312,9.5599,9.5968,9.6039,9.5981,9.5751,9.5391, &
& 9.4967,9.4742,9.4271,9.3744,9.3446,9.2754,9.1905,9.0861, &
& 9.0282,8.9030,8.7677,8.6224,8.4678,8.3866,8.2165,8.0375, &
& 7.8529,7.6692,7.5804,7.4114,7.2603,7.1310,7.0251,6.9370, &
& 6.8612,6.8256,6.7529,6.6744,6.5856,6.4867,6.3781,6.2627, &
& 6.1435,6.0223,5.9015,5.7846,5.6746,5.5735,5.4820,5.3989, &
& 5.3214,5.2839,5.1704,5.0933,5.0154,4.9386,4.8656,4.7978, &
& 4.7355,4.6788,4.6257,4.5746,4.5234,4.4717,4.4192,4.3675, &
& 4.3176,4.2502,4.2118,4.1784,4.1491,4.1226,4.0969,4.0555, &
& 4.0253,3.9935,3.9611,3.9301,3.8906,3.8699,3.8549,3.8464, &
& 3.8422,3.8436,3.8471,3.8510,3.8543,3.8539,3.8511,3.8434, &
& 3.8364,3.8280,3.8128,3.8010,3.7878,3.7666,3.7524,3.7323, &
& 3.7192,3.6976,3.6807,3.6602,3.6253,3.6002,3.5642,3.5433, &
& 3.5184,3.5060,3.4904,3.4810,3.4671,3.4524,3.4423,3.4269, &
& 3.4168,3.4003,3.3808,3.3652,3.3361,3.2985,3.2694,3.2207, &
& 3.1682,3.1333,3.0824,3.0347,2.9894,2.9600,2.9158,2.8705, &
& 2.8228,2.7893,2.7346,2.6722,2.6003,2.5200,2.4396,2.3711, &
& 2.3388,2.3216,2.3482,2.4157,2.5102,2.6082,2.6850,2.7231, &
& 2.7169,2.6762,2.6215,2.5771,2.5627,2.6025,2.6693,2.7503, &
& 2.8245,2.8732,2.8842,2.8589,2.7842,2.7104,2.6337,2.5632, &
& 2.4857,2.4409,2.4073,2.3834,2.3616,2.3502,2.3389,2.3218, &
& 2.3057,2.2797,2.2570,2.2255,2.2015,2.1704,2.1473,2.1171, &
& 2.0945,2.0630,2.0380,2.0039,1.9798,1.9519,1.9327,1.9244, &
& 1.9166,1.9056,1.8813,1.8502,1.7862 /)
plasim/src/specs/soil.entisol.quartzipsamment.none.all.87p706.jhu.becknic.ancillary.txt
+36
View File
@@ -0,0 +1,36 @@
Name: Brown to dark brown sand
Type: soil
Class: Entisol
Subclass: Quartzipsamment
Particle Size: none
Sample No.: 87P706
Owner: JHU
Wavelength Range: All
Origin: Dorchester Co., Md. via USDA Soil Conservation service.
Collection Date: N/A
Description: The parent material is alluvium from mixed material from upland slope in coastal plains. Brown to dark brown sand (coated, mesic typic). Original ASTER Spectral Library name was jhu.becknic.soil.entisol.quartzipsamment.coarse.87P706.spectrum.txt
Single grain, loose, abrupt smooth boundary. 0.52% organic carbon; 2.2%
clay; 3.8% silt; 94.0% sand.
Clay mineralogy: too little material to measure.
Coarse mineralogy: 96.0% quartz, 2% plagioclase feldspar, 1% tourmaline,
1% rutile, and traces of microcline.
Spectral Description: Two sharp hydroxyl features on the short wavelength
side of the broad water band near 2.71 and 2.76 µm are contributed by
kaolinite, which also produces a short wavelength asymmetric absorption
band near 2.21µm in the near-infrared. The broader and quite weak
absorption bands near 2.84 and 2.95 µm are probably due to a small amount
of gibbsite. Except for the weak hydrocarbon features near 3.42 and 3.50
µm, all of the rest of the spectral features are due primarily to quartz. The
relative intensities of the quartz combination tone absorption
bandssuperimposed on the primary volume scattering reflectance peak
indicate that the dominant particle size of the quartz grains is sand size. This
is also indicated by the prominence of the reststrahlen doublet between 7.7
and 9.7 µm and the lack of any secondary volume scattering maximum
between 10 µm and the alpha quartz doublet near 12.6 µm. The distortion of
the quartz reststrahlen doublet is caused by absorption by kaolinite grain
coatings, which reduces the relative height of the long wavelength side of
the doublet, introduces a weak minimum near 8.98 µm, and causes curvature
of the short wavelength side of the doublet.
plasim/src/specs/soil.entisol.quartzipsamment.none.all.87p706.jhu.becknic.spectrum.txt
+2865
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/soil.entisol.quartzipsamment.none.all.87p706.jhu.becknic.spectrum_f90.txt
+714
View File
@@ -0,0 +1,714 @@
real :: wvbrownsand(2844) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0274,10.0468,10.0663,10.0859,10.1056,10.1253,10.1451,10.1650, &
& 10.1850,10.2050,10.2251,10.2454,10.2656,10.2860,10.3065,10.3270, &
& 10.3476,10.3683,10.3891,10.4099,10.4309,10.4519,10.4730,10.4942, &
& 10.5155,10.5369,10.5584,10.5799,10.6015,10.6233,10.6451,10.6670, &
& 10.6890,10.7111,10.7332,10.7555,10.7779,10.8003,10.8229,10.8455, &
& 10.8682,10.8911,10.9140,10.9370,10.9602,10.9834,11.0067,11.0301, &
& 11.0536,11.0773,11.1010,11.1248,11.1487,11.1727,11.1969,11.2211, &
& 11.2455,11.2699,11.2944,11.3191,11.3439,11.3688,11.3937,11.4188, &
& 11.4440,11.4694,11.4948,11.5203,11.5460,11.5718,11.5977,11.6237, &
& 11.6498,11.6760,11.7024,11.7289,11.7555,11.7822,11.8090,11.8360, &
& 11.8631,11.8903,11.9176,11.9450,11.9726,12.0003,12.0282,12.0562, &
& 12.0843,12.1125,12.1409,12.1694,12.1980,12.2268,12.2557,12.2847, &
& 12.3139,12.3432,12.3727,12.4023,12.4320,12.4619,12.4919,12.5221, &
& 12.5524,12.5829,12.6135,12.6443,12.6752,12.7063,12.7375,12.7688, &
& 12.8004,12.8321,12.8639,12.8959,12.9281,12.9604,12.9929,13.0255, &
& 13.0583,13.0913,13.1244,13.1577,13.1912,13.2249,13.2587,13.2927, &
& 13.3269,13.3612,13.3957,13.4304,13.4653,13.5004,13.5356,13.5711, &
& 13.6067,13.6425,13.6785,13.7147,13.7511,13.7876,13.8244,13.8614, &
& 13.8985,13.9359,13.9734,14.0112 /)
real :: brownsand(2844) = (/1.0604,1.3251,1.4971,1.4966,1.4964,1.4966,1.627,1.6264, &
& 1.9662,2.0937,1.9610,2.0937,2.0966,2.2674,2.3927,2.3896, &
& 2.4318,2.4318,2.4411,2.6228,2.6309,2.7585,3.0993,3.3435, &
& 3.5095,3.4590,3.4547,3.6257,3.7556,3.7753,4.0709,4.0571, &
& 4.2321,4.3654,4.3592,4.5449,4.7784,4.7646,4.7509,5.0693, &
& 5.2178,5.3270,4.9949,5.3190,5.4930,5.4846,5.4635,5.7609, &
& 5.7924,5.7879,6.1678,6.1581,6.1436,6.1533,5.8835,5.8788, &
& 6.4646,6.4803,6.6275,6.4332,6.3881,6.4129,6.3564,6.5516, &
& 6.5406,6.6923,6.6866,6.6753,6.5132,6.6753,6.6696,6.6753, &
& 6.9357,7.0750,7.0572,6.9357,7.2071,7.1949,7.3157,7.6247, &
& 7.7781,7.7781,7.7448,7.8782,7.8850,8.0906,7.8314,8.2360, &
& 8.2290,8.2238,8.4740,8.3083,8.4597,8.6362,9.1099,9.0945, &
& 9.1672,9.0454,9.1827,9.1416,9.1416,9.2757,9.3944,9.3327, &
& 9.5920,9.5685,9.7905,9.8598,10.0018,10.0018,10.3284,10.5895, &
& 10.5548,10.5117,10.6460,10.7246,10.8332,10.9862,10.9088,10.9088, &
& 11.3564,11.4366,11.3767,11.3676,11.4703,11.5863,11.8647,11.9616, &
& 11.8271,11.9521,12.0962,12.1154,12.2601,12.4640,12.6863,12.7521, &
& 12.7421,12.7820,12.8875,13.0435,13.0741,13.2743,13.2847,13.4311, &
& 13.5150,13.5775,13.5671,13.7236,13.9740,13.9206,13.9387,13.9883, &
& 14.0480,14.2833,14.4171,14.5402,14.7072,14.8416,14.8750,14.9048, &
& 14.9630,15.0208,15.4188,15.1925,15.4971,15.8743,15.5699,15.8986, &
& 15.8743,15.6249,15.7266,15.7807,15.8399,16.2844,16.1902,16.2076, &
& 16.2580,16.0329,16.3608,16.5785,16.9030,16.6971,16.7749,16.7227, &
& 16.8005,17.3282,17.2256,17.2614,17.1888,17.1494,17.1233,17.1756, &
& 17.1625,17.0842,17.2897,17.6270,17.5377,17.7768,17.4941,17.3889, &
& 17.7214,17.7409,17.6955,17.6433,17.5785,17.9627,18.0740,18.0740, &
& 18.0257,18.0521,18.1770,18.5575,18.2839,18.2839,18.2839,18.5620, &
& 18.7839,19.1024,18.9193,18.9753,18.9753,18.9333,18.6467,18.8975, &
& 18.8837,19.1838,18.8975,19.4234,19.4522,19.0646,19.1903,19.5884, &
& 19.2878,19.8830,19.8976,20.0381,20.0972,19.8369,19.7935,19.7611, &
& 19.6471,19.6046,19.8004,19.9684,19.9540,20.1315,20.1605,20.2853, &
& 20.6418,20.4836,20.6719,20.3731,20.3731,20.3731,20.4025,20.4247, &
& 20.5054,20.3808,20.4229,20.8892,21.0599,21.2466,21.0448,20.9379, &
& 21.0780,21.0040,20.8845,21.0534,20.8696,21.0129,21.5352,21.6272, &
& 21.7044,21.6901,21.6747,21.5828,21.6287,21.7211,21.9232,21.8921, &
& 22.0163,21.9240,21.8921,22.3455,22.3455,22.4227,22.4997,22.3728, &
& 22.3571,22.3256,22.3413,22.5605,22.6564,22.5157,22.4679,22.3706, &
& 22.2493,22.7824,22.7246,22.7337,22.9137,23.0197,23.0089,22.8555, &
& 22.8241,22.9300,22.9930,23.3117,23.3117,23.3691,23.2847,23.0883, &
& 23.5289,23.4483,23.4323,23.4576,23.5627,23.5466,23.7323,23.6011, &
& 23.7647,23.9098,23.8936,23.8936,23.9098,24.0636,24.1128,24.1292, &
& 24.1918,24.2639,24.2787,24.3116,24.3581,24.1496,24.2951,24.4237, &
& 24.4237,24.5775,24.6653,24.6653,24.8027,24.7317,24.8027,24.8528, &
& 25.0276,24.8938,24.8439,24.8938,24.9271,24.6534,24.8771,24.9772, &
& 25.2184,25.2015,25.1433,25.3746,25.4424,25.3746,25.0101,25.1299, &
& 25.3694,25.5398,25.6089,25.5751,25.4892,25.4723,25.5582,25.3753, &
& 25.5582,25.8998,26.0364,26.0022,26.0359,26.0188,26.1216,26.1905, &
& 26.1905,26.0708,25.9851,26.0022,26.1216,26.2583,26.1893,26.2410, &
& 26.3604,26.2224,26.3085,26.2457,26.1946,26.1268,26.2794,26.3306, &
& 26.3477,26.6487,26.4496,26.2961,25.9693,26.2624,26.0583,26.0640, &
& 26.5396,26.1513,26.6537,27.0131,26.9801,27.2095,27.3533,27.4398, &
& 27.3030,27.3701,27.3726,27.5599,27.6982,27.5480,27.5675,27.7559, &
& 27.9379,27.9396,28.0080,28.0807,28.3502,28.4680,28.3461,28.6642, &
& 28.6441,28.7815,28.9817,29.2331,29.0106,29.2123,29.3938,29.3096, &
& 29.4262,29.7780,29.7587,29.8109,30.0507,30.0155,30.1502,30.3134, &
& 30.1325,30.2937,30.6821,30.5199,30.6638,30.6911,30.5387,31.0110, &
& 31.2701,31.3859,31.3787,31.6908,31.6175,31.8124,32.1589,32.0119, &
& 32.2422,32.3945,31.9465,32.1132,32.3176,32.8913,33.1814,33.1445, &
& 33.0310,32.5535,33.0105,33.2406,33.6245,33.1066,33.2613,33.7943, &
& 33.6627,33.5857,33.8331,34.3492,34.3126,34.1925,34.2482,34.5514, &
& 34.4767,34.3820,34.3428,34.3913,34.5786,34.7945,34.7354,34.9466, &
& 34.5662,34.7930,34.8597,34.8156,34.8872,35.1077,35.6867,35.8769, &
& 35.8968,35.9368,36.0170,36.0572,35.9859,35.9477,35.9881,36.6064, &
& 37.0479,37.0955,36.8571,36.4021,36.3204,36.2728,36.3235,36.6178, &
& 36.7089,37.2096,37.3299,37.5132,37.5406,37.4980,37.4980,37.8116, &
& 37.8641,37.8400,37.8922,37.6541,37.9907,37.9486,37.9066,38.1153, &
& 38.2249,38.2249,38.2920,38.3132,38.1721,38.0712,38.2842,38.0420, &
& 38.2665,38.3684,38.1687,38.4965,38.3322,38.4318,38.5262,38.2418, &
& 38.2404,38.4193,38.4091,38.1851,38.1293,38.0047,38.0047,38.1365, &
& 37.4212,37.4994,37.8142,37.9474,38.1816,38.1995,38.1019,38.2842, &
& 38.3933,38.4624,38.4252,38.6877,38.8149,38.7032,38.7440,38.7013, &
& 38.8529,38.8529,39.1677,39.3201,39.4290,39.4728,39.5166,39.5060, &
& 39.5696,39.5906,39.5266,39.5266,39.2070,39.3411,39.6609,40.2177, &
& 40.0092,39.7459,39.8106,39.8754,40.0601,40.1886,40.2808,40.2154, &
& 40.0653,40.1501,40.2565,40.2372,40.0653,40.1088,40.2372,40.2348, &
& 40.1046,40.1263,40.1674,40.1954,40.1457,40.5791,40.4228,40.4260, &
& 40.6633,40.8135,40.7694,40.7190,40.4822,40.5693,40.7410,40.7654, &
& 40.4822,40.5226,40.7176,40.8830,40.8173,40.7299,40.8749,40.9581, &
& 40.7622,40.9889,40.9497,40.9714,40.8056,41.0062,41.0813,41.0704, &
& 41.0813,40.9666,41.0953,41.0246,40.9634,41.0513,41.4066,41.2846, &
& 41.1223,41.1395,41.0073,41.0246,41.1243,41.2953,41.2025,41.1587, &
& 41.1806,41.2680,41.3340,41.1587,41.2463,41.4223,41.4171,41.3285, &
& 41.4166,41.5168,41.4117,41.4566,41.4957,41.4228,41.4501,41.2632, &
& 41.3505,41.5109,41.6676,41.1695,40.9064,40.7394,40.5759,40.0707, &
& 40.1614,39.5804,38.8631,38.3081,37.7465,37.9487,37.6564,37.5492, &
& 37.6318,37.7428,37.9425,37.9487,38.0424,38.5389,38.5325,38.5120, &
& 38.6787,38.6582,38.6798,38.6605,38.8023,39.0495,39.3002,39.3997, &
& 39.4611,39.6458,39.8302,39.9564,40.0591,40.2826,40.3850,40.4241, &
& 40.3578,40.3935,40.3935,40.4563,40.5144,40.5718,40.5509,40.5335, &
& 40.9375,40.8532,40.7273,40.8702,41.1097,40.9465,40.7654,41.1097, &
& 41.0841,41.1171,41.2736,41.1056,41.0033,41.1693,41.2550,41.1000, &
& 40.9345,40.9530,40.9674,40.9601,41.0192,41.2416,41.2401,41.1330, &
& 41.1635,41.2665,41.1477,41.0192,41.0656,41.0797,41.2416,41.3129, &
& 41.1679,41.1549,41.1549,41.1508,41.1608,41.2042,41.2621,41.2592, &
& 41.0985,40.9630,41.0463,41.0826,41.1085,41.1344,41.1315,41.2127, &
& 41.3244,41.2980,41.3577,41.3114,41.2072,41.0656,40.9689,41.0785, &
& 41.2794,41.3214,41.3214,41.2980,41.0797,41.0376,41.2516,41.1981, &
& 41.0871,41.0551,41.0062,40.9975,41.0476,41.1200,41.1273,41.0785, &
& 41.1144,41.1535,41.0756,41.0871,41.1852,41.1000,41.0856,41.1622, &
& 41.1344,41.1377,41.1200,40.9818,41.0363,41.0233,40.8913,40.9630, &
& 41.0597,41.0741,40.9704,40.8324,40.9215,41.0871,41.1200,40.9948, &
& 40.8926,40.9459,40.9415,41.0376,41.0507,40.9086,40.5692,40.4425, &
& 40.6520,40.8277,40.7894,40.5961,40.6608,40.7118,40.5607,40.3060, &
& 40.3856,40.6608,40.8263,40.5548,40.4750,40.6161,40.7665,40.5434, &
& 40.4071,40.5094,40.5932,40.4950,40.3146,40.3234,40.3009,40.2765, &
& 40.3688,40.4171,40.3768,40.2936,40.3161,40.3248,40.2792,40.2851, &
& 40.2792,40.1974,40.2313,40.1918,40.2382,40.2667,40.1903,40.0309, &
& 39.9676,40.0731,40.0998,40.0099,39.9989,40.0707,40.1466,40.0846, &
& 40.0099,39.9047,39.9791,39.9945,40.0677,40.1759,40.2894,40.3119, &
& 40.3529,40.4850,40.5802,40.5248,40.3500,40.3644,40.6745,40.6889, &
& 40.5831,40.6290,40.7392,40.6549,40.7206,40.7936,40.7794,40.7147, &
& 40.6774,40.7606,40.8009,40.7909,40.8310,40.7462,40.8324,40.7521, &
& 40.5961,40.6491,40.6334,40.6491,40.7291,40.7421,40.7706,40.6644, &
& 40.5722,40.5109,40.6391,40.7492,40.6205,40.6464,40.6161,40.4694, &
& 40.4794,40.5180,40.5751,40.5333,40.4809,40.5407,40.4923,40.3856, &
& 40.4965,40.6933,40.6220,40.4210,40.4223,40.4909,40.4267,40.3358, &
& 40.4086,40.3956,40.3826,40.4157,40.4835,40.5080,40.4794,40.3768, &
& 40.2553,40.3414,40.4267,40.3161,40.3248,40.3473,40.3688,40.3349, &
& 40.2540,40.3060,40.3488,40.2582,40.2807,40.3161,40.2084,40.1266, &
& 40.1818,40.2367,40.3205,40.2655,40.2069,40.1845,40.1564,40.1818, &
& 40.2127,40.1466,40.1112,40.0975,40.0170,39.9213,39.9396,39.9581, &
& 39.9845,39.9801,39.9540,39.9606,39.8937,39.9213,40.0294,40.0155, &
& 40.0280,39.9676,39.8415,39.9018,40.0243,40.0758,40.0324,39.9765, &
& 39.8937,39.9061,39.8893,39.7956,39.8739,39.9481,39.7772,39.6222, &
& 39.7716,39.9118,39.7636,39.7731,39.7772,39.6126,39.5863,39.6811, &
& 39.7299,39.6461,39.6586,39.6769,39.5988,39.5609,39.4835,39.5499, &
& 39.6112,39.5543,39.6071,39.5363,39.5031,39.5624,39.5055,39.4865, &
& 39.4352,39.3490,39.4516,39.4652,39.4281,39.4931,39.5573,39.5250, &
& 39.5155,39.4865,39.4821,39.5004,39.5499,39.4945,39.3410,39.3877, &
& 39.4652,39.4586,39.4945,39.4223,39.3659,39.3007,39.2802,39.2676, &
& 39.1586,39.1754,39.2289,39.2179,39.2165,39.2179,39.2676,39.2743, &
& 39.1586,39.0529,39.1247,39.1989,39.2055,39.1811,39.1535,39.1535, &
& 39.0954,38.9542,38.9313,39.0819,39.2399,39.2494,39.0807,38.9735, &
& 39.0241,38.9572,38.8561,38.7782,38.7863,38.8888,38.8644,38.8998, &
& 38.9323,38.8202,38.7825,38.7702,38.7045,38.7060,38.7318,38.6203, &
& 38.4484,38.4040,38.4716,38.4876,38.4364,38.4269,38.4379,38.2907, &
& 38.2086,38.1269,38.1781,38.2318,38.1647,38.1967,38.2570,38.2235, &
& 38.1657,38.1737,38.1083,38.0255,37.9718,37.9308,37.9308,38.0067, &
& 38.0546,37.9972,37.9198,37.8626,37.9105,37.9000,37.8561,37.8761, &
& 37.7191,37.6637,37.7124,37.6862,37.7169,37.7550,37.6293,37.5646, &
& 37.6254,37.6547,37.5460,37.4115,37.4669,37.5211,37.5076,37.5525, &
& 37.4408,37.3461,37.3512,37.3119,37.2504,37.3581,37.4315,37.2494, &
& 37.1626,37.2963,37.3092,37.2599,37.2389,37.1249,37.0325,36.9765, &
& 36.9933,37.0287,37.0441,37.0546,37.0726,37.1044,37.1459,37.0900, &
& 37.0014,36.9638,36.9425,36.9091,37.0127,36.9882,36.9015,36.9440, &
& 37.0158,37.0168,36.9106,36.9075,37.0023,36.9689,36.8832,36.8537, &
& 36.8234,36.7860,36.8947,36.8468,36.7370,36.7152,36.5722,36.5697, &
& 36.7011,36.6364,36.5890,36.6689,36.5929,36.5456,36.5211,36.6173, &
& 36.8158,36.7885,36.7450,36.6095,36.1515,35.7716,35.7865,35.9645, &
& 36.3377,36.6105,36.4594,36.0541,36.1264,36.2819,35.8483,35.9845, &
& 36.1898,36.0631,36.3517,36.3468,35.9215,35.8861,35.5487,35.6186, &
& 35.9476,35.7123,35.8498,36.0048,36.1823,35.9655,34.9442,33.9911, &
& 34.8471,35.8659,36.2257,36.0324,35.7587,35.6474,35.3593,34.8730, &
& 35.1275,35.4091,35.4127,35.5597,35.7253,35.6424,35.5673,35.0846, &
& 34.7362,35.0045,34.7387,34.8573,35.4152,35.5761,35.3405,34.7543, &
& 34.8534,34.6337,34.1601,34.5959,34.7802,34.7127,34.9247,34.9874, &
& 34.8854,34.7912,34.6801,34.6212,34.5353,34.1242,34.0939,34.2572, &
& 34.1711,33.8898,33.5331,33.5121,33.4543,33.2211,33.3022,32.9827, &
& 32.6088,32.5033,32.3632,31.5258,30.7931,30.6908,30.8378,29.9955, &
& 29.8002,30.3832,30.2199,29.5419,28.7724,28.4189,28.0480,27.8820, &
& 27.3542,26.4196,25.5588,24.7265,23.8012,22.6459,21.2961,19.8100, &
& 18.1677,16.7541,15.5046,14.2797,13.0864,11.9555,10.9057,10.2654, &
& 10.0085,10.0366,10.1985,10.4458,10.6491,10.8535,11.0517,11.0293, &
& 10.9009,10.6372,10.2697,9.7807,9.4941,9.2698,8.9189,8.8037, &
& 8.6601,8.4409,8.3017,8.1074,7.8713,7.6189,7.4670,7.3574, &
& 7.1091,6.9436,6.9380,6.9765,6.9236,6.8210,6.7842,6.7063, &
& 6.5671,6.3645,6.1833,5.9551,5.8479,5.8469,5.7683,5.5439, &
& 5.4328,5.6819,6.0373,6.2095,6.3320,6.4695,6.5493,6.6416, &
& 6.7197,6.7192,6.7532,6.8364,6.8288,6.8196,6.8169,6.8359, &
& 6.8164,6.7995,6.8191,6.8642,6.8574,6.8418,6.8364,6.7939, &
& 6.7546,6.7336,6.6535,6.5652,6.5693,6.5972,6.5798,6.5373, &
& 6.5403,6.4680,6.3909,6.3618,6.3340,6.2556,6.1770,6.1272, &
& 6.0578,6.0149,6.0066,5.9326,5.8249,5.7273,5.6362,5.5908, &
& 5.5723,5.5378,5.5640,5.5659,5.5903,5.5989,5.6101,5.6592, &
& 5.6711,5.6372,5.6440,5.6348,5.5937,5.5942,5.5998,5.5559, &
& 5.4995,5.5134,5.4861,5.3984,5.3779,5.3960,5.3726,5.3076, &
& 5.2573,5.2617,5.2348,5.1186,5.0588,5.0076,4.9429,4.9558, &
& 4.9621,4.8616,4.7683,4.7458,4.7370,4.7026,4.6543,4.5864, &
& 4.5954,4.6174,4.6055,4.6736,4.7224,4.6880,4.7219,4.7573, &
& 4.7864,4.8472,4.8674,4.8481,4.8711,4.9448,5.0181,5.0210, &
& 4.9717,4.9861,5.0166,5.0171,4.9927,4.9678,5.0066,5.0559, &
& 5.0491,5.0185,5.0640,5.0515,5.0171,5.0371,5.0735,5.0481, &
& 4.9990,4.9773,4.9856,4.9985,4.9927,4.9941,5.0090,4.9880, &
& 5.0132,5.0754,5.0837,5.0837,5.1228,5.1540,5.1526,5.1650, &
& 5.1831,5.2388,5.2524,5.2148,5.2114,5.2473,5.2768,5.2993, &
& 5.3210,5.3330,5.3550,5.3721,5.3526,5.3606,5.3635,5.3679, &
& 5.3721,5.3889,5.4272,5.4194,5.4314,5.4521,5.4536,5.4736, &
& 5.5056,5.4736,5.4731,5.5027,5.5100,5.5119,5.4617,5.4761, &
& 5.5683,5.5535,5.5010,5.5588,5.6123,5.5879,5.5774,5.5957, &
& 5.6211,5.6362,5.6431,5.6435,5.6597,5.6362,5.6455,5.6665, &
& 5.6689,5.7065,5.7173,5.7248,5.7507,5.7632,5.7522,5.7678, &
& 5.7827,5.7822,5.7971,5.7803,5.7961,5.8459,5.8664,5.8396, &
& 5.8545,5.8818,5.9282,5.9197,5.8943,5.9397,5.9895,5.9626, &
& 5.9692,5.9785,6.0290,6.0603,6.0224,6.0295,6.0842,6.0923, &
& 6.0642,6.1240,6.1889,6.2095,6.2243,6.2234,6.2607,6.2905, &
& 6.2776,6.2785,6.3650,6.3804,6.3699,6.3996,6.4560,6.4980, &
& 6.5224,6.5293,6.5552,6.5803,6.6124,6.6321,6.6474,6.6774, &
& 6.7197,6.7580,6.8005,6.8254,6.8542,6.8891,6.9033,6.9416, &
& 6.9795,6.9900,6.9958,7.0339,7.0875,7.1035,7.1186,7.1733, &
& 7.2446,7.2627,7.2656,7.2849,7.3379,7.3699,7.3699,7.4092, &
& 7.5034,7.5112,7.5373,7.5959,7.6189,7.6628,7.6799,7.6733, &
& 7.6911,7.7446,7.8044,7.8533,7.8637,7.8877,7.9634,7.9634, &
& 7.9670,8.0442,8.1045,8.1333,8.1916,8.2451,8.2634,8.2868, &
& 8.3083,8.3327,8.3916,8.4419,8.4814,8.5442,8.5915,8.6020, &
& 8.7046,8.7265,8.7131,8.7917,8.8352,8.8869,8.9624,9.0071, &
& 8.9983,9.0195,9.0788,9.1548,9.2141,9.2285,9.2500,9.2744, &
& 9.3188,9.3945,9.4309,9.4343,9.4721,9.5227,9.5698,9.6008, &
& 9.6184,9.6567,9.6902,9.7109,9.7558,9.7812,9.7864,9.8098, &
& 9.8291,9.8425,9.8510,9.8366,9.8486,9.8575,9.8575,9.8755, &
& 9.8750,9.8969,9.8689,9.8301,9.8375,9.8789,9.8716,9.8415, &
& 9.8769,9.9348,9.9079,9.9199,9.9812,9.9438,9.8535,9.8530, &
& 9.8564,9.8381,9.8445,9.8305,9.7988,9.7644,9.7363,9.7414, &
& 9.7593,9.7734,9.8266,9.9114,9.9831,10.0984,10.3252,10.5473, &
& 10.6938,10.8100,10.9123,11.0444,11.1609,11.2312,11.3164,11.4206, &
& 11.4780,11.5569,11.6516,11.7378,11.7815,11.8335,11.8957,11.9411, &
& 11.9958,12.0373,12.0766,12.1196,12.1135,12.1445,12.1882,12.1809, &
& 12.2153,12.1909,12.1196,12.0827,12.0891,12.0608,12.0681,12.1494, &
& 12.3393,12.5666,12.8437,13.0600,13.2055,13.3715,13.5161,13.6013, &
& 13.6992,13.7568,13.8896,13.9951,14.0061,14.0824,14.1677,14.2324, &
& 14.2937,14.3789,14.4409,14.4702,14.5166,14.5844,14.6667,14.7019, &
& 14.7304,14.7873,14.8750,14.9658,14.9946,14.9985,15.0405,15.1132, &
& 15.1721,15.2224,15.2922,15.3491,15.4079,15.4411,15.4885,15.5559, &
& 15.5847,15.6320,15.6814,15.7981,15.8837,15.8779,15.9082,15.9685, &
& 16.0109,16.0656,16.1424,16.2038,16.2407,16.2975,16.3513,16.3972, &
& 16.4272,16.4450,16.4631,16.5244,16.5866,16.6001,16.5896,16.6301, &
& 16.7097,16.7727,16.7478,16.7307,16.7641,16.7695,16.7810,16.7841, &
& 16.7836,16.8259,16.8364,16.8220,16.8188,16.8278,16.7990,16.7580, &
& 16.7661,16.7939,16.7956,16.7607,16.7880,16.8469,16.8493,16.8493, &
& 16.8689,16.8957,16.9331,16.9943,17.0388,17.0861,17.1408,17.2011, &
& 17.2690,17.3144,17.3675,17.4211,17.4790,17.5417,17.5585,17.6335, &
& 17.7399,17.7863,17.8313,17.8896,17.9404,18.0102,18.0537,18.0775, &
& 18.1442,18.1925,18.1833,18.1872,18.2321,18.2609,18.2404,18.2663, &
& 18.2849,18.3117,18.3720,18.3986,18.3610,18.3054,18.2385,18.2474, &
& 18.2883,18.3059,18.3342,18.3872,18.4225,18.4687,18.4519,18.4255, &
& 18.5007,18.5849,18.6342,18.6721,18.7094,18.7573,18.8022,18.8437, &
& 18.8786,18.9494,19.0075,19.0461,19.0778,19.1467,19.2104,19.2194, &
& 19.2109,19.2185,19.2587,19.2958,19.3203,19.2988,19.2778,19.3088, &
& 19.3232,19.2744,19.2319,19.1965,19.1825,19.1596,19.0913,19.0534, &
& 19.0544,19.0290,18.9836,18.9877,18.9792,18.9016,18.8332,18.8212, &
& 18.7954,18.7714,18.7939,18.8156,18.8122,18.7939,18.7729,18.7792, &
& 18.7812,18.7749,18.7749,18.8303,18.8974,18.9343,18.9223,18.9428, &
& 19.0161,19.0566,19.0686,19.0954,19.1018,19.1237,19.1342,19.1281, &
& 19.1481,19.2089,19.2104,19.1552,19.1486,19.1811,19.1467,19.0700, &
& 19.0280,19.0002,18.9519,18.9113,18.8530,18.7792,18.7060,18.6528, &
& 18.5534,18.4787,18.4384,18.3886,18.3361,18.2705,18.1950,18.1333, &
& 18.0805,18.0475,18.0141,17.9499,17.8901,17.8481,17.8064,17.7863, &
& 17.7460,17.6828,17.6250,17.5422,17.4628,17.4062,17.3273,17.2595, &
& 17.2143,17.1662,17.0935,17.0756,17.1075,17.0875,16.9890,16.9260, &
& 16.8881,16.8374,16.7956,16.7043,16.6091,16.6145,16.6569,16.7119, &
& 16.7631,16.8459,16.8982,16.8737,16.7421,16.5383,16.3823,16.2822, &
& 16.1569,16.0783,16.0527,16.0344,16.0278,16.0434,16.1157,16.1948, &
& 16.2790,16.3784,16.4550,16.5681,16.6914,16.7425,16.7482,16.7497, &
& 16.7221,16.6809,16.6030,16.5039,16.3852,16.2451,16.0712,15.8803, &
& 15.6482,15.4157,15.1567,14.9084,14.6333,14.3549,14.0749,13.7902, &
& 13.5174,13.2614,12.9680,12.7182,12.5053,12.3120,12.1245,11.9441, &
& 11.7497,11.5652,11.3828,11.2182,11.0803,10.9836,10.8879,10.7448, &
& 10.5483,10.3291,10.1352,10.0095,9.9138,9.8769,9.9497,10.0524, &
& 10.1242,10.2158,10.3449,10.5066,10.7383,10.9875,11.3254,11.7551, &
& 12.2158,12.6709,13.1369,13.5805,14.0002,14.3664,14.7133,15.0654, &
& 15.3984,15.6699,15.8608,16.0249,16.1833,16.2866,16.3674,16.4111, &
& 16.3889,16.3747,16.3679,16.3398,16.3010,16.2338,16.1130,16.0095, &
& 15.9248,15.8125,15.6196,15.4008,15.1980,14.9812,14.7170,14.4174, &
& 14.1032,13.7705,13.4380,13.1289,12.7983,12.4255,12.0627,11.7197, &
& 11.4182,11.2358,11.2068,11.3274,11.5598,11.9162,12.2705,12.5378, &
& 12.7561,12.9350,13.0652,13.1284,13.1433,13.1115,13.0671,13.0127, &
& 12.9325,12.8173,12.6911,12.5901,12.4504,12.2885,12.1665,12.0344, &
& 11.8684,11.6967,11.5063,11.3403,11.1525,10.9397,10.7646,10.5884, &
& 10.3684,10.1472,9.9277,9.6965,9.4634,9.1946,8.9360,8.6767, &
& 8.3747,8.0527,7.7517,7.4431,7.0967,6.7173,6.3259,5.9277, &
& 5.5434,5.1555,4.7869,4.4624,4.1677,3.9485,3.7969,3.6648, &
& 3.5203,3.4451,3.4065,3.3618,3.3208,3.2800,3.2197,3.1658, &
& 3.1394,3.0891,3.0217,2.9939,2.9714,2.9424,2.9326,2.9216, &
& 2.8877,2.8767,2.8743,2.8747,2.8647,2.8691,2.8706,2.8577, &
& 2.8428,2.8447,2.8577,2.8518,2.8274,2.8249,2.8342,2.8467, &
& 2.8289,2.8318,2.8508,2.8428,2.8328,2.8586,2.8767,2.8638, &
& 2.8484,2.8457,2.8628,2.8594,2.8149,2.7810,2.7900,2.8174, &
& 2.8303,2.8264,2.8039,2.7954,2.8005,2.8169,2.8279,2.8064, &
& 2.7761,2.7402,2.7039,2.6787,2.6379,2.5771,2.5308,2.4805, &
& 2.4490,2.4495,2.4226,2.3813,2.3484,2.3210,2.2930,2.2935, &
& 2.2820,2.2302,2.2143,2.2163,2.2163,2.2217,2.2183,2.1997, &
& 2.1904,2.1914,2.1763,2.1421,2.1431,2.1748,2.1848,2.2039, &
& 2.2217,2.2302,2.2456,2.2681,2.3005,2.3245,2.3418,2.3579, &
& 2.3564,2.3708,2.4341,2.4734,2.4758,2.4849,2.4934,2.4600, &
& 2.4092,2.4172,2.4106,2.3752,2.3528,2.3159,2.2976,2.2986, &
& 2.2656,2.2212,2.1843,2.1814,2.1680,2.1101,2.0666,2.0513, &
& 2.0464,2.0293,2.0059,1.9880,1.9651,1.9805,1.9790,1.9700, &
& 1.9585,1.9321,1.9126,1.9268,1.9311,1.9182,1.9126,1.9502, &
& 1.9934,2.0224,2.0469,2.0857,2.1355,2.1531,2.1518,2.1704, &
& 2.1643,2.1399,2.1289,2.0977,2.0618,2.0422,1.9819,1.9287, &
& 1.9351,1.9006,1.8159,1.8005,1.7952,1.7717,1.7598,1.7456, &
& 1.7014,1.6631,1.6121,1.5684,1.5435,1.5398,1.5408,1.5224, &
& 1.4861,1.4451,1.4351,1.3752,1.3315,1.3296,1.3230,1.3359, &
& 1.3401,1.3384,1.3401,1.3052,1.2483,1.2707,1.2866,1.2627, &
& 1.2148,1.2344,1.2551,1.2200,1.2178,1.2488,1.2573,1.2537, &
& 1.2417,1.2292,1.2095,1.1602,1.1340,1.2034,1.2205,1.1860, &
& 1.1721,1.1958,1.2263,1.2058,1.1574,1.1360,1.1645,1.1976, &
& 1.1780,1.1545,1.1570,1.1482,1.1382,1.1465,1.1167,1.0991, &
& 1.1226,1.1248,1.1301,1.1355,1.1182,1.1211,1.1216,1.1182, &
& 1.1611,1.1794,1.1770,1.1736,1.1804,1.1774,1.1880,1.1924, &
& 1.1970,1.1824,1.1948,1.2085,1.1855,1.2053,1.2302,1.2197, &
& 1.2388,1.2488,1.2637,1.2666,1.2129,1.1970,1.2378,1.2563, &
& 1.2817,1.2866,1.2603,1.2666,1.2353,1.2168,1.1814,1.1636, &
& 1.1799,1.1914,1.1726,1.1676,1.1565,1.1602,1.1440,1.1133, &
& 1.1106,1.1230,1.1340,1.1641,1.1876,1.1785,1.1536,1.1096, &
& 1.0889,1.1221,1.1240,1.1367,1.1082,1.0774,1.0793,1.0928, &
& 1.0852,1.0713,1.0498,1.0305,1.0588,1.0503,1.0149,1.0359, &
& 1.0339,0.9985,0.9836,0.9707,0.9812,0.9636,1.0015,1.0283, &
& 0.9780,0.9421,0.9373,0.9785,0.9841,0.9687,0.9770,0.9746, &
& 0.9492,0.9551,0.9687,0.9573,0.9431,0.9546,0.9573,0.9329, &
& 0.9302,0.9282,0.9233,0.9182,0.9207,0.9067,0.8874,0.9148, &
& 0.9187,0.8948,0.9053,0.9053,0.8953,0.9412,0.9526,0.8848, &
& 0.8669,0.8823,0.8469,0.8589,0.8535,0.8257,0.8660,0.9248, &
& 0.8774,0.8296,0.8376,0.8420,0.8474,0.8779,0.8799,0.8569, &
& 0.8635,0.8735,0.8669,0.8621,0.8760,0.9033,0.8923,0.9087, &
& 0.9326,0.9458,0.9536,0.9707,0.9936,1.0061,1.0234,1.0405, &
& 1.0478,1.0469,1.0784,1.1301,1.1606,1.1924,1.1980,1.2334, &
& 1.2798,1.3052,1.3550,1.4087,1.4292,1.4785,1.5598,1.6172, &
& 1.6874,1.7895,1.8608,1.9690,2.0691,2.1201,2.1894,2.3000, &
& 2.4321,2.5373,2.6255,2.7380,2.8254,2.9331,3.0471,3.2192, &
& 3.4180,3.6467,3.9228,4.2021,4.4878,4.8420,5.2493,5.6565, &
& 6.1301,6.6391,7.1833,7.7117,8.2063,8.6887,9.2400,9.8352, &
& 10.4665,11.1360,11.8344,12.6035,13.4099,14.2605,15.1530,16.0066, &
& 16.8775,17.7031,18.3261,18.7470,18.9825,19.1083,19.1696,19.0922, &
& 18.8801,18.6711,18.5051,18.2968,18.0092,17.7666,17.5637,17.3283, &
& 17.0861,16.9216,16.7507,16.5966,16.4492,16.3200,16.2587,16.1250, &
& 15.9895,15.8574,15.7314,15.6037,15.4243,15.2329,14.9482,14.5490, &
& 14.0217,13.2441,12.1809,11.0652,10.4980,10.9182,11.9480,12.9480, &
& 13.6020,13.9729,14.2339,14.4309,14.5439,14.5984,14.6477,14.7395, &
& 14.8693,15.0031,15.0962,15.1242,15.1237,15.1275,15.1367,15.0608, &
& 14.9836,14.9406,14.8444,14.7285,14.6980,14.7500,14.8569,14.8923, &
& 14.9094,14.9553,14.9482,14.9194,14.9582,15.0363,15.0713,15.0739, &
& 15.1137,15.0730,15.0310,15.0124,14.9773,14.9716,14.9443,14.8051, &
& 14.5400,14.1801,13.6757,12.9934,12.2028,11.4216,10.6377,9.8750, &
& 9.2954,8.8567,8.4719,8.1428,7.8586,7.6264,7.4574,7.2527, &
& 7.0078,6.8923,6.7685,6.6291,6.5115,6.3503,6.2512,6.1484, &
& 6.0144,5.9092,5.7698,5.6477,5.5827,5.4717,5.3989,5.3620, &
& 5.2966,5.2429,5.1841,5.1426,5.0818,5.0229,4.9726,4.8242, &
& 4.7151,4.7041,4.6716,4.6152,4.5815,4.5654,4.4846,4.3787, &
& 4.3428,4.3486,4.3188,4.2998,4.2744,4.2241,4.1980,4.1577, &
& 4.0989,4.0994,4.0845,4.0520,3.9831,3.9250,3.8940,3.8935, &
& 3.8672,3.8403,3.8088,3.7773,3.7331,3.7102,3.6807,3.6728, &
& 3.6472,3.5959,3.5452,3.5107,3.4763,3.4714,3.4568,3.4204, &
& 3.4031,3.4080,3.3293,3.2834,3.2710,3.3113,3.3264,3.2959, &
& 3.2781,3.2700,3.2446,3.2212,3.2041,3.1843,3.1682,3.1204, &
& 3.0981,3.0642,3.0261,3.0132,2.9748,2.9436,2.9436,2.9150, &
& 2.8872,2.8608,2.8103,2.7815,2.7266,2.6580,2.6389,2.6658, &
& 2.6077,2.5273,2.4963,2.4436,2.3843,2.3433,2.2876,2.2241, &
& 2.2073,2.1753,2.0781,2.0063,1.9177,1.8269,1.7681,1.7034, &
& 1.6182,1.5354,1.4416,1.3613,1.2632,1.1406,1.0688,1.0549, &
& 1.0981,1.4009,2.0603,2.9538,3.6738,4.1199,4.3296,4.3645, &
& 4.2060,3.9180,3.6643,3.6108,3.8562,4.3303,4.8415,5.1645, &
& 5.2898,5.2663,5.0395,4.7131,4.3552,4.0908,3.9076,3.7451, &
& 3.6118,3.5640,3.5168,3.4121,3.2900,3.2374,3.2002,3.1443, &
& 3.0471,3.0361,3.0022,2.9241,2.8777,2.8921,2.8428,2.7830, &
& 2.7153,2.7371,2.7651,2.7351,2.6992,2.6470,2.6016,2.5437, &
& 2.491,2.459,2.3728,2.3713 /)
plasim/src/specs/soil.entisol.quartzipsamment.none.all.87p706.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: brownsand(965) = (/1.0604,1.0604,1.0604,1.0604,1.0604,1.0604,1.0604,1.961, &
& 2.6309,4.0709,5.2178,6.1678,6.3881,6.6696,7.7781,8.4740, &
& 9.1416,10.3284,11.3564,12.0962,13.0741,13.9387,14.9630,15.7266, &
& 16.9030,17.1233,17.7214,18.1770,18.9753,19.1903,19.6471,20.6719, &
& 21.0599,21.5352,22.0163,22.3413,22.9137,23.2847,23.7647,24.2787, &
& 24.8027,24.8771,25.3694,26.0364,26.1216,26.2794,26.5396,27.2095, &
& 27.3726,27.7559,28.3502,28.7815,29.3938,29.8109,30.1325,30.6911, &
& 31.3787,32.0119,32.3176,32.5535,33.2613,34.3492,34.4767,34.7945, &
& 34.8597,35.8769,35.9859,37.0955,36.3235,37.5132,37.8641,37.9486, &
& 38.2920,38.0420,38.3322,38.4193,38.0047,37.9474,38.3933,38.7032, &
& 39.1677,39.5060,39.2070,39.7459,40.2808,40.2372,40.1046,40.5791, &
& 40.7694,40.7654,40.8173,40.9889,41.0813,41.0246,41.1223,41.2953, &
& 41.3340,41.3285,41.4957,41.5109,40.5759,38.3081,37.6318,38.5389, &
& 38.6798,39.3997,40.0591,40.3935,40.5509,40.8702,41.1047,41.1630, &
& 41.2124,41.1239,40.9244,40.4950,40.0262,40.6125,40.6439,40.6438, &
& 40.3967,40.3930,40.3178,40.2946,40.1818,39.9810,39.8689,39.8739, &
& 39.5983,39.5499,39.4093,39.4839,39.4354,39.2166,39.1833,39.0960, &
& 38.8934,38.5200,38.1814,38.1737,37.9479,37.7080,37.4675,37.3119, &
& 37.2529,37.0651,36.9954,36.9944,36.7370,36.5929,36.1867,36.1143, &
& 36.0851,36.0731,36.0113,35.5258,34.7752,34.2330,34.7570,33.9702, &
& 32.6013,29.9258,27.9413,21.5853,12.0363,10.6491,9.7602,8.2887, &
& 6.9436,6.5870,5.6187,6.5067,6.8270,6.8582,6.6909,6.5313, &
& 6.1438,5.7152,5.5805,5.6440,5.5047,5.3279,5.0108,4.7441, &
& 4.6129,4.7719,4.9879,5.0013,5.0498,5.0163,5.0029,5.1021, &
& 5.2436,5.3031,5.3601,5.4217,5.4932,5.4625,5.5945,5.6381, &
& 5.6630,5.7549,5.7946,5.8437,5.9254,6.0307,6.0805,6.2236, &
& 6.3650,6.5041,6.6213,6.7848,6.9320,7.0819,7.2618,7.3699, &
& 7.5959,7.6911,7.8865,8.0959,8.2812,8.4664,8.7150,8.9085, &
& 9.0824,9.2698,9.4541,9.6257,9.7776,9.8468,9.8591,9.8424, &
& 9.8495,9.9652,9.8516,9.7738,9.7827,10.2324,10.9123,11.3526, &
& 11.7116,11.9411,12.1177,12.2003,12.0880,12.3488,13.2416,13.7232, &
& 14.0474,14.3505,14.5703,14.7782,14.9982,15.2204,15.4398,15.6301, &
& 15.8784,16.0572,16.2844,16.4395,16.5944,16.7364,16.7656,16.7869, &
& 16.8192,16.7633,16.7718,16.8522,16.9852,17.1743,17.3794,17.5566, &
& 17.8104,18.0164,18.1804,18.2414,18.2829,18.3825,18.2471,18.3588, &
& 18.4525,18.6053,18.7507,18.9006,19.0691,19.2183,19.2779,19.2806, &
& 19.2645,19.1695,19.0543,18.9863,18.8278,18.7874,18.7945,18.7800, &
& 18.8584,18.9349,19.0663,19.1230,19.1557,19.1535,19.1179,18.9768, &
& 18.8105,18.5876,18.4026,18.2133,18.0545,17.9010,17.7900,17.6369, &
& 17.4195,17.2263,17.0814,17.0267,16.8613,16.6635,16.6742,16.8564, &
& 16.7305,16.2908,16.0593,16.0367,16.2275,16.4744,16.7411,16.7296, &
& 16.5535,16.2028,15.6545,14.9822,14.2414,13.4905,12.7722,12.2259, &
& 11.7298,11.2572,10.9458,10.5425,10.0558,9.8937,10.1113,10.4112, &
& 10.9811,11.9914,13.1702,14.2199,15.1070,15.7892,16.1962,16.3940, &
& 16.3740,16.3180,16.1130,15.8728,15.4268,14.8974,14.1875,13.4003, &
& 12.6030,11.7524,11.2277,11.4768,12.2705,12.8143,13.1064,13.1122, &
& 12.9890,12.7410,12.4663,12.1425,11.7904,11.3883,10.9445,10.5395, &
& 10.0496,9.5411,8.9647,8.3397,7.6578,6.9112,6.0575,5.2145, &
& 4.4624,3.9227,3.6208,3.4279,3.3382,3.2377,3.1445,3.0274, &
& 2.9714,2.9317,2.8859,2.8744,2.8660,2.8661,2.8436,2.8552, &
& 2.8262,2.8402,2.8304,2.8468,2.8457,2.8704,2.8471,2.8613, &
& 2.8009,2.8002,2.8291,2.8016,2.8037,2.8250,2.7747,2.7053, &
& 2.6433,2.5415,2.4597,2.4348,2.3676,2.3127,2.2918,2.2302, &
& 2.2160,2.2201,2.2083,2.1908,2.1701,2.1431,2.1828,2.2147, &
& 2.2364,2.2745,2.3237,2.3539,2.3637,2.4451,2.4761,2.4915, &
& 2.4337,2.4155,2.3758,2.3267,2.2980,2.2596,2.1900,2.1741, &
& 2.0998,2.0526,2.0361,2.0011,1.9666,1.9796,1.9670,1.9347, &
& 1.9205,1.9286,1.9136,1.9697,2.0240,2.0738,2.1406,2.1519, &
& 2.1673,2.1389,2.1076,2.0566,1.9915,1.9313,1.9017,1.8077, &
& 1.7930,1.7641,1.7374,1.6737,1.6013,1.5489,1.5401,1.5257, &
& 1.4724,1.4367,1.3602,1.3299,1.3272,1.3393,1.3389,1.3129, &
& 1.2539,1.2820,1.2544,1.2272,1.2520,1.2188,1.2479,1.2558, &
& 1.2436,1.2239,1.1750,1.1418,1.2124,1.1879,1.1801,1.2186, &
& 1.1991,1.1461,1.1621,1.1917,1.1622,1.1565,1.1441,1.1447, &
& 1.1143,1.1109,1.1245,1.1311,1.1263,1.1207,1.1209,1.1411, &
& 1.1768,1.1764,1.1770,1.1780,1.1885,1.1943,1.1864,1.1950, &
& 1.2014,1.1973,1.2273,1.2228,1.2432,1.2594,1.2665,1.2091, &
& 1.2174,1.2517,1.2818,1.2800,1.2634,1.2434,1.2173,1.1777, &
& 1.1708,1.1875,1.1747,1.1665,1.1577,1.1516,1.1214,1.1108, &
& 1.1245,1.1440,1.1764,1.1811,1.1562,1.1081,1.0974,1.1229, &
& 1.1316,1.1148,1.0795,1.0805,1.0909,1.0796,1.0594,1.0364, &
& 1.0542,1.0505,1.0173,1.0354,1.0206,0.9910,0.9756,0.9785, &
& 0.9661,1.0006,1.0244,0.9712,0.9407,0.9536,0.9812,0.9751, &
& 0.9743,0.9752,0.9531,0.9547,0.9687,0.9562,0.9448,0.9552, &
& 0.9503,0.9320,0.9294,0.9259,0.9207,0.9196,0.9121,0.8940, &
& 0.9065,0.9177,0.9002,0.9032,0.9053,0.8966,0.9360,0.9516, &
& 0.8896,0.8680,0.8817,0.8480,0.8585,0.8536,0.8263,0.8652, &
& 0.9231,0.8788,0.8315,0.8371,0.8417,0.8469,0.8746,0.8796, &
& 0.8605,0.8623,0.8713,0.8686,0.8635,0.8715,0.8932,0.8968, &
& 0.9012,0.9384,0.9488,0.9592,0.9767,0.9962,1.0085,1.0247, &
& 1.0405,1.0473,1.0470,1.0714,1.1144,1.1488,1.1949,1.2106, &
& 1.2456,1.2841,1.3088,1.3537,1.4019,1.4244,1.4618,1.5235, &
& 1.6408,1.7098,1.7964,1.8595,1.9538,2.0421,2.1000,2.2279, &
& 2.3285,2.4403,2.5310,2.6080,2.6995,2.8646,2.9575,3.0588, &
& 3.2046,3.3696,3.5545,4.0003,4.2354,4.4735,4.7630,5.0898, &
& 5.7807,6.1718,6.5890,7.0316,7.8886,8.2887,8.6809,9.1244, &
& 10.0898,10.6058,11.1416,11.7003,12.9235,13.5719,14.2470,14.9492, &
& 16.3060,16.9807,17.6257,18.1314,18.8036,18.9844,19.0812,19.1446, &
& 19.0728,18.9109,18.6082,18.4767,18.3189,18.1094,17.7348,17.5834, &
& 17.4109,17.0628,16.9400,16.6940,16.5814,16.4730,16.3012,16.2538, &
& 16.1562,15.9608,15.8651,15.7740,15.5858,15.4576,15.1638,14.9604, &
& 14.6821,13.9560,13.4084,11.9702,11.1900,10.6176,10.9094,11.6119, &
& 12.9841,13.4351,14.0049,14.1824,14.4501,14.5270,14.6084,14.6417, &
& 14.7682,14.8554,15.0242,15.0863,15.1241,15.1238,15.1293,15.1354, &
& 15.0482,14.9977,14.9294,14.8669,14.7267,14.7072,14.7490,14.8661, &
& 14.8887,14.9170,14.9460,14.9466,14.9315,14.9558,15.0428,15.0646, &
& 15.0756,15.1025,15.0775,15.0288,15.0175,14.9792,14.9673,14.9509, &
& 14.8101,14.4818,14.2663,13.6997,12.8858,12.4180,11.4951,10.5753, &
& 9.7301,9.3931,8.8593,8.4227,8.2336,7.8945,7.6235,7.4250, &
& 7.3094,7.0426,6.8942,6.7537,6.6028,6.5371,6.3673,6.2512, &
& 6.1351,5.9937,5.9362,5.7927,5.6570,5.5821,5.4658,5.3932, &
& 5.3474,5.3126,5.2526,5.1913,5.1454,5.0831,5.0216,4.9626, &
& 4.8130,4.7136,4.6988,4.6610,4.6082,4.5779,4.5462,4.4585, &
& 4.3697,4.3518,4.3412,4.3142,4.2940,4.2636,4.2190,4.1911, &
& 4.1491,4.0990,4.0982,4.0831,4.0517,3.9861,3.9303,3.8984, &
& 3.8936,3.8615,3.8358,3.8065,3.7771,3.7362,3.7137,3.6789, &
& 3.6693,3.6449,3.5985,3.5525,3.5038,3.4758,3.4715,3.4587, &
& 3.4170,3.4035,3.4078,3.3430,3.2818,3.2711,3.3054,3.3221, &
& 3.2960,3.2808,3.2671,3.2457,3.2259,3.2030,3.1865,3.1621, &
& 3.1226,3.0918,3.0640,3.0329,3.0118,2.9808,2.9436,2.9436, &
& 2.9137,2.8916,2.8596,2.8198,2.7818,2.7160,2.6628,2.6413, &
& 2.6620,2.6071,2.5226,2.4991,2.4411,2.3774,2.3467,2.2852, &
& 2.2216,2.2092,2.1757,2.0718,1.9902,1.9260,1.8279,1.7639, &
& 1.6919,1.6312,1.5427,1.4446,1.3592,1.2547,1.1326,1.0667, &
& 1.0572,1.0923,1.3678,1.9999,2.8844,3.6253,4.0916,4.3163, &
& 4.3621,4.2186,3.9454,3.6933,3.6183,3.9294,4.3909,4.8673, &
& 5.1693,5.2882,5.2679,5.0673,4.6675,4.3396,4.0941,3.9239, &
& 3.7268,3.6093,3.5659,3.5231,3.4037,3.2944,3.2450,3.1981, &
& 3.1487,3.0461,3.0365,2.9925,2.9250,2.8796,2.8919,2.8354, &
& 2.7849,2.7173,2.7356,2.7639,2.7390,2.7003,2.6440,2.6070, &
& 2.5459,2.4897,2.4496,2.3806,2.3713 /)
plasim/src/specs/soil.entisol.torripsamment.none.all.0015.jhu.becknic.ancillary.txt
+23
View File
@@ -0,0 +1,23 @@
Name: White gypsum dune sand.
Type: soil
Class: Entisol
Subclass: Torripsamment
Particle Size: none
Sample No.: 0015
Owner: JHU
Wavelength Range: All
Origin: Dona Ana Co., NM.
Collection Date: N/A
Description: The parent material is eolian from evaporites. White gypsum dune sand. Original ASTER Spectral Library name was jhu.becknic.soil.entisol.torripsamment.coarse.0015.spectrum.txt
Single grain, loose. 0.0% organic carbon; 0.0% clay, 100% sand.
Clay mineralogy: none.
Coarse mineralogy: Chemical analyses indicate greater than 99% gypsum
and a trace of quartz.
Spectral Description: The spectral features seen are entirely those of
gypsum. Most features, such as the strong SO4 stretching peak near 8.7 µm,
the weaker bending vibration peak near 14.9 µm, as well as the doublet near
2.8 and 2.9 µm, are best displayed in our solid sample spectrum. The rest of
the minor absorption bands are seen in the spectrum of particulate gypsum.
plasim/src/specs/soil.entisol.torripsamment.none.all.0015.jhu.becknic.spectrum.txt
+2865
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/soil.entisol.torripsamment.none.all.0015.jhu.becknic.spectrum_f90.txt
+714
View File
@@ -0,0 +1,714 @@
real :: wvdunesand(2844) = (/0.4,0.401,0.402,0.403,0.404,0.405,0.406,0.407, &
& 0.4080,0.4090,0.4100,0.4110,0.4120,0.4130,0.4140,0.4150, &
& 0.4160,0.4170,0.4180,0.4190,0.4200,0.4210,0.4220,0.4230, &
& 0.4240,0.4250,0.4260,0.4270,0.4280,0.4290,0.4300,0.4310, &
& 0.4320,0.4330,0.4340,0.4350,0.4360,0.4370,0.4380,0.4390, &
& 0.4400,0.4410,0.4420,0.4430,0.4440,0.4450,0.4460,0.4470, &
& 0.4480,0.4490,0.4500,0.4510,0.4520,0.4530,0.4540,0.4550, &
& 0.4560,0.4570,0.4580,0.4590,0.4600,0.4610,0.4620,0.4630, &
& 0.4640,0.4650,0.4660,0.4670,0.4680,0.4690,0.4700,0.4710, &
& 0.4720,0.4730,0.4740,0.4750,0.4760,0.4770,0.4780,0.4790, &
& 0.4800,0.4810,0.4820,0.4830,0.4840,0.4850,0.4860,0.4870, &
& 0.4880,0.4890,0.4900,0.4910,0.4920,0.4930,0.4940,0.4950, &
& 0.4960,0.4970,0.4980,0.4990,0.5000,0.5010,0.5020,0.5030, &
& 0.5040,0.5050,0.5060,0.5070,0.5080,0.5090,0.5100,0.5110, &
& 0.5120,0.5130,0.5140,0.5150,0.5160,0.5170,0.5180,0.5190, &
& 0.5200,0.5210,0.5220,0.5230,0.5240,0.5250,0.5260,0.5270, &
& 0.5280,0.5290,0.5300,0.5310,0.5320,0.5330,0.5340,0.5350, &
& 0.5360,0.5370,0.5380,0.5390,0.5400,0.5410,0.5420,0.5430, &
& 0.5440,0.5450,0.5460,0.5470,0.5480,0.5490,0.5500,0.5510, &
& 0.5520,0.5530,0.5540,0.5550,0.5560,0.5570,0.5580,0.5590, &
& 0.5600,0.5610,0.5620,0.5630,0.5640,0.5650,0.5660,0.5670, &
& 0.5680,0.5690,0.5700,0.5710,0.5720,0.5730,0.5740,0.5750, &
& 0.5760,0.5770,0.5780,0.5790,0.5800,0.5810,0.5820,0.5830, &
& 0.5840,0.5850,0.5860,0.5870,0.5880,0.5890,0.5900,0.5910, &
& 0.5920,0.5930,0.5940,0.5950,0.5960,0.5970,0.5980,0.5990, &
& 0.6000,0.6010,0.6020,0.6030,0.6040,0.6050,0.6060,0.6070, &
& 0.6080,0.6090,0.6100,0.6110,0.6120,0.6130,0.6140,0.6150, &
& 0.6160,0.6170,0.6180,0.6190,0.6200,0.6210,0.6220,0.6230, &
& 0.6240,0.6250,0.6260,0.6270,0.6280,0.6290,0.6300,0.6310, &
& 0.6320,0.6330,0.6340,0.6350,0.6360,0.6370,0.6380,0.6390, &
& 0.6400,0.6410,0.6420,0.6430,0.6440,0.6450,0.6460,0.6470, &
& 0.6480,0.6490,0.6500,0.6510,0.6520,0.6530,0.6540,0.6550, &
& 0.6560,0.6570,0.6580,0.6590,0.6600,0.6610,0.6620,0.6630, &
& 0.6640,0.6650,0.6660,0.6670,0.6680,0.6690,0.6700,0.6710, &
& 0.6720,0.6730,0.6740,0.6750,0.6760,0.6770,0.6780,0.6790, &
& 0.6800,0.6810,0.6820,0.6830,0.6840,0.6850,0.6860,0.6870, &
& 0.6880,0.6890,0.6900,0.6910,0.6920,0.6930,0.6940,0.6950, &
& 0.6960,0.6970,0.6980,0.6990,0.7000,0.7010,0.7020,0.7030, &
& 0.7040,0.7050,0.7060,0.7070,0.7080,0.7090,0.7100,0.7110, &
& 0.7120,0.7130,0.7140,0.7150,0.7160,0.7170,0.7180,0.7190, &
& 0.7200,0.7210,0.7220,0.7230,0.7240,0.7250,0.7260,0.7270, &
& 0.7280,0.7290,0.7300,0.7310,0.7320,0.7330,0.7340,0.7350, &
& 0.7360,0.7370,0.7380,0.7390,0.7400,0.7410,0.7420,0.7430, &
& 0.7440,0.7450,0.7460,0.7470,0.7480,0.7490,0.7500,0.7510, &
& 0.7520,0.7530,0.7540,0.7550,0.7560,0.7570,0.7580,0.7590, &
& 0.7600,0.7610,0.7620,0.7630,0.7640,0.7650,0.7660,0.7670, &
& 0.7680,0.7690,0.7700,0.7710,0.7720,0.7730,0.7740,0.7750, &
& 0.7760,0.7770,0.7780,0.7790,0.7800,0.7810,0.7820,0.7830, &
& 0.7840,0.7850,0.7860,0.7870,0.7880,0.7890,0.7900,0.7910, &
& 0.7920,0.7930,0.7940,0.7950,0.7960,0.7970,0.7980,0.7990, &
& 0.8000,0.8040,0.8080,0.8120,0.8160,0.8200,0.8240,0.8280, &
& 0.8320,0.8360,0.8400,0.8440,0.8480,0.8520,0.8560,0.8600, &
& 0.8640,0.8680,0.8720,0.8760,0.8800,0.8840,0.8880,0.8920, &
& 0.8960,0.9000,0.9040,0.9080,0.9120,0.9160,0.9200,0.9240, &
& 0.9280,0.9320,0.9360,0.9400,0.9440,0.9480,0.9520,0.9560, &
& 0.9600,0.9640,0.9680,0.9720,0.9760,0.9800,0.9840,0.9880, &
& 0.9920,0.9960,1.0000,1.0040,1.0080,1.0120,1.0160,1.0200, &
& 1.0240,1.0280,1.0320,1.0360,1.0400,1.0440,1.0480,1.0520, &
& 1.0560,1.0600,1.0640,1.0680,1.0720,1.0760,1.0800,1.0840, &
& 1.0880,1.0920,1.0960,1.1000,1.1040,1.1080,1.1120,1.1160, &
& 1.1200,1.1240,1.1280,1.1320,1.1360,1.1400,1.1440,1.1480, &
& 1.1520,1.1560,1.1600,1.1640,1.1680,1.1720,1.1760,1.1800, &
& 1.1840,1.1880,1.1920,1.1960,1.2000,1.2040,1.2080,1.2120, &
& 1.2160,1.2200,1.2240,1.2280,1.2320,1.2360,1.2400,1.2440, &
& 1.2480,1.2520,1.2560,1.2600,1.2640,1.2680,1.2720,1.2760, &
& 1.2800,1.2840,1.2880,1.2920,1.2960,1.3000,1.3040,1.3080, &
& 1.3120,1.3160,1.3200,1.3240,1.3280,1.3320,1.3360,1.3400, &
& 1.3440,1.3480,1.3520,1.3560,1.3600,1.3640,1.3680,1.3720, &
& 1.3760,1.3800,1.3840,1.3880,1.3920,1.3960,1.4000,1.4040, &
& 1.4080,1.4120,1.4160,1.4200,1.4240,1.4280,1.4320,1.4360, &
& 1.4400,1.4440,1.4480,1.4520,1.4560,1.4600,1.4640,1.4680, &
& 1.4720,1.4760,1.4800,1.4840,1.4880,1.4920,1.4960,1.5000, &
& 1.5040,1.5080,1.5120,1.5160,1.5200,1.5240,1.5280,1.5320, &
& 1.5360,1.5400,1.5440,1.5480,1.5520,1.5560,1.5600,1.5640, &
& 1.5680,1.5720,1.5760,1.5800,1.5840,1.5880,1.5920,1.5960, &
& 1.6000,1.6040,1.6080,1.6120,1.6160,1.6200,1.6240,1.6280, &
& 1.6320,1.6360,1.6400,1.6440,1.6480,1.6520,1.6560,1.6600, &
& 1.6640,1.6680,1.6720,1.6760,1.6800,1.6840,1.6880,1.6920, &
& 1.6960,1.7000,1.7040,1.7080,1.7120,1.7160,1.7200,1.7240, &
& 1.7280,1.7320,1.7360,1.7400,1.7440,1.7480,1.7520,1.7560, &
& 1.7600,1.7640,1.7680,1.7720,1.7760,1.7800,1.7840,1.7880, &
& 1.7920,1.7960,1.8000,1.8040,1.8080,1.8120,1.8160,1.8200, &
& 1.8240,1.8280,1.8320,1.8360,1.8400,1.8440,1.8480,1.8520, &
& 1.8560,1.8600,1.8640,1.8680,1.8720,1.8760,1.8800,1.8840, &
& 1.8880,1.8920,1.8960,1.9000,1.9040,1.9080,1.9120,1.9160, &
& 1.9200,1.9240,1.9280,1.9320,1.9360,1.9400,1.9440,1.9480, &
& 1.9520,1.9560,1.9600,1.9640,1.9680,1.9720,1.9760,1.9800, &
& 1.9840,1.9880,1.9920,1.9960,2.0000,2.0040,2.0080,2.0120, &
& 2.0160,2.0200,2.0240,2.0280,2.0320,2.0360,2.0400,2.0440, &
& 2.0480,2.0520,2.0560,2.0600,2.0640,2.0680,2.0720,2.0760, &
& 2.0795,2.0803,2.0812,2.0820,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7923,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0274,10.0468,10.0663,10.0859,10.1056,10.1253,10.1451,10.1650, &
& 10.1850,10.2050,10.2251,10.2454,10.2656,10.2860,10.3065,10.3270, &
& 10.3476,10.3683,10.3891,10.4099,10.4309,10.4519,10.4730,10.4942, &
& 10.5155,10.5369,10.5584,10.5799,10.6015,10.6233,10.6451,10.6670, &
& 10.6890,10.7111,10.7332,10.7555,10.7779,10.8003,10.8229,10.8455, &
& 10.8682,10.8911,10.9140,10.9370,10.9602,10.9834,11.0067,11.0301, &
& 11.0536,11.0773,11.1010,11.1248,11.1487,11.1727,11.1969,11.2211, &
& 11.2455,11.2699,11.2944,11.3191,11.3439,11.3688,11.3937,11.4188, &
& 11.4440,11.4694,11.4948,11.5203,11.5460,11.5718,11.5977,11.6237, &
& 11.6498,11.6760,11.7024,11.7289,11.7555,11.7822,11.8090,11.8360, &
& 11.8631,11.8903,11.9176,11.9450,11.9726,12.0003,12.0282,12.0562, &
& 12.0843,12.1125,12.1409,12.1694,12.1980,12.2268,12.2557,12.2847, &
& 12.3139,12.3432,12.3727,12.4023,12.4320,12.4619,12.4919,12.5221, &
& 12.5524,12.5829,12.6135,12.6443,12.6752,12.7063,12.7375,12.7688, &
& 12.8004,12.8321,12.8639,12.8959,12.9281,12.9604,12.9929,13.0255, &
& 13.0583,13.0913,13.1244,13.1577,13.1912,13.2249,13.2587,13.2927, &
& 13.3269,13.3612,13.3957,13.4304,13.4653,13.5004,13.5356,13.5711, &
& 13.6067,13.6425,13.6785,13.7147,13.7511,13.7876,13.8244,13.8614, &
& 13.8985,13.9359,13.9734,14.0112 /)
real :: dunesand(2844) = (/46.8108,47.0858,47.1621,47.6814,48.2029,48.0813,48.4702,48.4702, &
& 48.3860,48.7271,49.1717,49.3010,49.3816,49.4682,49.7558,49.7850, &
& 49.9561,50.3410,50.5192,50.8570,51.1086,51.4612,51.6298,51.8736, &
& 51.9850,51.8178,52.5613,52.5965,52.5623,52.5372,53.1245,53.3501, &
& 53.9352,53.9344,53.8374,54.0699,54.6196,54.7520,55.0724,55.2611, &
& 55.4506,55.8081,55.5996,56.0593,56.3408,56.2727,56.4937,57.1427, &
& 56.6802,56.8663,57.4331,57.5960,58.0935,57.9168,58.3277,58.6032, &
& 59.0565,58.9843,58.3371,58.3218,58.8529,59.0539,59.2177,59.4916, &
& 59.8196,59.6886,59.4148,60.0543,59.7623,59.9431,60.3466,60.9034, &
& 61.1579,60.9034,61.0685,61.4376,61.2946,60.9516,61.1297,61.4846, &
& 61.7257,62.1334,62.0676,61.6614,61.7115,61.9373,62.4970,62.8226, &
& 63.1151,62.8807,62.6054,62.8608,62.7800,63.3856,63.7960,63.7327, &
& 63.7721,63.7728,63.9775,64.6291,64.4747,64.3689,64.7726,64.6126, &
& 64.6925,64.8638,65.0296,65.0347,65.2406,65.7762,65.9433,65.8243, &
& 65.8207,65.9535,66.3710,66.7694,66.2919,66.2946,66.8580,66.9179, &
& 67.7339,67.2909,67.3334,67.3565,66.8339,66.9179,67.0033,67.7318, &
& 67.4818,67.6065,67.7725,68.0206,67.8356,68.5240,69.1190,69.0331, &
& 69.1525,69.5793,69.4853,69.4030,69.5206,69.6414,69.6655,69.7438, &
& 70.2211,69.2432,70.1258,70.2554,70.6361,71.0995,71.0860,71.4441, &
& 71.5528,71.1188,71.5017,71.2419,71.5452,71.7557,72.1515,72.3295, &
& 72.5612,72.7212,72.8114,72.6326,72.7269,73.2781,73.5717,73.7413, &
& 73.7867,73.8776,74.1243,73.8838,73.7692,73.6622,74.1957,74.3473, &
& 74.2144,74.6816,75.1550,75.1074,75.3425,75.2651,74.6136,75.0758, &
& 75.5509,76.3586,75.5818,75.9193,75.8551,76.2246,76.0992,76.3991, &
& 75.8871,75.8391,75.7755,76.7078,76.5271,76.4304,76.3692,76.2728, &
& 76.3796,76.5205,76.5650,76.5785,76.7346,76.9044,76.8091,76.5720, &
& 76.2755,76.3695,76.4165,76.4636,76.7131,76.8977,76.9450,76.6960, &
& 76.5546,76.8032,76.6745,75.9754,76.3766,76.3645,77.3588,77.7034, &
& 77.2646,77.1047,76.7814,76.9397,77.2830,77.3955,77.6255,77.5489, &
& 77.7497,77.6832,77.5592,77.5118,77.2280,77.3879,77.5779,77.2281, &
& 77.3224,77.7405,77.9117,77.7880,77.3515,77.2752,77.3515,76.8997, &
& 77.1102,77.5140,77.5037,77.4933,78.1113,78.5228,78.6399,78.3782, &
& 78.0145,78.1788,77.8260,78.0917,78.2718,78.3987,78.4746,77.8450, &
& 78.3306,78.3786,78.2547,78.3106,78.8192,78.8739,78.9011,78.6812, &
& 78.8498,78.7265,78.8426,78.8353,78.3673,78.7314,78.8353,78.9387, &
& 78.3178,78.2141,78.2615,78.5078,78.3566,78.4602,78.7265,78.7743, &
& 79.2890,79.4340,79.1444,79.1444,79.1444,79.1172,79.2347,79.2619, &
& 79.3315,79.6453,79.5863,79.6738,79.4342,79.2080,79.3763,79.4711, &
& 79.7092,79.7787,79.8266,79.8746,79.8048,79.8786,79.7569,80.0482, &
& 79.5924,79.4237,79.6399,79.9818,79.7439,79.9122,79.8864,80.1251, &
& 80.5407,79.7180,80.4911,80.5411,80.2971,79.8396,80.1797,79.8227, &
& 79.8037,80.1408,80.0904,80.3249,80.5391,80.4911,80.3475,80.3024, &
& 80.1821,80.4207,80.3002,80.6617,80.8781,80.9507,80.5678,80.3063, &
& 80.4735,80.4725,80.3285,80.7608,81.1685,80.8550,80.9529,80.5233, &
& 80.5919,80.6885,80.2354,80.6871,80.5669,80.7838,80.6170,81.1680, &
& 80.4275,80.4306,80.4086,80.6692,80.9782,81.2651,81.3129,81.0258, &
& 80.5748,80.3180,81.0988,81.0988,80.9796,81.0514,81.0989,81.2659, &
& 81.3137,81.1705,81.3133,81.6707,81.7439,80.9813,81.1473,81.2174, &
& 81.2656,81.5517,81.7437,81.9348,81.3137,81.7908,80.9338,81.0283, &
& 81.2702,81.3619,81.0301,81.6483,81.5049,81.0567,80.8643,80.8628, &
& 80.8591,81.2353,81.0828,81.2391,80.7088,80.8497,80.4025,80.9924, &
& 80.9324,80.8583,80.5357,80.7605,80.6358,80.3537,80.4145,80.1728, &
& 80.3567,80.2949,80.4126,80.1813,80.1120,80.3889,79.5202,79.4548, &
& 79.4046,79.5521,79.3715,79.2871,79.1294,79.3605,79.1083,78.9827, &
& 79.1502,79.0035,78.9616,78.6171,78.2611,77.9739,77.4938,77.1666, &
& 76.7809,76.4594,75.4366,74.9943,74.4003,73.9028,73.4018,72.8551, &
& 74.1277,74.5065,75.2970,75.9738,76.3560,76.6801,77.5486,78.1333, &
& 78.5480,78.9210,79.0347,80.0138,80.1303,80.0352,79.7144,80.2649, &
& 79.9405,79.5295,79.7034,79.4259,79.7593,80.2352,80.1814,79.1491, &
& 79.5030,79.3275,78.7953,78.3452,78.5797,78.3272,78.1345,78.2239, &
& 77.7989,77.6780,77.4021,77.0676,75.8118,73.6785,73.0181,72.0236, &
& 70.2312,68.2939,66.0508,64.4514,63.1119,62.3106,62.2582,62.1431, &
& 61.9734,62.0478,61.6559,61.5712,61.7449,62.3797,63.3146,63.4397, &
& 64.3043,64.7574,65.4143,65.7926,66.4515,67.5392,68.2481,68.8092, &
& 69.2577,69.7879,70.1050,70.5126,70.7727,70.7387,70.6781,70.6082, &
& 70.6844,70.6905,70.3725,70.1227,69.9531,69.0905,68.5906,67.6531, &
& 66.8001,66.1225,65.5511,64.3247,62.7020,61.3882,59.6562,57.9739, &
& 56.5369,55.2060,53.9080,52.9247,51.9734,50.9916,49.9296,49.6857, &
& 48.7430,48.0533,47.0806,45.9903,44.0790,41.8163,39.3655,36.5712, &
& 33.1299,29.9488,27.1611,25.0792,22.3691,19.3693,16.5144,14.8309, &
& 15.1468,16.4992,18.8148,20.0046,20.7879,21.4342,21.8037,21.9751, &
& 21.7181,21.0863,20.6046,20.8463,21.8415,22.9650,23.6474,26.5731, &
& 27.5688,27.9127,27.6088,27.2210,26.8848,26.3955,26.2153,26.7189, &
& 27.9858,30.1755,32.1093,33.6958,35.5193,37.3703,38.8853,40.0946, &
& 41.1353,42.1258,43.2182,44.3115,45.2790,46.5738,47.8874,49.2036, &
& 50.4310,51.7377,52.4637,53.4388,54.4638,55.2748,56.3604,57.4348, &
& 58.3725,58.9636,59.6207,60.2367,60.9072,61.3714,61.2820,61.0449, &
& 61.0449,60.9093,60.4037,59.6449,58.6775,57.1862,55.5772,53.4454, &
& 51.0064,48.8010,45.9056,42.4559,39.7571,36.9937,34.4997,31.8814, &
& 30.1952,28.2768,27.4755,27.1152,27.3762,28.2028,29.0266,29.8560, &
& 30.4693,31.1120,31.8116,32.3972,33.5419,35.0443,36.4461,37.6614, &
& 38.8167,39.9722,40.8860,41.2983,42.2089,42.2520,42.2749,42.5818, &
& 42.4964,42.3123,41.6113,41.0754,40.0363,38.3402,36.7588,34.5186, &
& 32.0390,29.2211,26.0588,22.8192,19.7423,17.5636,15.6048,13.3878, &
& 11.6343,9.9529,8.3806,7.1801,6.1492,5.2997,4.4542,3.8288, &
& 3.1861,2.8686,2.6538,2.5441,2.5358,2.5296,2.8365,2.9379, &
& 3.1411,3.4466,3.5494,3.6534,3.9619,3.8495,4.5555,5.1586, &
& 6.0757,7.4776,9.0979,10.7166,12.2454,14.0881,15.3677,16.6324, &
& 17.7431,18.6853,19.4724,20.0392,20.3761,20.9039,21.1853,21.6049, &
& 21.3662,21.4374,21.5085,21.3708,21.4374,21.3377,20.9181,20.8988, &
& 20.5034,20.5749,20.6589,20.6892,20.6110,20.4997,20.4584,20.4738, &
& 20.3898,20.2939,20.1413,20.0798,20.0214,19.9057,19.7946,19.7170, &
& 19.6776,19.6154,19.4843,19.3491,19.2697,19.1650,19.0979,19.0583, &
& 18.9768,18.8498,18.6547,18.5986,18.5542,18.4423,18.3112,18.1613, &
& 18.1066,18.0551,17.9147,17.7600,17.6003,17.4525,17.3305,17.1799, &
& 17.0771,17.0581,17.0632,16.9525,16.7739,16.6396,16.5700,16.4736, &
& 16.3359,16.3220,16.2692,16.1516,16.0239,15.8564,15.7155,15.6753, &
& 15.6113,15.5246,15.4516,15.4602,15.4055,15.2883,15.2321,15.2158, &
& 15.2048,15.0937,14.9474,14.8606,14.7646,14.7295,14.6696,14.5854, &
& 14.5031,14.4167,14.3847,14.2949,14.2260,14.2036,14.1433,14.0507, &
& 13.9511,13.8366,13.7644,13.6972,13.6101,13.4975,13.4109,13.3527, &
& 13.2382,13.1775,13.1223,13.0888,13.0349,12.9489,12.8322,12.7356, &
& 12.6772,12.6162,12.4912,12.3950,12.3391,12.3037,12.2505,12.1721, &
& 12.0674,11.9585,11.9172,11.8318,11.7456,11.6428,11.6233,11.6565, &
& 11.6057,11.5747,11.5329,11.5344,11.5930,11.5793,11.5512,11.5466, &
& 11.5471,11.5046,11.4377,11.3469,11.3213,11.3745,11.3696,11.2768, &
& 11.2500,11.2773,11.2383,11.1725,11.1230,11.0398,10.9843,10.9094, &
& 10.8169,10.7700,10.6874,10.5967,10.5149,10.4260,10.3405,10.2636, &
& 10.1579,10.0290,9.9084,9.8324,9.7287,9.5664,9.5063,9.5227, &
& 9.5119,9.5010,9.3989,9.3271,9.3315,9.3552,9.3767,9.4612, &
& 9.6064,9.7668,9.8852,10.0283,10.2072,10.3943,10.6194,10.7961, &
& 10.9006,10.9958,11.1303,11.2798,11.4184,11.4797,11.4951,11.5532, &
& 11.6394,11.6682,11.7125,11.7807,11.7951,11.8156,11.8359,11.8696, &
& 11.9006,11.9436,11.9160,11.9240,11.9301,11.8664,11.8049,11.8288, &
& 11.8318,11.7942,11.7607,11.7395,11.7060,11.6530,11.5720,11.4485, &
& 11.3420,11.2688,11.2280,11.1592,11.0510,10.9612,10.9328,10.9345, &
& 10.9135,10.9389,11.0158,11.0891,11.1872,11.3186,11.4409,11.5883, &
& 11.7546,11.9250,12.0820,12.2053,12.3413,12.4248,12.5290,12.6347, &
& 12.6967,12.8105,12.8767,12.9414,12.9944,13.0349,13.1162,13.1858, &
& 13.2461,13.2685,13.2829,13.3024,13.3112,13.3379,13.4177,13.4763, &
& 13.5122,13.5232,13.4975,13.5471,13.6023,13.6062,13.5698,13.5475, &
& 13.5341,13.5351,13.5544,13.5451,13.5456,13.5437,13.5271,13.5395, &
& 13.5664,13.5271,13.4743,13.4677,13.4768,13.4084,13.3269,13.2946, &
& 13.3029,13.3005,13.2766,13.1970,13.0935,13.0219,12.9925,12.9216, &
& 12.8322,12.8095,12.7361,12.6291,12.5310,12.4467,12.3652,12.2746, &
& 12.2046,12.1406,12.0608,11.9502,11.7932,11.6457,11.5781,11.4897, &
& 11.3449,11.2468,11.1604,11.0385,10.9055,10.7761,10.6540,10.5556, &
& 10.4734,10.3188,10.1933,10.0524,9.9114,9.7734,9.6274,9.4397, &
& 9.2519,9.1081,8.9387,8.8078,8.6550,8.4389,8.2463,8.1074, &
& 7.9668,7.7698,7.5984,7.4458,7.2629,7.1057,6.9660,6.7993, &
& 6.5713,6.3624,6.2707,6.1440,5.9538,5.7656,5.5935,5.4328, &
& 5.2859,5.1499,4.9621,4.8271,4.7182,4.5724,4.4524,4.3523, &
& 4.2373,4.1128,4.0044,3.9368,3.8662,3.8330,3.8003,3.7192, &
& 3.6628,3.6257,3.5889,3.5393,3.4343,3.3523,3.3489,3.3642, &
& 3.3501,3.3350,3.3328,3.3105,3.3181,3.3054,3.2324,3.2056, &
& 3.1997,3.1946,3.1501,3.1460,3.1413,3.1484,3.1404,3.1704, &
& 3.1633,3.0891,3.0510,3.0622,3.0515,3.0747,3.1128,3.0854, &
& 3.0503,3.0742,3.0730,3.0386,3.0115,2.9541,2.9416,2.9536, &
& 2.9394,2.9302,2.9070,2.9072,2.9167,2.8562,2.8362,2.9055, &
& 2.8931,2.8621,2.8618,2.8318,2.7959,2.7910,2.8026,2.7795, &
& 2.7410,2.7358,2.7429,2.7637,2.7537,2.7615,2.7937,2.7414, &
& 2.6882,2.7109,2.6885,2.6843,2.7078,2.7041,2.7165,2.7666, &
& 2.8122,2.8184,2.8115,2.7783,2.7388,2.7356,2.7307,2.7224, &
& 2.7468,2.7507,2.7646,2.8203,2.8667,2.8376,2.8489,2.8816, &
& 2.8767,2.8562,2.8938,2.9241,2.9473,2.9521,2.9316,2.9573, &
& 2.9507,2.9419,2.9297,2.9363,2.9236,2.9038,2.8796,2.9343, &
& 2.9629,2.9419,2.8976,2.8828,2.8809,2.8635,2.8542,2.7961, &
& 2.7947,2.8171,2.7930,2.7781,2.7539,2.7297,2.7524,2.7273, &
& 2.6785,2.6545,2.6489,2.6797,2.7017,2.6719,2.6079,2.6155, &
& 2.6789,2.6787,2.6489,2.6169,2.5952,2.5427,2.5166,2.5796, &
& 2.5940,2.5586,2.5349,2.5083,2.5474,2.5876,2.5478,2.5054, &
& 2.5224,2.5652,2.5840,2.5752,2.5549,2.5295,2.4761,2.4753, &
& 2.5359,2.5386,2.4783,2.4692,2.4790,2.4487,2.4023,2.4082, &
& 2.4246,2.4351,2.4331,2.3974,2.3984,2.3624,2.3093,2.3149, &
& 2.3457,2.3645,2.3486,2.3472,2.3806,2.3774,2.3726,2.3557, &
& 2.3005,2.2866,2.2622,2.2761,2.2856,2.2859,2.2478,2.2029, &
& 2.2104,2.2274,2.2019,2.1423,2.0972,2.0884,2.1099,2.1213, &
& 2.0998,2.0427,1.9836,1.9416,1.9165,1.9319,1.9360,1.9097, &
& 1.8826,1.8589,1.8335,1.7893,1.7805,1.7419,1.7041,1.6660, &
& 1.6680,1.6804,1.6851,1.6387,1.5857,1.5894,1.5591,1.5393, &
& 1.5627,1.6018,1.5937,1.5478,1.5166,1.4907,1.4631,1.4465, &
& 1.4426,1.4376,1.4167,1.4102,1.4006,1.3945,1.3750,1.3428, &
& 1.3372,1.2683,1.2488,1.2852,1.2727,1.2246,1.2109,1.1899, &
& 1.1587,1.1504,1.1443,1.1267,1.0952,1.1018,1.1147,1.1001, &
& 1.0945,1.1016,1.0564,1.0356,1.0190,1.0027,1.0259,0.9951, &
& 0.9336,0.9700,1.0327,1.0161,0.9939,0.9988,0.9739,0.9280, &
& 0.9309,0.9236,0.8955,0.8877,0.9004,0.8979,0.8660,0.8406, &
& 0.8596,0.8708,0.8728,0.8779,0.8616,0.8689,0.8940,0.8826, &
& 0.8936,0.8987,0.9145,0.9192,0.8999,0.8904,0.9243,0.9573, &
& 0.9874,1.0049,1.0542,1.0906,1.1680,1.2319,1.2690,1.3135, &
& 1.3779,1.4558,1.5471,1.6851,1.7605,1.8667,2.0251,2.1182, &
& 2.1868,2.3164,2.4282,2.5376,2.6804,2.7698,2.8389,2.9187, &
& 2.9812,2.9910,2.9741,2.9849,2.9726,2.9128,2.8540,2.8381, &
& 2.8230,2.7773,2.7331,2.6706,2.5989,2.5413,2.4731,2.4123, &
& 2.3391,2.2598,2.2297,2.2174,2.1680,2.0924,2.0388,2.0283, &
& 1.9978,1.9299,1.8938,1.8806,1.8376,1.7961,1.7376,1.6843, &
& 1.7017,1.7231,1.6694,1.6340,1.6287,1.6047,1.5911,1.5908, &
& 1.5669,1.5249,1.5330,1.5324,1.5166,1.5417,1.5769,1.5862, &
& 1.5881,1.5977,1.6462,1.7012,1.7747,1.8689,1.9607,2.0862, &
& 2.2053,2.3362,2.4844,2.6523,2.7988,2.9460,3.1199,3.2891, &
& 3.4128,3.5100,3.5918,3.6374,3.7173,3.7414,3.7026,3.7076, &
& 3.6995,3.6597,3.5820,3.4866,3.4448,3.4106,3.2886,3.1667, &
& 3.0867,3.0337,2.9739,2.8865,2.7903,2.7334,2.6670,2.6060, &
& 2.5632,2.5271,2.4910,2.4451,2.4160,2.4102,2.3865,2.3601, &
& 2.3359,2.3223,2.2976,2.2734,2.2505,2.2305,2.2334,2.2134, &
& 2.1787,2.1689,2.1802,2.1785,2.1858,2.2163,2.2095,2.1731, &
& 2.1697,2.1621,2.1619,2.1587,2.1555,2.1357,2.1228,2.1462, &
& 2.1377,2.0889,2.0681,2.0867,2.0894,2.0940,2.0962,2.0749, &
& 2.0613,2.0432,2.0210,2.0232,2.0295,2.0217,2.0386,2.0239, &
& 1.9900,1.9648,1.9785,2.0010,1.9954,1.9888,1.9958,2.0019, &
& 1.9966,1.9707,1.9607,1.9653,1.9543,1.9141,1.9287,1.9770, &
& 1.9878,1.9836,1.9770,1.9795,1.9739,1.9768,1.9856,1.9800, &
& 1.9814,1.9919,2.0159,2.0183,1.9866,1.9631,1.9624,1.9556, &
& 1.9558,1.9509,1.9429,1.9507,1.9709,1.9668,1.9497,1.9504, &
& 1.9604,1.9524,1.9648,1.9770,1.9529,1.9114,1.9109,1.9302, &
& 1.9353,1.9580,1.9748,1.9529,1.9309,1.9316,1.9214,1.9031, &
& 1.9031,1.9082,1.9133,1.9123,1.9145,1.9531,1.9863,1.9709, &
& 1.9409,1.9431,1.9590,1.9727,1.9570,1.9473,1.9653,1.9492, &
& 1.9311,1.9092,1.9155,1.9446,1.9526,1.9573,1.9626,1.9729, &
& 1.9685,1.9678,1.9644,1.9700,1.9856,1.9939,1.9851,1.9692, &
& 1.9956,2.0122,1.9944,1.9705,1.9856,1.9951,1.9851,1.9873, &
& 1.9949,2.0178,2.0498,2.0469,2.0327,2.0254,2.0249,2.0315, &
& 2.0447,2.0813,2.1018,2.0950,2.0723,2.0923,2.1177,2.1411, &
& 2.1626,2.1692,2.1572,2.1550,2.1636,2.1606,2.1738,2.1841, &
& 2.1907,2.2229,2.2446,2.2744,2.2949,2.3124,2.3245,2.3369, &
& 2.3828,2.4016,2.3884,2.4228,2.4626,2.4878,2.4914,2.4997, &
& 2.5261,2.5432,2.5513,2.5759,2.6030,2.6064,2.6421,2.6802, &
& 2.7202,2.7468,2.7598,2.7812,2.8132,2.8406,2.8523,2.8647, &
& 2.8650,2.8911,2.9246,2.9370,2.9543,2.9831,3.0137,3.0381, &
& 3.0642,3.1260,3.1636,3.2153,3.2559,3.2724,3.2883,3.3279, &
& 3.3735,3.4209,3.4412,3.4773,3.5142,3.5349,3.5847,3.6196, &
& 3.6406,3.6843,3.7427,3.7778,3.8147,3.8662,3.8806,3.8791, &
& 3.9170,3.9873,4.0271,4.0508,4.0889,4.1316,4.1619,4.1711, &
& 4.2097,4.2515,4.2829,4.3198,4.3642,4.4255,4.4736,4.4924, &
& 4.5102,4.5539,4.5896,4.6272,4.6626,4.6877,4.6990,4.7173, &
& 4.7497,4.7800,4.8191,4.8574,4.9140,4.9692,4.9980,5.0422, &
& 5.0840,5.1267,5.1804,5.2112,5.2512,5.2988,5.3398,5.3674, &
& 5.4084,5.4541,5.4980,5.5417,5.5784,5.6023,5.6167,5.6296, &
& 5.6601,5.6965,5.7461,5.8164,5.8413,5.8613,5.9050,5.9543, &
& 5.9676,6.0110,6.0827,6.1369,6.1836,6.2253,6.2544,6.2810, &
& 6.3591,6.4414,6.5041,6.5405,6.5818,6.6272,6.6953,6.7707, &
& 6.8396,6.9123,6.9668,7.0449,7.1264,7.1780,7.2561,7.3554, &
& 7.4525,7.5232,7.5664,7.6335,7.7077,7.7732,7.8435,7.9424, &
& 8.0149,8.0478,8.0932,8.1865,8.2558,8.3161,8.3916,8.4597, &
& 8.5398,8.6328,8.6924,8.7261,8.7795,8.8535,8.9194,8.9797, &
& 9.0351,9.0923,9.1628,9.2031,9.2402,9.3149,9.3579,9.3850, &
& 9.4482,9.4983,9.5320,9.5537,9.5573,9.6125,9.6379,9.6421, &
& 9.6623,9.6721,9.6662,9.6606,9.6467,9.6443,9.6667,9.6777, &
& 9.7212,9.7688,9.8022,9.8027,9.8015,9.8266,9.8623,9.8816, &
& 9.8977,9.9236,9.9353,9.9240,9.9270,9.9382,9.9472,9.9465, &
& 9.9497,9.9565,9.9563,9.9458,9.9521,9.9331,9.9118,9.9148, &
& 9.9199,9.9323,9.9060,9.8845,9.8894,9.9040,9.9106,9.8977, &
& 9.8869,9.8672,9.8257,9.7771,9.7614,9.7312,9.6914,9.6238, &
& 9.5649,9.5447,9.5027,9.4067,9.2566,9.0786,8.8882,8.6745, &
& 8.4225,8.2063,8.1089,8.1413,8.2737,8.4387,8.5947,8.7419, &
& 8.8581,8.9013,8.8991,8.8664,8.8420,8.8305,8.7993,8.7656, &
& 8.7077,8.6242,8.5620,8.4731,8.3801,8.3008,8.2136,8.1206, &
& 8.0278,7.9140,7.7610,7.6094,7.4678,7.3074,7.1264,6.9438, &
& 6.7366,6.5349,6.3606,6.2112,6.1045,6.0759,6.1116,6.1555, &
& 6.2207,6.3110,6.3782,6.4172,6.4451,6.4194,6.3713,6.3515, &
& 6.3230,6.2761,6.2292,6.1916,6.1089,6.0478,5.9968,5.9148, &
& 5.8523,5.7981,5.7168,5.6291,5.5571,5.4717,5.3884,5.3288, &
& 5.2622,5.1767,5.0796,4.9944,4.9177,4.8533,4.7663,4.6767, &
& 4.6072,4.5495,4.4870,4.4145,4.3345,4.2412,4.1584,4.0981, &
& 4.0361,3.9529,3.8899,3.8379,3.7826,3.7251,3.6511,3.5891, &
& 3.5527,3.5017,3.4294,3.3694,3.3267,3.2724,3.2170,3.1643, &
& 3.1204,3.0554,3.0061,2.9783,2.9370,2.8845,2.8267,2.7681, &
& 2.7129,2.6797,2.6489,2.6118,2.5710,2.5315,2.4714,2.4348, &
& 2.4160,2.3577,2.2930,2.2595,2.2300,2.1807,2.1589,2.1267, &
& 2.0906,2.0688,2.0513,2.0234,1.9907,1.9641,1.9336,1.8957, &
& 1.8533,1.8166,1.8132,1.8059,1.7646,1.7158,1.6924,1.6936, &
& 1.6819,1.6606,1.6526,1.6382,1.6123,1.5942,1.5869,1.5869, &
& 1.5896,1.5826,1.5615,1.5537,1.5527,1.5457,1.5420,1.5388, &
& 1.5310,1.5251,1.5127,1.5193,1.5261,1.4949,1.4963,1.5090, &
& 1.5122,1.5093,1.4976,1.4858,1.4871,1.4812,1.4824,1.4861, &
& 1.4712,1.4592,1.4646,1.4883,1.4674,1.4519,1.4580,1.4592, &
& 1.4626,1.4744,1.4709,1.4644,1.4773,1.4805,1.4780,1.4795, &
& 1.4778,1.4761,1.4685,1.4656,1.4680,1.4761,1.4780,1.4939, &
& 1.5017,1.5073,1.5122,1.4976,1.4927,1.4868,1.4822,1.4866, &
& 1.4778,1.4619,1.4751,1.4971,1.5105,1.4990,1.4927,1.5115, &
& 1.5107,1.5176,1.5339,1.5549,1.5627,1.5454,1.5449,1.5561, &
& 1.5381,1.5278,1.5422,1.5288,1.5171,1.5334,1.5435,1.5526, &
& 1.5537,1.5403,1.5303,1.5181,1.5124,1.5156,1.5195,1.5112, &
& 1.5005,1.5034,1.5007,1.5044,1.5002,1.5059,1.5027,1.4924, &
& 1.4897,1.4861,1.4846,1.4890,1.4902,1.4819,1.4927,1.5107, &
& 1.5049,1.5083,1.5310,1.5424,1.5615,1.5991,1.6267,1.6462, &
& 1.6758,1.7231,1.7588,1.8003,1.8528,1.8816,1.9045,1.9534, &
& 1.9900,1.9976,2.0383,2.0781,2.1055,2.1138,2.1372,2.1797, &
& 2.2139,2.2383,2.2620,2.2749,2.2949,2.3230,2.3393,2.3733, &
& 2.3889,2.3977,2.4250,2.4592,2.4846,2.4988,2.5203,2.5526, &
& 2.5789,2.5911,2.6050,2.6106,2.6186,2.6296,2.6316,2.6160, &
& 2.5872,2.5615,2.5364,2.5115,2.5351,2.5869,2.6352,2.6655, &
& 2.6787,2.6838,2.6997,2.7214,2.7292,2.7170,2.7082,2.7031, &
& 2.7046,2.7095,2.7173,2.7197,2.7268,2.7114,2.7051,2.7168, &
& 2.7395,2.7556,2.7637,2.7634,2.7690,2.7776,2.7817,2.8022, &
& 2.8227,2.8328,2.8442,2.8564,2.8589,2.8640,2.8743,2.8904, &
& 2.9065,2.9260,2.9574,2.9761,2.9902,3.0027,3.0212,3.0344, &
& 3.0403,3.0515,3.0576,3.0466,3.0452,3.0552,3.0705,3.0624, &
& 3.0549,3.0649,3.0481,3.0134,3.0037,2.9956,2.9880,2.9753, &
& 2.9438,2.9211,2.9253,2.9270,2.9038,2.8828,2.8799,2.8686, &
& 2.8501,2.8393,2.8098,2.7913,2.7773,2.7519,2.7390,2.7234, &
& 2.6960,2.6848,2.6909,2.6904,2.6687,2.6523,2.6467,2.6243, &
& 2.5964,2.5793,2.5691,2.5483,2.5273,2.5034,2.4734,2.4460, &
& 2.4053,2.3821,2.3611,2.3191,2.2808,2.2451,2.2273,2.1987, &
& 2.1394,2.0957,2.0662,2.0281,1.9863,1.9431,1.9053,1.8657, &
& 1.8350,1.8162,1.8003,1.7847,1.7744,1.7698,1.7639,1.7522, &
& 1.7331,1.7092,1.6909,1.6721,1.6562,1.6431,1.6230,1.6016, &
& 1.5830,1.5637,1.5503,1.5410,1.5212,1.4885,1.4558,1.4460, &
& 1.4360,1.4089,1.3889,1.3684,1.3569,1.3457,1.3318,1.3054, &
& 1.2932,1.2803,1.2639,1.2576,1.2522,1.2476,1.2302,1.2214, &
& 1.2112,1.1807,1.1487,1.1296,1.1272,1.1257,1.1216,1.0986, &
& 1.0652,1.0342,1.0161,0.9902,0.9697,0.9617,0.9565,0.9561, &
& 0.9724,1.0156,1.0823,1.1682,1.2410,1.2905,1.3057,1.3135, &
& 1.2974,1.2541,1.2280,1.2014,1.1733,1.1699,1.1474,1.1233, &
& 1.0981,1.0649,1.0540,1.0513,1.0344,1.0156,0.9880,0.9499, &
& 0.9282,0.9097,0.8821,0.8552,0.8445,0.8877,0.9741,1.1462, &
& 1.4311,1.7998,2.1941,2.5149,2.7090,2.7524,2.6352,2.4551, &
& 2.2788,2.0981,1.9558,1.8630,1.7944,1.7263,1.6692,1.6299, &
& 1.6089,1.5847,1.5637,1.5427,1.5193,1.5051,1.5071,1.4961, &
& 1.4736,1.4602,1.4587,1.4543,1.4353,1.4355,1.4487,1.4407, &
& 1.4274,1.4258,1.4258,1.4145,1.4121,1.4160,1.4150,1.4209, &
& 1.4302,1.4263,1.4114,1.4023,1.3960,1.3823,1.3874,1.3970, &
& 1.4038,1.4082,1.4123,1.4243,1.4141,1.4104,1.4302,1.4304, &
& 1.4102,1.4172,1.4280,1.4353,1.4377,1.4421,1.4370,1.4246, &
& 1.4228,1.4258,1.4165,1.4077,1.4182,1.4170,1.4097,1.4114, &
& 1.4026,1.4067,1.4204,1.4116,1.3943,1.3872,1.3916,1.3972, &
& 1.3833,1.3621,1.3789,1.3894,1.3823,1.3674,1.3516,1.3655, &
& 1.3608,1.3455,1.3621,1.3760,1.3665,1.3538,1.3362,1.3391, &
& 1.3420,1.3115,1.2942,1.3093,1.2996,1.2866,1.2924,1.2844, &
& 1.2742,1.2544,1.2522,1.2644,1.2578,1.2407,1.2615,1.2654, &
& 1.2405,1.2173,1.1907,1.1638,1.1428,1.1494,1.1396,1.1082, &
& 1.0920,1.0779,1.0640,1.0415,1.0378,1.0364,1.0154,1.0032, &
& 1.0059,0.9939,0.9717,0.9397,0.9111,0.8997,0.9045,0.9041, &
& 0.8943,0.8611,0.8569,0.8555,0.8447,0.8203,0.8076,0.8027, &
& 0.7947,0.7822,0.7615,0.7493,0.7441,0.7207,0.6965,0.6890, &
& 0.6755,0.6538,0.6418,0.6494,0.6543,0.6516,0.6526,0.6384, &
& 0.6267,0.6128,0.5857,0.5789,0.5588,0.5330,0.5266,0.5247, &
& 0.5237,0.5144,0.5015,0.4910,0.4854,0.4807,0.4658,0.4478, &
& 0.4517,0.4534,0.4458,0.4260,0.4021,0.3960,0.3940,0.3918, &
& 0.3928,0.3914,0.3728,0.3511,0.3524,0.3577,0.3501,0.3242, &
& 0.3276,0.3560,0.3467,0.3447,0.3572,0.3699,0.3931,0.4011, &
& 0.4219,0.4553,0.4949,0.5457,0.5964,0.6655,0.7422,0.8384, &
& 0.9687,1.1055,1.2761,1.4978,1.7783,2.0945,2.4499,2.8935, &
& 3.4053,3.9700,4.5664,5.1843,5.7976,6.4014,7.0085,7.6208, &
& 8.2593,8.9573,9.8391,10.8867,12.0151,13.2458,14.5014,15.7453, &
& 16.9231,18.0730,19.2563,20.5061,21.8579,23.1945,24.3500,25.2660, &
& 25.9042,26.2846,26.4963,26.5929,26.6493,26.6999,26.7250,26.7778, &
& 26.8307,26.8647,26.8779,26.8769,26.7844,26.5929,26.3967,26.1437, &
& 25.8124,25.3962,24.8862,24.2597,23.5019,22.6354,21.6911,20.6711, &
& 19.5485,18.3906,17.2612,16.1174,15.0217,13.9636,12.9277,11.9541, &
& 11.0840,10.3432,9.6865,9.1338,8.6782,8.2553,7.8462,7.4931, &
& 7.1662,6.8616,6.6072,6.3559,6.1216,5.9385,5.7436,5.5268, &
& 5.3901,5.2712,5.1284,5.0000,4.9128,4.8306,4.7346,4.6531, &
& 4.5647,4.4761,4.3948,4.3313,4.2681,4.2414,4.2161,4.1645, &
& 4.0976,4.0449,4.0173,3.9729,3.9153,3.8686,3.8398,3.7947, &
& 3.7441,3.7241,3.7168,3.6760,3.5972,3.5417,3.4990,3.4580, &
& 3.4451,3.4446,3.4133,3.3684,3.3694,3.4407,3.4016,3.3220, &
& 3.2727,3.2280,3.1633,3.1040,3.0715,3.0698,3.0640,3.0430, &
& 2.9674,2.9009,2.9048,2.8640,2.8164,2.7964,2.7715,2.7659, &
& 2.7529,2.7029,2.6682,2.6545,2.6428,2.6111,2.5845,2.5679, &
& 2.5569,2.5342,2.5244,2.5288,2.5161,2.4917,2.5088,2.4846, &
& 2.4292,2.4023,2.3911,2.3916,2.3772,2.3542,2.3372,2.3455, &
& 2.3494,2.3345,2.3223,2.3113,2.3008,2.2913,2.2554,2.2356, &
& 2.2310,2.2344,2.2314,2.2109,2.1738,2.1597,2.1736,2.1941, &
& 2.1855,2.1833,2.1645,2.1042,2.1013,2.1362,2.1531,2.1494, &
& 2.1431,2.1240,2.1218,2.0952,2.0557,2.0334,2.0095,1.9988, &
& 2.0168,1.9914,1.9676,1.9536,1.9539,1.9685,1.9473,1.9368, &
& 1.9231,1.8899,1.8962,1.9087,1.8977,1.8916,1.8933,1.8940, &
& 1.8689,1.8508,1.8684,1.8391,1.7922,1.7822,1.7681,1.7588, &
& 1.7605,1.7476,1.7576,1.7571,1.7524,1.7297,1.7236,1.7195, &
& 1.7207,1.7126,1.7080,1.6851,1.6877,1.6965,1.6843,1.6721, &
& 1.6602,1.6506,1.6448,1.6326,1.6274,1.6133,1.5915,1.5657, &
& 1.5437,1.5039,1.4744,1.5029,1.5041,1.4839,1.4761,1.4697, &
& 1.4595,1.4443,1.4574,1.4456,1.4050,1.3845,1.3838,1.3723, &
& 1.3418,1.3103,1.2891,1.2847,1.2717,1.2368,1.2505,1.2642, &
& 1.241,1.1755,1.1423,1.1416 /)
plasim/src/specs/soil.entisol.torripsamment.none.all.0015.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: dunesand(965) = (/46.8108,46.8108,46.8108,46.8108,46.8108,46.8108,46.8108,49.1717, &
& 51.1086,53.1245,55.4506,57.4331,58.8529,60.3466,61.7257,62.6054, &
& 64.4747,65.9433,67.7339,67.7725,69.5206,71.0860,72.5612,74.1243, &
& 75.3425,76.0992,76.3796,76.4165,76.3766,77.6255,77.3224,77.5037, &
& 78.2718,78.9011,78.3178,79.1444,79.4342,79.7569,80.5407,80.0904, &
& 80.8781,80.9529,80.4275,81.0988,81.7439,80.9338,80.8591,80.8497, &
& 80.5357,80.1728,80.1120,79.5521,79.1083,78.6171,76.7809,73.9028, &
& 75.2970,78.1333,80.1303,79.5295,80.1814,78.3452,77.7989,73.6785, &
& 66.0508,62.1431,61.7449,64.7574,68.2481,70.5126,70.6844,69.0905, &
& 65.5511,57.9739,51.9734,48.0533,39.3655,25.0792,15.1468,21.4342, &
& 20.6046,26.5731,26.8848,30.1755,38.8853,44.3115,50.4310,55.2748, &
& 59.6207,61.0449,58.6775,48.8010,34.4997,27.1152,30.4693,35.0443, &
& 40.8860,42.5818,40.0363,29.2211,15.6048,7.1801,3.1861,2.5296, &
& 3.5494,5.1586,12.2454,18.6853,21.1853,21.3708,20.5481,18.9292, &
& 16.3818,14.6275,12.9585,11.5344,10.7908,9.3724,11.7580,11.8728, &
& 11.4379,10.9543,12.2325,13.0512,13.4763,13.5349,13.4713,13.0935, &
& 12.4022,11.4897,10.4270,9.0065,7.4735,5.9711,4.5857,3.8033, &
& 3.3614,3.2022,3.1386,3.0742,2.9154,2.8568,2.7550,2.6843, &
& 2.7651,2.8474,2.9434,2.9247,2.8809,2.7539,2.7000,2.5988, &
& 2.5324,2.5674,2.4700,2.4056,2.3482,2.2660,2.2196,2.0590, &
& 1.8809,1.6667,1.5464,1.4690,1.3949,1.2727,1.1244,1.0550, &
& 0.9700,0.9305,0.8491,0.8806,0.8980,1.0857,1.5045,2.2030, &
& 2.8921,2.9050,2.6276,2.2297,1.9723,1.7010,1.6062,1.5294, &
& 1.6159,2.1458,3.0483,3.6891,3.6063,3.1149,2.6943,2.4314, &
& 2.3136,2.2073,2.2145,2.1596,2.1187,2.0950,2.0274,1.9686, &
& 2.0009,1.9409,1.9781,1.9804,1.9705,1.9433,1.9546,1.9223, &
& 1.9748,1.9031,1.9319,1.9531,1.9532,1.9518,1.9678,1.9851, &
& 1.9705,1.9949,2.0258,2.0989,2.1355,2.1603,2.2060,2.3159, &
& 2.3900,2.4981,2.5901,2.7253,2.8367,2.9078,3.0159,3.1989, &
& 3.3383,3.5046,3.6520,3.8522,3.9942,4.1495,4.2829,4.4801, &
& 4.6158,4.7173,4.8746,5.0658,5.2442,5.4103,5.5836,5.6753, &
& 5.8521,5.9965,6.2166,6.4282,6.6236,6.9094,7.1759,7.5204, &
& 7.7680,8.0427,8.3022,8.6042,8.8222,9.0593,9.2603,9.4521, &
& 9.5569,9.6553,9.6549,9.6841,9.8026,9.8730,9.9328,9.9462, &
& 9.9564,9.9301,9.9292,9.8941,9.8881,9.7704,9.6262,9.4581, &
& 8.8950,8.1660,8.4159,8.8715,8.8487,8.7579,8.5160,8.2252, &
& 7.8783,7.3769,6.7642,6.1934,6.1314,6.3587,6.4202,6.3139, &
& 6.1569,5.9465,5.7325,5.4745,5.2515,4.9752,4.7327,4.5192, &
& 4.2808,4.0574,3.8525,3.6690,3.5125,3.3345,3.1739,3.0163, &
& 2.8969,2.7275,2.6238,2.4944,2.3851,2.2469,2.1488,2.0653, &
& 1.9892,1.8989,1.8141,1.7367,1.6891,1.6501,1.5947,1.5889, &
& 1.5576,1.5448,1.5312,1.5173,1.4955,1.5119,1.4884,1.4818, &
& 1.4699,1.4827,1.4543,1.4629,1.4668,1.4799,1.4781,1.4673, &
& 1.4759,1.4979,1.5111,1.4892,1.4855,1.4701,1.5091,1.5042, &
& 1.5192,1.5593,1.5449,1.5333,1.5304,1.5366,1.5534,1.5288, &
& 1.5141,1.5120,1.5026,1.5017,1.5027,1.4885,1.4875,1.4821, &
& 1.5090,1.5220,1.5593,1.6302,1.6973,1.7883,1.8809,1.9615, &
& 2.0157,2.0964,2.1346,2.2166,2.2659,2.3086,2.3622,2.3964, &
& 2.4592,2.5025,2.5606,2.5973,2.6152,2.6310,2.5927,2.5385, &
& 2.5351,2.6377,2.6795,2.7050,2.7255,2.7064,2.7066,2.7183, &
& 2.7197,2.7107,2.7476,2.7635,2.7733,2.7917,2.8275,2.8497, &
& 2.8610,2.8803,2.9126,2.9624,2.9926,3.0230,3.0407,3.0574, &
& 3.0454,3.0670,3.0574,3.0557,3.0094,2.9933,2.9706,2.9211, &
& 2.9267,2.8890,2.8738,2.8462,2.8064,2.7773,2.7415,2.7068, &
& 2.6872,2.6861,2.6529,2.6299,2.5877,2.5633,2.5265,2.4801, &
& 2.4249,2.3767,2.3198,2.2556,2.2150,2.1335,2.0708,2.0054, &
& 1.9341,1.8690,1.8237,1.7961,1.7751,1.7663,1.7472,1.7116, &
& 1.6804,1.6536,1.6266,1.5932,1.5628,1.5439,1.5117,1.4590, &
& 1.4410,1.4070,1.3749,1.3539,1.3340,1.3004,1.2807,1.2606, &
& 1.2518,1.2365,1.2195,1.1891,1.1440,1.1277,1.1245,1.1028, &
& 1.0549,1.0191,0.9832,0.9630,0.9564,0.9695,1.0355,1.1493, &
& 1.2534,1.3013,1.3107,1.2700,1.2257,1.1863,1.1700,1.1374, &
& 1.1021,1.0619,1.0521,1.0323,1.0010,0.9520,0.9219,0.8891, &
& 0.8537,0.8673,0.9669,1.2321,1.6786,2.2114,2.5947,2.7429, &
& 2.6105,2.3669,2.1250,1.9382,1.8264,1.7354,1.6613,1.6187, &
& 1.5882,1.5598,1.5310,1.5077,1.5058,1.4866,1.4639,1.4586, &
& 1.4485,1.4354,1.4472,1.4385,1.4267,1.4258,1.4148,1.4130, &
& 1.4155,1.4194,1.4302,1.4226,1.4069,1.3976,1.3826,1.3894, &
& 1.4000,1.4067,1.4118,1.4233,1.4129,1.4209,1.4303,1.4114, &
& 1.4186,1.4304,1.4366,1.4408,1.4375,1.4245,1.4236,1.4219, &
& 1.4112,1.4158,1.4171,1.4099,1.4093,1.4042,1.4143,1.4143, &
& 1.3971,1.3874,1.3922,1.3938,1.3753,1.3706,1.3854,1.3841, &
& 1.3696,1.3520,1.3651,1.3579,1.3504,1.3676,1.3714,1.3591, &
& 1.3419,1.3384,1.3416,1.3138,1.2942,1.3086,1.2976,1.2879, &
& 1.2901,1.2809,1.2662,1.2534,1.2585,1.2606,1.2473,1.2543, &
& 1.2642,1.2470,1.2226,1.1959,1.1682,1.1456,1.1487,1.1405, &
& 1.1104,1.0930,1.0785,1.0644,1.0422,1.0379,1.0364,1.0158, &
& 1.0036,1.0058,0.9944,0.9730,0.9419,0.9136,0.9009,0.9038, &
& 0.9042,0.8961,0.8684,0.8580,0.8559,0.8482,0.8294,0.8129, &
& 0.8049,0.7892,0.7742,0.7575,0.7479,0.7393,0.7173,0.6959, &
& 0.6890,0.6764,0.6570,0.6445,0.6471,0.6524,0.6520,0.6476, &
& 0.6353,0.6243,0.6108,0.5864,0.5798,0.5635,0.5418,0.5295, &
& 0.5244,0.5217,0.5131,0.5017,0.4925,0.4869,0.4826,0.4595, &
& 0.4486,0.4518,0.4533,0.4473,0.4328,0.3999,0.3956,0.3939, &
& 0.3920,0.3926,0.3920,0.3668,0.3513,0.3523,0.3565,0.3531, &
& 0.3251,0.3299,0.3532,0.3493,0.3492,0.3594,0.3697,0.3882, &
& 0.4095,0.4288,0.4556,0.4873,0.5658,0.6096,0.6644,0.7247, &
& 0.8832,0.9858,1.0927,1.2228,1.5652,1.7832,2.0264,2.5932, &
& 2.9404,3.3311,4.1959,4.6507,5.1188,5.5839,6.4965,6.9496, &
& 7.4060,8.3583,8.8792,10.2242,11.0029,11.8326,13.6307,14.5468, &
& 15.4548,17.1731,18.0063,18.8562,20.6413,21.6069,23.4751,24.3005, &
& 24.9607,25.9363,26.2042,26.5145,26.5821,26.6637,26.6988,26.7168, &
& 26.7807,26.8172,26.8663,26.8753,26.8612,26.7982,26.5531,26.4206, &
& 26.0703,25.8480,25.2806,24.9406,24.0941,23.5922,22.4490,21.8278, &
& 20.4877,19.7539,18.2586,17.5252,16.0542,15.3518,13.9839,12.6734, &
& 12.0533,10.9621,10.4932,9.6552,8.9914,8.7067,8.1791,7.9250, &
& 7.4790,7.0821,6.8952,6.5781,6.4249,6.1345,5.9080,5.7906, &
& 5.5346,5.3709,5.2997,5.1352,4.9881,4.9365,4.8383,4.7279, &
& 4.6310,4.5796,4.4766,4.3853,4.3488,4.2761,4.2410,4.2079, &
& 4.1788,4.1071,4.0458,4.0126,3.9600,3.9278,3.8735,3.8398, &
& 3.7897,3.7402,3.7292,3.7180,3.6791,3.5969,3.5383,3.4926, &
& 3.4551,3.4483,3.4447,3.4171,3.3715,3.3694,3.4397,3.3962, &
& 3.3169,3.2667,3.2174,3.1521,3.0972,3.0711,3.0684,3.0588, &
& 3.0241,2.9863,2.9019,2.8950,2.8532,2.8121,2.7915,2.7705, &
& 2.7640,2.7471,2.7001,2.6676,2.6544,2.6433,2.6140,2.5883, &
& 2.5712,2.5521,2.5328,2.5247,2.5287,2.5170,2.4954,2.5034, &
& 2.4770,2.4280,2.4036,2.3927,2.3887,2.3750,2.3545,2.3394, &
& 2.3463,2.3482,2.3352,2.3244,2.3099,2.3009,2.2927,2.2526, &
& 2.2357,2.2317,2.2341,2.2315,2.2150,2.1730,2.1613,2.1762, &
& 2.1932,2.1851,2.1832,2.1679,2.1041,2.1018,2.1370,2.1506, &
& 2.1491,2.1441,2.1239,2.1222,2.0955,2.0522,2.0350,2.0086, &
& 2.0003,2.0166,1.9878,1.9698,1.9536,1.9564,1.9673,1.9469, &
& 1.9348,1.9247,1.8903,1.8973,1.9067,1.8987,1.8917,1.8933, &
& 1.8906,1.8727,1.8524,1.8678,1.8381,1.7915,1.7806,1.7667, &
& 1.7603,1.7603,1.7490,1.7567,1.7571,1.7527,1.7311,1.7240, &
& 1.7198,1.7206,1.7134,1.7085,1.6883,1.6891,1.6951,1.6833, &
& 1.6716,1.6604,1.6512,1.6455,1.6319,1.6266,1.6135,1.5934, &
& 1.5627,1.5416,1.5055,1.4783,1.5030,1.5041,1.4868,1.4759, &
& 1.4702,1.4581,1.4448,1.4559,1.4457,1.4023,1.3847,1.3824, &
& 1.3727,1.3389,1.3125,1.2889,1.2853,1.2721,1.2377,1.2489, &
& 1.2637,1.2384,1.1719,1.1453,1.1416 /)
plasim/src/specs/spec2fortran.ipynb
+1299
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/tapwater_bolometric.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/tapwater_spec.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

plasim/src/specs/water.frost.none.fine.all.frost_snw_.jhu.becknic.spectrum.txt
+986
View File
@@ -0,0 +1,986 @@
Name: Frost
Type: Water
Class: Frost
Subclass: None
Particle Size: Fine
Sample No.: FROST_SNW_
Owner: Dept. of Earth and Planetary Science, John Hopkins University
Wavelength Range: All
Origin: Collected at John Hopkins University IR Spectroscopy Lab.
Collection Date: N/A
Description: Frost. The spectrum from 0.3 to 2.08 micrometers was modeled, while that from 2.08 to 14 micrometers was measured. The effective particle size was 10 micrometers (see Introductory text for details). Original filename FROST.SNW. Original ASTER Spectral Library name was jhu.becknic.water.frost.none.10um.frost.spectrum.txt
Measurement: Directional (10 Degree) Hemispherical Reflectance
First Column: X
Second Column: Y
X Units: Wavelength (micrometers)
Y Units:Reflectance (percent)
First X Value: 0.3400
Last X Value: 14.0100
Number of X Values: 965
Additional Information: none
0.3400 99.0380
0.3500 99.0480
0.3600 99.1920
0.3700 99.2080
0.3800 99.2500
0.3900 99.2520
0.4000 99.2440
0.4100 99.3500
0.4200 99.2840
0.4300 99.4180
0.4400 99.3640
0.4500 99.4920
0.4600 99.4820
0.4700 99.5160
0.4800 99.4840
0.4900 99.4460
0.5000 99.4480
0.5100 99.4460
0.5200 99.3940
0.5300 99.4560
0.5400 99.3280
0.5500 99.3800
0.5600 99.3280
0.5700 99.2860
0.5800 99.3100
0.5900 99.2800
0.6000 99.1980
0.6100 99.1100
0.6200 98.9640
0.6300 98.9180
0.6400 98.8400
0.6500 98.7560
0.6600 98.6280
0.6700 98.5680
0.6800 98.5040
0.6900 98.4200
0.7000 98.1760
0.7100 98.0980
0.7200 98.0380
0.7300 97.9380
0.7400 97.8360
0.7500 97.6660
0.7600 97.4320
0.7700 97.1960
0.7800 96.9900
0.7900 96.7760
0.8000 96.6170
0.8200 96.5300
0.8400 96.4500
0.8600 95.8500
0.8800 94.8800
0.9000 94.4300
0.9200 94.3500
0.9400 93.8900
0.9600 92.7700
0.9800 91.8000
1.0000 89.9100
1.0200 88.7500
1.0400 88.1200
1.0600 89.6800
1.0800 89.6800
1.1000 89.7700
1.1200 89.9700
1.1400 89.1300
1.1600 87.6100
1.1800 85.0000
1.2000 82.3500
1.2200 74.5200
1.2400 77.1700
1.2600 76.8600
1.2800 77.2700
1.3000 74.8700
1.3200 77.4700
1.3400 76.8800
1.3600 76.4300
1.3800 75.8600
1.4000 74.5900
1.4200 61.7500
1.4400 37.8400
1.4600 29.8200
1.4800 24.6900
1.5000 21.5400
1.5200 22.6300
1.5400 22.5200
1.5600 26.4100
1.5800 30.2400
1.6000 31.3000
1.6200 29.8100
1.6400 38.3700
1.6600 39.9100
1.6800 44.5500
1.7000 45.4400
1.7200 48.1000
1.7400 47.6000
1.7600 50.6900
1.7800 48.8400
1.8000 54.3200
1.8200 54.1100
1.8400 58.2900
1.8600 54.3900
1.8800 42.8400
1.9000 30.6200
1.9200 21.8000
1.9400 17.0900
1.9600 13.1000
1.9800 11.5700
2.0000 10.7700
2.0200 11.4300
2.0400 13.1000
2.0600 13.9300
2.0800 16.1600
2.1000 19.2700
2.1200 23.3200
2.1400 30.1500
2.1600 33.6400
2.1800 36.3600
2.2000 42.9300
2.2200 45.2900
2.2400 44.8100
2.2500 44.6270
2.2600 44.3670
2.2700 43.9150
2.2800 43.1890
2.2900 42.4020
2.3000 41.5460
2.3100 40.5780
2.3200 39.5140
2.3300 38.5920
2.3400 37.5950
2.3500 36.7300
2.3600 36.0610
2.3700 35.4250
2.3800 34.8330
2.3900 34.3620
2.4000 33.9210
2.4100 33.4940
2.4200 33.0580
2.4300 32.5890
2.4400 32.2120
2.4500 31.7630
2.4600 31.2970
2.4700 30.7930
2.4800 30.3990
2.4900 29.9280
2.5000 29.4600
2.5100 29.0930
2.5200 28.7330
2.5300 28.3170
2.5400 28.0200
2.5500 27.8230
2.5600 27.2890
2.5700 26.9050
2.5800 26.5540
2.5900 25.5460
2.6000 25.2000
2.6100 24.9680
2.6200 24.2820
2.6300 23.6230
2.6400 23.6260
2.6500 22.2990
2.6600 20.3970
2.6700 17.7890
2.6800 17.0400
2.6900 15.3660
2.7000 13.2290
2.7100 11.0160
2.7200 8.6760
2.7300 6.9260
2.7400 5.0290
2.7500 3.6090
2.7600 2.3960
2.7700 1.6780
2.7800 1.1630
2.7900 0.8170
2.8000 0.6280
2.8100 0.5170
2.8200 0.4450
2.8300 0.3990
2.8400 0.4280
2.8500 0.3970
2.8600 0.3170
2.8700 0.3320
2.8800 0.3370
2.8900 0.4230
2.9000 0.4670
2.9100 0.4730
2.9200 0.5180
2.9300 0.5350
2.9400 0.5950
2.9500 0.6970
2.9600 0.6530
2.9700 0.7080
2.9800 0.6880
2.9900 0.7380
3.0000 0.8300
3.0100 0.9270
3.0200 0.9670
3.0300 1.0520
3.0400 1.2250
3.0500 1.2870
3.0600 1.3040
3.0700 1.4070
3.0800 1.4520
3.0900 1.3820
3.1000 1.3320
3.1100 1.2720
3.1200 1.2650
3.1300 1.1980
3.1400 1.2280
3.1500 1.2300
3.1600 1.1730
3.1700 1.1640
3.1800 1.1680
3.1900 1.1420
3.2000 1.1120
3.2100 1.1040
3.2200 1.0980
3.2300 1.0460
3.2400 1.0140
3.2500 1.0180
3.2600 1.0420
3.2700 1.0280
3.2800 1.0100
3.2900 1.0400
3.3000 1.0940
3.3100 1.1160
3.3200 1.1030
3.3300 1.1640
3.3400 1.2700
3.3500 1.3470
3.3600 1.4240
3.3700 1.5080
3.3800 1.6080
3.3900 1.7360
3.4000 1.9200
3.4100 2.0830
3.4200 2.2860
3.4300 2.5200
3.4400 2.7940
3.4500 3.0780
3.4600 3.3620
3.4700 3.7360
3.4800 4.1500
3.4900 4.5150
3.5000 4.8880
3.5100 5.3260
3.5200 5.7980
3.5300 6.2700
3.5400 6.7550
3.5500 7.2150
3.5600 7.6830
3.5700 8.1750
3.5800 8.6350
3.5900 9.0680
3.6000 9.5020
3.6100 9.9300
3.6200 10.3380
3.6300 10.6880
3.6400 10.9950
3.6500 11.2900
3.6600 11.5300
3.6700 11.7170
3.6800 11.8600
3.6900 11.9430
3.7000 11.9820
3.7100 12.0000
3.7200 11.9600
3.7300 11.8520
3.7400 11.7270
3.7500 11.5650
3.7600 11.3500
3.7700 11.1670
3.7800 10.9530
3.7900 10.6770
3.8000 10.3950
3.8100 10.1270
3.8200 9.8870
3.8300 9.6270
3.8400 9.3700
3.8500 9.1070
3.8600 8.8370
3.8700 8.5780
3.8800 8.3500
3.8900 8.1330
3.9000 7.9030
3.9100 7.7100
3.9200 7.5150
3.9300 7.3200
3.9400 7.1400
3.9500 6.9350
3.9600 6.7470
3.9700 6.5700
3.9800 6.3780
3.9900 6.2070
4.0000 6.0730
4.0100 5.9330
4.0200 5.7800
4.0300 5.6400
4.0400 5.5200
4.0500 5.4000
4.0600 5.2700
4.0700 5.1470
4.0800 5.0200
4.0900 4.8800
4.1000 4.7600
4.1100 4.6830
4.1200 4.6200
4.1300 4.5700
4.1400 4.5070
4.1500 4.4270
4.1600 4.3470
4.1700 4.2570
4.1800 4.1500
4.1900 4.0500
4.2000 3.9670
4.2100 3.8700
4.2200 3.7850
4.2300 3.7170
4.2400 3.6400
4.2500 3.5600
4.2600 3.4600
4.2700 3.3400
4.2800 3.2470
4.2900 3.1800
4.3000 3.1000
4.3100 2.9800
4.3200 2.8600
4.3300 2.7700
4.3400 2.7200
4.3500 2.6670
4.3600 2.5830
4.3700 2.4900
4.3800 2.4300
4.3900 2.3800
4.4000 2.3300
4.4100 2.2800
4.4200 2.2200
4.4300 2.1700
4.4400 2.1550
4.4500 2.1470
4.4600 2.1250
4.4700 2.1000
4.4800 2.0800
4.4900 2.0900
4.5000 2.1100
4.5100 2.1350
4.5200 2.1600
4.5300 2.1950
4.5400 2.2370
4.5500 2.2750
4.5600 2.3200
4.5700 2.3850
4.5800 2.4630
4.5900 2.5500
4.6000 2.6400
4.6100 2.7500
4.6200 2.8700
4.6300 2.9850
4.6400 3.0750
4.6500 3.1870
4.6600 3.3050
4.6700 3.4370
4.6800 3.5800
4.6900 3.7000
4.7000 3.8400
4.7100 3.9900
4.7200 4.1100
4.7300 4.2570
4.7400 4.4000
4.7500 4.5250
4.7600 4.6800
4.7700 4.8200
4.7800 4.9250
4.7900 5.0250
4.8000 5.1530
4.8100 5.2900
4.8200 5.4050
4.8300 5.5150
4.8400 5.6150
4.8500 5.7370
4.8600 5.8500
4.8700 5.9450
4.8800 6.0350
4.8900 6.1350
4.9000 6.2400
4.9100 6.3300
4.9200 6.4000
4.9300 6.4700
4.9400 6.5400
4.9500 6.6000
4.9600 6.6550
4.9700 6.7100
4.9800 6.7770
4.9900 6.8400
5.0000 6.8750
5.0100 6.8950
5.0200 6.9150
5.0300 6.9350
5.0400 6.9550
5.0500 6.9850
5.0600 6.9900
5.0700 6.9850
5.0800 6.9600
5.0900 6.9350
5.1000 6.9150
5.1100 6.8950
5.1200 6.8600
5.1300 6.8050
5.1400 6.7450
5.1500 6.6950
5.1600 6.6450
5.1700 6.5950
5.1800 6.5300
5.1900 6.4500
5.2000 6.3700
5.2100 6.3100
5.2200 6.2600
5.2300 6.1900
5.2400 6.1200
5.2500 6.0350
5.2600 5.9450
5.2700 5.8400
5.2800 5.7300
5.2900 5.6500
5.3000 5.5800
5.3100 5.4950
5.3200 5.4050
5.3300 5.2950
5.3400 5.1550
5.3500 5.0500
5.3600 4.9650
5.3700 4.8800
5.3800 4.8100
5.3900 4.7250
5.4000 4.6500
5.4100 4.5550
5.4200 4.4400
5.4300 4.3350
5.4400 4.2600
5.4500 4.1850
5.4600 4.0750
5.4700 3.9650
5.4800 3.9000
5.4900 3.8400
5.5000 3.7500
5.5100 3.6800
5.5200 3.6000
5.5300 3.4900
5.5400 3.3750
5.5500 3.2800
5.5600 3.1900
5.5700 3.0800
5.5800 3.0100
5.5900 2.9650
5.6000 2.9000
5.6100 2.8300
5.6200 2.7400
5.6300 2.6050
5.6400 2.5000
5.6500 2.4250
5.6600 2.3600
5.6700 2.3100
5.6800 2.2400
5.6900 2.1800
5.7000 2.1200
5.7100 2.0500
5.7200 1.9900
5.7300 1.9050
5.7400 1.8400
5.7500 1.7650
5.7600 1.7000
5.7700 1.6550
5.7800 1.6200
5.7900 1.5850
5.8000 1.5500
5.8100 1.5000
5.8200 1.4400
5.8300 1.4000
5.8400 1.3750
5.8500 1.3400
5.8600 1.2900
5.8700 1.2300
5.8800 1.1750
5.8900 1.1300
5.9000 1.1050
5.9100 1.0900
5.9200 1.0700
5.9300 1.0500
5.9400 1.0400
5.9500 1.0250
5.9600 1.0100
5.9700 1.0050
5.9800 1.0000
5.9900 1.0000
6.0000 1.0000
6.0100 0.9950
6.0200 0.9700
6.0300 0.9500
6.0400 0.9100
6.0500 0.8800
6.0600 0.8600
6.0700 0.8600
6.0800 0.8750
6.0900 0.9000
6.1000 0.9100
6.1100 0.9350
6.1200 0.9600
6.1300 0.9700
6.1400 0.9800
6.1500 0.9800
6.1600 0.9800
6.1700 0.9700
6.1800 0.9600
6.1900 0.9600
6.2000 0.9600
6.2100 0.9600
6.2200 0.9750
6.2300 0.9900
6.2400 1.0000
6.2500 1.0250
6.2600 1.0400
6.2700 1.0500
6.2800 1.0650
6.2900 1.0700
6.3000 1.0700
6.3100 1.0650
6.3200 1.0500
6.3300 1.0500
6.3400 1.0500
6.3500 1.0500
6.3600 1.0600
6.3700 1.0600
6.3800 1.0550
6.3900 1.0400
6.4000 1.0300
6.4100 1.0100
6.4200 1.0100
6.4300 1.0200
6.4400 1.0300
6.4500 1.0500
6.4600 1.0650
6.4700 1.0800
6.4800 1.0800
6.4900 1.0900
6.5000 1.1150
6.5100 1.1500
6.5200 1.1700
6.5300 1.1900
6.5400 1.2000
6.5500 1.2100
6.5600 1.2100
6.5700 1.2000
6.5800 1.1900
6.5900 1.1800
6.6000 1.1650
6.6100 1.1500
6.6200 1.1500
6.6300 1.1500
6.6400 1.1600
6.6500 1.1800
6.6600 1.2200
6.6700 1.2400
6.6800 1.2700
6.6900 1.2900
6.7000 1.3000
6.7100 1.3200
6.7200 1.3350
6.7300 1.3500
6.7400 1.3600
6.7500 1.3600
6.7600 1.3600
6.7700 1.3500
6.7800 1.3500
6.7900 1.3400
6.8000 1.3400
6.8100 1.3400
6.8200 1.3500
6.8300 1.3500
6.8400 1.3500
6.8500 1.3600
6.8600 1.3600
6.8700 1.3600
6.8800 1.3800
6.8900 1.4100
6.9000 1.4300
6.9100 1.4500
6.9200 1.4700
6.9300 1.4800
6.9400 1.4900
6.9500 1.4900
6.9600 1.4900
6.9700 1.4900
6.9800 1.4800
6.9900 1.4800
7.0000 1.4800
7.0100 1.4700
7.0200 1.4700
7.0300 1.4700
7.0400 1.4800
7.0500 1.4900
7.0600 1.5100
7.0700 1.5300
7.0800 1.5500
7.0900 1.5700
7.1000 1.5800
7.1100 1.5800
7.1200 1.5800
7.1300 1.5800
7.1400 1.5700
7.1500 1.5700
7.1600 1.5700
7.1700 1.5800
7.1800 1.5900
7.1900 1.6100
7.2000 1.6300
7.2100 1.6600
7.2200 1.6800
7.2300 1.7000
7.2400 1.7200
7.2500 1.7300
7.2600 1.7300
7.2700 1.7300
7.2800 1.7400
7.2900 1.7400
7.3000 1.7400
7.3100 1.7500
7.3200 1.7600
7.3300 1.7800
7.3400 1.8000
7.3500 1.8200
7.3600 1.8500
7.3700 1.8700
7.3800 1.8900
7.4000 1.9100
7.4100 1.9200
7.4200 1.9300
7.4300 1.9300
7.4400 1.9400
7.4500 1.9500
7.4600 1.9600
7.4700 1.9700
7.4800 1.9900
7.4900 2.0000
7.5000 2.0100
7.5100 2.0200
7.5200 2.0300
7.5400 2.0400
7.5500 2.0500
7.5600 2.0600
7.5700 2.0800
7.5800 2.1000
7.5900 2.1300
7.6000 2.1500
7.6100 2.1700
7.6200 2.1900
7.6300 2.1900
7.6500 2.2000
7.6600 2.2000
7.6700 2.2000
7.6800 2.2000
7.6900 2.2000
7.7000 2.2100
7.7100 2.2200
7.7300 2.2300
7.7400 2.2500
7.7500 2.2600
7.7600 2.2800
7.7700 2.3000
7.7800 2.3100
7.8000 2.3300
7.8100 2.3400
7.8200 2.3600
7.8300 2.3700
7.8400 2.3800
7.8500 2.3900
7.8700 2.3900
7.8800 2.4000
7.8900 2.4000
7.9000 2.4100
7.9100 2.4200
7.9300 2.4300
7.9400 2.4500
7.9500 2.4600
7.9600 2.4700
7.9800 2.4800
7.9900 2.4800
8.0000 2.4900
8.0100 2.4900
8.0300 2.4900
8.0400 2.5000
8.0500 2.5000
8.0600 2.5100
8.0800 2.5200
8.0900 2.5200
8.1000 2.5300
8.1100 2.5400
8.1300 2.5500
8.1400 2.5500
8.1500 2.5600
8.1600 2.5700
8.1800 2.5700
8.1900 2.5700
8.2000 2.5700
8.2200 2.5700
8.2300 2.5700
8.2400 2.5700
8.2600 2.5700
8.2700 2.5700
8.2800 2.5800
8.2900 2.5800
8.3100 2.5800
8.3200 2.5800
8.3300 2.5800
8.3500 2.5700
8.3600 2.5700
8.3800 2.5600
8.3900 2.5600
8.4000 2.5500
8.4200 2.5600
8.4300 2.5600
8.4400 2.5600
8.4600 2.5600
8.4700 2.5600
8.4800 2.5600
8.5000 2.5600
8.5100 2.5500
8.5300 2.5500
8.5400 2.5500
8.5500 2.5500
8.5700 2.5400
8.5800 2.5400
8.6000 2.5300
8.6100 2.5200
8.6300 2.5000
8.6400 2.4800
8.6500 2.4700
8.6700 2.4500
8.6800 2.4400
8.7000 2.4400
8.7100 2.4400
8.7300 2.4400
8.7400 2.4400
8.7600 2.4500
8.7700 2.4500
8.7900 2.4500
8.8000 2.4500
8.8200 2.4400
8.8300 2.4300
8.8500 2.4100
8.8600 2.3900
8.8800 2.3800
8.8900 2.3600
8.9100 2.3500
8.9200 2.3400
8.9400 2.3300
8.9500 2.3200
8.9700 2.3200
8.9800 2.3200
9.0000 2.3100
9.0200 2.3100
9.0300 2.3100
9.0500 2.3100
9.0600 2.3000
9.0800 2.3000
9.1000 2.2900
9.1100 2.2900
9.1300 2.2900
9.1400 2.2900
9.1600 2.2900
9.1800 2.3000
9.1900 2.3000
9.2100 2.3100
9.2200 2.3300
9.2400 2.3400
9.2600 2.3600
9.2700 2.3800
9.2900 2.3900
9.3100 2.4000
9.3200 2.4100
9.3400 2.4100
9.3600 2.4200
9.3700 2.4200
9.3900 2.4200
9.4100 2.4300
9.4300 2.4500
9.4400 2.4800
9.4600 2.5100
9.4800 2.5500
9.4900 2.5900
9.5100 2.6300
9.5300 2.6700
9.5500 2.7100
9.5600 2.7400
9.5800 2.7700
9.6000 2.7900
9.6200 2.8000
9.6400 2.7900
9.6500 2.7800
9.6700 2.7600
9.6900 2.7300
9.7100 2.7000
9.7300 2.6700
9.7400 2.6500
9.7600 2.6200
9.7800 2.5800
9.8000 2.5400
9.8200 2.5000
9.8400 2.4400
9.8600 2.3900
9.8700 2.3300
9.8900 2.2800
9.9100 2.2300
9.9300 2.1700
9.9500 2.1200
9.9700 2.0600
9.9900 2.0000
10.0100 1.9300
10.0300 1.8600
10.0500 1.7900
10.0700 1.7100
10.0900 1.6500
10.1100 1.5800
10.1300 1.5200
10.1500 1.4700
10.1700 1.4100
10.1800 1.3600
10.2100 1.3100
10.2300 1.2600
10.2500 1.2100
10.2700 1.1500
10.2900 1.1000
10.3100 1.0400
10.3300 0.9900
10.3500 0.9300
10.3700 0.8800
10.3900 0.8300
10.4100 0.7800
10.4300 0.7400
10.4500 0.7100
10.4700 0.6900
10.4900 0.6700
10.5200 0.6600
10.5400 0.6500
10.5600 0.6400
10.5800 0.6400
10.6000 0.6300
10.6200 0.6200
10.6500 0.6100
10.6700 0.6000
10.6900 0.5800
10.7100 0.5700
10.7300 0.5600
10.7600 0.5600
10.7800 0.5600
10.8000 0.5600
10.8200 0.5700
10.8500 0.5800
10.8700 0.5900
10.8900 0.6000
10.9100 0.6100
10.9400 0.6200
10.9600 0.6300
10.9800 0.6400
11.0100 0.6500
11.0300 0.6700
11.0500 0.6800
11.0800 0.6900
11.1000 0.7000
11.1200 0.7100
11.1500 0.7200
11.1700 0.7200
11.2000 0.7200
11.2200 0.7200
11.2500 0.7100
11.2700 0.7100
11.2900 0.7100
11.3200 0.7100
11.3400 0.7100
11.3700 0.7200
11.3900 0.7300
11.4200 0.7400
11.4400 0.7500
11.4700 0.7700
11.4900 0.7700
11.5200 0.7800
11.5500 0.7800
11.5700 0.7900
11.6000 0.8000
11.6200 0.8100
11.6500 0.8200
11.6800 0.8300
11.7000 0.8500
11.7300 0.8600
11.7600 0.8700
11.7800 0.8800
11.8100 0.8800
11.8400 0.8800
11.8600 0.8800
11.8900 0.8700
11.9200 0.8700
11.9500 0.8800
11.9700 0.8800
12.0000 0.8900
12.0300 0.9000
12.0600 0.9000
12.0800 0.9100
12.1100 0.9200
12.1400 0.9200
12.1700 0.9300
12.2000 0.9400
12.2300 0.9500
12.2600 0.9600
12.2800 0.9700
12.3100 0.9800
12.3400 0.9900
12.3700 1.0000
12.4000 1.0000
12.4300 1.0000
12.4600 0.9900
12.4900 0.9900
12.5200 0.9900
12.5500 0.9900
12.5800 1.0000
12.6100 1.0100
12.6400 1.0200
12.6800 1.0300
12.7100 1.0400
12.7400 1.0500
12.7700 1.0500
12.8000 1.0500
12.8300 1.0500
12.8600 1.0600
12.9000 1.0700
12.9300 1.0900
12.9600 1.1100
12.9900 1.1200
13.0300 1.1400
13.0600 1.1400
13.0900 1.1400
13.1200 1.1300
13.1600 1.1100
13.1900 1.1000
13.2200 1.0800
13.2600 1.0800
13.2900 1.0800
13.3300 1.0900
13.3600 1.1000
13.4000 1.1200
13.4300 1.1300
13.4700 1.1400
13.5000 1.1500
13.5400 1.1600
13.5700 1.1700
13.6100 1.1700
13.6400 1.1800
13.6800 1.1800
13.7100 1.1800
13.7500 1.1800
13.7900 1.1800
13.8200 1.1900
13.8600 1.2000
13.9000 1.2200
13.9400 1.2400
13.9700 1.2500
14.0100 1.2600
plasim/src/specs/water.frost.none.fine.all.frost_snw_.jhu.becknic.spectrum_f90.txt
+244
View File
@@ -0,0 +1,244 @@
real :: wvfrost(965) = (/0.34,0.35,0.36,0.37,0.38,0.39,0.4,0.41, &
& 0.4200,0.4300,0.4400,0.4500,0.4600,0.4700,0.4800,0.4900, &
& 0.5000,0.5100,0.5200,0.5300,0.5400,0.5500,0.5600,0.5700, &
& 0.5800,0.5900,0.6000,0.6100,0.6200,0.6300,0.6400,0.6500, &
& 0.6600,0.6700,0.6800,0.6900,0.7000,0.7100,0.7200,0.7300, &
& 0.7400,0.7500,0.7600,0.7700,0.7800,0.7900,0.8000,0.8200, &
& 0.8400,0.8600,0.8800,0.9000,0.9200,0.9400,0.9600,0.9800, &
& 1.0000,1.0200,1.0400,1.0600,1.0800,1.1000,1.1200,1.1400, &
& 1.1600,1.1800,1.2000,1.2200,1.2400,1.2600,1.2800,1.3000, &
& 1.3200,1.3400,1.3600,1.3800,1.4000,1.4200,1.4400,1.4600, &
& 1.4800,1.5000,1.5200,1.5400,1.5600,1.5800,1.6000,1.6200, &
& 1.6400,1.6600,1.6800,1.7000,1.7200,1.7400,1.7600,1.7800, &
& 1.8000,1.8200,1.8400,1.8600,1.8800,1.9000,1.9200,1.9400, &
& 1.9600,1.9800,2.0000,2.0200,2.0400,2.0600,2.0800,2.1000, &
& 2.1200,2.1400,2.1600,2.1800,2.2000,2.2200,2.2400,2.2500, &
& 2.2600,2.2700,2.2800,2.2900,2.3000,2.3100,2.3200,2.3300, &
& 2.3400,2.3500,2.3600,2.3700,2.3800,2.3900,2.4000,2.4100, &
& 2.4200,2.4300,2.4400,2.4500,2.4600,2.4700,2.4800,2.4900, &
& 2.5000,2.5100,2.5200,2.5300,2.5400,2.5500,2.5600,2.5700, &
& 2.5800,2.5900,2.6000,2.6100,2.6200,2.6300,2.6400,2.6500, &
& 2.6600,2.6700,2.6800,2.6900,2.7000,2.7100,2.7200,2.7300, &
& 2.7400,2.7500,2.7600,2.7700,2.7800,2.7900,2.8000,2.8100, &
& 2.8200,2.8300,2.8400,2.8500,2.8600,2.8700,2.8800,2.8900, &
& 2.9000,2.9100,2.9200,2.9300,2.9400,2.9500,2.9600,2.9700, &
& 2.9800,2.9900,3.0000,3.0100,3.0200,3.0300,3.0400,3.0500, &
& 3.0600,3.0700,3.0800,3.0900,3.1000,3.1100,3.1200,3.1300, &
& 3.1400,3.1500,3.1600,3.1700,3.1800,3.1900,3.2000,3.2100, &
& 3.2200,3.2300,3.2400,3.2500,3.2600,3.2700,3.2800,3.2900, &
& 3.3000,3.3100,3.3200,3.3300,3.3400,3.3500,3.3600,3.3700, &
& 3.3800,3.3900,3.4000,3.4100,3.4200,3.4300,3.4400,3.4500, &
& 3.4600,3.4700,3.4800,3.4900,3.5000,3.5100,3.5200,3.5300, &
& 3.5400,3.5500,3.5600,3.5700,3.5800,3.5900,3.6000,3.6100, &
& 3.6200,3.6300,3.6400,3.6500,3.6600,3.6700,3.6800,3.6900, &
& 3.7000,3.7100,3.7200,3.7300,3.7400,3.7500,3.7600,3.7700, &
& 3.7800,3.7900,3.8000,3.8100,3.8200,3.8300,3.8400,3.8500, &
& 3.8600,3.8700,3.8800,3.8900,3.9000,3.9100,3.9200,3.9300, &
& 3.9400,3.9500,3.9600,3.9700,3.9800,3.9900,4.0000,4.0100, &
& 4.0200,4.0300,4.0400,4.0500,4.0600,4.0700,4.0800,4.0900, &
& 4.1000,4.1100,4.1200,4.1300,4.1400,4.1500,4.1600,4.1700, &
& 4.1800,4.1900,4.2000,4.2100,4.2200,4.2300,4.2400,4.2500, &
& 4.2600,4.2700,4.2800,4.2900,4.3000,4.3100,4.3200,4.3300, &
& 4.3400,4.3500,4.3600,4.3700,4.3800,4.3900,4.4000,4.4100, &
& 4.4200,4.4300,4.4400,4.4500,4.4600,4.4700,4.4800,4.4900, &
& 4.5000,4.5100,4.5200,4.5300,4.5400,4.5500,4.5600,4.5700, &
& 4.5800,4.5900,4.6000,4.6100,4.6200,4.6300,4.6400,4.6500, &
& 4.6600,4.6700,4.6800,4.6900,4.7000,4.7100,4.7200,4.7300, &
& 4.7400,4.7500,4.7600,4.7700,4.7800,4.7900,4.8000,4.8100, &
& 4.8200,4.8300,4.8400,4.8500,4.8600,4.8700,4.8800,4.8900, &
& 4.9000,4.9100,4.9200,4.9300,4.9400,4.9500,4.9600,4.9700, &
& 4.9800,4.9900,5.0000,5.0100,5.0200,5.0300,5.0400,5.0500, &
& 5.0600,5.0700,5.0800,5.0900,5.1000,5.1100,5.1200,5.1300, &
& 5.1400,5.1500,5.1600,5.1700,5.1800,5.1900,5.2000,5.2100, &
& 5.2200,5.2300,5.2400,5.2500,5.2600,5.2700,5.2800,5.2900, &
& 5.3000,5.3100,5.3200,5.3300,5.3400,5.3500,5.3600,5.3700, &
& 5.3800,5.3900,5.4000,5.4100,5.4200,5.4300,5.4400,5.4500, &
& 5.4600,5.4700,5.4800,5.4900,5.5000,5.5100,5.5200,5.5300, &
& 5.5400,5.5500,5.5600,5.5700,5.5800,5.5900,5.6000,5.6100, &
& 5.6200,5.6300,5.6400,5.6500,5.6600,5.6700,5.6800,5.6900, &
& 5.7000,5.7100,5.7200,5.7300,5.7400,5.7500,5.7600,5.7700, &
& 5.7800,5.7900,5.8000,5.8100,5.8200,5.8300,5.8400,5.8500, &
& 5.8600,5.8700,5.8800,5.8900,5.9000,5.9100,5.9200,5.9300, &
& 5.9400,5.9500,5.9600,5.9700,5.9800,5.9900,6.0000,6.0100, &
& 6.0200,6.0300,6.0400,6.0500,6.0600,6.0700,6.0800,6.0900, &
& 6.1000,6.1100,6.1200,6.1300,6.1400,6.1500,6.1600,6.1700, &
& 6.1800,6.1900,6.2000,6.2100,6.2200,6.2300,6.2400,6.2500, &
& 6.2600,6.2700,6.2800,6.2900,6.3000,6.3100,6.3200,6.3300, &
& 6.3400,6.3500,6.3600,6.3700,6.3800,6.3900,6.4000,6.4100, &
& 6.4200,6.4300,6.4400,6.4500,6.4600,6.4700,6.4800,6.4900, &
& 6.5000,6.5100,6.5200,6.5300,6.5400,6.5500,6.5600,6.5700, &
& 6.5800,6.5900,6.6000,6.6100,6.6200,6.6300,6.6400,6.6500, &
& 6.6600,6.6700,6.6800,6.6900,6.7000,6.7100,6.7200,6.7300, &
& 6.7400,6.7500,6.7600,6.7700,6.7800,6.7900,6.8000,6.8100, &
& 6.8200,6.8300,6.8400,6.8500,6.8600,6.8700,6.8800,6.8900, &
& 6.9000,6.9100,6.9200,6.9300,6.9400,6.9500,6.9600,6.9700, &
& 6.9800,6.9900,7.0000,7.0100,7.0200,7.0300,7.0400,7.0500, &
& 7.0600,7.0700,7.0800,7.0900,7.1000,7.1100,7.1200,7.1300, &
& 7.1400,7.1500,7.1600,7.1700,7.1800,7.1900,7.2000,7.2100, &
& 7.2200,7.2300,7.2400,7.2500,7.2600,7.2700,7.2800,7.2900, &
& 7.3000,7.3100,7.3200,7.3300,7.3400,7.3500,7.3600,7.3700, &
& 7.3800,7.4000,7.4100,7.4200,7.4300,7.4400,7.4500,7.4600, &
& 7.4700,7.4800,7.4900,7.5000,7.5100,7.5200,7.5400,7.5500, &
& 7.5600,7.5700,7.5800,7.5900,7.6000,7.6100,7.6200,7.6300, &
& 7.6500,7.6600,7.6700,7.6800,7.6900,7.7000,7.7100,7.7300, &
& 7.7400,7.7500,7.7600,7.7700,7.7800,7.8000,7.8100,7.8200, &
& 7.8300,7.8400,7.8500,7.8700,7.8800,7.8900,7.9000,7.9100, &
& 7.9300,7.9400,7.9500,7.9600,7.9800,7.9900,8.0000,8.0100, &
& 8.0300,8.0400,8.0500,8.0600,8.0800,8.0900,8.1000,8.1100, &
& 8.1300,8.1400,8.1500,8.1600,8.1800,8.1900,8.2000,8.2200, &
& 8.2300,8.2400,8.2600,8.2700,8.2800,8.2900,8.3100,8.3200, &
& 8.3300,8.3500,8.3600,8.3800,8.3900,8.4000,8.4200,8.4300, &
& 8.4400,8.4600,8.4700,8.4800,8.5000,8.5100,8.5300,8.5400, &
& 8.5500,8.5700,8.5800,8.6000,8.6100,8.6300,8.6400,8.6500, &
& 8.6700,8.6800,8.7000,8.7100,8.7300,8.7400,8.7600,8.7700, &
& 8.7900,8.8000,8.8200,8.8300,8.8500,8.8600,8.8800,8.8900, &
& 8.9100,8.9200,8.9400,8.9500,8.9700,8.9800,9.0000,9.0200, &
& 9.0300,9.0500,9.0600,9.0800,9.1000,9.1100,9.1300,9.1400, &
& 9.1600,9.1800,9.1900,9.2100,9.2200,9.2400,9.2600,9.2700, &
& 9.2900,9.3100,9.3200,9.3400,9.3600,9.3700,9.3900,9.4100, &
& 9.4300,9.4400,9.4600,9.4800,9.4900,9.5100,9.5300,9.5500, &
& 9.5600,9.5800,9.6000,9.6200,9.6400,9.6500,9.6700,9.6900, &
& 9.7100,9.7300,9.7400,9.7600,9.7800,9.8000,9.8200,9.8400, &
& 9.8600,9.8700,9.8900,9.9100,9.9300,9.9500,9.9700,9.9900, &
& 10.0100,10.0300,10.0500,10.0700,10.0900,10.1100,10.1300,10.1500, &
& 10.1700,10.1800,10.2100,10.2300,10.2500,10.2700,10.2900,10.3100, &
& 10.3300,10.3500,10.3700,10.3900,10.4100,10.4300,10.4500,10.4700, &
& 10.4900,10.5200,10.5400,10.5600,10.5800,10.6000,10.6200,10.6500, &
& 10.6700,10.6900,10.7100,10.7300,10.7600,10.7800,10.8000,10.8200, &
& 10.8500,10.8700,10.8900,10.9100,10.9400,10.9600,10.9800,11.0100, &
& 11.0300,11.0500,11.0800,11.1000,11.1200,11.1500,11.1700,11.2000, &
& 11.2200,11.2500,11.2700,11.2900,11.3200,11.3400,11.3700,11.3900, &
& 11.4200,11.4400,11.4700,11.4900,11.5200,11.5500,11.5700,11.6000, &
& 11.6200,11.6500,11.6800,11.7000,11.7300,11.7600,11.7800,11.8100, &
& 11.8400,11.8600,11.8900,11.9200,11.9500,11.9700,12.0000,12.0300, &
& 12.0600,12.0800,12.1100,12.1400,12.1700,12.2000,12.2300,12.2600, &
& 12.2800,12.3100,12.3400,12.3700,12.4000,12.4300,12.4600,12.4900, &
& 12.5200,12.5500,12.5800,12.6100,12.6400,12.6800,12.7100,12.7400, &
& 12.7700,12.8000,12.8300,12.8600,12.9000,12.9300,12.9600,12.9900, &
& 13.0300,13.0600,13.0900,13.1200,13.1600,13.1900,13.2200,13.2600, &
& 13.2900,13.3300,13.3600,13.4000,13.4300,13.4700,13.5000,13.5400, &
& 13.5700,13.6100,13.6400,13.6800,13.7100,13.7500,13.7900,13.8200, &
& 13.86,13.9,13.94,13.97,14.01 /)
real :: frost(965) = (/99.038,99.048,99.192,99.208,99.25,99.252,99.244,99.35, &
& 99.2840,99.4180,99.3640,99.4920,99.4820,99.5160,99.4840,99.4460, &
& 99.4480,99.4460,99.3940,99.4560,99.3280,99.3800,99.3280,99.2860, &
& 99.3100,99.2800,99.1980,99.1100,98.9640,98.9180,98.8400,98.7560, &
& 98.6280,98.5680,98.5040,98.4200,98.1760,98.0980,98.0380,97.9380, &
& 97.8360,97.6660,97.4320,97.1960,96.9900,96.7760,96.6170,96.5300, &
& 96.4500,95.8500,94.8800,94.4300,94.3500,93.8900,92.7700,91.8000, &
& 89.9100,88.7500,88.1200,89.6800,89.6800,89.7700,89.9700,89.1300, &
& 87.6100,85.0000,82.3500,74.5200,77.1700,76.8600,77.2700,74.8700, &
& 77.4700,76.8800,76.4300,75.8600,74.5900,61.7500,37.8400,29.8200, &
& 24.6900,21.5400,22.6300,22.5200,26.4100,30.2400,31.3000,29.8100, &
& 38.3700,39.9100,44.5500,45.4400,48.1000,47.6000,50.6900,48.8400, &
& 54.3200,54.1100,58.2900,54.3900,42.8400,30.6200,21.8000,17.0900, &
& 13.1000,11.5700,10.7700,11.4300,13.1000,13.9300,16.1600,19.2700, &
& 23.3200,30.1500,33.6400,36.3600,42.9300,45.2900,44.8100,44.6270, &
& 44.3670,43.9150,43.1890,42.4020,41.5460,40.5780,39.5140,38.5920, &
& 37.5950,36.7300,36.0610,35.4250,34.8330,34.3620,33.9210,33.4940, &
& 33.0580,32.5890,32.2120,31.7630,31.2970,30.7930,30.3990,29.9280, &
& 29.4600,29.0930,28.7330,28.3170,28.0200,27.8230,27.2890,26.9050, &
& 26.5540,25.5460,25.2000,24.9680,24.2820,23.6230,23.6260,22.2990, &
& 20.3970,17.7890,17.0400,15.3660,13.2290,11.0160,8.6760,6.9260, &
& 5.0290,3.6090,2.3960,1.6780,1.1630,0.8170,0.6280,0.5170, &
& 0.4450,0.3990,0.4280,0.3970,0.3170,0.3320,0.3370,0.4230, &
& 0.4670,0.4730,0.5180,0.5350,0.5950,0.6970,0.6530,0.7080, &
& 0.6880,0.7380,0.8300,0.9270,0.9670,1.0520,1.2250,1.2870, &
& 1.3040,1.4070,1.4520,1.3820,1.3320,1.2720,1.2650,1.1980, &
& 1.2280,1.2300,1.1730,1.1640,1.1680,1.1420,1.1120,1.1040, &
& 1.0980,1.0460,1.0140,1.0180,1.0420,1.0280,1.0100,1.0400, &
& 1.0940,1.1160,1.1030,1.1640,1.2700,1.3470,1.4240,1.5080, &
& 1.6080,1.7360,1.9200,2.0830,2.2860,2.5200,2.7940,3.0780, &
& 3.3620,3.7360,4.1500,4.5150,4.8880,5.3260,5.7980,6.2700, &
& 6.7550,7.2150,7.6830,8.1750,8.6350,9.0680,9.5020,9.9300, &
& 10.3380,10.6880,10.9950,11.2900,11.5300,11.7170,11.8600,11.9430, &
& 11.9820,12.0000,11.9600,11.8520,11.7270,11.5650,11.3500,11.1670, &
& 10.9530,10.6770,10.3950,10.1270,9.8870,9.6270,9.3700,9.1070, &
& 8.8370,8.5780,8.3500,8.1330,7.9030,7.7100,7.5150,7.3200, &
& 7.1400,6.9350,6.7470,6.5700,6.3780,6.2070,6.0730,5.9330, &
& 5.7800,5.6400,5.5200,5.4000,5.2700,5.1470,5.0200,4.8800, &
& 4.7600,4.6830,4.6200,4.5700,4.5070,4.4270,4.3470,4.2570, &
& 4.1500,4.0500,3.9670,3.8700,3.7850,3.7170,3.6400,3.5600, &
& 3.4600,3.3400,3.2470,3.1800,3.1000,2.9800,2.8600,2.7700, &
& 2.7200,2.6670,2.5830,2.4900,2.4300,2.3800,2.3300,2.2800, &
& 2.2200,2.1700,2.1550,2.1470,2.1250,2.1000,2.0800,2.0900, &
& 2.1100,2.1350,2.1600,2.1950,2.2370,2.2750,2.3200,2.3850, &
& 2.4630,2.5500,2.6400,2.7500,2.8700,2.9850,3.0750,3.1870, &
& 3.3050,3.4370,3.5800,3.7000,3.8400,3.9900,4.1100,4.2570, &
& 4.4000,4.5250,4.6800,4.8200,4.9250,5.0250,5.1530,5.2900, &
& 5.4050,5.5150,5.6150,5.7370,5.8500,5.9450,6.0350,6.1350, &
& 6.2400,6.3300,6.4000,6.4700,6.5400,6.6000,6.6550,6.7100, &
& 6.7770,6.8400,6.8750,6.8950,6.9150,6.9350,6.9550,6.9850, &
& 6.9900,6.9850,6.9600,6.9350,6.9150,6.8950,6.8600,6.8050, &
& 6.7450,6.6950,6.6450,6.5950,6.5300,6.4500,6.3700,6.3100, &
& 6.2600,6.1900,6.1200,6.0350,5.9450,5.8400,5.7300,5.6500, &
& 5.5800,5.4950,5.4050,5.2950,5.1550,5.0500,4.9650,4.8800, &
& 4.8100,4.7250,4.6500,4.5550,4.4400,4.3350,4.2600,4.1850, &
& 4.0750,3.9650,3.9000,3.8400,3.7500,3.6800,3.6000,3.4900, &
& 3.3750,3.2800,3.1900,3.0800,3.0100,2.9650,2.9000,2.8300, &
& 2.7400,2.6050,2.5000,2.4250,2.3600,2.3100,2.2400,2.1800, &
& 2.1200,2.0500,1.9900,1.9050,1.8400,1.7650,1.7000,1.6550, &
& 1.6200,1.5850,1.5500,1.5000,1.4400,1.4000,1.3750,1.3400, &
& 1.2900,1.2300,1.1750,1.1300,1.1050,1.0900,1.0700,1.0500, &
& 1.0400,1.0250,1.0100,1.0050,1.0000,1.0000,1.0000,0.9950, &
& 0.9700,0.9500,0.9100,0.8800,0.8600,0.8600,0.8750,0.9000, &
& 0.9100,0.9350,0.9600,0.9700,0.9800,0.9800,0.9800,0.9700, &
& 0.9600,0.9600,0.9600,0.9600,0.9750,0.9900,1.0000,1.0250, &
& 1.0400,1.0500,1.0650,1.0700,1.0700,1.0650,1.0500,1.0500, &
& 1.0500,1.0500,1.0600,1.0600,1.0550,1.0400,1.0300,1.0100, &
& 1.0100,1.0200,1.0300,1.0500,1.0650,1.0800,1.0800,1.0900, &
& 1.1150,1.1500,1.1700,1.1900,1.2000,1.2100,1.2100,1.2000, &
& 1.1900,1.1800,1.1650,1.1500,1.1500,1.1500,1.1600,1.1800, &
& 1.2200,1.2400,1.2700,1.2900,1.3000,1.3200,1.3350,1.3500, &
& 1.3600,1.3600,1.3600,1.3500,1.3500,1.3400,1.3400,1.3400, &
& 1.3500,1.3500,1.3500,1.3600,1.3600,1.3600,1.3800,1.4100, &
& 1.4300,1.4500,1.4700,1.4800,1.4900,1.4900,1.4900,1.4900, &
& 1.4800,1.4800,1.4800,1.4700,1.4700,1.4700,1.4800,1.4900, &
& 1.5100,1.5300,1.5500,1.5700,1.5800,1.5800,1.5800,1.5800, &
& 1.5700,1.5700,1.5700,1.5800,1.5900,1.6100,1.6300,1.6600, &
& 1.6800,1.7000,1.7200,1.7300,1.7300,1.7300,1.7400,1.7400, &
& 1.7400,1.7500,1.7600,1.7800,1.8000,1.8200,1.8500,1.8700, &
& 1.8900,1.9100,1.9200,1.9300,1.9300,1.9400,1.9500,1.9600, &
& 1.9700,1.9900,2.0000,2.0100,2.0200,2.0300,2.0400,2.0500, &
& 2.0600,2.0800,2.1000,2.1300,2.1500,2.1700,2.1900,2.1900, &
& 2.2000,2.2000,2.2000,2.2000,2.2000,2.2100,2.2200,2.2300, &
& 2.2500,2.2600,2.2800,2.3000,2.3100,2.3300,2.3400,2.3600, &
& 2.3700,2.3800,2.3900,2.3900,2.4000,2.4000,2.4100,2.4200, &
& 2.4300,2.4500,2.4600,2.4700,2.4800,2.4800,2.4900,2.4900, &
& 2.4900,2.5000,2.5000,2.5100,2.5200,2.5200,2.5300,2.5400, &
& 2.5500,2.5500,2.5600,2.5700,2.5700,2.5700,2.5700,2.5700, &
& 2.5700,2.5700,2.5700,2.5700,2.5800,2.5800,2.5800,2.5800, &
& 2.5800,2.5700,2.5700,2.5600,2.5600,2.5500,2.5600,2.5600, &
& 2.5600,2.5600,2.5600,2.5600,2.5600,2.5500,2.5500,2.5500, &
& 2.5500,2.5400,2.5400,2.5300,2.5200,2.5000,2.4800,2.4700, &
& 2.4500,2.4400,2.4400,2.4400,2.4400,2.4400,2.4500,2.4500, &
& 2.4500,2.4500,2.4400,2.4300,2.4100,2.3900,2.3800,2.3600, &
& 2.3500,2.3400,2.3300,2.3200,2.3200,2.3200,2.3100,2.3100, &
& 2.3100,2.3100,2.3000,2.3000,2.2900,2.2900,2.2900,2.2900, &
& 2.2900,2.3000,2.3000,2.3100,2.3300,2.3400,2.3600,2.3800, &
& 2.3900,2.4000,2.4100,2.4100,2.4200,2.4200,2.4200,2.4300, &
& 2.4500,2.4800,2.5100,2.5500,2.5900,2.6300,2.6700,2.7100, &
& 2.7400,2.7700,2.7900,2.8000,2.7900,2.7800,2.7600,2.7300, &
& 2.7000,2.6700,2.6500,2.6200,2.5800,2.5400,2.5000,2.4400, &
& 2.3900,2.3300,2.2800,2.2300,2.1700,2.1200,2.0600,2.0000, &
& 1.9300,1.8600,1.7900,1.7100,1.6500,1.5800,1.5200,1.4700, &
& 1.4100,1.3600,1.3100,1.2600,1.2100,1.1500,1.1000,1.0400, &
& 0.9900,0.9300,0.8800,0.8300,0.7800,0.7400,0.7100,0.6900, &
& 0.6700,0.6600,0.6500,0.6400,0.6400,0.6300,0.6200,0.6100, &
& 0.6000,0.5800,0.5700,0.5600,0.5600,0.5600,0.5600,0.5700, &
& 0.5800,0.5900,0.6000,0.6100,0.6200,0.6300,0.6400,0.6500, &
& 0.6700,0.6800,0.6900,0.7000,0.7100,0.7200,0.7200,0.7200, &
& 0.7200,0.7100,0.7100,0.7100,0.7100,0.7100,0.7200,0.7300, &
& 0.7400,0.7500,0.7700,0.7700,0.7800,0.7800,0.7900,0.8000, &
& 0.8100,0.8200,0.8300,0.8500,0.8600,0.8700,0.8800,0.8800, &
& 0.8800,0.8800,0.8700,0.8700,0.8800,0.8800,0.8900,0.9000, &
& 0.9000,0.9100,0.9200,0.9200,0.9300,0.9400,0.9500,0.9600, &
& 0.9700,0.9800,0.9900,1.0000,1.0000,1.0000,0.9900,0.9900, &
& 0.9900,0.9900,1.0000,1.0100,1.0200,1.0300,1.0400,1.0500, &
& 1.0500,1.0500,1.0500,1.0600,1.0700,1.0900,1.1100,1.1200, &
& 1.1400,1.1400,1.1400,1.1300,1.1100,1.1000,1.0800,1.0800, &
& 1.0800,1.0900,1.1000,1.1200,1.1300,1.1400,1.1500,1.1600, &
& 1.1700,1.1700,1.1800,1.1800,1.1800,1.1800,1.1800,1.1900, &
& 1.2,1.22,1.24,1.25,1.26 /)
plasim/src/specs/water.frost.none.fine.all.frost_snw_.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: frost(965) = (/99.038,99.048,99.192,99.208,99.25,99.252,99.244,99.35, &
& 99.2840,99.4180,99.3640,99.4920,99.4820,99.5160,99.4840,99.4460, &
& 99.4480,99.4460,99.3940,99.4560,99.3280,99.3800,99.3280,99.2860, &
& 99.3100,99.2800,99.1980,99.1100,98.9640,98.9180,98.8400,98.7560, &
& 98.6280,98.5680,98.5040,98.4200,98.1760,98.0980,98.0380,97.9380, &
& 97.8360,97.6660,97.4320,97.1960,96.9900,96.7760,96.6170,96.5300, &
& 96.4500,95.8500,94.8800,94.4300,94.3500,93.8900,92.7700,91.8000, &
& 89.9100,88.7500,88.1200,89.6800,89.6800,89.7700,89.9700,89.1300, &
& 87.6100,85.0000,82.3500,74.5200,77.1700,76.8600,77.2700,74.8700, &
& 77.4700,76.8800,76.4300,75.8600,74.5900,61.7500,37.8400,29.8200, &
& 24.6900,21.5400,22.6300,22.5200,26.4100,30.2400,31.3000,29.8100, &
& 38.3700,39.9100,44.5500,45.4400,48.1000,47.6000,50.6900,48.8400, &
& 54.3200,54.1100,58.2900,54.3900,42.8400,30.6200,21.8000,17.0900, &
& 13.1000,11.5700,10.7700,11.4300,13.1000,13.9300,16.1600,19.2700, &
& 23.3200,30.1500,33.6400,36.3600,42.9300,45.2900,44.8100,44.6270, &
& 44.3670,43.9150,43.1890,42.4020,41.5460,40.5780,39.5140,38.5920, &
& 37.5950,36.7300,36.0610,35.4250,34.8330,34.3620,33.9210,33.4940, &
& 33.0580,32.5890,32.2120,31.7630,31.2970,30.7930,30.3990,29.9280, &
& 29.4600,29.0930,28.7330,28.3170,28.0200,27.8230,27.2890,26.9050, &
& 26.5540,25.5460,25.2000,24.9680,24.2820,23.6230,23.6260,22.2990, &
& 20.3970,17.7890,17.0400,15.3660,13.2290,11.0160,8.6760,6.9260, &
& 5.0290,3.6090,2.3960,1.6780,1.1630,0.8170,0.6280,0.5170, &
& 0.4450,0.3990,0.4280,0.3970,0.3170,0.3320,0.3370,0.4230, &
& 0.4670,0.4730,0.5180,0.5350,0.5950,0.6970,0.6530,0.7080, &
& 0.6880,0.7380,0.8300,0.9270,0.9670,1.0520,1.2250,1.2870, &
& 1.3040,1.4070,1.4520,1.3820,1.3320,1.2720,1.2650,1.1980, &
& 1.2280,1.2300,1.1730,1.1640,1.1680,1.1420,1.1120,1.1040, &
& 1.0980,1.0460,1.0140,1.0180,1.0420,1.0280,1.0100,1.0400, &
& 1.0940,1.1160,1.1030,1.1640,1.2700,1.3470,1.4240,1.5080, &
& 1.6080,1.7360,1.9200,2.0830,2.2860,2.5200,2.7940,3.0780, &
& 3.3620,3.7360,4.1500,4.5150,4.8880,5.3260,5.7980,6.2700, &
& 6.7550,7.2150,7.6830,8.1750,8.6350,9.0680,9.5020,9.9300, &
& 10.3380,10.6880,10.9950,11.2900,11.5300,11.7170,11.8600,11.9430, &
& 11.9820,12.0000,11.9600,11.8520,11.7270,11.5650,11.3500,11.1670, &
& 10.9530,10.6770,10.3950,10.1270,9.8870,9.6270,9.3700,9.1070, &
& 8.8370,8.5780,8.3500,8.1330,7.9030,7.7100,7.5150,7.3200, &
& 7.1400,6.9350,6.7470,6.5700,6.3780,6.2070,6.0730,5.9330, &
& 5.7800,5.6400,5.5200,5.4000,5.2700,5.1470,5.0200,4.8800, &
& 4.7600,4.6830,4.6200,4.5700,4.5070,4.4270,4.3470,4.2570, &
& 4.1500,4.0500,3.9670,3.8700,3.7850,3.7170,3.6400,3.5600, &
& 3.4600,3.3400,3.2470,3.1800,3.1000,2.9800,2.8600,2.7700, &
& 2.7200,2.6670,2.5830,2.4900,2.4300,2.3800,2.3300,2.2800, &
& 2.2200,2.1700,2.1550,2.1470,2.1250,2.1000,2.0800,2.0900, &
& 2.1100,2.1350,2.1600,2.1950,2.2370,2.2750,2.3200,2.3850, &
& 2.4630,2.5500,2.6400,2.7500,2.8700,2.9850,3.0750,3.1870, &
& 3.3050,3.4370,3.5800,3.7000,3.8400,3.9900,4.1100,4.2570, &
& 4.4000,4.5250,4.6800,4.8200,4.9250,5.0250,5.1530,5.2900, &
& 5.4050,5.5150,5.6150,5.7370,5.8500,5.9450,6.0350,6.1350, &
& 6.2400,6.3300,6.4000,6.4700,6.5400,6.6000,6.6550,6.7100, &
& 6.7770,6.8400,6.8750,6.8950,6.9150,6.9350,6.9550,6.9850, &
& 6.9900,6.9850,6.9600,6.9350,6.9150,6.8950,6.8600,6.8050, &
& 6.7450,6.6950,6.6450,6.5950,6.5300,6.4500,6.3700,6.3100, &
& 6.2600,6.1900,6.1200,6.0350,5.9450,5.8400,5.7300,5.6500, &
& 5.5800,5.4950,5.4050,5.2950,5.1550,5.0500,4.9650,4.8800, &
& 4.8100,4.7250,4.6500,4.5550,4.4400,4.3350,4.2600,4.1850, &
& 4.0750,3.9650,3.9000,3.8400,3.7500,3.6800,3.6000,3.4900, &
& 3.3750,3.2800,3.1900,3.0800,3.0100,2.9650,2.9000,2.8300, &
& 2.7400,2.6050,2.5000,2.4250,2.3600,2.3100,2.2400,2.1800, &
& 2.1200,2.0500,1.9900,1.9050,1.8400,1.7650,1.7000,1.6550, &
& 1.6200,1.5850,1.5500,1.5000,1.4400,1.4000,1.3750,1.3400, &
& 1.2900,1.2300,1.1750,1.1300,1.1050,1.0900,1.0700,1.0500, &
& 1.0400,1.0250,1.0100,1.0050,1.0000,1.0000,1.0000,0.9950, &
& 0.9700,0.9500,0.9100,0.8800,0.8600,0.8600,0.8750,0.9000, &
& 0.9100,0.9350,0.9600,0.9700,0.9800,0.9800,0.9800,0.9700, &
& 0.9600,0.9600,0.9600,0.9600,0.9750,0.9900,1.0000,1.0250, &
& 1.0400,1.0500,1.0650,1.0700,1.0700,1.0650,1.0500,1.0500, &
& 1.0500,1.0500,1.0600,1.0600,1.0550,1.0400,1.0300,1.0100, &
& 1.0100,1.0200,1.0300,1.0500,1.0650,1.0800,1.0800,1.0900, &
& 1.1150,1.1500,1.1700,1.1900,1.2000,1.2100,1.2100,1.2000, &
& 1.1900,1.1800,1.1650,1.1500,1.1500,1.1500,1.1600,1.1800, &
& 1.2200,1.2400,1.2700,1.2900,1.3000,1.3200,1.3350,1.3500, &
& 1.3600,1.3600,1.3600,1.3500,1.3500,1.3400,1.3400,1.3400, &
& 1.3500,1.3500,1.3500,1.3600,1.3600,1.3600,1.3800,1.4100, &
& 1.4300,1.4500,1.4700,1.4800,1.4900,1.4900,1.4900,1.4900, &
& 1.4800,1.4800,1.4800,1.4700,1.4700,1.4700,1.4800,1.4900, &
& 1.5100,1.5300,1.5500,1.5700,1.5800,1.5800,1.5800,1.5800, &
& 1.5700,1.5700,1.5700,1.5800,1.5900,1.6100,1.6300,1.6600, &
& 1.6800,1.7000,1.7200,1.7300,1.7300,1.7300,1.7400,1.7400, &
& 1.7400,1.7500,1.7600,1.7800,1.8000,1.8200,1.8500,1.8700, &
& 1.8900,1.9100,1.9200,1.9300,1.9300,1.9400,1.9500,1.9600, &
& 1.9700,1.9900,2.0000,2.0100,2.0200,2.0300,2.0400,2.0500, &
& 2.0600,2.0800,2.1000,2.1300,2.1500,2.1700,2.1900,2.1900, &
& 2.2000,2.2000,2.2000,2.2000,2.2000,2.2100,2.2200,2.2300, &
& 2.2500,2.2600,2.2800,2.3000,2.3100,2.3300,2.3400,2.3600, &
& 2.3700,2.3800,2.3900,2.3900,2.4000,2.4000,2.4100,2.4200, &
& 2.4300,2.4500,2.4600,2.4700,2.4800,2.4800,2.4900,2.4900, &
& 2.4900,2.5000,2.5000,2.5100,2.5200,2.5200,2.5300,2.5400, &
& 2.5500,2.5500,2.5600,2.5700,2.5700,2.5700,2.5700,2.5700, &
& 2.5700,2.5700,2.5700,2.5700,2.5800,2.5800,2.5800,2.5800, &
& 2.5800,2.5700,2.5700,2.5600,2.5600,2.5500,2.5600,2.5600, &
& 2.5600,2.5600,2.5600,2.5600,2.5600,2.5500,2.5500,2.5500, &
& 2.5500,2.5400,2.5400,2.5300,2.5200,2.5000,2.4800,2.4700, &
& 2.4500,2.4400,2.4400,2.4400,2.4400,2.4400,2.4500,2.4500, &
& 2.4500,2.4500,2.4400,2.4300,2.4100,2.3900,2.3800,2.3600, &
& 2.3500,2.3400,2.3300,2.3200,2.3200,2.3200,2.3100,2.3100, &
& 2.3100,2.3100,2.3000,2.3000,2.2900,2.2900,2.2900,2.2900, &
& 2.2900,2.3000,2.3000,2.3100,2.3300,2.3400,2.3600,2.3800, &
& 2.3900,2.4000,2.4100,2.4100,2.4200,2.4200,2.4200,2.4300, &
& 2.4500,2.4800,2.5100,2.5500,2.5900,2.6300,2.6700,2.7100, &
& 2.7400,2.7700,2.7900,2.8000,2.7900,2.7800,2.7600,2.7300, &
& 2.7000,2.6700,2.6500,2.6200,2.5800,2.5400,2.5000,2.4400, &
& 2.3900,2.3300,2.2800,2.2300,2.1700,2.1200,2.0600,2.0000, &
& 1.9300,1.8600,1.7900,1.7100,1.6500,1.5800,1.5200,1.4700, &
& 1.4100,1.3600,1.3100,1.2600,1.2100,1.1500,1.1000,1.0400, &
& 0.9900,0.9300,0.8800,0.8300,0.7800,0.7400,0.7100,0.6900, &
& 0.6700,0.6600,0.6500,0.6400,0.6400,0.6300,0.6200,0.6100, &
& 0.6000,0.5800,0.5700,0.5600,0.5600,0.5600,0.5600,0.5700, &
& 0.5800,0.5900,0.6000,0.6100,0.6200,0.6300,0.6400,0.6500, &
& 0.6700,0.6800,0.6900,0.7000,0.7100,0.7200,0.7200,0.7200, &
& 0.7200,0.7100,0.7100,0.7100,0.7100,0.7100,0.7200,0.7300, &
& 0.7400,0.7500,0.7700,0.7700,0.7800,0.7800,0.7900,0.8000, &
& 0.8100,0.8200,0.8300,0.8500,0.8600,0.8700,0.8800,0.8800, &
& 0.8800,0.8800,0.8700,0.8700,0.8800,0.8800,0.8900,0.9000, &
& 0.9000,0.9100,0.9200,0.9200,0.9300,0.9400,0.9500,0.9600, &
& 0.9700,0.9800,0.9900,1.0000,1.0000,1.0000,0.9900,0.9900, &
& 0.9900,0.9900,1.0000,1.0100,1.0200,1.0300,1.0400,1.0500, &
& 1.0500,1.0500,1.0500,1.0600,1.0700,1.0900,1.1100,1.1200, &
& 1.1400,1.1400,1.1400,1.1300,1.1100,1.1000,1.0800,1.0800, &
& 1.0800,1.0900,1.1000,1.1200,1.1300,1.1400,1.1500,1.1600, &
& 1.1700,1.1700,1.1800,1.1800,1.1800,1.1800,1.1800,1.1900, &
& 1.2000,1.2200,1.2400,1.2500,1.2600 /)
plasim/src/specs/water.ice.none.solid.all.ice_dat_.jhu.becknic.spectrum.txt
+582
View File
@@ -0,0 +1,582 @@
Name: Ice
Type: Water
Class: Ice
Subclass: none
Particle Size: solid
Sample No.: ICE_DAT_
Owner: Dept. of Earth and Planetary Science, John Hopkins University
Wavelength Range: All
Origin: Collected at John Hopkins University IR Spectroscopy Lab.
Collection Date: N/A
Description: Ice. The spectrum from 0.3 to 2.08 micrometers was modeled, while that from 2.08 to 14 micrometers was measured (see Introductory text for details). Original filename ICE.DAT. Original ASTER Spectral Library name was jhu.becknic.water.ice.none.solid.ice.spectrum.txt
Measurement: Directional (10 Degree) Hemispherical Reflectance
First Column: X
Second Column: Y
X Units: Wavelength (micrometers)
Y Units:Reflectance (percent)
First X Value: 0.3000
Last X Value: 15.0000
Number of X Values: 561
Additional Information: none
0.3000 2.0500
0.3020 2.0400
0.3040 2.0400
0.3060 2.0400
0.3080 2.0300
0.3100 2.0300
0.3120 2.0200
0.3140 2.0200
0.3160 2.0200
0.3180 2.0100
0.3200 2.0100
0.3220 2.0000
0.3240 2.0000
0.3260 2.0000
0.3280 1.9900
0.3300 1.9900
0.3320 1.9900
0.3340 1.9800
0.3360 1.9800
0.3380 1.9700
0.3400 1.9700
0.3420 1.9700
0.3440 1.9600
0.3460 1.9600
0.3480 1.9600
0.3500 1.9500
0.3520 1.9500
0.3540 1.9500
0.3560 1.9500
0.3580 1.9400
0.3600 1.9400
0.3620 1.9400
0.3640 1.9400
0.3660 1.9300
0.3680 1.9300
0.3700 1.9300
0.3720 1.9300
0.3740 1.9200
0.3760 1.9200
0.3780 1.9200
0.3800 1.9200
0.3820 1.9200
0.3840 1.9100
0.3860 1.9100
0.3880 1.9100
0.3900 1.9100
0.3920 1.9000
0.3940 1.9000
0.3960 1.9000
0.3980 1.9000
0.4000 1.9000
0.4020 1.8900
0.4040 1.8900
0.4060 1.8900
0.4080 1.8900
0.4100 1.8900
0.4120 1.8900
0.4140 1.8800
0.4160 1.8800
0.4180 1.8800
0.4200 1.8800
0.4220 1.8800
0.4240 1.8800
0.4260 1.8700
0.4280 1.8700
0.4300 1.8700
0.4320 1.8700
0.4340 1.8700
0.4360 1.8700
0.4380 1.8700
0.4400 1.8700
0.4420 1.8600
0.4440 1.8600
0.4460 1.8600
0.4480 1.8600
0.4500 1.8600
0.4520 1.8600
0.4540 1.8600
0.4560 1.8500
0.4580 1.8500
0.4600 1.8500
0.4620 1.8500
0.4640 1.8500
0.4660 1.8500
0.4680 1.8500
0.4700 1.8500
0.4720 1.8500
0.4740 1.8400
0.4760 1.8400
0.4780 1.8400
0.4800 1.8400
0.4820 1.8400
0.4840 1.8400
0.4860 1.8400
0.4880 1.8400
0.4900 1.8400
0.4920 1.8400
0.4940 1.8300
0.4960 1.8300
0.4980 1.8300
0.5000 1.8300
0.5020 1.8300
0.5040 1.8300
0.5060 1.8300
0.5080 1.8300
0.5100 1.8300
0.5120 1.8300
0.5140 1.8300
0.5160 1.8200
0.5180 1.8200
0.5200 1.8200
0.5220 1.8200
0.5240 1.8200
0.5260 1.8200
0.5280 1.8200
0.5300 1.8200
0.5320 1.8200
0.5340 1.8200
0.5360 1.8200
0.5380 1.8200
0.5400 1.8100
0.5420 1.8100
0.5440 1.8100
0.5460 1.8100
0.5480 1.8100
0.5500 1.8100
0.5520 1.8100
0.5540 1.8100
0.5560 1.8100
0.5580 1.8100
0.5600 1.8100
0.5620 1.8100
0.5640 1.8100
0.5660 1.8100
0.5680 1.8000
0.5700 1.8000
0.5720 1.8000
0.5740 1.8000
0.5760 1.8000
0.5780 1.8000
0.5800 1.8000
0.5820 1.8000
0.5840 1.8000
0.5860 1.8000
0.5880 1.8000
0.5900 1.8000
0.5920 1.8000
0.5940 1.8000
0.5960 1.8000
0.5980 1.8000
0.6000 1.7900
0.6020 1.7900
0.6040 1.7900
0.6060 1.7900
0.6080 1.7900
0.6100 1.7900
0.6120 1.7900
0.6140 1.7900
0.6160 1.7900
0.6180 1.7900
0.6200 1.7900
0.6220 1.7900
0.6240 1.7900
0.6260 1.7900
0.6280 1.7900
0.6300 1.7900
0.6320 1.7900
0.6340 1.7900
0.6360 1.7800
0.6380 1.7800
0.6400 1.7800
0.6420 1.7800
0.6440 1.7800
0.6460 1.7800
0.6480 1.7800
0.6500 1.7800
0.6520 1.7800
0.6540 1.7800
0.6560 1.7800
0.6580 1.7800
0.6600 1.7800
0.6620 1.7800
0.6640 1.7800
0.6660 1.7800
0.6680 1.7800
0.6700 1.7800
0.6720 1.7800
0.6740 1.7800
0.6760 1.7800
0.6780 1.7700
0.6800 1.7700
0.6820 1.7700
0.6840 1.7700
0.6860 1.7700
0.6880 1.7700
0.6900 1.7700
0.6920 1.7700
0.6940 1.7700
0.6960 1.7700
0.6980 1.7700
0.7000 1.7700
0.7020 1.7700
0.7040 1.7700
0.7060 1.7700
0.7080 1.7700
0.7100 1.7700
0.7120 1.7700
0.7140 1.7700
0.7160 1.7700
0.7180 1.7700
0.7200 1.7700
0.7220 1.7700
0.7240 1.7600
0.7260 1.7600
0.7280 1.7600
0.7300 1.7600
0.7320 1.7600
0.7340 1.7600
0.7360 1.7600
0.7380 1.7600
0.7400 1.7600
0.7420 1.7600
0.7440 1.7600
0.7460 1.7600
0.7480 1.7600
0.7500 1.7600
0.7520 1.7600
0.7540 1.7600
0.7560 1.7600
0.7580 1.7600
0.7600 1.7600
0.7620 1.7600
0.7640 1.7600
0.7660 1.7600
0.7680 1.7600
0.7700 1.7600
0.7720 1.7600
0.7740 1.7500
0.7760 1.7500
0.7780 1.7500
0.7800 1.7500
0.7820 1.7500
0.7840 1.7500
0.7860 1.7500
0.7880 1.7500
0.7900 1.7500
0.7920 1.7500
0.7940 1.7500
0.7960 1.7500
0.7980 1.7500
0.8000 1.7500
0.8200 1.7500
0.8400 1.7400
0.8600 1.7400
0.8800 1.7400
0.9000 1.7300
0.9200 1.7300
0.9400 1.7300
0.9600 1.7200
0.9800 1.7200
1.0000 1.7200
1.0200 1.7100
1.0400 1.7100
1.0600 1.7100
1.0800 1.7000
1.1000 1.7000
1.1200 1.7000
1.1400 1.6900
1.1600 1.6900
1.1800 1.6900
1.2000 1.6800
1.2200 1.6800
1.2400 1.6700
1.2600 1.6700
1.2800 1.6700
1.3000 1.6600
1.3200 1.6600
1.3400 1.6500
1.3600 1.6500
1.3800 1.6500
1.4000 1.6400
1.4200 1.6400
1.4400 1.6300
1.4600 1.6300
1.4800 1.6200
1.5000 1.6200
1.5200 1.6200
1.5400 1.6100
1.5600 1.6100
1.5800 1.6000
1.6000 1.6000
1.6200 1.5900
1.6400 1.5900
1.6600 1.5800
1.6800 1.5700
1.7000 1.5700
1.7200 1.5600
1.7400 1.5500
1.7600 1.5500
1.7800 1.5400
1.8000 1.5300
1.8200 1.5300
1.8400 1.5200
1.8600 1.5100
1.8800 1.5000
1.9000 1.4900
1.9200 1.4800
1.9400 1.4700
1.9600 1.4600
1.9800 1.4600
2.0000 1.4500
2.0200 1.4500
2.0400 1.4400
2.0600 1.4300
2.0800 1.4200
2.1000 1.4100
2.1200 1.4000
2.1400 1.3800
2.1600 1.3700
2.1800 1.3600
2.2000 1.3400
2.2200 1.3300
2.2400 1.3100
2.2600 1.2900
2.2800 1.2800
2.3000 1.2600
2.3200 1.2400
2.3400 1.2200
2.3600 1.2000
2.3800 1.1800
2.4000 1.1600
2.4200 1.1400
2.4400 1.1100
2.4600 1.0900
2.4800 1.0600
2.5000 1.0300
2.5200 1.0000
2.5400 0.9600
2.5600 0.9300
2.5800 0.8900
2.6000 0.8400
2.6200 0.7900
2.6400 0.7400
2.6600 0.6800
2.6800 0.6200
2.7000 0.5500
2.7200 0.4900
2.7400 0.4100
2.7600 0.3300
2.7800 0.2600
2.8000 0.1800
2.8200 0.1300
2.8400 0.1200
2.8600 0.1800
2.8800 0.3800
2.9000 0.7900
2.9200 1.4500
2.9400 2.1100
2.9600 2.6800
2.9800 3.3700
3.0000 4.2800
3.0200 5.4000
3.0400 6.6900
3.0600 8.0100
3.0800 8.5300
3.1000 8.4500
3.1200 8.1700
3.1400 8.0200
3.1600 7.8400
3.1800 7.5200
3.2000 7.0600
3.2200 6.5500
3.2400 6.1300
3.2600 5.7800
3.2800 5.4100
3.3000 5.1200
3.3200 4.8800
3.3400 4.6600
3.3600 4.4500
3.3800 4.2600
3.4000 4.0900
3.4200 3.9300
3.4400 3.7900
3.4600 3.6500
3.4800 3.5400
3.5000 3.4400
3.5200 3.3400
3.5400 3.2600
3.5600 3.1700
3.5800 3.1100
3.6000 3.0400
3.6200 2.9700
3.6400 2.9200
3.6600 2.8800
3.6800 2.8300
3.7000 2.7800
3.7200 2.7400
3.7400 2.7000
3.7600 2.6600
3.7800 2.6200
3.8000 2.5900
3.8200 2.5600
3.8400 2.5300
3.8600 2.5000
3.8800 2.4800
3.9000 2.4600
3.9200 2.4300
3.9400 2.4100
3.9600 2.3900
3.9800 2.3700
4.0000 2.3500
4.0200 2.3300
4.0400 2.3200
4.0600 2.3000
4.0800 2.2800
4.1000 2.2600
4.1200 2.2500
4.1400 2.2300
4.1600 2.2200
4.1800 2.2100
4.2000 2.1900
4.2200 2.1800
4.2400 2.1600
4.2600 2.1500
4.2800 2.1400
4.3000 2.1300
4.3200 2.1200
4.3400 2.1100
4.3600 2.1000
4.3800 2.1000
4.4000 2.1000
4.4200 2.1000
4.4400 2.1100
4.4600 2.1100
4.4800 2.1200
4.5000 2.1300
4.5200 2.1400
4.5400 2.1500
4.5600 2.1700
4.5800 2.1900
4.6000 2.1900
4.6200 2.1800
4.6400 2.1800
4.6600 2.1700
4.6800 2.1700
4.7000 2.1700
4.7200 2.1600
4.7400 2.1500
4.7600 2.1400
4.7800 2.1300
4.8000 2.1100
4.8200 2.1000
4.8400 2.0900
4.8600 2.0800
4.8800 2.0700
4.9000 2.0600
4.9200 2.0500
4.9400 2.0300
4.9600 2.0200
4.9800 2.0100
5.0000 2.0000
5.1000 1.9400
5.2000 1.8900
5.3000 1.8300
5.4000 1.7700
5.5000 1.7100
5.6000 1.6600
5.7000 1.6200
5.8000 1.6000
5.9000 1.6600
6.0000 1.7500
6.1000 1.8500
6.2000 1.9200
6.3000 1.9700
6.4000 1.9900
6.5000 1.9600
6.6000 1.9400
6.7000 1.9400
6.8000 1.9500
6.9000 1.9600
7.0000 1.9500
7.1000 1.9500
7.2000 1.9500
7.3000 1.9400
7.4000 1.9200
7.5000 1.9100
7.6000 1.9100
7.7000 1.9000
7.8000 1.9000
7.9000 1.8900
8.0000 1.8700
8.1000 1.8400
8.2000 1.7900
8.3000 1.7400
8.4000 1.6900
8.5000 1.6500
8.6000 1.6100
8.7000 1.5700
8.8000 1.5300
8.9000 1.5000
9.0000 1.4600
9.1000 1.4200
9.2000 1.3800
9.3000 1.3400
9.4000 1.2900
9.5000 1.2400
9.6000 1.1800
9.7000 1.1100
9.8000 1.0500
9.9000 0.9600
10.0000 0.8700
10.1000 0.7900
10.2000 0.7100
10.3000 0.6500
10.4000 0.5900
10.5000 0.5700
10.6000 0.6000
10.7000 0.7300
10.8000 0.9400
10.9000 1.2100
11.0000 1.5800
11.1000 1.9500
11.2000 2.2900
11.3000 2.6700
11.4000 3.0300
11.5000 3.3100
11.6000 3.6000
11.7000 3.8800
11.8000 4.1600
11.9000 4.4400
12.0000 4.6400
12.1000 4.8500
12.2000 5.0700
12.3000 5.2300
12.4000 5.3900
12.5000 5.5700
12.6000 5.6500
12.7000 5.7400
12.8000 5.8500
12.9000 5.9100
13.0000 5.9800
13.1000 6.0300
13.2000 6.0600
13.3000 6.0700
13.4000 6.0700
13.5000 6.0700
13.6000 6.0700
13.7000 6.0700
13.8000 6.0600
13.9000 6.0500
14.0000 6.0200
14.1000 5.9900
14.2000 5.9500
14.3000 5.9000
14.4000 5.8200
14.5000 5.7400
14.6000 5.6700
14.7000 5.6100
14.8000 5.5200
14.9000 5.4400
15.0000 5.3700
plasim/src/specs/water.ice.none.solid.all.ice_dat_.jhu.becknic.spectrum_f90.txt
+144
View File
@@ -0,0 +1,144 @@
real :: wvclearice(561) = (/0.3,0.302,0.304,0.306,0.308,0.31,0.312,0.314, &
& 0.3160,0.3180,0.3200,0.3220,0.3240,0.3260,0.3280,0.3300, &
& 0.3320,0.3340,0.3360,0.3380,0.3400,0.3420,0.3440,0.3460, &
& 0.3480,0.3500,0.3520,0.3540,0.3560,0.3580,0.3600,0.3620, &
& 0.3640,0.3660,0.3680,0.3700,0.3720,0.3740,0.3760,0.3780, &
& 0.3800,0.3820,0.3840,0.3860,0.3880,0.3900,0.3920,0.3940, &
& 0.3960,0.3980,0.4000,0.4020,0.4040,0.4060,0.4080,0.4100, &
& 0.4120,0.4140,0.4160,0.4180,0.4200,0.4220,0.4240,0.4260, &
& 0.4280,0.4300,0.4320,0.4340,0.4360,0.4380,0.4400,0.4420, &
& 0.4440,0.4460,0.4480,0.4500,0.4520,0.4540,0.4560,0.4580, &
& 0.4600,0.4620,0.4640,0.4660,0.4680,0.4700,0.4720,0.4740, &
& 0.4760,0.4780,0.4800,0.4820,0.4840,0.4860,0.4880,0.4900, &
& 0.4920,0.4940,0.4960,0.4980,0.5000,0.5020,0.5040,0.5060, &
& 0.5080,0.5100,0.5120,0.5140,0.5160,0.5180,0.5200,0.5220, &
& 0.5240,0.5260,0.5280,0.5300,0.5320,0.5340,0.5360,0.5380, &
& 0.5400,0.5420,0.5440,0.5460,0.5480,0.5500,0.5520,0.5540, &
& 0.5560,0.5580,0.5600,0.5620,0.5640,0.5660,0.5680,0.5700, &
& 0.5720,0.5740,0.5760,0.5780,0.5800,0.5820,0.5840,0.5860, &
& 0.5880,0.5900,0.5920,0.5940,0.5960,0.5980,0.6000,0.6020, &
& 0.6040,0.6060,0.6080,0.6100,0.6120,0.6140,0.6160,0.6180, &
& 0.6200,0.6220,0.6240,0.6260,0.6280,0.6300,0.6320,0.6340, &
& 0.6360,0.6380,0.6400,0.6420,0.6440,0.6460,0.6480,0.6500, &
& 0.6520,0.6540,0.6560,0.6580,0.6600,0.6620,0.6640,0.6660, &
& 0.6680,0.6700,0.6720,0.6740,0.6760,0.6780,0.6800,0.6820, &
& 0.6840,0.6860,0.6880,0.6900,0.6920,0.6940,0.6960,0.6980, &
& 0.7000,0.7020,0.7040,0.7060,0.7080,0.7100,0.7120,0.7140, &
& 0.7160,0.7180,0.7200,0.7220,0.7240,0.7260,0.7280,0.7300, &
& 0.7320,0.7340,0.7360,0.7380,0.7400,0.7420,0.7440,0.7460, &
& 0.7480,0.7500,0.7520,0.7540,0.7560,0.7580,0.7600,0.7620, &
& 0.7640,0.7660,0.7680,0.7700,0.7720,0.7740,0.7760,0.7780, &
& 0.7800,0.7820,0.7840,0.7860,0.7880,0.7900,0.7920,0.7940, &
& 0.7960,0.7980,0.8000,0.8200,0.8400,0.8600,0.8800,0.9000, &
& 0.9200,0.9400,0.9600,0.9800,1.0000,1.0200,1.0400,1.0600, &
& 1.0800,1.1000,1.1200,1.1400,1.1600,1.1800,1.2000,1.2200, &
& 1.2400,1.2600,1.2800,1.3000,1.3200,1.3400,1.3600,1.3800, &
& 1.4000,1.4200,1.4400,1.4600,1.4800,1.5000,1.5200,1.5400, &
& 1.5600,1.5800,1.6000,1.6200,1.6400,1.6600,1.6800,1.7000, &
& 1.7200,1.7400,1.7600,1.7800,1.8000,1.8200,1.8400,1.8600, &
& 1.8800,1.9000,1.9200,1.9400,1.9600,1.9800,2.0000,2.0200, &
& 2.0400,2.0600,2.0800,2.1000,2.1200,2.1400,2.1600,2.1800, &
& 2.2000,2.2200,2.2400,2.2600,2.2800,2.3000,2.3200,2.3400, &
& 2.3600,2.3800,2.4000,2.4200,2.4400,2.4600,2.4800,2.5000, &
& 2.5200,2.5400,2.5600,2.5800,2.6000,2.6200,2.6400,2.6600, &
& 2.6800,2.7000,2.7200,2.7400,2.7600,2.7800,2.8000,2.8200, &
& 2.8400,2.8600,2.8800,2.9000,2.9200,2.9400,2.9600,2.9800, &
& 3.0000,3.0200,3.0400,3.0600,3.0800,3.1000,3.1200,3.1400, &
& 3.1600,3.1800,3.2000,3.2200,3.2400,3.2600,3.2800,3.3000, &
& 3.3200,3.3400,3.3600,3.3800,3.4000,3.4200,3.4400,3.4600, &
& 3.4800,3.5000,3.5200,3.5400,3.5600,3.5800,3.6000,3.6200, &
& 3.6400,3.6600,3.6800,3.7000,3.7200,3.7400,3.7600,3.7800, &
& 3.8000,3.8200,3.8400,3.8600,3.8800,3.9000,3.9200,3.9400, &
& 3.9600,3.9800,4.0000,4.0200,4.0400,4.0600,4.0800,4.1000, &
& 4.1200,4.1400,4.1600,4.1800,4.2000,4.2200,4.2400,4.2600, &
& 4.2800,4.3000,4.3200,4.3400,4.3600,4.3800,4.4000,4.4200, &
& 4.4400,4.4600,4.4800,4.5000,4.5200,4.5400,4.5600,4.5800, &
& 4.6000,4.6200,4.6400,4.6600,4.6800,4.7000,4.7200,4.7400, &
& 4.7600,4.7800,4.8000,4.8200,4.8400,4.8600,4.8800,4.9000, &
& 4.9200,4.9400,4.9600,4.9800,5.0000,5.1000,5.2000,5.3000, &
& 5.4000,5.5000,5.6000,5.7000,5.8000,5.9000,6.0000,6.1000, &
& 6.2000,6.3000,6.4000,6.5000,6.6000,6.7000,6.8000,6.9000, &
& 7.0000,7.1000,7.2000,7.3000,7.4000,7.5000,7.6000,7.7000, &
& 7.8000,7.9000,8.0000,8.1000,8.2000,8.3000,8.4000,8.5000, &
& 8.6000,8.7000,8.8000,8.9000,9.0000,9.1000,9.2000,9.3000, &
& 9.4000,9.5000,9.6000,9.7000,9.8000,9.9000,10.0000,10.1000, &
& 10.2000,10.3000,10.4000,10.5000,10.6000,10.7000,10.8000,10.9000, &
& 11.0000,11.1000,11.2000,11.3000,11.4000,11.5000,11.6000,11.7000, &
& 11.8000,11.9000,12.0000,12.1000,12.2000,12.3000,12.4000,12.5000, &
& 12.6000,12.7000,12.8000,12.9000,13.0000,13.1000,13.2000,13.3000, &
& 13.4000,13.5000,13.6000,13.7000,13.8000,13.9000,14.0000,14.1000, &
& 14.2000,14.3000,14.4000,14.5000,14.6000,14.7000,14.8000,14.9000, &
& 15.0 /)
real :: clearice(561) = (/2.05,2.04,2.04,2.04,2.03,2.03,2.02,2.02, &
& 2.0200,2.0100,2.0100,2.0000,2.0000,2.0000,1.9900,1.9900, &
& 1.9900,1.9800,1.9800,1.9700,1.9700,1.9700,1.9600,1.9600, &
& 1.9600,1.9500,1.9500,1.9500,1.9500,1.9400,1.9400,1.9400, &
& 1.9400,1.9300,1.9300,1.9300,1.9300,1.9200,1.9200,1.9200, &
& 1.9200,1.9200,1.9100,1.9100,1.9100,1.9100,1.9000,1.9000, &
& 1.9000,1.9000,1.9000,1.8900,1.8900,1.8900,1.8900,1.8900, &
& 1.8900,1.8800,1.8800,1.8800,1.8800,1.8800,1.8800,1.8700, &
& 1.8700,1.8700,1.8700,1.8700,1.8700,1.8700,1.8700,1.8600, &
& 1.8600,1.8600,1.8600,1.8600,1.8600,1.8600,1.8500,1.8500, &
& 1.8500,1.8500,1.8500,1.8500,1.8500,1.8500,1.8500,1.8400, &
& 1.8400,1.8400,1.8400,1.8400,1.8400,1.8400,1.8400,1.8400, &
& 1.8400,1.8300,1.8300,1.8300,1.8300,1.8300,1.8300,1.8300, &
& 1.8300,1.8300,1.8300,1.8300,1.8200,1.8200,1.8200,1.8200, &
& 1.8200,1.8200,1.8200,1.8200,1.8200,1.8200,1.8200,1.8200, &
& 1.8100,1.8100,1.8100,1.8100,1.8100,1.8100,1.8100,1.8100, &
& 1.8100,1.8100,1.8100,1.8100,1.8100,1.8100,1.8000,1.8000, &
& 1.8000,1.8000,1.8000,1.8000,1.8000,1.8000,1.8000,1.8000, &
& 1.8000,1.8000,1.8000,1.8000,1.8000,1.8000,1.7900,1.7900, &
& 1.7900,1.7900,1.7900,1.7900,1.7900,1.7900,1.7900,1.7900, &
& 1.7900,1.7900,1.7900,1.7900,1.7900,1.7900,1.7900,1.7900, &
& 1.7800,1.7800,1.7800,1.7800,1.7800,1.7800,1.7800,1.7800, &
& 1.7800,1.7800,1.7800,1.7800,1.7800,1.7800,1.7800,1.7800, &
& 1.7800,1.7800,1.7800,1.7800,1.7800,1.7700,1.7700,1.7700, &
& 1.7700,1.7700,1.7700,1.7700,1.7700,1.7700,1.7700,1.7700, &
& 1.7700,1.7700,1.7700,1.7700,1.7700,1.7700,1.7700,1.7700, &
& 1.7700,1.7700,1.7700,1.7700,1.7600,1.7600,1.7600,1.7600, &
& 1.7600,1.7600,1.7600,1.7600,1.7600,1.7600,1.7600,1.7600, &
& 1.7600,1.7600,1.7600,1.7600,1.7600,1.7600,1.7600,1.7600, &
& 1.7600,1.7600,1.7600,1.7600,1.7600,1.7500,1.7500,1.7500, &
& 1.7500,1.7500,1.7500,1.7500,1.7500,1.7500,1.7500,1.7500, &
& 1.7500,1.7500,1.7500,1.7500,1.7400,1.7400,1.7400,1.7300, &
& 1.7300,1.7300,1.7200,1.7200,1.7200,1.7100,1.7100,1.7100, &
& 1.7000,1.7000,1.7000,1.6900,1.6900,1.6900,1.6800,1.6800, &
& 1.6700,1.6700,1.6700,1.6600,1.6600,1.6500,1.6500,1.6500, &
& 1.6400,1.6400,1.6300,1.6300,1.6200,1.6200,1.6200,1.6100, &
& 1.6100,1.6000,1.6000,1.5900,1.5900,1.5800,1.5700,1.5700, &
& 1.5600,1.5500,1.5500,1.5400,1.5300,1.5300,1.5200,1.5100, &
& 1.5000,1.4900,1.4800,1.4700,1.4600,1.4600,1.4500,1.4500, &
& 1.4400,1.4300,1.4200,1.4100,1.4000,1.3800,1.3700,1.3600, &
& 1.3400,1.3300,1.3100,1.2900,1.2800,1.2600,1.2400,1.2200, &
& 1.2000,1.1800,1.1600,1.1400,1.1100,1.0900,1.0600,1.0300, &
& 1.0000,0.9600,0.9300,0.8900,0.8400,0.7900,0.7400,0.6800, &
& 0.6200,0.5500,0.4900,0.4100,0.3300,0.2600,0.1800,0.1300, &
& 0.1200,0.1800,0.3800,0.7900,1.4500,2.1100,2.6800,3.3700, &
& 4.2800,5.4000,6.6900,8.0100,8.5300,8.4500,8.1700,8.0200, &
& 7.8400,7.5200,7.0600,6.5500,6.1300,5.7800,5.4100,5.1200, &
& 4.8800,4.6600,4.4500,4.2600,4.0900,3.9300,3.7900,3.6500, &
& 3.5400,3.4400,3.3400,3.2600,3.1700,3.1100,3.0400,2.9700, &
& 2.9200,2.8800,2.8300,2.7800,2.7400,2.7000,2.6600,2.6200, &
& 2.5900,2.5600,2.5300,2.5000,2.4800,2.4600,2.4300,2.4100, &
& 2.3900,2.3700,2.3500,2.3300,2.3200,2.3000,2.2800,2.2600, &
& 2.2500,2.2300,2.2200,2.2100,2.1900,2.1800,2.1600,2.1500, &
& 2.1400,2.1300,2.1200,2.1100,2.1000,2.1000,2.1000,2.1000, &
& 2.1100,2.1100,2.1200,2.1300,2.1400,2.1500,2.1700,2.1900, &
& 2.1900,2.1800,2.1800,2.1700,2.1700,2.1700,2.1600,2.1500, &
& 2.1400,2.1300,2.1100,2.1000,2.0900,2.0800,2.0700,2.0600, &
& 2.0500,2.0300,2.0200,2.0100,2.0000,1.9400,1.8900,1.8300, &
& 1.7700,1.7100,1.6600,1.6200,1.6000,1.6600,1.7500,1.8500, &
& 1.9200,1.9700,1.9900,1.9600,1.9400,1.9400,1.9500,1.9600, &
& 1.9500,1.9500,1.9500,1.9400,1.9200,1.9100,1.9100,1.9000, &
& 1.9000,1.8900,1.8700,1.8400,1.7900,1.7400,1.6900,1.6500, &
& 1.6100,1.5700,1.5300,1.5000,1.4600,1.4200,1.3800,1.3400, &
& 1.2900,1.2400,1.1800,1.1100,1.0500,0.9600,0.8700,0.7900, &
& 0.7100,0.6500,0.5900,0.5700,0.6000,0.7300,0.9400,1.2100, &
& 1.5800,1.9500,2.2900,2.6700,3.0300,3.3100,3.6000,3.8800, &
& 4.1600,4.4400,4.6400,4.8500,5.0700,5.2300,5.3900,5.5700, &
& 5.6500,5.7400,5.8500,5.9100,5.9800,6.0300,6.0600,6.0700, &
& 6.0700,6.0700,6.0700,6.0700,6.0600,6.0500,6.0200,5.9900, &
& 5.9500,5.9000,5.8200,5.7400,5.6700,5.6100,5.5200,5.4400, &
& 5.37 /)
plasim/src/specs/water.ice.none.solid.all.ice_dat_.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: clearice(965) = (/1.97,1.95,1.94,1.93,1.92,1.91,1.9,1.89, &
& 1.8800,1.8700,1.8700,1.8600,1.8500,1.8500,1.8400,1.8400, &
& 1.8300,1.8300,1.8200,1.8200,1.8100,1.8100,1.8100,1.8000, &
& 1.8000,1.8000,1.7900,1.7900,1.7900,1.7900,1.7800,1.7800, &
& 1.7800,1.7800,1.7700,1.7700,1.7700,1.7700,1.7700,1.7600, &
& 1.7600,1.7600,1.7600,1.7600,1.7500,1.7500,1.7500,1.7500, &
& 1.7400,1.7400,1.7400,1.7300,1.7300,1.7300,1.7200,1.7200, &
& 1.7200,1.7100,1.7100,1.7100,1.7000,1.7000,1.7000,1.6900, &
& 1.6900,1.6900,1.6800,1.6800,1.6700,1.6700,1.6700,1.6600, &
& 1.6600,1.6500,1.6500,1.6500,1.6400,1.6400,1.6300,1.6300, &
& 1.6200,1.6200,1.6200,1.6100,1.6100,1.6000,1.6000,1.5900, &
& 1.5900,1.5800,1.5700,1.5700,1.5600,1.5500,1.5500,1.5400, &
& 1.5300,1.5300,1.5200,1.5100,1.5000,1.4900,1.4800,1.4700, &
& 1.4600,1.4600,1.4500,1.4500,1.4400,1.4300,1.4200,1.4100, &
& 1.4000,1.3800,1.3700,1.3600,1.3400,1.3300,1.3100,1.3000, &
& 1.2900,1.2850,1.2800,1.2700,1.2600,1.2500,1.2400,1.2300, &
& 1.2200,1.2100,1.2000,1.1900,1.1800,1.1700,1.1600,1.1500, &
& 1.1400,1.1250,1.1100,1.1000,1.0900,1.0750,1.0600,1.0450, &
& 1.0300,1.0150,1.0000,0.9800,0.9600,0.9450,0.9300,0.9100, &
& 0.8900,0.8650,0.8400,0.8150,0.7900,0.7650,0.7400,0.7100, &
& 0.6800,0.6500,0.6200,0.5850,0.5500,0.5200,0.4900,0.4500, &
& 0.4100,0.3700,0.3300,0.2950,0.2600,0.2200,0.1800,0.1550, &
& 0.1300,0.1250,0.1200,0.1500,0.1800,0.2800,0.3800,0.5850, &
& 0.7900,1.1200,1.4500,1.7800,2.1100,2.3950,2.6800,3.0250, &
& 3.3700,3.8250,4.2800,4.8400,5.4000,6.0450,6.6900,7.3500, &
& 8.0100,8.2700,8.5300,8.4900,8.4500,8.3100,8.1700,8.0950, &
& 8.0200,7.9300,7.8400,7.6800,7.5200,7.2900,7.0600,6.8050, &
& 6.5500,6.3400,6.1300,5.9550,5.7800,5.5950,5.4100,5.2650, &
& 5.1200,5.0000,4.8800,4.7700,4.6600,4.5550,4.4500,4.3550, &
& 4.2600,4.1750,4.0900,4.0100,3.9300,3.8600,3.7900,3.7200, &
& 3.6500,3.5950,3.5400,3.4900,3.4400,3.3900,3.3400,3.3000, &
& 3.2600,3.2150,3.1700,3.1400,3.1100,3.0750,3.0400,3.0050, &
& 2.9700,2.9450,2.9200,2.9000,2.8800,2.8550,2.8300,2.8050, &
& 2.7800,2.7600,2.7400,2.7200,2.7000,2.6800,2.6600,2.6400, &
& 2.6200,2.6050,2.5900,2.5750,2.5600,2.5450,2.5300,2.5150, &
& 2.5000,2.4900,2.4800,2.4700,2.4600,2.4450,2.4300,2.4200, &
& 2.4100,2.4000,2.3900,2.3800,2.3700,2.3600,2.3500,2.3400, &
& 2.3300,2.3250,2.3200,2.3100,2.3000,2.2900,2.2800,2.2700, &
& 2.2600,2.2550,2.2500,2.2400,2.2300,2.2250,2.2200,2.2150, &
& 2.2100,2.2000,2.1900,2.1850,2.1800,2.1700,2.1600,2.1550, &
& 2.1500,2.1450,2.1400,2.1350,2.1300,2.1250,2.1200,2.1150, &
& 2.1100,2.1050,2.1000,2.1000,2.1000,2.1000,2.1000,2.1000, &
& 2.1000,2.1050,2.1100,2.1100,2.1100,2.1150,2.1200,2.1250, &
& 2.1300,2.1350,2.1400,2.1450,2.1500,2.1600,2.1700,2.1800, &
& 2.1900,2.1900,2.1900,2.1850,2.1800,2.1800,2.1800,2.1750, &
& 2.1700,2.1700,2.1700,2.1700,2.1700,2.1650,2.1600,2.1550, &
& 2.1500,2.1450,2.1400,2.1350,2.1300,2.1200,2.1100,2.1050, &
& 2.1000,2.0950,2.0900,2.0850,2.0800,2.0750,2.0700,2.0650, &
& 2.0600,2.0550,2.0500,2.0400,2.0300,2.0250,2.0200,2.0150, &
& 2.0100,2.0050,2.0000,1.9940,1.9880,1.9820,1.9760,1.9700, &
& 1.9640,1.9580,1.9520,1.9460,1.9400,1.9350,1.9300,1.9250, &
& 1.9200,1.9150,1.9100,1.9050,1.9000,1.8950,1.8900,1.8840, &
& 1.8780,1.8720,1.8660,1.8600,1.8540,1.8480,1.8420,1.8360, &
& 1.8300,1.8240,1.8180,1.8120,1.8060,1.8000,1.7940,1.7880, &
& 1.7820,1.7760,1.7700,1.7640,1.7580,1.7520,1.7460,1.7400, &
& 1.7340,1.7280,1.7220,1.7160,1.7100,1.7050,1.7000,1.6950, &
& 1.6900,1.6850,1.6800,1.6750,1.6700,1.6650,1.6600,1.6560, &
& 1.6520,1.6480,1.6440,1.6400,1.6360,1.6320,1.6280,1.6240, &
& 1.6200,1.6180,1.6160,1.6140,1.6120,1.6100,1.6080,1.6060, &
& 1.6040,1.6020,1.6000,1.6060,1.6120,1.6180,1.6240,1.6300, &
& 1.6360,1.6420,1.6480,1.6540,1.6600,1.6690,1.6780,1.6870, &
& 1.6960,1.7050,1.7140,1.7230,1.7320,1.7410,1.7500,1.7600, &
& 1.7700,1.7800,1.7900,1.8000,1.8100,1.8200,1.8300,1.8400, &
& 1.8500,1.8570,1.8640,1.8710,1.8780,1.8850,1.8920,1.8990, &
& 1.9060,1.9130,1.9200,1.9250,1.9300,1.9350,1.9400,1.9450, &
& 1.9500,1.9550,1.9600,1.9650,1.9700,1.9720,1.9740,1.9760, &
& 1.9780,1.9800,1.9820,1.9840,1.9860,1.9880,1.9900,1.9870, &
& 1.9840,1.9810,1.9780,1.9750,1.9720,1.9690,1.9660,1.9630, &
& 1.9600,1.9580,1.9560,1.9540,1.9520,1.9500,1.9480,1.9460, &
& 1.9440,1.9420,1.9400,1.9400,1.9400,1.9400,1.9400,1.9400, &
& 1.9400,1.9400,1.9400,1.9400,1.9400,1.9410,1.9420,1.9430, &
& 1.9440,1.9450,1.9460,1.9470,1.9480,1.9490,1.9500,1.9510, &
& 1.9520,1.9530,1.9540,1.9550,1.9560,1.9570,1.9580,1.9590, &
& 1.9600,1.9590,1.9580,1.9570,1.9560,1.9550,1.9540,1.9530, &
& 1.9520,1.9510,1.9500,1.9500,1.9500,1.9500,1.9500,1.9500, &
& 1.9500,1.9500,1.9500,1.9500,1.9500,1.9500,1.9500,1.9500, &
& 1.9500,1.9500,1.9500,1.9500,1.9500,1.9500,1.9500,1.9490, &
& 1.9480,1.9470,1.9460,1.9450,1.9440,1.9430,1.9420,1.9410, &
& 1.9400,1.9380,1.9360,1.9340,1.9320,1.9300,1.9280,1.9260, &
& 1.9240,1.9200,1.9190,1.9180,1.9170,1.9160,1.9150,1.9140, &
& 1.9130,1.9120,1.9110,1.9100,1.9100,1.9100,1.9100,1.9100, &
& 1.9100,1.9100,1.9100,1.9100,1.9100,1.9090,1.9080,1.9070, &
& 1.9050,1.9040,1.9030,1.9020,1.9010,1.9000,1.9000,1.9000, &
& 1.9000,1.9000,1.9000,1.9000,1.9000,1.9000,1.8990,1.8980, &
& 1.8970,1.8960,1.8950,1.8930,1.8920,1.8910,1.8900,1.8880, &
& 1.8840,1.8820,1.8800,1.8780,1.8740,1.8720,1.8700,1.8670, &
& 1.8610,1.8580,1.8550,1.8520,1.8460,1.8430,1.8400,1.8350, &
& 1.8250,1.8200,1.8150,1.8100,1.8000,1.7950,1.7900,1.7800, &
& 1.7750,1.7700,1.7600,1.7550,1.7500,1.7450,1.7350,1.7300, &
& 1.7250,1.7150,1.7100,1.7000,1.6950,1.6900,1.6820,1.6780, &
& 1.6740,1.6660,1.6620,1.6580,1.6500,1.6460,1.6380,1.6340, &
& 1.6300,1.6220,1.6180,1.6100,1.6060,1.5980,1.5940,1.5900, &
& 1.5820,1.5780,1.5700,1.5660,1.5580,1.5540,1.5460,1.5420, &
& 1.5340,1.5300,1.5240,1.5210,1.5150,1.5120,1.5060,1.5030, &
& 1.4960,1.4920,1.4840,1.4800,1.4720,1.4680,1.4600,1.4520, &
& 1.4480,1.4400,1.4360,1.4280,1.4200,1.4160,1.4080,1.4040, &
& 1.3960,1.3880,1.3840,1.3760,1.3720,1.3640,1.3560,1.3520, &
& 1.3440,1.3350,1.3300,1.3200,1.3100,1.3050,1.2950,1.2850, &
& 1.2750,1.2700,1.2600,1.2500,1.2450,1.2340,1.2220,1.2100, &
& 1.2040,1.1920,1.1800,1.1660,1.1520,1.1450,1.1310,1.1170, &
& 1.1040,1.0920,1.0860,1.0740,1.0620,1.0500,1.0320,1.0140, &
& 0.9960,0.9870,0.9690,0.9510,0.9330,0.9150,0.8970,0.8790, &
& 0.8620,0.8460,0.8300,0.8140,0.7980,0.7820,0.7660,0.7500, &
& 0.7340,0.7260,0.7040,0.6920,0.6800,0.6680,0.6560,0.6440, &
& 0.6320,0.6200,0.6080,0.5960,0.5880,0.5840,0.5800,0.5760, &
& 0.5720,0.5760,0.5820,0.5880,0.5940,0.6000,0.6260,0.6650, &
& 0.6910,0.7170,0.7510,0.7930,0.8560,0.8980,0.9400,0.9940, &
& 1.0750,1.1290,1.1830,1.2470,1.3580,1.4320,1.5060,1.6170, &
& 1.6910,1.7650,1.8760,1.9500,2.0180,2.1200,2.1880,2.2900, &
& 2.3660,2.4800,2.5560,2.6320,2.7420,2.8140,2.9220,2.9940, &
& 3.0860,3.1420,3.2260,3.2820,3.3680,3.4550,3.5130,3.6000, &
& 3.6560,3.7400,3.8240,3.8800,3.9640,4.0480,4.1040,4.1880, &
& 4.2720,4.3280,4.4120,4.4800,4.5400,4.5800,4.6400,4.7030, &
& 4.7660,4.8080,4.8720,4.9380,5.0040,5.0700,5.1180,5.1660, &
& 5.1980,5.2460,5.2940,5.3420,5.3900,5.4440,5.4980,5.5520, &
& 5.5860,5.6100,5.6340,5.6590,5.6860,5.7220,5.7510,5.7840, &
& 5.8170,5.8500,5.8680,5.8860,5.9100,5.9310,5.9520,5.9730, &
& 5.9950,6.0100,6.0250,6.0360,6.0480,6.0570,6.0620,6.0660, &
& 6.0690,6.0700,6.0700,6.0700,6.0700,6.0700,6.0700,6.0700, &
& 6.0700,6.0700,6.0700,6.0700,6.0690,6.0650,6.0610,6.0580, &
& 6.0540,6.0500,6.0380,6.0290,6.0170 /)
plasim/src/specs/water.seawater.none.liquid.tir.seawater.jhu.becknic.spectrum.txt
+2145
View File
File diff suppressed because it is too large. Load diff
plasim/src/specs/water.seawater.none.liquid.tir.seawater.jhu.becknic.spectrum_f90.txt
+534
View File
@@ -0,0 +1,534 @@
real :: wvseawater(2124) = (/2.0795,2.0803,2.0812,2.082,2.0828,2.0837,2.0845,2.0853, &
& 2.0862,2.0870,2.0879,2.0887,2.0895,2.0904,2.0912,2.0921, &
& 2.0929,2.0938,2.0946,2.0955,2.0963,2.0971,2.0980,2.0988, &
& 2.0997,2.1005,2.1014,2.1023,2.1031,2.1040,2.1048,2.1057, &
& 2.1065,2.1074,2.1082,2.1091,2.1100,2.1108,2.1117,2.1125, &
& 2.1134,2.1143,2.1151,2.1160,2.1168,2.1177,2.1186,2.1194, &
& 2.1203,2.1212,2.1220,2.1229,2.1238,2.1247,2.1255,2.1264, &
& 2.1273,2.1281,2.1290,2.1299,2.1308,2.1316,2.1325,2.1334, &
& 2.1343,2.1352,2.1360,2.1369,2.1378,2.1387,2.1396,2.1404, &
& 2.1413,2.1422,2.1431,2.1440,2.1449,2.1458,2.1466,2.1475, &
& 2.1484,2.1493,2.1502,2.1511,2.1520,2.1529,2.1538,2.1547, &
& 2.1556,2.1565,2.1574,2.1583,2.1592,2.1601,2.1610,2.1619, &
& 2.1628,2.1637,2.1646,2.1655,2.1664,2.1673,2.1682,2.1691, &
& 2.1700,2.1709,2.1718,2.1727,2.1736,2.1746,2.1755,2.1764, &
& 2.1773,2.1782,2.1791,2.1800,2.1810,2.1819,2.1828,2.1837, &
& 2.1846,2.1856,2.1865,2.1874,2.1883,2.1893,2.1902,2.1911, &
& 2.1920,2.1930,2.1939,2.1948,2.1957,2.1967,2.1976,2.1985, &
& 2.1995,2.2004,2.2013,2.2023,2.2032,2.2041,2.2051,2.2060, &
& 2.2070,2.2079,2.2088,2.2098,2.2107,2.2117,2.2126,2.2136, &
& 2.2145,2.2155,2.2164,2.2173,2.2183,2.2192,2.2202,2.2211, &
& 2.2221,2.2231,2.2240,2.2250,2.2259,2.2269,2.2278,2.2288, &
& 2.2297,2.2307,2.2317,2.2326,2.2336,2.2345,2.2355,2.2365, &
& 2.2374,2.2384,2.2394,2.2403,2.2413,2.2423,2.2433,2.2442, &
& 2.2452,2.2462,2.2471,2.2481,2.2491,2.2501,2.2510,2.2520, &
& 2.2530,2.2540,2.2550,2.2559,2.2569,2.2579,2.2589,2.2599, &
& 2.2609,2.2618,2.2628,2.2638,2.2648,2.2658,2.2668,2.2678, &
& 2.2688,2.2698,2.2708,2.2718,2.2728,2.2738,2.2747,2.2757, &
& 2.2767,2.2777,2.2787,2.2798,2.2808,2.2818,2.2828,2.2838, &
& 2.2848,2.2858,2.2868,2.2878,2.2888,2.2898,2.2908,2.2918, &
& 2.2929,2.2939,2.2949,2.2959,2.2969,2.2979,2.2990,2.3000, &
& 2.3010,2.3020,2.3030,2.3041,2.3051,2.3061,2.3071,2.3082, &
& 2.3092,2.3102,2.3113,2.3123,2.3133,2.3144,2.3154,2.3164, &
& 2.3175,2.3185,2.3195,2.3206,2.3216,2.3226,2.3237,2.3247, &
& 2.3258,2.3268,2.3279,2.3289,2.3300,2.3310,2.3321,2.3331, &
& 2.3342,2.3352,2.3363,2.3373,2.3384,2.3394,2.3405,2.3415, &
& 2.3426,2.3436,2.3447,2.3458,2.3468,2.3479,2.3490,2.3500, &
& 2.3511,2.3522,2.3532,2.3543,2.3554,2.3564,2.3575,2.3586, &
& 2.3597,2.3607,2.3618,2.3629,2.3640,2.3650,2.3661,2.3672, &
& 2.3683,2.3694,2.3704,2.3715,2.3726,2.3737,2.3748,2.3759, &
& 2.3770,2.3781,2.3791,2.3802,2.3813,2.3824,2.3835,2.3846, &
& 2.3857,2.3868,2.3879,2.3890,2.3901,2.3912,2.3923,2.3934, &
& 2.3945,2.3956,2.3967,2.3979,2.3990,2.4001,2.4012,2.4023, &
& 2.4034,2.4045,2.4056,2.4068,2.4079,2.4090,2.4101,2.4112, &
& 2.4124,2.4135,2.4146,2.4157,2.4169,2.4180,2.4191,2.4202, &
& 2.4214,2.4225,2.4236,2.4248,2.4259,2.4270,2.4282,2.4293, &
& 2.4305,2.4316,2.4327,2.4339,2.4350,2.4362,2.4373,2.4385, &
& 2.4396,2.4408,2.4419,2.4431,2.4442,2.4454,2.4465,2.4477, &
& 2.4488,2.4500,2.4511,2.4523,2.4535,2.4546,2.4558,2.4569, &
& 2.4581,2.4593,2.4604,2.4616,2.4628,2.4640,2.4651,2.4663, &
& 2.4675,2.4686,2.4698,2.4710,2.4722,2.4734,2.4745,2.4757, &
& 2.4769,2.4781,2.4793,2.4805,2.4816,2.4828,2.4840,2.4852, &
& 2.4864,2.4876,2.4888,2.4900,2.4912,2.4924,2.4936,2.4948, &
& 2.4960,2.4972,2.4984,2.4996,2.5008,2.5020,2.5032,2.5044, &
& 2.5056,2.5068,2.5081,2.5093,2.5105,2.5117,2.5129,2.5141, &
& 2.5154,2.5166,2.5178,2.5190,2.5202,2.5215,2.5227,2.5239, &
& 2.5252,2.5264,2.5276,2.5289,2.5301,2.5313,2.5326,2.5338, &
& 2.5350,2.5363,2.5375,2.5388,2.5400,2.5413,2.5425,2.5437, &
& 2.5450,2.5462,2.5475,2.5487,2.5500,2.5513,2.5525,2.5538, &
& 2.5550,2.5563,2.5575,2.5588,2.5601,2.5613,2.5626,2.5639, &
& 2.5651,2.5664,2.5677,2.5690,2.5702,2.5715,2.5728,2.5741, &
& 2.5753,2.5766,2.5779,2.5792,2.5805,2.5817,2.5830,2.5843, &
& 2.5856,2.5869,2.5882,2.5895,2.5908,2.5921,2.5934,2.5947, &
& 2.5960,2.5973,2.5986,2.5999,2.6012,2.6025,2.6038,2.6051, &
& 2.6064,2.6077,2.6090,2.6103,2.6117,2.6130,2.6143,2.6156, &
& 2.6169,2.6183,2.6196,2.6209,2.6222,2.6236,2.6249,2.6262, &
& 2.6275,2.6289,2.6302,2.6315,2.6329,2.6342,2.6356,2.6369, &
& 2.6382,2.6396,2.6409,2.6423,2.6436,2.6450,2.6463,2.6477, &
& 2.6490,2.6504,2.6517,2.6531,2.6545,2.6558,2.6572,2.6585, &
& 2.6599,2.6613,2.6626,2.6640,2.6654,2.6667,2.6681,2.6695, &
& 2.6709,2.6722,2.6736,2.6750,2.6764,2.6778,2.6791,2.6805, &
& 2.6819,2.6833,2.6847,2.6861,2.6875,2.6889,2.6903,2.6917, &
& 2.6931,2.6945,2.6959,2.6973,2.6987,2.7001,2.7015,2.7029, &
& 2.7043,2.7057,2.7071,2.7085,2.7100,2.7114,2.7128,2.7142, &
& 2.7156,2.7171,2.7185,2.7199,2.7213,2.7228,2.7242,2.7256, &
& 2.7271,2.7285,2.7299,2.7314,2.7328,2.7343,2.7357,2.7371, &
& 2.7386,2.7400,2.7415,2.7429,2.7444,2.7458,2.7473,2.7488, &
& 2.7502,2.7517,2.7531,2.7546,2.7561,2.7575,2.7590,2.7605, &
& 2.7619,2.7634,2.7649,2.7664,2.7678,2.7693,2.7708,2.7723, &
& 2.7738,2.7752,2.7767,2.7782,2.7797,2.7812,2.7827,2.7842, &
& 2.7857,2.7872,2.7887,2.7902,2.7917,2.7932,2.7947,2.7962, &
& 2.7977,2.7992,2.8007,2.8022,2.8038,2.8053,2.8068,2.8083, &
& 2.8098,2.8114,2.8129,2.8144,2.8159,2.8175,2.8190,2.8205, &
& 2.8221,2.8236,2.8252,2.8267,2.8282,2.8298,2.8313,2.8329, &
& 2.8344,2.8360,2.8375,2.8391,2.8406,2.8422,2.8437,2.8453, &
& 2.8469,2.8484,2.8500,2.8516,2.8531,2.8547,2.8563,2.8579, &
& 2.8594,2.8610,2.8626,2.8642,2.8658,2.8673,2.8689,2.8705, &
& 2.8721,2.8737,2.8753,2.8769,2.8785,2.8801,2.8817,2.8833, &
& 2.8849,2.8865,2.8881,2.8897,2.8913,2.8929,2.8946,2.8962, &
& 2.8978,2.8994,2.9010,2.9027,2.9043,2.9059,2.9075,2.9092, &
& 2.9108,2.9124,2.9141,2.9157,2.9174,2.9190,2.9207,2.9223, &
& 2.9239,2.9256,2.9272,2.9289,2.9306,2.9322,2.9339,2.9355, &
& 2.9372,2.9389,2.9405,2.9422,2.9439,2.9455,2.9472,2.9489, &
& 2.9506,2.9523,2.9539,2.9556,2.9573,2.9590,2.9607,2.9624, &
& 2.9641,2.9658,2.9675,2.9692,2.9709,2.9726,2.9743,2.9760, &
& 2.9777,2.9794,2.9811,2.9828,2.9845,2.9863,2.9880,2.9897, &
& 2.9914,2.9932,2.9949,2.9966,2.9984,3.0001,3.0018,3.0036, &
& 3.0053,3.0070,3.0088,3.0105,3.0123,3.0140,3.0158,3.0176, &
& 3.0193,3.0211,3.0228,3.0246,3.0264,3.0281,3.0299,3.0317, &
& 3.0334,3.0352,3.0370,3.0388,3.0406,3.0423,3.0441,3.0459, &
& 3.0477,3.0495,3.0513,3.0531,3.0549,3.0567,3.0585,3.0603, &
& 3.0621,3.0639,3.0657,3.0675,3.0694,3.0712,3.0730,3.0748, &
& 3.0766,3.0785,3.0803,3.0821,3.0840,3.0858,3.0876,3.0895, &
& 3.0913,3.0932,3.0950,3.0969,3.0987,3.1006,3.1024,3.1043, &
& 3.1061,3.1080,3.1099,3.1117,3.1136,3.1155,3.1174,3.1192, &
& 3.1211,3.1230,3.1249,3.1268,3.1286,3.1305,3.1324,3.1343, &
& 3.1362,3.1381,3.1400,3.1419,3.1438,3.1457,3.1476,3.1495, &
& 3.1515,3.1534,3.1553,3.1572,3.1591,3.1611,3.1630,3.1649, &
& 3.1669,3.1688,3.1707,3.1727,3.1746,3.1766,3.1785,3.1805, &
& 3.1824,3.1844,3.1863,3.1883,3.1902,3.1922,3.1942,3.1961, &
& 3.1981,3.2001,3.2021,3.2040,3.2060,3.2080,3.2100,3.2120, &
& 3.2140,3.2160,3.2180,3.2200,3.2220,3.2240,3.2260,3.2280, &
& 3.2300,3.2320,3.2340,3.2361,3.2381,3.2401,3.2421,3.2442, &
& 3.2462,3.2482,3.2503,3.2523,3.2543,3.2564,3.2584,3.2605, &
& 3.2625,3.2646,3.2666,3.2687,3.2708,3.2728,3.2749,3.2770, &
& 3.2790,3.2811,3.2832,3.2853,3.2874,3.2894,3.2915,3.2936, &
& 3.2957,3.2978,3.2999,3.3020,3.3041,3.3062,3.3083,3.3104, &
& 3.3126,3.3147,3.3168,3.3189,3.3210,3.3232,3.3253,3.3274, &
& 3.3296,3.3317,3.3339,3.3360,3.3382,3.3403,3.3425,3.3446, &
& 3.3468,3.3489,3.3511,3.3533,3.3554,3.3576,3.3598,3.3620, &
& 3.3641,3.3663,3.3685,3.3707,3.3729,3.3751,3.3773,3.3795, &
& 3.3817,3.3839,3.3861,3.3883,3.3906,3.3928,3.3950,3.3972, &
& 3.3994,3.4017,3.4039,3.4061,3.4084,3.4106,3.4129,3.4151, &
& 3.4174,3.4196,3.4219,3.4241,3.4264,3.4287,3.4309,3.4332, &
& 3.4355,3.4378,3.4400,3.4423,3.4446,3.4469,3.4492,3.4515, &
& 3.4538,3.4561,3.4584,3.4607,3.4630,3.4653,3.4677,3.4700, &
& 3.4723,3.4746,3.4770,3.4793,3.4816,3.4840,3.4863,3.4887, &
& 3.4910,3.4934,3.4957,3.4981,3.5004,3.5028,3.5052,3.5075, &
& 3.5099,3.5123,3.5147,3.5171,3.5195,3.5218,3.5242,3.5266, &
& 3.5290,3.5314,3.5338,3.5363,3.5387,3.5411,3.5435,3.5459, &
& 3.5484,3.5508,3.5532,3.5557,3.5581,3.5605,3.5630,3.5654, &
& 3.5679,3.5704,3.5728,3.5753,3.5777,3.5802,3.5827,3.5852, &
& 3.5876,3.5901,3.5926,3.5951,3.5976,3.6001,3.6026,3.6051, &
& 3.6076,3.6101,3.6127,3.6152,3.6177,3.6202,3.6227,3.6253, &
& 3.6278,3.6304,3.6329,3.6355,3.6380,3.6406,3.6431,3.6457, &
& 3.6482,3.6508,3.6534,3.6560,3.6585,3.6611,3.6637,3.6663, &
& 3.6689,3.6715,3.6741,3.6767,3.6793,3.6819,3.6845,3.6872, &
& 3.6898,3.6924,3.6950,3.6977,3.7003,3.7030,3.7056,3.7083, &
& 3.7109,3.7136,3.7162,3.7189,3.7216,3.7242,3.7269,3.7296, &
& 3.7323,3.7350,3.7377,3.7404,3.7431,3.7458,3.7485,3.7512, &
& 3.7539,3.7566,3.7594,3.7621,3.7648,3.7676,3.7703,3.7730, &
& 3.7758,3.7785,3.7813,3.7841,3.7868,3.7896,3.7924,3.7951, &
& 3.7979,3.8007,3.8035,3.8063,3.8091,3.8119,3.8147,3.8175, &
& 3.8203,3.8231,3.8259,3.8288,3.8316,3.8344,3.8373,3.8401, &
& 3.8430,3.8458,3.8487,3.8515,3.8544,3.8573,3.8601,3.8630, &
& 3.8659,3.8688,3.8717,3.8746,3.8775,3.8804,3.8833,3.8862, &
& 3.8891,3.8920,3.8949,3.8979,3.9008,3.9037,3.9067,3.9096, &
& 3.9126,3.9155,3.9185,3.9214,3.9244,3.9274,3.9304,3.9333, &
& 3.9363,3.9393,3.9423,3.9453,3.9483,3.9513,3.9544,3.9574, &
& 3.9604,3.9634,3.9665,3.9695,3.9725,3.9756,3.9786,3.9817, &
& 3.9847,3.9878,3.9909,3.9940,3.9970,4.0001,4.0032,4.0063, &
& 4.0094,4.0125,4.0156,4.0187,4.0218,4.0250,4.0281,4.0312, &
& 4.0344,4.0375,4.0406,4.0438,4.0470,4.0501,4.0533,4.0565, &
& 4.0596,4.0628,4.0660,4.0692,4.0724,4.0756,4.0788,4.0820, &
& 4.0852,4.0884,4.0917,4.0949,4.0981,4.1014,4.1046,4.1079, &
& 4.1111,4.1144,4.1177,4.1209,4.1242,4.1275,4.1308,4.1341, &
& 4.1374,4.1407,4.1440,4.1473,4.1506,4.1540,4.1573,4.1606, &
& 4.1640,4.1673,4.1707,4.1740,4.1774,4.1808,4.1841,4.1875, &
& 4.1909,4.1943,4.1977,4.2011,4.2045,4.2079,4.2113,4.2148, &
& 4.2182,4.2216,4.2251,4.2285,4.2320,4.2354,4.2389,4.2424, &
& 4.2458,4.2493,4.2528,4.2563,4.2598,4.2633,4.2668,4.2703, &
& 4.2738,4.2774,4.2809,4.2844,4.2880,4.2915,4.2951,4.2986, &
& 4.3022,4.3058,4.3094,4.3129,4.3165,4.3201,4.3237,4.3273, &
& 4.3310,4.3346,4.3382,4.3418,4.3455,4.3491,4.3528,4.3564, &
& 4.3601,4.3638,4.3674,4.3711,4.3748,4.3785,4.3822,4.3859, &
& 4.3896,4.3934,4.3971,4.4008,4.4045,4.4083,4.4120,4.4158, &
& 4.4196,4.4233,4.4271,4.4309,4.4347,4.4385,4.4423,4.4461, &
& 4.4499,4.4537,4.4576,4.4614,4.4652,4.4691,4.4730,4.4768, &
& 4.4807,4.4846,4.4884,4.4923,4.4962,4.5001,4.5040,4.5080, &
& 4.5119,4.5158,4.5197,4.5237,4.5276,4.5316,4.5356,4.5395, &
& 4.5435,4.5475,4.5515,4.5555,4.5595,4.5635,4.5675,4.5716, &
& 4.5756,4.5796,4.5837,4.5877,4.5918,4.5959,4.6000,4.6040, &
& 4.6081,4.6122,4.6163,4.6205,4.6246,4.6287,4.6328,4.6370, &
& 4.6411,4.6453,4.6495,4.6536,4.6578,4.6620,4.6662,4.6704, &
& 4.6746,4.6788,4.6831,4.6873,4.6915,4.6958,4.7000,4.7043, &
& 4.7086,4.7129,4.7172,4.7215,4.7258,4.7301,4.7344,4.7387, &
& 4.7431,4.7474,4.7517,4.7561,4.7605,4.7648,4.7692,4.7736, &
& 4.7780,4.7824,4.7868,4.7913,4.7957,4.8001,4.8046,4.8090, &
& 4.8135,4.8180,4.8225,4.8270,4.8315,4.8360,4.8405,4.8450, &
& 4.8495,4.8541,4.8586,4.8632,4.8678,4.8723,4.8769,4.8815, &
& 4.8861,4.8907,4.8953,4.9000,4.9046,4.9092,4.9139,4.9186, &
& 4.9232,4.9279,4.9326,4.9373,4.9420,4.9467,4.9514,4.9562, &
& 4.9609,4.9657,4.9704,4.9752,4.9800,4.9848,4.9896,4.9944, &
& 4.9992,5.0040,5.0088,5.0137,5.0185,5.0234,5.0283,5.0332, &
& 5.0380,5.0430,5.0479,5.0528,5.0577,5.0627,5.0676,5.0726, &
& 5.0775,5.0825,5.0875,5.0925,5.0975,5.1025,5.1075,5.1126, &
& 5.1176,5.1227,5.1277,5.1328,5.1379,5.1430,5.1481,5.1532, &
& 5.1584,5.1635,5.1686,5.1738,5.1790,5.1842,5.1893,5.1945, &
& 5.1998,5.2050,5.2102,5.2154,5.2207,5.2260,5.2312,5.2365, &
& 5.2418,5.2471,5.2524,5.2578,5.2631,5.2684,5.2738,5.2792, &
& 5.2846,5.2900,5.2954,5.3008,5.3062,5.3116,5.3171,5.3225, &
& 5.3280,5.3335,5.3390,5.3445,5.3500,5.3555,5.3611,5.3666, &
& 5.3722,5.3778,5.3833,5.3889,5.3945,5.4002,5.4058,5.4114, &
& 5.4171,5.4228,5.4284,5.4341,5.4398,5.4455,5.4513,5.4570, &
& 5.4628,5.4685,5.4743,5.4801,5.4859,5.4917,5.4975,5.5033, &
& 5.5092,5.5151,5.5209,5.5268,5.5327,5.5386,5.5445,5.5505, &
& 5.5564,5.5624,5.5684,5.5744,5.5804,5.5864,5.5924,5.5984, &
& 5.6045,5.6106,5.6166,5.6227,5.6288,5.6349,5.6411,5.6472, &
& 5.6534,5.6596,5.6657,5.6719,5.6782,5.6844,5.6906,5.6969, &
& 5.7031,5.7094,5.7157,5.7220,5.7283,5.7347,5.7410,5.7474, &
& 5.7538,5.7602,5.7666,5.7730,5.7794,5.7859,5.7924,5.7988, &
& 5.8053,5.8118,5.8184,5.8249,5.8314,5.8380,5.8446,5.8512, &
& 5.8578,5.8644,5.8711,5.8777,5.8844,5.8911,5.8978,5.9045, &
& 5.9112,5.9180,5.9247,5.9315,5.9383,5.9451,5.9520,5.9588, &
& 5.9657,5.9725,5.9794,5.9863,5.9932,6.0002,6.0071,6.0141, &
& 6.0211,6.0281,6.0351,6.0421,6.0492,6.0563,6.0633,6.0704, &
& 6.0776,6.0847,6.0918,6.0990,6.1062,6.1134,6.1206,6.1278, &
& 6.1351,6.1424,6.1496,6.1570,6.1643,6.1716,6.1790,6.1863, &
& 6.1937,6.2011,6.2086,6.2160,6.2235,6.2310,6.2385,6.2460, &
& 6.2535,6.2611,6.2686,6.2762,6.2838,6.2914,6.2991,6.3068, &
& 6.3144,6.3221,6.3299,6.3376,6.3454,6.3531,6.3609,6.3687, &
& 6.3766,6.3844,6.3923,6.4002,6.4081,6.4160,6.4240,6.4320, &
& 6.4399,6.4480,6.4560,6.4640,6.4721,6.4802,6.4883,6.4964, &
& 6.5046,6.5128,6.5209,6.5292,6.5374,6.5456,6.5539,6.5622, &
& 6.5705,6.5789,6.5872,6.5956,6.6040,6.6124,6.6209,6.6294, &
& 6.6378,6.6464,6.6549,6.6634,6.6720,6.6806,6.6892,6.6979, &
& 6.7065,6.7152,6.7239,6.7327,6.7414,6.7502,6.7590,6.7678, &
& 6.7767,6.7855,6.7944,6.8034,6.8123,6.8213,6.8302,6.8393, &
& 6.8483,6.8573,6.8664,6.8755,6.8847,6.8938,6.9030,6.9122, &
& 6.9214,6.9307,6.9400,6.9493,6.9586,6.9679,6.9773,6.9867, &
& 6.9962,7.0056,7.0151,7.0246,7.0341,7.0437,7.0533,7.0629, &
& 7.0725,7.0822,7.0919,7.1016,7.1113,7.1211,7.1309,7.1407, &
& 7.1506,7.1604,7.1703,7.1803,7.1902,7.2002,7.2102,7.2203, &
& 7.2303,7.2404,7.2506,7.2607,7.2709,7.2811,7.2914,7.3016, &
& 7.3119,7.3223,7.3326,7.3430,7.3534,7.3639,7.3743,7.3848, &
& 7.3954,7.4059,7.4165,7.4272,7.4378,7.4485,7.4592,7.4700, &
& 7.4807,7.4916,7.5024,7.5133,7.5242,7.5351,7.5461,7.5571, &
& 7.5681,7.5792,7.5903,7.6014,7.6126,7.6238,7.6350,7.6462, &
& 7.6575,7.6689,7.6802,7.6916,7.7031,7.7145,7.7260,7.7375, &
& 7.7491,7.7607,7.7723,7.7840,7.7957,7.8075,7.8192,7.8310, &
& 7.8429,7.8548,7.8667,7.8786,7.8906,7.9027,7.9147,7.9268, &
& 7.9390,7.9512,7.9634,7.9756,7.9879,8.0002,8.0126,8.0250, &
& 8.0374,8.0499,8.0624,8.0750,8.0876,8.1002,8.1129,8.1256, &
& 8.1384,8.1512,8.1640,8.1769,8.1898,8.2028,8.2158,8.2288, &
& 8.2419,8.2550,8.2682,8.2814,8.2946,8.3079,8.3213,8.3347, &
& 8.3481,8.3615,8.3750,8.3886,8.4022,8.4158,8.4295,8.4432, &
& 8.4570,8.4708,8.4847,8.4986,8.5126,8.5266,8.5406,8.5547, &
& 8.5688,8.5830,8.5973,8.6116,8.6259,8.6403,8.6547,8.6692, &
& 8.6837,8.6982,8.7129,8.7275,8.7422,8.7570,8.7718,8.7867, &
& 8.8016,8.8166,8.8316,8.8467,8.8618,8.8770,8.8922,8.9075, &
& 8.9228,8.9382,8.9536,8.9691,8.9847,9.0003,9.0159,9.0316, &
& 9.0474,9.0632,9.0791,9.0950,9.1110,9.1270,9.1431,9.1593, &
& 9.1755,9.1918,9.2081,9.2245,9.2409,9.2574,9.2740,9.2906, &
& 9.3073,9.3240,9.3408,9.3577,9.3746,9.3916,9.4086,9.4257, &
& 9.4429,9.4601,9.4774,9.4948,9.5122,9.5297,9.5472,9.5649, &
& 9.5825,9.6003,9.6181,9.6360,9.6539,9.6719,9.6900,9.7082, &
& 9.7264,9.7447,9.7630,9.7814,9.7999,9.8185,9.8371,9.8558, &
& 9.8746,9.8934,9.9123,9.9313,9.9504,9.9695,9.9887,10.0080, &
& 10.0274,10.0468,10.0663,10.0859,10.1056,10.1253,10.1451,10.1650, &
& 10.1850,10.2050,10.2251,10.2454,10.2656,10.2860,10.3065,10.3270, &
& 10.3476,10.3683,10.3891,10.4099,10.4309,10.4519,10.4730,10.4942, &
& 10.5155,10.5369,10.5584,10.5799,10.6015,10.6233,10.6451,10.6670, &
& 10.6890,10.7111,10.7332,10.7555,10.7779,10.8003,10.8229,10.8455, &
& 10.8682,10.8911,10.9140,10.9370,10.9602,10.9834,11.0067,11.0301, &
& 11.0536,11.0773,11.1010,11.1248,11.1487,11.1727,11.1969,11.2211, &
& 11.2455,11.2699,11.2944,11.3191,11.3439,11.3688,11.3937,11.4188, &
& 11.4440,11.4694,11.4948,11.5203,11.5460,11.5718,11.5977,11.6237, &
& 11.6498,11.6760,11.7024,11.7289,11.7555,11.7822,11.8090,11.8360, &
& 11.8631,11.8903,11.9176,11.9450,11.9726,12.0004,12.0282,12.0562, &
& 12.0843,12.1125,12.1409,12.1694,12.1980,12.2268,12.2557,12.2847, &
& 12.3139,12.3432,12.3727,12.4023,12.4320,12.4619,12.4919,12.5221, &
& 12.5524,12.5829,12.6135,12.6443,12.6752,12.7063,12.7375,12.7688, &
& 12.8004,12.8321,12.8639,12.8959,12.9281,12.9604,12.9929,13.0255, &
& 13.0583,13.0913,13.1244,13.1577,13.1912,13.2249,13.2587,13.2927, &
& 13.3269,13.3612,13.3957,13.4304,13.4653,13.5004,13.5356,13.5711, &
& 13.6067,13.6425,13.6785,13.7147,13.7511,13.7876,13.8244,13.8614, &
& 13.8985,13.9359,13.9734,14.0112 /)
real :: seawater(2124) = (/2.0276,2.033,2.0049,2.0081,2.0334,1.9922,1.9714,2.0, &
& 2.0095,1.9978,1.9885,1.9907,2.0188,2.0303,2.0098,2.0264, &
& 2.0330,1.9976,1.9856,1.9722,1.9844,2.0012,1.9976,1.9939, &
& 1.9956,2.0063,2.0115,2.0139,2.0068,1.9990,1.9871,1.9783, &
& 1.9680,1.9668,1.9836,2.0098,2.0185,2.0310,2.0122,1.9897, &
& 2.0046,2.0112,2.0054,1.9958,1.9985,2.0056,1.9958,1.9824, &
& 1.9834,1.9839,1.9839,1.9856,1.9922,1.9954,1.9734,1.9790, &
& 1.9678,1.9629,1.9582,1.9595,1.9917,2.0066,2.0068,2.0151, &
& 1.9912,1.9780,1.9858,1.9683,1.9619,1.9751,1.9983,1.9998, &
& 1.9619,1.9568,1.9602,1.9451,1.9477,1.9695,1.9946,1.9910, &
& 1.9800,1.9780,1.9536,1.9465,1.9639,1.9761,1.9853,1.9756, &
& 1.9729,1.9646,1.9499,1.9602,1.9617,1.9619,1.9536,1.9338, &
& 1.9412,1.9624,1.9687,1.9636,1.9644,1.9673,1.9421,1.9402, &
& 1.9482,1.9377,1.9343,1.9653,1.9509,1.9360,1.9570,1.9631, &
& 1.9644,1.9639,1.9529,1.9477,1.9582,1.9519,1.9228,1.9258, &
& 1.9438,1.9416,1.9290,1.9250,1.9355,1.9224,1.9228,1.9477, &
& 1.9377,1.9377,1.9536,1.9602,1.9370,1.9316,1.9414,1.9302, &
& 1.9221,1.9338,1.9311,1.9233,1.9341,1.9329,1.9258,1.9426, &
& 1.9473,1.9336,1.9268,1.9326,1.9360,1.9431,1.9402,1.9060, &
& 1.8970,1.9072,1.9202,1.9211,1.9097,1.8994,1.9082,1.9241, &
& 1.9189,1.9143,1.9199,1.9302,1.9167,1.9202,1.9175,1.9028, &
& 1.9209,1.9172,1.9170,1.9209,1.9163,1.9048,1.8970,1.8933, &
& 1.9045,1.9158,1.9021,1.9038,1.9038,1.8899,1.8909,1.8967, &
& 1.9001,1.9204,1.9189,1.9067,1.9138,1.9185,1.8987,1.8962, &
& 1.9060,1.9004,1.8779,1.8667,1.8801,1.8938,1.8928,1.8943, &
& 1.8811,1.8718,1.8662,1.8760,1.8855,1.8935,1.8838,1.8660, &
& 1.8672,1.8740,1.8857,1.8782,1.8638,1.8850,1.8899,1.8735, &
& 1.8735,1.8723,1.8735,1.8774,1.8625,1.8603,1.8713,1.8672, &
& 1.8552,1.8769,1.8845,1.8708,1.8638,1.8579,1.8547,1.8677, &
& 1.8606,1.8376,1.8342,1.8528,1.8623,1.8503,1.8379,1.8645, &
& 1.8748,1.8557,1.8535,1.8665,1.8638,1.8445,1.8403,1.8672, &
& 1.8608,1.8489,1.8428,1.8450,1.8394,1.8467,1.8599,1.8479, &
& 1.8372,1.8413,1.8496,1.8484,1.8430,1.8369,1.8230,1.8357, &
& 1.8367,1.8140,1.8127,1.8281,1.8530,1.8540,1.8284,1.8247, &
& 1.8301,1.8242,1.8235,1.8101,1.8022,1.8105,1.8113,1.8171, &
& 1.8311,1.8428,1.8210,1.8113,1.8098,1.8064,1.8132,1.8203, &
& 1.8262,1.8118,1.8015,1.8169,1.8293,1.8318,1.8135,1.8042, &
& 1.8000,1.8018,1.8123,1.8083,1.7949,1.7742,1.7729,1.7974, &
& 1.8149,1.8118,1.7942,1.7847,1.7798,1.7778,1.7866,1.7878, &
& 1.7729,1.7725,1.7749,1.7729,1.7839,1.7895,1.7800,1.7717, &
& 1.7756,1.7830,1.7776,1.7778,1.7749,1.7744,1.7800,1.7810, &
& 1.7886,1.7856,1.7839,1.7893,1.7712,1.7480,1.7515,1.7620, &
& 1.7744,1.7764,1.7500,1.7519,1.7600,1.7468,1.7295,1.7178, &
& 1.7307,1.7507,1.7344,1.7317,1.7400,1.7427,1.7217,1.7266, &
& 1.7422,1.7395,1.7339,1.7292,1.7397,1.7546,1.7356,1.7266, &
& 1.7368,1.7407,1.7373,1.7231,1.7104,1.7095,1.7087,1.7063, &
& 1.6982,1.7039,1.7165,1.7185,1.7251,1.7095,1.6865,1.6919, &
& 1.6907,1.6916,1.6934,1.6868,1.6904,1.6960,1.6870,1.6929, &
& 1.6999,1.6951,1.6838,1.6821,1.6677,1.6636,1.6728,1.6777, &
& 1.6790,1.6848,1.6758,1.6645,1.6741,1.6680,1.6477,1.6523, &
& 1.6570,1.6611,1.6604,1.6545,1.6494,1.6519,1.6416,1.6411, &
& 1.6416,1.6484,1.6414,1.6313,1.6235,1.6189,1.6206,1.6311, &
& 1.6387,1.6394,1.6226,1.6121,1.6189,1.6184,1.6147,1.6174, &
& 1.6167,1.6147,1.6062,1.5930,1.5749,1.5767,1.5930,1.5876, &
& 1.5779,1.5847,1.5832,1.5881,1.5747,1.5864,1.5840,1.5549, &
& 1.5623,1.5679,1.5574,1.5493,1.5188,1.4919,1.4929,1.5193, &
& 1.4949,1.4685,1.5320,1.5603,1.5481,1.5041,1.4448,1.4465, &
& 1.4829,1.5093,1.4665,1.4600,1.4573,1.4141,1.3782,1.4353, &
& 1.5100,1.5164,1.5090,1.4636,1.3130,1.1960,1.1897,1.2041, &
& 1.3086,1.4397,1.4233,1.3174,1.3027,1.3689,1.2686,1.2578, &
& 1.3108,1.2517,1.3274,1.4143,1.3228,1.2771,1.1763,1.1350, &
& 1.2424,1.2065,1.2124,1.2881,1.3538,1.3030,1.0725,0.8372, &
& 0.9636,1.2375,1.3713,1.3582,1.2739,1.2056,1.1162,1.0359, &
& 1.0835,1.1750,1.1953,1.2368,1.2908,1.2581,1.2622,1.1401, &
& 1.0127,1.1248,1.0955,1.0977,1.2759,1.3459,1.2742,1.1318, &
& 1.1511,1.1167,0.9853,1.0854,1.1748,1.1816,1.2759,1.3064, &
& 1.2895,1.2722,1.2358,1.2322,1.2422,1.1763,1.1692,1.2373, &
& 1.2541,1.2097,1.1060,1.0898,1.1179,1.1062,1.1428,1.1042, &
& 1.0554,1.0518,1.0588,0.9380,0.7893,0.7749,0.8603,0.7900, &
& 0.7556,0.9285,0.9927,0.9116,0.7927,0.7898,0.8350,0.9482, &
& 0.9839,0.9246,0.9102,0.9075,0.9094,0.9377,0.9551,0.9224, &
& 0.7991,0.7415,0.7988,0.8735,0.8870,0.8376,0.7905,0.8228, &
& 0.8472,0.8342,0.7949,0.7007,0.5964,0.6128,0.7173,0.7456, &
& 0.7180,0.6704,0.6230,0.5266,0.5283,0.5769,0.5308,0.5562, &
& 0.6287,0.6606,0.6643,0.6555,0.6304,0.5771,0.5637,0.5652, &
& 0.4893,0.4460,0.4805,0.5554,0.6030,0.6252,0.6355,0.6338, &
& 0.6362,0.6270,0.5996,0.5105,0.4998,0.5857,0.6453,0.6372, &
& 0.5837,0.5815,0.6057,0.6011,0.5898,0.6135,0.6138,0.6255, &
& 0.6731,0.7036,0.7007,0.6990,0.6968,0.6943,0.7100,0.7437, &
& 0.7095,0.6587,0.6936,0.7710,0.8013,0.8044,0.8306,0.8411, &
& 0.8655,0.8765,0.8340,0.7622,0.7590,0.8472,0.8975,0.9084, &
& 0.9346,0.9712,0.9707,0.9639,0.9927,1.0156,1.0056,1.0237, &
& 1.0605,1.1099,1.1460,1.1475,1.1689,1.2148,1.2178,1.2107, &
& 1.2292,1.2529,1.2620,1.2815,1.3398,1.3867,1.4065,1.4468, &
& 1.4707,1.4475,1.4697,1.5210,1.5159,1.5366,1.6042,1.6562, &
& 1.6655,1.6846,1.7126,1.7502,1.7561,1.7803,1.8391,1.8748, &
& 1.8950,1.9326,1.9751,2.0139,2.0300,2.0310,2.0544,2.1033, &
& 2.1492,2.1670,2.1765,2.2163,2.2524,2.3076,2.3525,2.3752, &
& 2.3928,2.3923,2.4033,2.4517,2.4709,2.5129,2.5815,2.6304, &
& 2.6580,2.6775,2.7070,2.7627,2.7793,2.8057,2.8274,2.8186, &
& 2.8540,2.9275,2.9560,2.9651,3.0012,3.0351,3.0515,3.0798, &
& 3.1250,3.1562,3.1587,3.1562,3.1985,3.2461,3.2424,3.2578, &
& 3.2908,3.3235,3.3298,3.3528,3.3967,3.4153,3.4143,3.4158, &
& 3.4368,3.4702,3.4734,3.4629,3.4768,3.5051,3.4988,3.5083, &
& 3.5420,3.5720,3.5666,3.5784,3.6003,3.5886,3.5969,3.6157, &
& 3.6045,3.6047,3.6221,3.6296,3.6382,3.6582,3.6611,3.6523, &
& 3.6545,3.6711,3.6780,3.6929,3.7046,3.7075,3.6999,3.6760, &
& 3.6833,3.6985,3.7190,3.7475,3.7392,3.7390,3.7532,3.7554, &
& 3.7483,3.7429,3.7490,3.7678,3.7756,3.7829,3.7974,3.8074, &
& 3.7895,3.7974,3.8088,3.8071,3.8037,3.8191,3.8437,3.8542, &
& 3.8584,3.8572,3.8579,3.8794,3.9009,3.8762,3.8642,3.8987, &
& 3.9087,3.9048,3.9014,3.9109,3.9314,3.9341,3.9377,3.9277, &
& 3.9407,3.9585,3.9646,3.9700,3.9704,3.9675,3.9551,3.9529, &
& 3.9602,3.9690,3.9648,3.9653,3.9475,3.9475,3.9795,3.9917, &
& 3.9800,3.9722,3.9585,3.9526,3.9707,3.9790,3.9748,3.9661, &
& 3.9551,3.9560,3.9556,3.9617,3.9580,3.9407,3.9304,3.9189, &
& 3.9101,3.9092,3.9162,3.9106,3.8938,3.8806,3.8696,3.8721, &
& 3.8769,3.8708,3.8628,3.8594,3.8552,3.8467,3.8325,3.8220, &
& 3.8298,3.8203,3.7981,3.7849,3.7673,3.7690,3.7676,3.7461, &
& 3.7346,3.7183,3.7031,3.7060,3.6882,3.6680,3.6658,3.6667, &
& 3.6687,3.6724,3.6587,3.6504,3.6374,3.6111,3.5933,3.5935, &
& 3.5898,3.5871,3.5749,3.5757,3.5757,3.5637,3.5464,3.5288, &
& 3.5110,3.5044,3.5029,3.5088,3.5063,3.4990,3.4719,3.4517, &
& 3.4517,3.4531,3.4538,3.4482,3.4116,3.4001,3.4009,3.3999, &
& 3.3870,3.3660,3.3711,3.3657,3.3542,3.3562,3.3523,3.3313, &
& 3.3191,3.2947,3.2793,3.2830,3.2849,3.2954,3.2913,3.2737, &
& 3.2634,3.2524,3.2412,3.2410,3.2207,3.2109,3.2219,3.2121, &
& 3.1968,3.1909,3.1682,3.1684,3.1582,3.1492,3.1582,3.1536, &
& 3.1487,3.1462,3.1265,3.1287,3.1335,3.1182,3.1042,3.0979, &
& 3.0913,3.0801,3.0640,3.0625,3.0571,3.0486,3.0513,3.0395, &
& 3.0344,3.0290,3.0344,3.0298,3.0090,3.0078,3.0059,2.9961, &
& 2.9863,2.9785,2.9829,2.9868,2.9690,2.9541,2.9497,2.9370, &
& 2.9404,2.9416,2.9265,2.9160,2.9246,2.9214,2.9043,2.9101, &
& 2.9133,2.8987,2.8889,2.8804,2.8740,2.8740,2.8762,2.8704, &
& 2.8645,2.8603,2.8489,2.8550,2.8506,2.8391,2.8389,2.8364, &
& 2.8235,2.8274,2.8274,2.8269,2.8059,2.7959,2.8022,2.7991, &
& 2.7930,2.7810,2.7749,2.7717,2.7688,2.7781,2.7676,2.7463, &
& 2.7583,2.7624,2.7529,2.7541,2.7510,2.7417,2.7400,2.7351, &
& 2.7324,2.7231,2.7236,2.7270,2.7202,2.7070,2.6987,2.7002, &
& 2.7017,2.7019,2.6997,2.7039,2.7004,2.6872,2.6872,2.6902, &
& 2.6929,2.6934,2.6765,2.6663,2.6706,2.6623,2.6570,2.6560, &
& 2.6567,2.6626,2.6650,2.6501,2.6440,2.6406,2.6414,2.6523, &
& 2.6467,2.6418,2.6309,2.6316,2.6362,2.6326,2.6196,2.6113, &
& 2.6077,2.6086,2.6150,2.6125,2.6030,2.5928,2.5893,2.5886, &
& 2.5920,2.5937,2.5930,2.5893,2.5847,2.5781,2.5789,2.5823, &
& 2.5793,2.5779,2.5774,2.5644,2.5586,2.5703,2.5586,2.5376, &
& 2.5444,2.5588,2.5518,2.5478,2.5425,2.5444,2.5378,2.5295, &
& 2.5286,2.5373,2.5449,2.5349,2.5195,2.5229,2.5315,2.5227, &
& 2.5195,2.5151,2.5166,2.5242,2.5173,2.5159,2.5190,2.5049, &
& 2.4849,2.4917,2.5027,2.4995,2.4917,2.4936,2.4983,2.4900, &
& 2.4853,2.4880,2.4829,2.4819,2.4761,2.4827,2.4907,2.4817, &
& 2.4800,2.4702,2.4651,2.4709,2.4673,2.4626,2.4602,2.4595, &
& 2.4600,2.4560,2.4509,2.4473,2.4560,2.4548,2.4451,2.4431, &
& 2.4456,2.4434,2.4329,2.4299,2.4426,2.4424,2.4268,2.4172, &
& 2.4226,2.4228,2.4211,2.4209,2.4224,2.4202,2.4077,2.4070, &
& 2.4114,2.4077,2.3982,2.4050,2.4055,2.3948,2.3975,2.4053, &
& 2.3965,2.3916,2.3894,2.3857,2.3882,2.3840,2.3750,2.3694, &
& 2.3757,2.3813,2.3840,2.3760,2.3684,2.3669,2.3606,2.3591, &
& 2.3596,2.3716,2.3664,2.3545,2.3574,2.3616,2.3603,2.3655, &
& 2.3628,2.3498,2.3445,2.3403,2.3320,2.3384,2.3423,2.3376, &
& 2.3393,2.3393,2.3408,2.3306,2.3269,2.3328,2.3320,2.3252, &
& 2.3267,2.3306,2.3291,2.3303,2.3298,2.3203,2.3086,2.3101, &
& 2.3140,2.3154,2.3152,2.3132,2.3054,2.3086,2.3086,2.3098, &
& 2.3101,2.3015,2.2986,2.3039,2.3022,2.3035,2.2993,2.2915, &
& 2.2998,2.2966,2.2876,2.2900,2.2944,2.2893,2.2808,2.2810, &
& 2.2776,2.2815,2.2815,2.2710,2.2710,2.2749,2.2776,2.2717, &
& 2.2685,2.2739,2.2695,2.2588,2.2612,2.2598,2.2532,2.2490, &
& 2.2529,2.2549,2.2488,2.2498,2.2507,2.2493,2.2476,2.2466, &
& 2.2478,2.2441,2.2327,2.2224,2.2244,2.2278,2.2285,2.2395, &
& 2.2327,2.2180,2.2241,2.2305,2.2258,2.2202,2.2183,2.2241, &
& 2.2248,2.2158,2.2124,2.2248,2.2307,2.2234,2.2205,2.2175, &
& 2.2224,2.2180,2.2153,2.2146,2.2119,2.2148,2.2141,2.2143, &
& 2.2153,2.2119,2.2085,2.2073,2.2078,2.2102,2.2068,2.2053, &
& 2.2060,2.2078,2.2060,2.1982,2.1931,2.1909,2.1865,2.1853, &
& 2.1899,2.2009,2.2039,2.1973,2.1914,2.1916,2.1943,2.1912, &
& 2.1909,2.1887,2.1794,2.1863,2.1882,2.1846,2.1841,2.1807, &
& 2.1838,2.1855,2.1882,2.1826,2.1736,2.1685,2.1697,2.1814, &
& 2.1804,2.1699,2.1706,2.1697,2.1653,2.1709,2.1760,2.1716, &
& 2.1672,2.1699,2.1716,2.1692,2.1606,2.1538,2.1619,2.1626, &
& 2.1616,2.1636,2.1641,2.1570,2.1633,2.1682,2.1606,2.1638, &
& 2.1719,2.1650,2.1604,2.1648,2.1533,2.1479,2.1531,2.1626, &
& 2.1680,2.1597,2.1580,2.1636,2.1643,2.1540,2.1475,2.1531, &
& 2.1631,2.1658,2.1592,2.1582,2.1533,2.1565,2.1614,2.1602, &
& 2.1514,2.1482,2.1584,2.1670,2.1631,2.1545,2.1565,2.1567, &
& 2.1589,2.1592,2.1523,2.1540,2.1550,2.1536,2.1538,2.1543, &
& 2.1509,2.1531,2.1562,2.1543,2.1545,2.1582,2.1558,2.1433, &
& 2.1387,2.1470,2.1479,2.1492,2.1443,2.1409,2.1470,2.1497, &
& 2.1516,2.1550,2.1545,2.1521,2.1592,2.1553,2.1406,2.1399, &
& 2.1435,2.1421,2.1450,2.1479,2.1531,2.1479,2.1521,2.1565, &
& 2.1526,2.1462,2.1343,2.1333,2.1443,2.1367,2.1360,2.1455, &
& 2.1450,2.1367,2.1367,2.1399,2.1328,2.1318,2.1194,2.0969, &
& 2.1130,2.1316,2.1323,2.1411,2.1338,2.1272,2.1265,2.1243, &
& 2.1199,2.1250,2.1269,2.1094,2.0601,2.0735,2.1016,2.1103, &
& 2.1130,2.1086,2.1089,2.1135,2.1162,2.1130,2.1130,2.1033, &
& 2.0747,2.0415,2.0664,2.0933,2.0935,2.0959,2.0906,2.0749, &
& 2.0723,2.0776,2.0762,2.0623,2.0537,2.0054,1.9541,2.0237, &
& 2.0681,2.0671,2.0608,2.0515,2.0508,2.0554,2.0518,2.0154, &
& 1.9573,1.9807,1.9248,1.9065,2.0012,2.0305,2.0027,1.9641, &
& 1.9929,2.0188,2.0207,2.0146,2.0200,2.0054,1.9790,1.9795, &
& 1.9790,1.9082,1.9160,1.9736,1.9827,1.9873,1.9853,1.9790, &
& 1.9822,1.9831,1.9702,1.8506,1.7043,1.7800,1.9153,1.9651, &
& 1.9639,1.9531,1.9443,1.9563,1.9531,1.9436,1.9072,1.8628, &
& 1.7319,1.6277,1.7932,1.9072,1.8914,1.8835,1.8975,1.8298, &
& 1.6675,1.7031,1.7571,1.7197,1.8269,1.8767,1.8684,1.8542, &
& 1.8689,1.8142,1.7563,1.7756,1.8169,1.8157,1.7703,1.6724, &
& 1.6584,1.7090,1.7134,1.5713,1.4705,1.6284,1.7615,1.7180, &
& 1.6836,1.6760,1.6484,1.6970,1.6731,1.5276,1.3332,1.4050, &
& 1.5078,1.5908,1.6682,1.5442,1.5129,1.5706,1.5269,1.5752, &
& 1.5469,1.3535,1.3208,1.3914,1.4700,1.4624,1.4275,1.3560, &
& 1.4385,1.3003,1.0662,1.2395,1.4075,1.4956,1.5425,1.4980, &
& 1.4873,1.3896,1.1094,1.0315,1.1841,1.3503,1.4297,1.3931, &
& 1.2739,1.2039,1.2217,0.9609,0.9329,1.0317,1.0354,1.2988, &
& 1.4045,1.3489,1.3213,1.0918,0.9351,1.2043,1.3848,1.4412, &
& 1.2971,1.3066,1.3965,1.2749,1.3389,1.5950,1.6123,1.5190, &
& 1.6750,1.8079,1.7571,1.3252,1.0032,1.4512,1.6848,1.4722, &
& 1.6521,2.0290,2.1523,2.1125,1.8359,1.5759,1.9456,2.3301, &
& 2.3332,2.2248,2.2319,2.1040,2.1965,2.4021,2.1428,1.9304, &
& 2.2876,2.4834,2.4385,2.4028,2.4414,2.4482,2.4282,2.4304, &
& 2.4546,2.4094,2.3630,2.3599,2.3840,2.3774,2.3857,2.3674, &
& 2.3601,2.3391,2.2905,1.9519,1.7334,2.0564,2.1333,1.8503, &
& 1.9480,2.0991,2.0854,1.9534,1.3362,1.0708,1.5076,1.7534, &
& 1.9329,1.9795,2.0061,1.9880,1.7190,1.4900,1.2187,1.2563, &
& 1.7331,1.8540,1.6777,1.8879,1.9597,1.8081,1.6875,1.6128, &
& 1.3894,1.5029,1.6145,1.6616,1.8464,1.8359,1.7136,1.3508, &
& 1.1650,1.5952,1.9746,1.9250,1.7356,1.6499,1.8442,1.9529, &
& 1.7153,1.6191,1.7637,1.9534,2.0410,2.0041,2.0168,1.8831, &
& 1.7029,1.5120,1.5544,1.8855,1.9775,1.8064,1.7720,1.9302, &
& 1.7688,1.3643,1.3264,1.7322,1.9226,1.9290,1.8389,1.8862, &
& 1.9907,2.0112,1.9998,1.8428,1.5720,1.7107,1.9111,1.8750, &
& 1.8542,1.9346,1.9075,1.8540,1.7920,1.5666,1.6345,1.8618, &
& 1.9414,1.9368,1.9558,1.9543,1.8677,1.8462,1.9172,1.8186, &
& 1.7444,1.7212,1.6733,1.8311,1.9187,1.8091,1.7461,1.8704, &
& 1.9236,1.9106,1.8835,1.8506,1.7524,1.7461,1.8423,1.8506, &
& 1.8560,1.8545,1.7319,1.7065,1.8137,1.8613,1.8562,1.8630, &
& 1.8701,1.8621,1.8555,1.8567,1.8579,1.8262,1.7346,1.7068, &
& 1.7681,1.8262,1.8506,1.8425,1.8354,1.8386,1.8332,1.8196, &
& 1.8054,1.7827,1.7852,1.7886,1.7805,1.7978,1.8064,1.7922, &
& 1.7935,1.7947,1.8030,1.8127,1.8105,1.7976,1.7978,1.7905, &
& 1.7891,1.7871,1.7949,1.7854,1.7793,1.7817,1.7839,1.7744, &
& 1.7751,1.7820,1.7642,1.7576,1.7690,1.7688,1.7673,1.7622, &
& 1.7561,1.7622,1.7632,1.7563,1.7583,1.7686,1.7632,1.7544, &
& 1.7598,1.7646,1.7581,1.7429,1.7346,1.7427,1.7537,1.7485, &
& 1.7515,1.7417,1.7334,1.7300,1.7305,1.7419,1.7446,1.7270, &
& 1.7200,1.7112,1.7202,1.7331,1.7251,1.7104,1.7002,1.6960, &
& 1.7021,1.7036,1.6946,1.6782,1.6785,1.6790,1.6765,1.6711, &
& 1.6721,1.6694,1.6643,1.6543,1.6472,1.6433,1.6443,1.6311, &
& 1.6335,1.6238,1.6267,1.6213,1.6265,1.6250,1.6147,1.6074, &
& 1.6121,1.5991,1.5894,1.5876,1.5977,1.6018,1.6045,1.5818, &
& 1.5813,1.5942,1.5959,1.5764,1.5635,1.5579,1.5618,1.5666, &
& 1.5657,1.5461,1.5493,1.5537,1.5686,1.5725,1.5496,1.5347, &
& 1.5388,1.5281,1.5200,1.5281,1.5234,1.5100,1.5186,1.5215, &
& 1.5124,1.5195,1.5288,1.4998,1.4895,1.4827,1.4758,1.4790, &
& 1.4978,1.4900,1.4692,1.4622,1.4663,1.4375,1.4363,1.4468, &
& 1.4348,1.4163,1.4243,1.4133,1.3916,1.3765,1.3823,1.3840, &
& 1.3855,1.3625,1.3594,1.3647,1.3555,1.3286,1.3159,1.3186, &
& 1.3184,1.2998,1.2905,1.2786,1.2839,1.2795,1.2681,1.2488, &
& 1.2485,1.2324,1.2234,1.2373,1.2480,1.2168,1.1926,1.1853, &
& 1.1921,1.2012,1.1782,1.1421,1.1475,1.1462,1.1384,1.1326, &
& 1.1438,1.1248,1.1064,1.0947,1.0984,1.0823,1.0708,1.0627, &
& 1.0552,1.0400,1.0322,1.0352,1.0422,1.0207,1.0234,1.0234, &
& 1.0051,0.9961,1.0051,0.9900,0.9773,0.9697,0.9712,0.9607, &
& 0.9448,0.9436,0.9568,0.9380,0.9285,0.9343,0.9346,0.9243, &
& 0.9307,0.9204,0.9087,0.9180,0.9209,0.9053,0.9075,0.9048, &
& 0.9194,0.9248,0.9207,0.9080,0.9136,0.9048,0.9038,0.9119, &
& 0.9373,0.9556,0.9582,0.9448,0.9436,0.9504,0.9683,0.9763, &
& 0.9849,0.9944,1.0200,1.0190,1.0291,1.0547,1.0703,1.0818, &
& 1.1008,1.1152,1.1562,1.1675,1.1665,1.1992,1.2256,1.2378, &
& 1.2624,1.2620,1.2778,1.3037,1.3352,1.3691,1.4211,1.4604, &
& 1.4841,1.5015,1.5239,1.5435,1.5781,1.6111,1.6304,1.6479, &
& 1.7095,1.7344,1.7581,1.7827,1.8303,1.8784,1.9043,1.9189, &
& 1.9670,2.0034,2.0469,2.0784,2.1338,2.1724,2.2178,2.2561, &
& 2.2881,2.3179,2.3599,2.4065,2.4514,2.4548,2.5039,2.5649, &
& 2.6206,2.6497,2.6904,2.7224,2.7595,2.7869,2.8372,2.8914, &
& 2.9409,2.9548,3.0049,3.0415,3.0898,3.1182,3.1531,3.1958, &
& 3.2519,3.2678,3.3098,3.3667,3.4392,3.4790,3.5347,3.5698, &
& 3.6062,3.6145,3.6462,3.6548 /)
plasim/src/specs/water.seawater.none.liquid.tir.seawater.jhu.becknic.spectrum_interp_f90.txt
+121
View File
@@ -0,0 +1,121 @@
real :: seawater(965) = (/2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0276, &
& 2.0276,2.0276,2.0276,2.0276,2.0276,2.0276,2.0310,1.9996, &
& 1.9831,1.9990,1.9619,1.9477,1.9286,1.9064,1.9032,1.9180, &
& 1.8930,1.8763,1.8744,1.8573,1.8645,1.8513,1.8491,1.8530, &
& 1.8109,1.8203,1.8005,1.8012,1.7733,1.7752,1.7501,1.7311, &
& 1.7257,1.7326,1.7001,1.6916,1.6879,1.6739,1.6570,1.6313, &
& 1.6144,1.5824,1.5769,1.5213,1.5481,1.4573,1.3246,1.3052, &
& 1.3580,1.3134,1.3517,1.2272,1.0962,1.0055,1.2610,1.2224, &
& 1.0551,0.7777,0.9078,0.9514,0.8411,0.5964,0.5267,0.6637, &
& 0.4460,0.6359,0.6399,0.6136,0.6963,0.7607,0.8538,0.9392, &
& 1.0177,1.2152,1.3165,1.4697,1.6727,1.8636,2.0309,2.2231, &
& 2.3964,2.6442,2.8185,2.9885,3.1579,3.2792,3.4147,3.4694, &
& 3.5701,3.6137,3.6570,3.6885,3.6892,3.7533,3.7730,3.8006, &
& 3.8525,3.8927,3.9020,3.9313,3.9684,3.9648,3.9868,3.9768, &
& 3.9556,3.9167,3.8879,3.8657,3.8246,3.7692,3.7191,3.6658, &
& 3.6504,3.5898,3.5643,3.5031,3.4565,3.4255,3.3770,3.3551, &
& 3.2795,3.2771,3.2304,3.1957,3.1505,3.1363,3.1036,3.0630, &
& 3.0383,3.0144,2.9843,2.9582,2.9390,2.9113,2.8889,2.8742, &
& 2.8531,2.8364,2.8205,2.7957,2.7693,2.7585,2.7490,2.7285, &
& 2.7130,2.7018,2.6900,2.6933,2.6630,2.6624,2.6407,2.6420, &
& 2.6329,2.6085,2.5952,2.5932,2.5809,2.5787,2.5618,2.5455, &
& 2.5431,2.5289,2.5286,2.5222,2.5231,2.5112,2.5020,2.4978, &
& 2.4853,2.4838,2.4727,2.4658,2.4599,2.4510,2.4432,2.4315, &
& 2.4274,2.4221,2.4205,2.4103,2.4054,2.4041,2.3875,2.3762, &
& 2.3819,2.3675,2.3595,2.3550,2.3626,2.3460,2.3382,2.3393, &
& 2.3290,2.3278,2.3294,2.3206,2.3142,2.3113,2.3091,2.3001, &
& 2.3029,2.2969,2.2893,2.2829,2.2807,2.2710,2.2728,2.2704, &
& 2.2601,2.2519,2.2495,2.2482,2.2458,2.2233,2.2320,2.2192, &
& 2.2255,2.2236,2.2133,2.2265,2.2194,2.2152,2.2147,2.2150, &
& 2.2079,2.2094,2.2060,2.2005,2.1891,2.1911,2.1987,2.1928, &
& 2.1907,2.1847,2.1844,2.1838,2.1847,2.1688,2.1806,2.1702, &
& 2.1708,2.1693,2.1714,2.1565,2.1625,2.1639,2.1639,2.1626, &
& 2.1646,2.1583,2.1531,2.1642,2.1629,2.1519,2.1604,2.1591, &
& 2.1550,2.1603,2.1510,2.1645,2.1565,2.1590,2.1534,2.1536, &
& 2.1533,2.1550,2.1545,2.1535,2.1425,2.1488,2.1410,2.1501, &
& 2.1548,2.1568,2.1422,2.1433,2.1459,2.1506,2.1551,2.1472, &
& 2.1333,2.1366,2.1453,2.1367,2.1358,2.1231,2.1099,2.1322, &
& 2.1338,2.1263,2.1208,2.1226,2.0642,2.1046,2.1112,2.1109, &
& 2.1147,2.1083,2.0581,2.0798,2.0947,2.0829,2.0748,2.0699, &
& 2.0338,1.9800,2.0678,2.0583,2.0517,2.0469,1.9582,1.9270, &
& 1.9887,2.0091,1.9831,2.0198,2.0168,1.9976,1.9794,1.9082, &
& 1.9651,1.9859,1.9819,1.9825,1.9485,1.7043,1.8887,1.9644, &
& 1.9496,1.9557,1.9439,1.8739,1.6789,1.8252,1.8911,1.8944, &
& 1.7459,1.7171,1.7203,1.8621,1.8623,1.8615,1.7653,1.7980, &
& 1.8049,1.6806,1.6888,1.6755,1.4772,1.7083,1.7090,1.6767, &
& 1.6755,1.6445,1.3677,1.4514,1.5959,1.5822,1.5297,1.5311, &
& 1.5611,1.3504,1.3690,1.4680,1.4330,1.3895,1.3046,1.1583, &
& 1.4156,1.5252,1.4960,1.4167,1.0902,1.1512,1.3744,1.3998, &
& 1.2506,1.2188,0.9513,1.0155,1.1219,1.3856,1.3407,1.1424, &
& 1.0024,1.3325,1.4161,1.3031,1.3859,1.3092,1.5877,1.5736, &
& 1.6505,1.7941,1.4548,1.0537,1.5747,1.4842,1.7795,2.1210, &
& 2.0741,1.6987,1.9148,2.3310,2.2604,2.2250,2.1420,2.3570, &
& 2.1137,2.1090,2.4543,2.4317,2.4234,2.4473,2.4286,2.4433, &
& 2.4159,2.3624,2.3720,2.3786,2.3836,2.3643,2.3448,2.2861, &
& 1.8847,1.9264,2.1244,1.8664,2.0139,2.0894,1.9567,1.2724, &
& 1.2892,1.6919,1.9335,1.9861,1.9971,1.7887,1.4957,1.2266, &
& 1.4656,1.8127,1.6973,1.8949,1.9116,1.7442,1.6326,1.4029, &
& 1.5177,1.6302,1.7584,1.8389,1.7265,1.3375,1.2751,1.7559, &
& 1.9448,1.7796,1.6559,1.8542,1.8949,1.6766,1.6989,1.8952, &
& 2.0269,2.0049,2.0016,1.8386,1.6313,1.5334,1.7604,1.9537, &
& 1.8311,1.7728,1.9176,1.6924,1.3531,1.4869,1.8253,1.9263, &
& 1.8683,1.8749,1.9748,2.0097,1.9998,1.8224,1.5929,1.7555, &
& 1.9007,1.8678,1.8867,1.9220,1.8799,1.8188,1.6535,1.6112, &
& 1.7931,1.9207,1.9378,1.9521,1.9545,1.8793,1.8486,1.9107, &
& 1.8256,1.7489,1.7221,1.6748,1.8264,1.9169,1.8113,1.7474, &
& 1.8667,1.9220,1.9111,1.8851,1.8529,1.7611,1.7468,1.8292, &
& 1.8493,1.8550,1.8548,1.7628,1.7138,1.7787,1.8436,1.8583, &
& 1.8599,1.8666,1.8595,1.8559,1.8570,1.8514,1.8134,1.7325, &
& 1.7068,1.7641,1.8177,1.8452,1.8450,1.8381,1.8362,1.8284, &
& 1.8159,1.8015,1.7829,1.7851,1.7882,1.7824,1.7919,1.8026, &
& 1.7926,1.7938,1.7955,1.8029,1.8113,1.8111,1.8027,1.7953, &
& 1.7902,1.7889,1.7872,1.7934,1.7886,1.7802,1.7822,1.7833, &
& 1.7752,1.7749,1.7792,1.7624,1.7589,1.7684,1.7688,1.7679, &
& 1.7606,1.7566,1.7616,1.7629,1.7570,1.7601,1.7684,1.7643, &
& 1.7566,1.7608,1.7645,1.7593,1.7396,1.7361,1.7426,1.7512, &
& 1.7495,1.7503,1.7426,1.7360,1.7301,1.7307,1.7394,1.7389, &
& 1.7264,1.7210,1.7146,1.7220,1.7317,1.7279,1.7088,1.7012, &
& 1.6975,1.7023,1.7034,1.6886,1.6782,1.6785,1.6782,1.6763, &
& 1.6724,1.6715,1.6696,1.6660,1.6536,1.6485,1.6435,1.6443, &
& 1.6355,1.6327,1.6258,1.6257,1.6219,1.6261,1.6250,1.6181, &
& 1.6077,1.6109,1.5979,1.5913,1.5893,1.5962,1.6023,1.6042, &
& 1.5817,1.5814,1.5946,1.5957,1.5736,1.5650,1.5587,1.5612, &
& 1.5665,1.5659,1.5465,1.5486,1.5546,1.5641,1.5724,1.5457, &
& 1.5362,1.5370,1.5303,1.5205,1.5266,1.5237,1.5116,1.5169, &
& 1.5211,1.5144,1.5187,1.5254,1.5078,1.4901,1.4816,1.4775, &
& 1.4789,1.4965,1.4919,1.4702,1.4628,1.4652,1.4402,1.4372, &
& 1.4438,1.4368,1.4164,1.4227,1.4163,1.3943,1.3766,1.3826, &
& 1.3835,1.3853,1.3629,1.3600,1.3626,1.3575,1.3314,1.3159, &
& 1.3186,1.3147,1.3046,1.2920,1.2795,1.2839,1.2786,1.2651, &
& 1.2487,1.2486,1.2353,1.2245,1.2363,1.2478,1.2162,1.1921, &
& 1.1860,1.1933,1.1974,1.1714,1.1432,1.1472,1.1443,1.1370, &
& 1.1354,1.1410,1.1202,1.1036,1.0955,1.0949,1.0801,1.0694, &
& 1.0616,1.0534,1.0394,1.0323,1.0352,1.0419,1.0226,1.0230, &
& 1.0234,1.0032,0.9974,1.0040,0.9899,0.9782,0.9709,0.9689, &
& 0.9585,0.9447,0.9437,0.9549,0.9361,0.9290,0.9342,0.9346, &
& 0.9256,0.9299,0.9209,0.9107,0.9184,0.9209,0.9076,0.9071, &
& 0.9048,0.9172,0.9243,0.9209,0.9106,0.9131,0.9058,0.9048, &
& 0.9115,0.9407,0.9556,0.9577,0.9448,0.9438,0.9513,0.9656, &
& 0.9767,0.9835,0.9950,1.0152,1.0190,1.0331,1.0529,1.0713, &
& 1.0802,1.1009,1.1214,1.1525,1.1675,1.1720,1.1965,1.2261, &
& 1.2414,1.2596,1.2620,1.2801,1.3094,1.3322,1.3686,1.4236, &
& 1.4636,1.4805,1.5000,1.5232,1.5442,1.5804,1.6132,1.6330, &
& 1.6451,1.7013,1.7317,1.7559,1.7808,1.8271,1.8753,1.9027, &
& 1.9179,1.9632,1.9999,2.0419,2.0740,2.1398,2.1778,2.2209, &
& 2.2573,2.2877,2.3159,2.3547,2.4122,2.4516,2.4548,2.4995, &
& 2.5725,2.6221,2.6486,2.6850,2.7249,2.7582,2.7829,2.8393, &
& 2.8871,2.9422,2.9543,3.0094,3.0411,3.0936,3.1179,3.1584, &
& 3.1945,3.2534,3.2667,3.3122,3.3593,3.4370,3.4826,3.5280, &
& 3.5685,3.6065,3.6180,3.6433,3.6545 /)
plasim/src/specs/water.snow.coarsegranular.coarse.all.coarse_snw_.jhu.becknic.spectrum.txt
+986
View File
@@ -0,0 +1,986 @@
Name: Coarse Granular Snow
Type: Water
Class: Snow
Subclass: Coarse Granular
Particle Size: Coarse
Sample No.: COARSE_SNW_
Owner: Dept. of Earth and Planetary Science, John Hopkins University
Wavelength Range: All
Origin: Collected at John Hopkins University IR Spectroscopy Lab.
Collection Date: N/A
Description: Coarse snow. The spectrum from 0.3 to 2.08 micrometers was modeled, while that from 2.08 to 14 micrometers was measured (see introductory text). Sample particle size was 178 micrometers effective size. Original filename COARSE.SNW. Original ASTER Spectral Library name was jhu.becknic.water.snow.granular.178um.coarse.spectrum.txt
Measurement: Directional (10 Degree) Hemispherical Reflectance
First Column: X
Second Column: Y
X Units: Wavelength (micrometers)
Y Units:Reflectance (percent)
First X Value: 0.3400
Last X Value: 14.0100
Number of X Values: 965
Additional Information: none
0.3400 96.0980
0.3500 96.2900
0.3600 96.4230
0.3700 96.5490
0.3800 96.7270
0.3900 96.8430
0.4000 96.9870
0.4100 97.1520
0.4200 97.2650
0.4300 97.4450
0.4400 97.5050
0.4500 97.8490
0.4600 97.9080
0.4700 97.8730
0.4800 97.7810
0.4900 97.7360
0.5000 97.6340
0.5100 97.5820
0.5200 97.5280
0.5300 97.4620
0.5400 97.2960
0.5500 97.1630
0.5600 97.1230
0.5700 97.0590
0.5800 96.8980
0.5900 96.7230
0.6000 96.3570
0.6100 95.5080
0.6200 95.6910
0.6300 95.2990
0.6400 94.9000
0.6500 94.5670
0.6600 94.2170
0.6700 93.6110
0.6800 93.6190
0.6900 93.1990
0.7000 92.5050
0.7100 92.0360
0.7200 91.5250
0.7300 91.2130
0.7400 90.6720
0.7500 89.9820
0.7600 89.1350
0.7700 88.1980
0.7800 87.0520
0.7900 86.4820
0.8000 85.8460
0.8200 85.2430
0.8400 85.2360
0.8600 82.8540
0.8800 79.3290
0.9000 77.3930
0.9200 76.2460
0.9400 74.9770
0.9600 71.6990
0.9800 67.0850
1.0000 60.8970
1.0200 57.4940
1.0400 57.1240
1.0600 60.0210
1.0800 62.2260
1.1000 62.7290
1.1200 61.9590
1.1400 59.0470
1.1600 54.5580
1.1800 47.3760
1.2000 41.5390
1.2200 34.0440
1.2400 31.5480
1.2600 30.3300
1.2800 30.5110
1.3000 30.8370
1.3200 31.1360
1.3400 31.2110
1.3600 30.2540
1.3800 28.7190
1.4000 25.1350
1.4200 11.2590
1.4400 2.3120
1.4600 1.0520
1.4800 0.6190
1.5000 0.5090
1.5200 0.5610
1.5400 0.6340
1.5600 0.8010
1.5800 1.0100
1.6000 1.1870
1.6200 1.4250
1.6400 1.8840
1.6600 2.4420
1.6800 3.0950
1.7000 3.7230
1.7200 4.2260
1.7400 4.7940
1.7600 5.3750
1.7800 6.1670
1.8000 7.0920
1.8200 8.1850
1.8400 9.2150
1.8600 7.5990
1.8800 3.0310
1.9000 1.2170
1.9200 0.5350
1.9400 0.3380
1.9600 0.2420
1.9800 0.2040
2.0000 0.2000
2.0200 0.2070
2.0400 0.2260
2.0600 0.2610
2.0800 0.3140
2.1000 0.4210
2.1200 0.6530
2.1400 1.0260
2.1600 1.4710
2.1800 1.9870
2.2000 2.6210
2.2200 3.3170
2.2400 3.6960
2.2500 3.6770
2.2600 3.5800
2.2700 3.3610
2.2800 3.0840
2.2900 2.7980
2.3000 2.5400
2.3100 2.3020
2.3200 2.1370
2.3300 2.0200
2.3400 1.9140
2.3500 1.8110
2.3600 1.7500
2.3700 1.7000
2.3800 1.6820
2.3900 1.6370
2.4000 1.6010
2.4100 1.6030
2.4200 1.5740
2.4300 1.5560
2.4400 1.5080
2.4500 1.4980
2.4600 1.4850
2.4700 1.4660
2.4800 1.4530
2.4900 1.4370
2.5000 1.3800
2.5100 1.3590
2.5200 1.3670
2.5300 1.3510
2.5400 1.3070
2.5500 1.3150
2.5600 1.3290
2.5700 1.2940
2.5800 1.3010
2.5900 1.2920
2.6000 1.2700
2.6100 1.2390
2.6200 1.2150
2.6300 1.1570
2.6400 1.1370
2.6500 1.0880
2.6600 1.0650
2.6700 1.0010
2.6800 0.9250
2.6900 0.8920
2.7000 0.8090
2.7100 0.7620
2.7200 0.7060
2.7300 0.6460
2.7400 0.6050
2.7500 0.5840
2.7600 0.5840
2.7700 0.5250
2.7800 0.4850
2.7900 0.4820
2.8000 0.4300
2.8100 0.4150
2.8200 0.4000
2.8300 0.3990
2.8400 0.3940
2.8500 0.4130
2.8600 0.4420
2.8700 0.4660
2.8800 0.5250
2.8900 0.6480
2.9000 0.7990
2.9100 0.9970
2.9200 1.1950
2.9300 1.4360
2.9400 1.7020
2.9500 1.9030
2.9600 2.0990
2.9700 2.2790
2.9800 2.4280
2.9900 2.6390
3.0000 2.8780
3.0100 3.2290
3.0200 3.6490
3.0300 4.1500
3.0400 4.6890
3.0500 5.3580
3.0600 5.9130
3.0700 6.4650
3.0800 6.7620
3.0900 6.8220
3.1000 6.6880
3.1100 6.3590
3.1200 6.0790
3.1300 5.8940
3.1400 5.7770
3.1500 5.7110
3.1600 5.6730
3.1700 5.6280
3.1800 5.5760
3.1900 5.4410
3.2000 5.3060
3.2100 5.0970
3.2200 4.8930
3.2300 4.6840
3.2400 4.4740
3.2500 4.3040
3.2600 4.1440
3.2700 3.9930
3.2800 3.8770
3.2900 3.7490
3.3000 3.6490
3.3100 3.5630
3.3200 3.4740
3.3300 3.3850
3.3400 3.3020
3.3500 3.2380
3.3600 3.2010
3.3700 3.1450
3.3800 3.0470
3.3900 2.9840
3.4000 2.9590
3.4100 2.9320
3.4200 2.8880
3.4300 2.8330
3.4400 2.7710
3.4500 2.7260
3.4600 2.7030
3.4700 2.6570
3.4800 2.6100
3.4900 2.5860
3.5000 2.5670
3.5100 2.5300
3.5200 2.4780
3.5300 2.4840
3.5400 2.4590
3.5500 2.4290
3.5600 2.4070
3.5700 2.3850
3.5800 2.3810
3.5900 2.3670
3.6000 2.3480
3.6100 2.3140
3.6200 2.2960
3.6300 2.3010
3.6400 2.2700
3.6500 2.2490
3.6600 2.2400
3.6700 2.2150
3.6800 2.2070
3.6900 2.1990
3.7000 2.1840
3.7100 2.1490
3.7200 2.1610
3.7300 2.1580
3.7400 2.1240
3.7500 2.1190
3.7600 2.1150
3.7700 2.0950
3.7800 2.0830
3.7900 2.0800
3.8000 2.0720
3.8100 2.0540
3.8200 2.0460
3.8300 2.0490
3.8400 2.0530
3.8500 2.0370
3.8600 2.0050
3.8700 2.0050
3.8800 2.0090
3.8900 1.9850
3.9000 1.9670
3.9100 1.9620
3.9200 1.9640
3.9300 1.9610
3.9400 1.9600
3.9500 1.9560
3.9600 1.9350
3.9700 1.9280
3.9800 1.9290
3.9900 1.9230
4.0000 1.9240
4.0100 1.9160
4.0200 1.9020
4.0300 1.9000
4.0400 1.8830
4.0500 1.8570
4.0600 1.8670
4.0700 1.8880
4.0800 1.8740
4.0900 1.8520
4.1000 1.8570
4.1100 1.8600
4.1200 1.8480
4.1300 1.8440
4.1400 1.8440
4.1500 1.8340
4.1600 1.8330
4.1700 1.8320
4.1800 1.8230
4.1900 1.8330
4.2000 1.8350
4.2100 1.8120
4.2200 1.7980
4.2300 1.8020
4.2400 1.8090
4.2500 1.8040
4.2600 1.8010
4.2700 1.7990
4.2800 1.7940
4.2900 1.7950
4.3000 1.8000
4.3100 1.7930
4.3200 1.7810
4.3300 1.7830
4.3400 1.7940
4.3500 1.7940
4.3600 1.7850
4.3700 1.7820
4.3800 1.7790
4.3900 1.7830
4.4000 1.7910
4.4100 1.7960
4.4200 1.7980
4.4300 1.7830
4.4400 1.7810
4.4500 1.8070
4.4600 1.8270
4.4700 1.8230
4.4800 1.8150
4.4900 1.8170
4.5000 1.8190
4.5100 1.8160
4.5200 1.8190
4.5300 1.8280
4.5400 1.8320
4.5500 1.8340
4.5600 1.8400
4.5700 1.8420
4.5800 1.8410
4.5900 1.8420
4.6000 1.8430
4.6100 1.8510
4.6200 1.8640
4.6300 1.8700
4.6400 1.8700
4.6500 1.8640
4.6600 1.8570
4.6700 1.8520
4.6800 1.8490
4.6900 1.8490
4.7000 1.8510
4.7100 1.8480
4.7200 1.8370
4.7300 1.8250
4.7400 1.8230
4.7500 1.8230
4.7600 1.8150
4.7700 1.8110
4.7800 1.8190
4.7900 1.8290
4.8000 1.8220
4.8100 1.8090
4.8200 1.8030
4.8300 1.8010
4.8400 1.7990
4.8500 1.7970
4.8600 1.7950
4.8700 1.7920
4.8800 1.7880
4.8900 1.7870
4.9000 1.7880
4.9100 1.7850
4.9200 1.7800
4.9300 1.7810
4.9400 1.7860
4.9500 1.7840
4.9600 1.7740
4.9700 1.7640
4.9800 1.7540
4.9900 1.7450
5.0000 1.7420
5.0100 1.7430
5.0200 1.7470
5.0300 1.7490
5.0400 1.7440
5.0500 1.7360
5.0600 1.7330
5.0700 1.7330
5.0800 1.7300
5.0900 1.7210
5.1000 1.7080
5.1100 1.7010
5.1200 1.7060
5.1300 1.7150
5.1400 1.7100
5.1500 1.6950
5.1600 1.6830
5.1700 1.6830
5.1800 1.6840
5.1900 1.6770
5.2000 1.6630
5.2100 1.6550
5.2200 1.6510
5.2300 1.6510
5.2400 1.6530
5.2500 1.6560
5.2600 1.6580
5.2700 1.6530
5.2800 1.6460
5.2900 1.6440
5.3000 1.6440
5.3100 1.6400
5.3200 1.6270
5.3300 1.6190
5.3400 1.6260
5.3500 1.6360
5.3600 1.6430
5.3700 1.6390
5.3800 1.6260
5.3900 1.6110
5.4000 1.6010
5.4100 1.5920
5.4200 1.5860
5.4300 1.5840
5.4400 1.5800
5.4500 1.5730
5.4600 1.5650
5.4700 1.5600
5.4800 1.5570
5.4900 1.5580
5.5000 1.5670
5.5100 1.5740
5.5200 1.5710
5.5300 1.5530
5.5400 1.5360
5.5500 1.5320
5.5600 1.5360
5.5700 1.5390
5.5800 1.5360
5.5900 1.5280
5.6000 1.5170
5.6100 1.5120
5.6200 1.5140
5.6300 1.5180
5.6400 1.5150
5.6500 1.5040
5.6600 1.4940
5.6700 1.4920
5.6800 1.4940
5.6900 1.4890
5.7000 1.4740
5.7100 1.4590
5.7200 1.4550
5.7300 1.4630
5.7400 1.4700
5.7500 1.4680
5.7600 1.4620
5.7700 1.4600
5.7800 1.4640
5.7900 1.4730
5.8000 1.4820
5.8100 1.4830
5.8200 1.4770
5.8300 1.4720
5.8400 1.4710
5.8500 1.4730
5.8600 1.4700
5.8700 1.4620
5.8800 1.4490
5.8900 1.4370
5.9000 1.4350
5.9100 1.4400
5.9200 1.4520
5.9300 1.4610
5.9400 1.4640
5.9500 1.4660
5.9600 1.4710
5.9700 1.4820
5.9800 1.4940
5.9900 1.4990
6.0000 1.4970
6.0100 1.4940
6.0200 1.4940
6.0300 1.4950
6.0400 1.4970
6.0500 1.4980
6.0600 1.5050
6.0700 1.5200
6.0800 1.5370
6.0900 1.5500
6.1000 1.5560
6.1100 1.5570
6.1200 1.5550
6.1300 1.5540
6.1400 1.5510
6.1500 1.5490
6.1600 1.5500
6.1700 1.5540
6.1800 1.5590
6.1900 1.5660
6.2000 1.5710
6.2100 1.5740
6.2200 1.5750
6.2300 1.5740
6.2400 1.5710
6.2500 1.5700
6.2600 1.5750
6.2700 1.5830
6.2800 1.5970
6.2900 1.6070
6.3000 1.6080
6.3100 1.6050
6.3200 1.6020
6.3300 1.6020
6.3400 1.6050
6.3500 1.6130
6.3600 1.6200
6.3700 1.6220
6.3800 1.6170
6.3900 1.6060
6.4000 1.5980
6.4100 1.5940
6.4200 1.6020
6.4300 1.6240
6.4400 1.6410
6.4500 1.6550
6.4600 1.6640
6.4700 1.6640
6.4800 1.6630
6.4900 1.6640
6.5000 1.6650
6.5100 1.6650
6.5200 1.6610
6.5300 1.6570
6.5400 1.6540
6.5500 1.6540
6.5600 1.6610
6.5700 1.6690
6.5800 1.6770
6.5900 1.6820
6.6000 1.6840
6.6100 1.6810
6.6200 1.6780
6.6300 1.6770
6.6400 1.6780
6.6500 1.6820
6.6600 1.6870
6.6700 1.6900
6.6800 1.6920
6.6900 1.6950
6.7000 1.6990
6.7100 1.7030
6.7200 1.7040
6.7300 1.6990
6.7400 1.6930
6.7500 1.6870
6.7600 1.6820
6.7700 1.6780
6.7800 1.6740
6.7900 1.6690
6.8000 1.6640
6.8100 1.6600
6.8200 1.6580
6.8300 1.6570
6.8400 1.6600
6.8500 1.6650
6.8600 1.6730
6.8700 1.6810
6.8800 1.6900
6.8900 1.6920
6.9000 1.6900
6.9100 1.6870
6.9200 1.6830
6.9300 1.6810
6.9400 1.6800
6.9500 1.6800
6.9600 1.6820
6.9700 1.6860
6.9800 1.6890
6.9900 1.6930
7.0000 1.6950
7.0100 1.6950
7.0200 1.6930
7.0300 1.6900
7.0400 1.6890
7.0500 1.6890
7.0600 1.6890
7.0700 1.6870
7.0800 1.6820
7.0900 1.6760
7.1000 1.6690
7.1100 1.6640
7.1200 1.6620
7.1300 1.6640
7.1400 1.6680
7.1500 1.6730
7.1600 1.6750
7.1700 1.6740
7.1800 1.6710
7.1900 1.6660
7.2000 1.6610
7.2100 1.6580
7.2200 1.6550
7.2300 1.6520
7.2400 1.6490
7.2500 1.6470
7.2600 1.6470
7.2700 1.6470
7.2800 1.6460
7.2900 1.6430
7.3000 1.6390
7.3100 1.6330
7.3200 1.6260
7.3300 1.6210
7.3400 1.6170
7.3500 1.6150
7.3600 1.6140
7.3700 1.6140
7.3800 1.6160
7.4000 1.6190
7.4100 1.6250
7.4200 1.6290
7.4300 1.6300
7.4400 1.6250
7.4500 1.6140
7.4600 1.5980
7.4700 1.5800
7.4800 1.5670
7.4900 1.5620
7.5000 1.5660
7.5100 1.5770
7.5200 1.5900
7.5400 1.5990
7.5500 1.6010
7.5600 1.5960
7.5700 1.5850
7.5800 1.5730
7.5900 1.5620
7.6000 1.5550
7.6100 1.5520
7.6200 1.5530
7.6300 1.5550
7.6500 1.5580
7.6600 1.5590
7.6700 1.5570
7.6800 1.5530
7.6900 1.5490
7.7000 1.5460
7.7100 1.5440
7.7300 1.5450
7.7400 1.5460
7.7500 1.5470
7.7600 1.5470
7.7700 1.5460
7.7800 1.5460
7.8000 1.5450
7.8100 1.5450
7.8200 1.5440
7.8300 1.5430
7.8400 1.5380
7.8500 1.5330
7.8700 1.5260
7.8800 1.5220
7.8900 1.5200
7.9000 1.5230
7.9100 1.5280
7.9300 1.5320
7.9400 1.5340
7.9500 1.5330
7.9600 1.5310
7.9800 1.5290
7.9900 1.5300
8.0000 1.5330
8.0100 1.5360
8.0300 1.5390
8.0400 1.5390
8.0500 1.5380
8.0600 1.5360
8.0800 1.5330
8.0900 1.5290
8.1000 1.5260
8.1100 1.5240
8.1300 1.5250
8.1400 1.5300
8.1500 1.5370
8.1600 1.5450
8.1800 1.5510
8.1900 1.5530
8.2000 1.5500
8.2200 1.5450
8.2300 1.5390
8.2400 1.5320
8.2600 1.5250
8.2700 1.5180
8.2800 1.5120
8.2900 1.5090
8.3100 1.5100
8.3200 1.5140
8.3300 1.5190
8.3500 1.5240
8.3600 1.5260
8.3800 1.5260
8.3900 1.5250
8.4000 1.5230
8.4200 1.5240
8.4300 1.5260
8.4400 1.5280
8.4600 1.5270
8.4700 1.5210
8.4800 1.5110
8.5000 1.4970
8.5100 1.4830
8.5300 1.4720
8.5400 1.4660
8.5500 1.4650
8.5700 1.4680
8.5800 1.4740
8.6000 1.4800
8.6100 1.4850
8.6300 1.4880
8.6400 1.4900
8.6500 1.4900
8.6700 1.4900
8.6800 1.4900
8.7000 1.4880
8.7100 1.4850
8.7300 1.4790
8.7400 1.4720
8.7600 1.4660
8.7700 1.4620
8.7900 1.4620
8.8000 1.4650
8.8200 1.4710
8.8300 1.4750
8.8500 1.4730
8.8600 1.4660
8.8800 1.4560
8.8900 1.4480
8.9100 1.4460
8.9200 1.4510
8.9400 1.4620
8.9500 1.4700
8.9700 1.4700
8.9800 1.4610
9.0000 1.4450
9.0200 1.4260
9.0300 1.4110
9.0500 1.4050
9.0600 1.4060
9.0800 1.4120
9.1000 1.4180
9.1100 1.4230
9.1300 1.4230
9.1400 1.4210
9.1600 1.4180
9.1800 1.4140
9.1900 1.4090
9.2100 1.4040
9.2200 1.3970
9.2400 1.3900
9.2600 1.3840
9.2700 1.3790
9.2900 1.3740
9.3100 1.3690
9.3200 1.3610
9.3400 1.3510
9.3600 1.3420
9.3700 1.3330
9.3900 1.3270
9.4100 1.3230
9.4300 1.3210
9.4400 1.3160
9.4600 1.3080
9.4800 1.2980
9.4900 1.2830
9.5100 1.2660
9.5300 1.2470
9.5500 1.2300
9.5600 1.2160
9.5800 1.2090
9.6000 1.2070
9.6200 1.2110
9.6400 1.2160
9.6500 1.2170
9.6700 1.2110
9.6900 1.2000
9.7100 1.1820
9.7300 1.1610
9.7400 1.1390
9.7600 1.1170
9.7800 1.0970
9.8000 1.0790
9.8200 1.0630
9.8400 1.0490
9.8600 1.0380
9.8700 1.0280
9.8900 1.0190
9.9100 1.0080
9.9300 0.9950
9.9500 0.9810
9.9700 0.9660
9.9900 0.9530
10.0100 0.9430
10.0300 0.9340
10.0500 0.9280
10.0700 0.9220
10.0900 0.9190
10.1100 0.9150
10.1300 0.9090
10.1500 0.9000
10.1700 0.8860
10.1800 0.8660
10.2100 0.8400
10.2300 0.8130
10.2500 0.7900
10.2700 0.7760
10.2900 0.7710
10.3100 0.7730
10.3300 0.7780
10.3500 0.7790
10.3700 0.7760
10.3900 0.7680
10.4100 0.7580
10.4300 0.7520
10.4500 0.7520
10.4700 0.7560
10.4900 0.7630
10.5200 0.7730
10.5400 0.7870
10.5600 0.8020
10.5800 0.8210
10.6000 0.8450
10.6200 0.8730
10.6500 0.9050
10.6700 0.9410
10.6900 0.9840
10.7100 1.0310
10.7300 1.0810
10.7600 1.1290
10.7800 1.1760
10.8000 1.2210
10.8200 1.2650
10.8500 1.3120
10.8700 1.3630
10.8900 1.4180
10.9100 1.4750
10.9400 1.5310
10.9600 1.5880
10.9800 1.6460
11.0100 1.7070
11.0300 1.7710
11.0500 1.8370
11.0800 1.9030
11.1000 1.9660
11.1200 2.0250
11.1500 2.0820
11.1700 2.1390
11.2000 2.1980
11.2200 2.2590
11.2500 2.3200
11.2700 2.3810
11.2900 2.4400
11.3200 2.4950
11.3400 2.5490
11.3700 2.6030
11.3900 2.6580
11.4200 2.7140
11.4400 2.7720
11.4700 2.8310
11.4900 2.8910
11.5200 2.9500
11.5500 3.0030
11.5700 3.0490
11.6000 3.0880
11.6200 3.1210
11.6500 3.1510
11.6800 3.1840
11.7000 3.2200
11.7300 3.2600
11.7600 3.3040
11.7800 3.3480
11.8100 3.3930
11.8400 3.4370
11.8600 3.4820
11.8900 3.5280
11.9200 3.5770
11.9500 3.6290
11.9700 3.6840
12.0000 3.7400
12.0300 3.7950
12.0600 3.8480
12.0800 3.8950
12.1100 3.9400
12.1400 3.9830
12.1700 4.0240
12.2000 4.0640
12.2300 4.1060
12.2600 4.1460
12.2800 4.1840
12.3100 4.2180
12.3400 4.2480
12.3700 4.2750
12.4000 4.2960
12.4300 4.3130
12.4600 4.3300
12.4900 4.3470
12.5200 4.3670
12.5500 4.3890
12.5800 4.4130
12.6100 4.4390
12.6400 4.4630
12.6800 4.4850
12.7100 4.5050
12.7400 4.5230
12.7700 4.5360
12.8000 4.5420
12.8300 4.5400
12.8600 4.5330
12.9000 4.5250
12.9300 4.5190
12.9600 4.5170
12.9900 4.5200
13.0300 4.5230
13.0600 4.5240
13.0900 4.5230
13.1200 4.5190
13.1600 4.5110
13.1900 4.5000
13.2200 4.4850
13.2600 4.4660
13.2900 4.4440
13.3300 4.4260
13.3600 4.4210
13.4000 4.4280
13.4300 4.4450
13.4700 4.4640
13.5000 4.4760
13.5400 4.4770
13.5700 4.4660
13.6100 4.4490
13.6400 4.4310
13.6800 4.4120
13.7100 4.3870
13.7500 4.3540
13.7900 4.3120
13.8200 4.2670
13.8600 4.2260
13.9000 4.1950
13.9400 4.1810
13.9700 4.1740
14.0100 4.1600
Loaded 100 of 116 files, more files were not shown because too many files have changed in this diff. Show more