/*
/* *************************************************************
/* USDA - ARS
/* Southwest Watershed Research Center
/* 2000 E. Allen Rd.
/* Tucson, AZ 85719
/* *************************************************************
/* Program: texture1.aml
/*
/* Function: This AML uses a look-up table concept to
/* convert the STATSGO layer info file to a host
/* of hydrologic modeling parameters in a file
/* called kslayer.
/*
/* History: Updated with ARDBSN parameters by Jill Heller,
/* June 1999, Advanced Resources Technology Group,
/* The University of Arizona, Tucson, AZ 85721
/* ph: 520-621-3045 jheller@nexus.srnr.arizona.edu
/* Texture.aml was created June 1997 by Scott Miller,
/* USDA - ARS SWRC, 2000 E. Allen Rd. Tucson,
/* AZ 85719.
/* ph: 520-670-6380. miller@tucson.ars.ag.gov
/* *************************************************************
/* Routines called: none
/*
/* Requirements: An info file called kslayer derived from the STATSGO
/* layer file containing the following items.
/* COLUMN ITEM NAME WIDTH OUTPUT TYPE N.DEC ALTERNATE NAME INDEXED?
/* 1 MUID 7 7 C - -
/* 8 LAYERNUM 1 1 I - -
/* 9 LAYERID 2 2 I - -
/* 11 LAYDEPL 2 2 I - -
/* 13 LAYDEPH 2 2 I - -
/* 15 TEXTURE1 8 8 C - -
/* 23 TEXTURE2 8 8 C - -
/* 31 TEXTURE3 8 8 C - -
/* 39 EVAP1 6 6 N 4 -
/* 45 EVAP2 6 6 N 4 -
/* 51 EVAP3 6 6 N 4 -
/* 57 POR1 5 5 N 4 -
/* 62 POR2 5 5 N 4 -
/* 67 POR3 5 5 N 4 -
/* 72 .3BAR1 4 4 N 4 -
/* 76 .3BAR2 4 4 N 4 -
/* 80 .3BAR3 4 4 N 4 -
/* 84 15BAR1 5 5 N 4 -
/* 89 15BAR2 5 5 N 4 -
/* 94 15BAR3 5 5 N 4 -
/* 99 KS1 5 5 N 4 -
/* 104 KS2 5 5 N 4 -
/* 109 KS3 5 5 N 4 -
/* AWC1 5 5 N 4 -
/* AWC2 5 5 N 4 -
/* AWC3 5 5 N 4 -
/*
/* Results: EVAP, POR, .3BAR, 15BAR, KS, and AWC, are calculated as
/* a function of the texture for each horizon.
/*
/* *************************************************************
/* Usage: &r texture1
/*
/* Arguments: none
/* *************************************************************
/*
/* Look-up Values from SPUR manual tables (Wight and Skiles, 1987).
/* S - Sand
/* calc evap1 = .1299; calc por1 = .41; calc .3bar1 = .09; calc bar15_1 = .03;
/* calc ks1 = 9.0551; calc awc1 = .04
/* LS - Loamy sand
/* calc evap1 = ..1299; calc por1 = .43; calc .3bar1 = .12; calc bar15_1 = .06;
/* calc ks1 = 2.4016; calc awc1 = .065
/* SL - Sandy loam
/* calc evap1 = .1378; calc por1 = .45; calc .3bar1 = .20; calc bar15_1 = .09;
/* calc ks1 = .8661; calc awc1 = .12
/* L - Loam
/* calc evap1 = .1772; calc por1 = .47; calc .3bar1 = .26; calc bar15_1 = .12;
/* calc ks1 = .5118; calc awc1 = .175
/* SIL - Silty loam
/* calc evap1 = .1772; calc por1 = .50; calc .3bar1 = .31; calc bar15_1 = .13;
/* calc ks1 = .2717; calc awc1 = .20
/* SCL - Sandy clay loam
/* calc evap1 = .1496; calc por1 = .42; calc .3bar1 = .27; calc bar15_1 = .17;
/* calc ks1 = .1181; calc awc1 = .145
/* CL - Clay loam
/* calc evap1 = .1496; calc por1 = .47; calc .3bar1 = .34; calc bar15_1 = .20;
/* calc ks1 = .0787; calc awc1 = .175
/* SICL - Silty clay loam
/* calc evap1 = .1496; calc por1 = .47; calc .3bar1 = .36; calc bar15_1 = .21;
/* calc ks1 = .0709; calc awc1 = .20
/* SC - Sandy clay
/* calc evap1 = .1339; calc por1 = .42; calc .3bar1 = .31; calc bar15_1 = .21;
/* calc ks1 = .0512; calc awc1 = .16
/* SIC - Silty clay
/* calc evap1 = .1378; calc por1 = .48; calc .3bar1 = .40; calc bar15_1 = .27;
/* calc ks1 = .0394; calc awc1 = .16
/* C - Clay
/* calc evap1 = .1339; calc por1 = .49; calc .3bar1 = .42; calc bar15_1 = .29;
/* calc ks1 = .0315; calc awc1 = .15
/* Estimated values, based on STATSGO similarities between classes
/* SI - Silt - based mainly on SPUR manual tables
/* calc evap1 = .1575; calc por1 = .51; calc .3bar1 = .28; calc bar15_1 = .09;
/* calc ks1 = .2008; calc awc1 = .25
/* SR- - Stratified (similar to sandy loam)
/* calc evap1 = .1378; calc por1 = .45; calc .3bar1 = .20; calc bar15_1 = .09;
/* calc ks1 = .8661; calc awc1 = .12
/* CEM - Cemented - no infiltration
/* calc evap1 = 0; calc por1 = 0; calc .3bar1 = 0; calc bar15_1 = 0;
/* calc ks1 = 0; calc awc1 = 0
/* IND - Indurated - v. little movement - ??
/* calc evap1 = .1299; calc por1 = .41; calc .3bar1 = .09; calc bar15_1 = .03;
/* calc ks1 = 9.0551; calc awc1 = .04
/* UWB - Unweathered bedrock - no infiltration
/* calc evap1 = 0; calc por1 = 0; calc .3bar1 = 0; calc bar15_1 = 0;
/* calc ks1 = 0; calc awc1 = 0
/* WB - Weathered bedrock - no infiltration
/* calc evap1 = 0; calc por1 = 0; calc .3bar1 = 0; calc bar15_1 = 0;
/* calc ks1 = 0; calc awc1 = 0
/* VAR - Variable - no infiltration
/* calc evap1 = 0; calc por1 = 0; calc .3bar1 = 0; calc bar15_1 = 0;
/* calc ks1 = 0; calc awc1 = 0
/* CIND - Cinders; similar to sand
/* calc evap1 = .1299; calc por1 = .41; calc .3bar1 = .09; calc bar15_1 = .03;
/* calc ks1 = 9.0551; calc awc1 = .04
/* GYP - Gypsum - no infiltration
/* calc evap1 = 0; calc por1 = 0; calc .3bar1 = 0; calc bar15_1 = 0;
/* calc ks1 = 0; calc awc1 = 0
/* G - gravel; similar to sand
/* calc evap1 = .1299; calc por1 = .41; calc .3bar1 = .09; calc bar15_1 = .03;
/* calc ks1 = 9.0551; calc awc1 = .04
/* CBV - very cobbly; similar to sand
/* calc evap1 = .1299; calc por1 = .41; calc .3bar1 = .09; calc bar15_1 = .03;
/* calc ks1 = 9.0551; calc awc1 = .04
tables
sel kslayer
&do n &list 1
resel texture%n% = 'GRV-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRX-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SR-'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'GRV-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'GRV-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'LFS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SI'
&if [show number select] > 0 &then &do
calc evap%n% = .1575; calc por%n% = .51; calc .3bar%n% = .28; calc bar15_%n% = .09; ~
calc ks%n% = .2008; calc awc%n% = .25
&end
asel
resel texture%n% = 'FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'LVFS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'FS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GR-COSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRV-COSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRV-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRV-LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'GRV-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRX-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRX-LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'GR-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CBV-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CBV-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'CBV-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'GRX-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CEM'
&if [show number select] > 0 &then &do
calc evap%n% = 0; calc por%n% = 0; calc .3bar%n% = 0; calc bar15_%n% = 0; ~
calc ks%n% = 0; calc awc%n% = 0
&end
asel
resel texture%n% = 'IND'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .0655
&end
asel
resel texture%n% = 'CB-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'GRX-COSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRX-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRV-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'UWB'
&if [show number select] > 0 &then &do
calc evap%n% = 0; calc por%n% = 0; calc .3bar%n% = 0; calc bar15_%n% = 0; ~
calc ks%n% = 0; calc awc%n% = 0
&end
asel
resel texture%n% = 'STX-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBX-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBV-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRV-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'STX-COSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'WB'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'STX-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'GRX-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'CNX-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'CNV-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GR-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'SIC'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .48; calc .3bar%n% = .40; calc bar15_%n% = .27; ~
calc ks%n% = .0394; calc awc%n% = .16
&end
asel
resel texture%n% = 'GRV-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'CBX-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'GR-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'GR-LCOS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'GR-LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'CBV-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBX-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'CB-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRX-LCOS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'CB-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBX-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRX-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'GRV-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GRV-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'GRX-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'VAR'
&if [show number select] > 0 &then &do
calc evap%n% = 0; calc por%n% = 0; calc .3bar%n% = 0; calc bar15_%n% = 0; ~
calc ks%n% = 0; calc awc%n% = 0
&end
asel
resel texture%n% = 'FL-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'FL-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'CBV-SIC'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .48; calc .3bar%n% = .40; calc bar15_%n% = .27; ~
calc ks%n% = .0394; calc awc%n% = .16
&end
asel
resel texture%n% = 'CB-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CBV-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'CIND'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'ST-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GYP'
&if [show number select] > 0 &then &do
calc evap%n% = 0; calc por%n% = 0; calc .3bar%n% = 0; calc bar15_%n% = 0; ~
calc ks%n% = 0; calc awc%n% = 0
&end
asel
resel texture%n% = 'CN-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'CBV-LCOS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .0655
&end
asel
resel texture%n% = 'GR-FS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GR-SIC'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .48; calc .3bar%n% = .40; calc bar15_%n% = .27; ~
calc ks%n% = .0394; calc awc%n% = .16
&end
asel
resel texture%n% = 'STV-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'ST-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CB-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'STV-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CNV-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CNV-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'CNX-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CB-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'CB-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'ST-SIC'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .48; calc .3bar%n% = .40; calc bar15_%n% = .27; ~
calc ks%n% = .0394; calc awc%n% = .16
&end
asel
resel texture%n% = 'CNV-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'CNX-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'FLV-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'FL-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'CB-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CB-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'CBV-CIND'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CN-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CNV-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'STV-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'BYX-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'VFS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'STV-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBX-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CB-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'ST-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'ST-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'ST-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'CBV-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'STV-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'STX-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'CBV-LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'CBV-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'CBX-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'STX-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'STV-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'STV-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'COSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRX-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CN-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'FL-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GRX-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CNV-VFSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'CBX-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'BY-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'SHV-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'CN-FSL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'GR-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GRV-FS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GRV-LCOS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .0655
&end
asel
resel texture%n% = 'CBX-LS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .0655
&end
asel
resel texture%n% = 'CNV-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'GR-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'GRX-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'FL-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CBV-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'FLV-L'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .47; calc .3bar%n% = .26; calc bar15_%n% = .12; ~
calc ks%n% = .5118; calc awc%n% = .175
&end
asel
resel texture%n% = 'GR-LFS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'CNV-SL'
&if [show number select] > 0 &then &do
calc evap%n% = .1378; calc por%n% = .45; calc .3bar%n% = .20; calc bar15_%n% = .09; ~
calc ks%n% = .8661; calc awc%n% = .12
&end
asel
resel texture%n% = 'ST-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'CNX-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'CBV-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'STX-CL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .34; calc bar15_%n% = .20; ~
calc ks%n% = .0787; calc awc%n% = .175
&end
asel
resel texture%n% = 'STX-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'CB-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CBX-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'GRV-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'BYV-C'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .49; calc .3bar%n% = .42; calc bar15_%n% = .29; ~
calc ks%n% = .0315; calc awc%n% = .15
&end
asel
resel texture%n% = 'BYC-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
resel texture%n% = 'CBV-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'GRX-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'GRV-LFS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'STV-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'CBX-LCOS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .43; calc .3bar%n% = .12; calc bar15_%n% = .06; ~
calc ks%n% = 2.4016; calc awc%n% = .065
&end
asel
resel texture%n% = 'STX-COS'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'G'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CBX-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'CBV'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SH-SICL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .47; calc .3bar%n% = .36; calc bar15_%n% = .21; ~
calc ks%n% = .0709; calc awc%n% = .20
&end
asel
resel texture%n% = 'STV-SC'
&if [show number select] > 0 &then &do
calc evap%n% = .1339; calc por%n% = .42; calc .3bar%n% = .31; calc bar15_%n% = .21; ~
calc ks%n% = .0512; calc awc%n% = .16
&end
asel
resel texture%n% = 'CBV-S'
&if [show number select] > 0 &then &do
calc evap%n% = .1299; calc por%n% = .41; calc .3bar%n% = .09; calc bar15_%n% = .03; ~
calc ks%n% = 9.0551; calc awc%n% = .04
&end
asel
resel texture%n% = 'SHV-SIL'
&if [show number select] > 0 &then &do
calc evap%n% = .1772; calc por%n% = .50; calc .3bar%n% = .31; calc bar15_%n% = .13; ~
calc ks%n% = .2717; calc awc%n% = .20
&end
asel
resel texture%n% = 'BYV-SCL'
&if [show number select] > 0 &then &do
calc evap%n% = .1496; calc por%n% = .42; calc .3bar%n% = .27; calc bar15_%n% = .17; ~
calc ks%n% = .1181; calc awc%n% = .145
&end
asel
&end
q