diff --git a/.zenodo.json b/.zenodo.json new file mode 100644 index 0000000..ab34599 --- /dev/null +++ b/.zenodo.json @@ -0,0 +1,36 @@ +{ + "title": "RAMS - the Regional Atmospheric Modeling System", + "description": "RAMS - the Regional Atmospheric Modeling System", + "creators": [ + { + "affiliation": "Colorado State University", + "name": "van den Heever, Susan C.", + "orcid": "0000-0001-9843-3864" + }, + { + "affiliation": "Colorado State University", + "name": "Saleeby, Stephen M.", + "orcid":"0000-0001-8708-008X" + }, + { + "affiliation": "Colorado State University", + "name": "Grant, Leah D.", + "orcid": "0000-0002-3510-2141" + }, + { + "affiliation": "University of California, Davis", + "name": "Igel, Adele L.", + "orcid": "0000-0002-4845-594X" + }, + { + "affiliation": "Colorado State University", + "name": "Freeman, Sean W.", + "orcid": "0000-0002-7398-1597" + } + + ], + "license": "GPL-2.0", + "keywords": ["cloud modeling"], + "access_right": "open", + "upload_type": "software" +} \ No newline at end of file diff --git a/bin.rams/RAMSIN.supercell b/bin.rams/RAMSIN.supercell index f8ec88a..e47fab2 100644 --- a/bin.rams/RAMSIN.supercell +++ b/bin.rams/RAMSIN.supercell @@ -539,6 +539,7 @@ IAEROSOL = 1, ! CCN,GCCN: 0=off, 1=userset ISALT = 1, ! Sea Salt: 0=off, 1=userset, 2=saltmodel IDUST = 1, ! Dust: 0=off, 1=userset 2=dustmodel + IABCARB = 0, ! Absorbing carbon: 0=off, 1=userset IDUSTLOFT = 0, ! 0 = idealized lofting ! 1 = Ginoux(2001) erodible fraction data @@ -582,17 +583,20 @@ SALTF_MAX = 100., ! Film Sea Salt (#/mg) SALTJ_MAX = 0.1, ! Jet Sea Salt (#/mg) SALTS_MAX = 1.e-3, ! Spume Sea Salt (#/mg) + ABC1_MAX = 0., ! Absorbing carbon Mode-1 (#/mg) + ABC2_MAX = 0., ! Absorbing carbon Mode-2 (#/mg) ! Aerosol 9 categories soluble chemistry type: 1=(NH4)2S04, 2=NaCl - IAERO_CHEM = 1,1,1,1,2,2,2,1,1, + IAERO_CHEM = 1,1,1,1,2,2,2,1,1,1,1, ! Aerosol 9 categories solubility fraction: (0->1) - AERO_EPSILON = 0.90,0.90,0.05,0.05,1.00,1.00,1.00,0.20,0.20, + AERO_EPSILON = 0.90,0.90,0.05,0.05,1.00,1.00,1.00,0.05,0.05,0.20,0.20, ! Aerosol 9 categories initial median radius (meters) AERO_MEDRAD = 0.04e-6,3.00e-6, !CCN,GCCN 0.05e-6,0.50e-6, !Dust1,Dust2 0.10e-6,1.00e-6,6.00e-6, !SeaSalt: film,jet,spume + 0.05e-6,0.05e-6, !Absorbing carbon 0.01e-6,1.00e-6, !Regenerated 1 & 2 default ! Aerosol tracking flags: 0=off, 1=on diff --git a/bin.rams/run_test_supercell.sc b/bin.rams/run_test_supercell.sc index 8c0f4f5..d7ac8b9 100755 --- a/bin.rams/run_test_supercell.sc +++ b/bin.rams/run_test_supercell.sc @@ -30,10 +30,10 @@ # please become familiar with its flags, settings, and functionality. It cannot # be used for every runtime situation. ############################################################################### -# Set you RAMS root path +# Set your RAMS root path rd=`pwd`/.. # RAMS version (ie. 6.1.6) -vs=6.3.01 +vs=6.3.02 # Set flag for type of test (0=sequential, 1=parallel) runtype=0 # Set number of nodes for parallel run. @@ -52,23 +52,19 @@ a1=/home/smsaleeb/software/mpich-3.3.2/bin/mpiexec a2=$rd/bin.rams/machs # Set RAMS executable path and name a3=$rd/bin.rams/rams-$vs -if [ -f $a3.serial ]; then - a3=$a3.serial -fi -if [ $runtype -eq 1 -a -f $a3.parallel ]; then - a3=$a3.parallel -fi -# Set REVU executable path and name +# Set REVU post-processor executable path and name a4=$rd/bin.revu/revu-$vs -if [ -f $a4.serial ]; then - a4=$a4.serial + +#Check to see that RAMSIN namelist exists +if [ ! -f $rd/bin.rams/RAMSIN.supercell ]; then + echo "Input paths for this file is incorrect: RAMSIN.supercell" + exit fi -#Check to see all above exist -if [ ! -f $rd/bin.rams/RAMSIN.supercell ] || [ ! -f $a3 ] || [ ! -f $a4 ]; then - echo "One of your input paths is incorrect. Stopping!" - echo "Check RAMSIN, RAMS executable, and REVU executable!" - echo "Need to compile RAMS and REVU for this script to fully work" +#Check to see that RAMS executable exists +if [ ! -f $a3 ]; then + echo "Cannot find RAMS executable such as: bin.rams/rams-6.3.02" + echo "Need to compile RAMS for this script to work." exit fi @@ -84,10 +80,10 @@ if [ $runtype -eq 1 ]; then fi fi -#Check to see all above exist for a parallel test +#Check to see that MPI executable and machines files exist for a parallel test if [ $runtype -eq 1 ]; then if [ ! -f $a1 ] || [ ! -f $a2 ]; then - echo "One of your input paths is incorrect. Stopping!" + echo "One of your parallel simulation input paths is incorrect. Stopping!" echo "MPI executable or machs file" exit fi @@ -120,6 +116,7 @@ fi $rc1 $rd/bin.rams/RAMSIN.supercell -#You can uncomment this executable if you want to test the REVU -#post-processor, but you must compile REVU in directory bin.revu. -$a4 -f $rd/bin.rams/REVUIN.supercell +#Try running REVU on test simulation output if REVU is compiled +if [ -f $a4 ]; then + $a4 -f $rd/bin.rams/REVUIN.supercell +fi diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/README_compile_cheyenne b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/README_compile_cheyenne old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/fix_file_timestamps b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/fix_file_timestamps old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/include.mk.cheyenne b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/include.mk.cheyenne old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/repack_files b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/repack_files old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_job b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_job old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_rce_sims b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_rce_sims old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1grid b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1grid old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1km b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1km old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_3grids b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_3grids old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_500m b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_500m old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/run_rams b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/run_rams old mode 100755 new mode 100644 diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/x.repack.sh b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/x.repack.sh old mode 100755 new mode 100644 diff --git a/docs/RAMS-Namelist.pdf b/docs/RAMS-Namelist.pdf index 2d0dc93..b1665e9 100644 Binary files a/docs/RAMS-Namelist.pdf and b/docs/RAMS-Namelist.pdf differ diff --git a/docs/RAMS-OutputVariablesREVU.pdf b/docs/RAMS-OutputVariablesREVU.pdf index 918c3d7..8db4d45 100644 Binary files a/docs/RAMS-OutputVariablesREVU.pdf and b/docs/RAMS-OutputVariablesREVU.pdf differ diff --git a/docs/RAMS-Updates.pdf b/docs/RAMS-Updates.pdf index 4b7bf0a..4f50c52 100644 Binary files a/docs/RAMS-Updates.pdf and b/docs/RAMS-Updates.pdf differ diff --git a/docs/RAMS-VariableList.pdf b/docs/RAMS-VariableList.pdf index 7ff08f0..9b1c80e 100644 Binary files a/docs/RAMS-VariableList.pdf and b/docs/RAMS-VariableList.pdf differ diff --git a/etc/HUCM-SBM/termvels.asc b/etc/HUCM-SBM/termvels.asc index 30fd3a8..8afab19 100755 --- a/etc/HUCM-SBM/termvels.asc +++ b/etc/HUCM-SBM/termvels.asc @@ -20,21 +20,102 @@ 0.11000E+01 0.14000E+02 0.17000E+00 0.21000E+02 0.25000E+02 0.32000E+02 0.38000E+02 0.44000E+02 0.49000E+02 0.53000E+02 0.55000E+02 0.58000E+02 0.59000E+02 0.61000E+02 0.62000E+02 0.63000E+02 0.64000E+02 0.65000E+02 - 0.20000E-01 0.31000E-01 0.49000E-01 0.77000E-01 0.12000E+00 0.19000E+00 - 0.30000E+00 0.48000E+00 0.76000E+00 0.12000E+01 0.19000E+01 0.30000E+01 - 0.48000E+01 0.75000E+01 0.11000E+02 0.16000E+02 0.21000E+02 0.26000E+02 - 0.34000E+02 0.41000E+02 0.49000E+02 0.57000E+02 0.65000E+02 0.73000E+02 - 0.81000E+02 0.87000E+02 0.93000E+02 0.99000E+02 0.11000E+03 0.11000E+03 - 0.12000E+03 0.13000E+03 0.14000E+03 0.39000E-01 0.62000E-01 0.97000E-01 - 0.15000E+00 0.24000E+00 0.38000E+00 0.61000E+00 0.96000E+00 0.15000E+01 - 0.24000E+01 0.38000E+01 0.61000E+01 0.96000E+01 0.15000E+02 0.23000E+02 - 0.31000E+02 0.39000E+02 0.49000E+02 0.59000E+02 0.68000E+02 0.79000E+02 - 0.88000E+02 0.10000E+03 0.11000E+03 0.13000E+03 0.15000E+03 0.17000E+03 - 0.20000E+03 0.23000E+03 0.26000E+03 0.30000E+03 0.35000E+03 0.40000E+03 - 0.53000E-01 0.84000E-01 0.13000E+00 0.21000E+00 0.33000E+00 0.52000E+00 - 0.82000E+00 0.13000E+01 0.21000E+01 0.33000E+01 0.52000E+01 0.82000E+01 - 0.13000E+02 0.20000E+02 0.28000E+02 0.36000E+02 0.46000E+02 0.56000E+02 - 0.67000E+02 0.80000E+02 0.97000E+02 0.12000E+03 0.14000E+03 0.17000E+03 - 0.20000E+03 0.24000E+03 0.29000E+03 0.35000E+03 0.42000E+03 0.51000E+03 - 0.61000E+03 0.74000E+03 0.89000E+03 - + 10.5056 + 11.7158 + 13.0914 + 14.6281 + 16.3778 + 18.3726 + 20.6417 + 23.2418 + 26.2098 + 29.6295 + 33.5244 + 38.0854 + 43.3845 + 52.6576 + 65.0028 + 80.4860 + 97.3324 + 115.1734 + 130.7337 + 142.2826 + 146.8533 + 151.4018 + 156.2494 + 161.4894 + 166.5857 + 172.0585 + 177.6852 + 183.3748 + 189.5241 + 195.5927 + 202.1522 + 207.7422 + 213.5209 +2.6361 + 3.1964 + 3.8810 + 4.7191 + 5.7476 + 7.0129 + 8.5739 + 10.5044 + 12.8992 + 15.8808 + 19.6049 + 24.2718 + 30.1429 + 39.7882 + 55.1581 + 73.8645 + 95.6036 + 119.2394 + 142.5429 + 161.9557 + 177.5135 + 194.5667 + 213.2559 + 233.7440 + 256.1976 + 280.8096 + 307.7885 + 337.3544 + 369.7592 + 405.2785 + 444.2171 + 486.8866 + 533.6621 +2.8622e+000 + 3.5769e+000 + 4.4770e+000 + 5.6130e+000 + 7.0503e+000 + 8.8742e+000 + 11.1952e+000 + 14.1589e+000 + 17.9547e+000 + 22.8365e+000 + 29.1371e+000 + 37.3037e+000 + 47.9330e+000 + 69.2046e+000 + 98.0616e+000 + 133.2147e+000 + 173.4113e+000 + 215.3843e+000 + 253.8708e+000 + 284.7541e+000 + 319.4083e+000 + 358.2750e+000 + 401.8726e+000 + 450.7732e+000 + 505.6248e+000 + 567.1530e+000 + 636.1653e+000 + 713.5761e+000 + 800.4153e+000 + 897.8047e+000 + 1.0071e+003 + 1.1296e+003 + 1.2671e+003 diff --git a/etc/HUCM-SBM/termvels.asc-RAMS b/etc/HUCM-SBM/termvels.asc-RAMS new file mode 100755 index 0000000..8afab19 --- /dev/null +++ b/etc/HUCM-SBM/termvels.asc-RAMS @@ -0,0 +1,121 @@ + 0.50000E-01 0.78000E-01 0.12000E+00 0.19000E+00 0.31000E+00 0.49000E+00 + 0.77000E+00 0.12000E+01 0.19000E+01 0.30000E+01 0.48000E+01 0.74000E+01 + 0.11000E+02 0.17000E+02 0.26000E+02 0.37000E+02 0.52000E+02 0.71000E+02 + 0.94000E+02 0.12000E+03 0.16000E+03 0.21000E+03 0.26000E+03 0.33000E+03 + 0.41000E+03 0.48000E+03 0.57000E+03 0.66000E+03 0.75000E+03 0.82000E+03 + 0.88000E+03 0.90000E+03 0.90000E+03 0.30000E-01 0.40000E-01 0.60000E-01 + 0.80000E-01 0.11000E+00 0.15000E+00 0.60000E+00 0.10000E+01 0.20000E+00 + 0.25000E+00 0.40000E+00 0.60000E+01 0.10000E+02 0.15000E+01 0.20000E+02 + 0.25000E+02 0.31000E+02 0.37000E+02 0.41000E+02 0.46000E+02 0.51000E+02 + 0.55000E+02 0.59000E+02 0.62000E+02 0.64000E+02 0.67000E+02 0.68000E+02 + 0.69000E+02 0.70000E+02 0.71000E+02 0.71500E+02 0.71750E+02 0.72000E+02 + 0.30000E-01 0.40000E-01 0.50000E-01 0.70000E-01 0.90000E-01 0.12000E+00 + 0.50000E+00 0.80000E+00 0.16000E+01 0.18000E+01 0.20000E+01 0.30000E+01 + 0.40000E+01 0.50000E+01 0.80000E+01 0.13000E+02 0.19000E+02 0.26000E+02 + 0.32000E+02 0.38000E+02 0.47000E+02 0.55000E+02 0.65000E+02 0.73000E+02 + 0.77000E+02 0.79000E+02 0.80000E+02 0.81000E+02 0.81000E+02 0.82000E+02 + 0.82000E+02 0.82000E+02 0.82000E+02 0.35000E-01 0.45000E-01 0.55000E-01 + 0.75000E-01 0.95000E-01 0.13000E+00 0.60000E+00 0.90000E+00 0.17000E+01 + 0.20000E+01 0.25000E+01 0.38000E+00 0.50000E+01 0.70000E+01 0.90000E+01 + 0.11000E+01 0.14000E+02 0.17000E+00 0.21000E+02 0.25000E+02 0.32000E+02 + 0.38000E+02 0.44000E+02 0.49000E+02 0.53000E+02 0.55000E+02 0.58000E+02 + 0.59000E+02 0.61000E+02 0.62000E+02 0.63000E+02 0.64000E+02 0.65000E+02 + 10.5056 + 11.7158 + 13.0914 + 14.6281 + 16.3778 + 18.3726 + 20.6417 + 23.2418 + 26.2098 + 29.6295 + 33.5244 + 38.0854 + 43.3845 + 52.6576 + 65.0028 + 80.4860 + 97.3324 + 115.1734 + 130.7337 + 142.2826 + 146.8533 + 151.4018 + 156.2494 + 161.4894 + 166.5857 + 172.0585 + 177.6852 + 183.3748 + 189.5241 + 195.5927 + 202.1522 + 207.7422 + 213.5209 +2.6361 + 3.1964 + 3.8810 + 4.7191 + 5.7476 + 7.0129 + 8.5739 + 10.5044 + 12.8992 + 15.8808 + 19.6049 + 24.2718 + 30.1429 + 39.7882 + 55.1581 + 73.8645 + 95.6036 + 119.2394 + 142.5429 + 161.9557 + 177.5135 + 194.5667 + 213.2559 + 233.7440 + 256.1976 + 280.8096 + 307.7885 + 337.3544 + 369.7592 + 405.2785 + 444.2171 + 486.8866 + 533.6621 +2.8622e+000 + 3.5769e+000 + 4.4770e+000 + 5.6130e+000 + 7.0503e+000 + 8.8742e+000 + 11.1952e+000 + 14.1589e+000 + 17.9547e+000 + 22.8365e+000 + 29.1371e+000 + 37.3037e+000 + 47.9330e+000 + 69.2046e+000 + 98.0616e+000 + 133.2147e+000 + 173.4113e+000 + 215.3843e+000 + 253.8708e+000 + 284.7541e+000 + 319.4083e+000 + 358.2750e+000 + 401.8726e+000 + 450.7732e+000 + 505.6248e+000 + 567.1530e+000 + 636.1653e+000 + 713.5761e+000 + 800.4153e+000 + 897.8047e+000 + 1.0071e+003 + 1.1296e+003 + 1.2671e+003 diff --git a/include.mk b/include.mk index 0e6bd55..47aaf10 100644 --- a/include.mk +++ b/include.mk @@ -6,8 +6,8 @@ MAKE=/usr/bin/make ############################################################################# # Set your RAMS root path and version number. ############################################################################# -RAMS_ROOT=/home/smsaleeb/rams_20201201_dev -RAMS_VERSION=6.3.01 +RAMS_ROOT=/home/smsaleeb/rams_20210806_dev +RAMS_VERSION=6.3.02 ############################################################################# # Set root locations for HDF5 I/O software. diff --git a/src/6.3.01/bc/cyclic_mod.f90 b/src/6.3.02/bc/cyclic_mod.f90 similarity index 100% rename from src/6.3.01/bc/cyclic_mod.f90 rename to src/6.3.02/bc/cyclic_mod.f90 diff --git a/src/6.3.01/bc/rbnd.f90 b/src/6.3.02/bc/rbnd.f90 similarity index 99% rename from src/6.3.01/bc/rbnd.f90 rename to src/6.3.02/bc/rbnd.f90 index 9fbb646..7a5b8f1 100644 --- a/src/6.3.01/bc/rbnd.f90 +++ b/src/6.3.02/bc/rbnd.f90 @@ -471,6 +471,9 @@ Subroutine latset (m1,m2,m3,ia,iz,ja,jz,ibcon,vnam,ap,uc,vc,dxu,dxm,dyv,dym & ((sname == 'MD1NP' .or. sname == 'MD1MP' .or. & sname == 'MD2NP' .or. sname == 'MD2MP') .and. & idust==1) .or. & + ((sname == 'ABC1NP' .or. sname == 'ABC1MP' .or. & + sname == 'ABC2NP' .or. sname == 'ABC2MP') .and. & + iabcarb==1) .or. & ((sname == 'SALT_FILM_NP' .or. sname == 'SALT_FILM_MP' .or. & sname == 'SALT_JET_NP' .or. sname == 'SALT_JET_MP' .or. & sname == 'SALT_SPUM_NP' .or. sname == 'SALT_SPUM_MP') .and. & diff --git a/src/6.3.01/bc/rbnd_nonscalar.f90 b/src/6.3.02/bc/rbnd_nonscalar.f90 similarity index 100% rename from src/6.3.01/bc/rbnd_nonscalar.f90 rename to src/6.3.02/bc/rbnd_nonscalar.f90 diff --git a/src/6.3.01/bc/rbnd_trsetsns.f90 b/src/6.3.02/bc/rbnd_trsetsns.f90 similarity index 100% rename from src/6.3.01/bc/rbnd_trsetsns.f90 rename to src/6.3.02/bc/rbnd_trsetsns.f90 diff --git a/src/6.3.01/block/hdf5_f2c.c b/src/6.3.02/block/hdf5_f2c.c similarity index 100% rename from src/6.3.01/block/hdf5_f2c.c rename to src/6.3.02/block/hdf5_f2c.c diff --git a/src/6.3.01/block/hdf5_utils.f90 b/src/6.3.02/block/hdf5_utils.f90 similarity index 100% rename from src/6.3.01/block/hdf5_utils.f90 rename to src/6.3.02/block/hdf5_utils.f90 diff --git a/src/6.3.01/block/mk_main.f90 b/src/6.3.02/block/mk_main.f90 similarity index 100% rename from src/6.3.01/block/mk_main.f90 rename to src/6.3.02/block/mk_main.f90 diff --git a/src/6.3.01/core/coriolis.f90 b/src/6.3.02/core/coriolis.f90 similarity index 100% rename from src/6.3.01/core/coriolis.f90 rename to src/6.3.02/core/coriolis.f90 diff --git a/src/6.3.01/core/modsched.f90 b/src/6.3.02/core/modsched.f90 similarity index 100% rename from src/6.3.01/core/modsched.f90 rename to src/6.3.02/core/modsched.f90 diff --git a/src/6.3.01/core/newbase.f90 b/src/6.3.02/core/newbase.f90 similarity index 100% rename from src/6.3.01/core/newbase.f90 rename to src/6.3.02/core/newbase.f90 diff --git a/src/6.3.01/core/raco.f90 b/src/6.3.02/core/raco.f90 similarity index 100% rename from src/6.3.01/core/raco.f90 rename to src/6.3.02/core/raco.f90 diff --git a/src/6.3.01/core/radvc.f90 b/src/6.3.02/core/radvc.f90 similarity index 100% rename from src/6.3.01/core/radvc.f90 rename to src/6.3.02/core/radvc.f90 diff --git a/src/6.3.01/core/rammain.f90 b/src/6.3.02/core/rammain.f90 similarity index 100% rename from src/6.3.01/core/rammain.f90 rename to src/6.3.02/core/rammain.f90 diff --git a/src/6.3.01/core/rams_model.f90 b/src/6.3.02/core/rams_model.f90 similarity index 100% rename from src/6.3.01/core/rams_model.f90 rename to src/6.3.02/core/rams_model.f90 diff --git a/src/6.3.01/core/ref_sounding.f90 b/src/6.3.02/core/ref_sounding.f90 similarity index 100% rename from src/6.3.01/core/ref_sounding.f90 rename to src/6.3.02/core/ref_sounding.f90 diff --git a/src/6.3.01/core/rexev.f90 b/src/6.3.02/core/rexev.f90 similarity index 100% rename from src/6.3.01/core/rexev.f90 rename to src/6.3.02/core/rexev.f90 diff --git a/src/6.3.01/core/rthrm.f90 b/src/6.3.02/core/rthrm.f90 similarity index 100% rename from src/6.3.01/core/rthrm.f90 rename to src/6.3.02/core/rthrm.f90 diff --git a/src/6.3.01/core/rtimh.f90 b/src/6.3.02/core/rtimh.f90 similarity index 98% rename from src/6.3.01/core/rtimh.f90 rename to src/6.3.02/core/rtimh.f90 index 7f33240..f8f988c 100644 --- a/src/6.3.01/core/rtimh.f90 +++ b/src/6.3.02/core/rtimh.f90 @@ -322,9 +322,9 @@ Subroutine acctimes (string) endif ! only here for debugging purposes -kp=21 -ip=54 -jp=101 +kp=19 +ip=25 +jp=17 bp=1 101 format ('DEBUG: NODE',i0,': LOC(',i0,',',i0,',',i0,') --> (' & @@ -346,14 +346,12 @@ Subroutine acctimes (string) endif if(ngrid==1000) then -do k=29,13,-1 + k = kp i = ip - mi0(ngrid) j = jp - mj0(ngrid) - !k = kp patch = 2 if ((i.ge.1) .and. (i.le.mmxp(ngrid)) .and. & (j.ge.1) .and. (j.le.mmyp(ngrid))) then - if(k==29)print*,string,time ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THETA', string, time & ! ,basic_g(ngrid)%theta(k,i,j) ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THP', string, time & @@ -365,12 +363,10 @@ Subroutine acctimes (string) ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'RV', string, time & ! ,basic_g(ngrid)%rv(k,i,j) - !print 101, my_rams_num, kp, ip, jp, k, i, j, 'RCP', string, time & - ! ,micro_g(ngrid)%rcp(k,i,j) - print*,k,zt(k),micro_g(ngrid)%rcp(k,i,j),basic_g(ngrid)%rtp(k,i,j) - -! print 101, my_rams_num, kp, ip, jp, k, i, j, 'rct', string, time & -! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%rct(1)) + print 101, my_rams_num, kp, ip, jp, k, i, j, 'RRP', string, time & + ,micro_g(ngrid)%rrp(k,i,j) + print 101, my_rams_num, kp, ip, jp, k, i, j, 'rrt', string, time & + ,valugp(mzp,mxp,myp,kp,ip,jp,tend%rrt(1)) ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'RV', string, time & ! ,basic_g(ngrid)%rv(k,i,j) ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THT', string, time & @@ -396,7 +392,6 @@ Subroutine acctimes (string) ! print 101, my_rams_num, kp, ip, jp, k, i, j, 'PATCH_AREA', string, time & ! ,leaf_g(ngrid)%patch_area(i,j,patch) endif -enddo endif ! , basic_g(ngrid)%up(1:mzp,ip,jp) diff --git a/src/6.3.01/core/rtimi.f90 b/src/6.3.02/core/rtimi.f90 similarity index 100% rename from src/6.3.01/core/rtimi.f90 rename to src/6.3.02/core/rtimi.f90 diff --git a/src/6.3.01/cuparm/conv_coms.f90 b/src/6.3.02/cuparm/conv_coms.f90 similarity index 100% rename from src/6.3.01/cuparm/conv_coms.f90 rename to src/6.3.02/cuparm/conv_coms.f90 diff --git a/src/6.3.01/cuparm/kf_cuparm.f90 b/src/6.3.02/cuparm/kf_cuparm.f90 similarity index 100% rename from src/6.3.01/cuparm/kf_cuparm.f90 rename to src/6.3.02/cuparm/kf_cuparm.f90 diff --git a/src/6.3.01/cuparm/kf_driver.f90 b/src/6.3.02/cuparm/kf_driver.f90 similarity index 100% rename from src/6.3.01/cuparm/kf_driver.f90 rename to src/6.3.02/cuparm/kf_driver.f90 diff --git a/src/6.3.01/cuparm/kf_rconv.f90 b/src/6.3.02/cuparm/kf_rconv.f90 similarity index 100% rename from src/6.3.01/cuparm/kf_rconv.f90 rename to src/6.3.02/cuparm/kf_rconv.f90 diff --git a/src/6.3.01/cuparm/rconv.f90 b/src/6.3.02/cuparm/rconv.f90 similarity index 100% rename from src/6.3.01/cuparm/rconv.f90 rename to src/6.3.02/cuparm/rconv.f90 diff --git a/src/6.3.01/dprep/dgrib1_main.f90 b/src/6.3.02/dprep/dgrib1_main.f90 similarity index 100% rename from src/6.3.01/dprep/dgrib1_main.f90 rename to src/6.3.02/dprep/dgrib1_main.f90 diff --git a/src/6.3.01/dprep/dgrib2_main.f90 b/src/6.3.02/dprep/dgrib2_main.f90 similarity index 100% rename from src/6.3.01/dprep/dgrib2_main.f90 rename to src/6.3.02/dprep/dgrib2_main.f90 diff --git a/src/6.3.01/fdda/nud_analysis.f90 b/src/6.3.02/fdda/nud_analysis.f90 similarity index 100% rename from src/6.3.01/fdda/nud_analysis.f90 rename to src/6.3.02/fdda/nud_analysis.f90 diff --git a/src/6.3.01/fdda/oda_krig.f90 b/src/6.3.02/fdda/oda_krig.f90 similarity index 100% rename from src/6.3.01/fdda/oda_krig.f90 rename to src/6.3.02/fdda/oda_krig.f90 diff --git a/src/6.3.01/fdda/oda_nudge.f90 b/src/6.3.02/fdda/oda_nudge.f90 similarity index 100% rename from src/6.3.01/fdda/oda_nudge.f90 rename to src/6.3.02/fdda/oda_nudge.f90 diff --git a/src/6.3.01/fdda/oda_proc_obs.f90 b/src/6.3.02/fdda/oda_proc_obs.f90 similarity index 100% rename from src/6.3.01/fdda/oda_proc_obs.f90 rename to src/6.3.02/fdda/oda_proc_obs.f90 diff --git a/src/6.3.01/fdda/oda_read.f90 b/src/6.3.02/fdda/oda_read.f90 similarity index 100% rename from src/6.3.01/fdda/oda_read.f90 rename to src/6.3.02/fdda/oda_read.f90 diff --git a/src/6.3.01/fdda/oda_sta_count.f90 b/src/6.3.02/fdda/oda_sta_count.f90 similarity index 100% rename from src/6.3.01/fdda/oda_sta_count.f90 rename to src/6.3.02/fdda/oda_sta_count.f90 diff --git a/src/6.3.01/fdda/oda_sta_input.f90 b/src/6.3.02/fdda/oda_sta_input.f90 similarity index 100% rename from src/6.3.01/fdda/oda_sta_input.f90 rename to src/6.3.02/fdda/oda_sta_input.f90 diff --git a/src/6.3.01/fdda/varf_read.f90 b/src/6.3.02/fdda/varf_read.f90 similarity index 100% rename from src/6.3.01/fdda/varf_read.f90 rename to src/6.3.02/fdda/varf_read.f90 diff --git a/src/6.3.01/fdda/varf_update.f90 b/src/6.3.02/fdda/varf_update.f90 similarity index 100% rename from src/6.3.01/fdda/varf_update.f90 rename to src/6.3.02/fdda/varf_update.f90 diff --git a/src/6.3.01/gdf/gdf_input.f90 b/src/6.3.02/gdf/gdf_input.f90 similarity index 100% rename from src/6.3.01/gdf/gdf_input.f90 rename to src/6.3.02/gdf/gdf_input.f90 diff --git a/src/6.3.01/gdf/gdf_read_sfc.f90 b/src/6.3.02/gdf/gdf_read_sfc.f90 similarity index 100% rename from src/6.3.01/gdf/gdf_read_sfc.f90 rename to src/6.3.02/gdf/gdf_read_sfc.f90 diff --git a/src/6.3.01/gdf/gdf_read_upa.f90 b/src/6.3.02/gdf/gdf_read_upa.f90 similarity index 100% rename from src/6.3.01/gdf/gdf_read_upa.f90 rename to src/6.3.02/gdf/gdf_read_upa.f90 diff --git a/src/6.3.01/include/revu_sub_names.h b/src/6.3.02/include/revu_sub_names.h similarity index 100% rename from src/6.3.01/include/revu_sub_names.h rename to src/6.3.02/include/revu_sub_names.h diff --git a/src/6.3.01/include/sub_gribnames.h b/src/6.3.02/include/sub_gribnames.h similarity index 100% rename from src/6.3.01/include/sub_gribnames.h rename to src/6.3.02/include/sub_gribnames.h diff --git a/src/6.3.01/include/utils_sub_names.h b/src/6.3.02/include/utils_sub_names.h similarity index 100% rename from src/6.3.01/include/utils_sub_names.h rename to src/6.3.02/include/utils_sub_names.h diff --git a/src/6.3.01/init/data_init.f90 b/src/6.3.02/init/data_init.f90 similarity index 100% rename from src/6.3.01/init/data_init.f90 rename to src/6.3.02/init/data_init.f90 diff --git a/src/6.3.01/init/gridset.f90 b/src/6.3.02/init/gridset.f90 similarity index 100% rename from src/6.3.01/init/gridset.f90 rename to src/6.3.02/init/gridset.f90 diff --git a/src/6.3.01/init/rams_grid.f90 b/src/6.3.02/init/rams_grid.f90 similarity index 100% rename from src/6.3.01/init/rams_grid.f90 rename to src/6.3.02/init/rams_grid.f90 diff --git a/src/6.3.01/init/rdint.f90 b/src/6.3.02/init/rdint.f90 similarity index 97% rename from src/6.3.01/init/rdint.f90 rename to src/6.3.02/init/rdint.f90 index 40310f1..b71579f 100644 --- a/src/6.3.01/init/rdint.f90 +++ b/src/6.3.02/init/rdint.f90 @@ -27,7 +27,7 @@ Subroutine initlz () ! Initialize aerosol density and vanthoff factors if they are used ! Not used with HUCM-SBM microphysics if(level<=3)then - if(iaerosol>0 .or. idust>0 .or. isalt>0) CALL aerosol_init () + if(iaerosol>0 .or. idust>0 .or. isalt>0 .or. iabcarb>0) CALL aerosol_init () endif if(trim(runtype) == 'INITIAL' .or. & @@ -173,6 +173,12 @@ Subroutine initlz () ,micro_g(ifm)%md1mp (1,1,1) & ,micro_g(ifm)%md2mp (1,1,1) & ,basic_g(ifm)%dn0 (1,1,1),ifm) + if(iabcarb > 0) CALL init_absorbing_carbon (mzp,mxp,myp & + ,micro_g(ifm)%abc1np (1,1,1) & + ,micro_g(ifm)%abc2np (1,1,1) & + ,micro_g(ifm)%abc1mp (1,1,1) & + ,micro_g(ifm)%abc2mp (1,1,1) & + ,basic_g(ifm)%dn0 (1,1,1),ifm) if(isalt > 0) CALL init_salt (mzp,mxp,myp & ,micro_g(ifm)%salt_film_np (1,1,1) & ,micro_g(ifm)%salt_jet_np (1,1,1) & diff --git a/src/6.3.01/init/rhhi.f90 b/src/6.3.02/init/rhhi.f90 similarity index 100% rename from src/6.3.01/init/rhhi.f90 rename to src/6.3.02/init/rhhi.f90 diff --git a/src/6.3.01/init/rinit.f90 b/src/6.3.02/init/rinit.f90 similarity index 100% rename from src/6.3.01/init/rinit.f90 rename to src/6.3.02/init/rinit.f90 diff --git a/src/6.3.01/io/anal_extra.f90 b/src/6.3.02/io/anal_extra.f90 similarity index 100% rename from src/6.3.01/io/anal_extra.f90 rename to src/6.3.02/io/anal_extra.f90 diff --git a/src/6.3.01/io/anal_write.f90 b/src/6.3.02/io/anal_write.f90 similarity index 100% rename from src/6.3.01/io/anal_write.f90 rename to src/6.3.02/io/anal_write.f90 diff --git a/src/6.3.01/io/history_start.f90 b/src/6.3.02/io/history_start.f90 similarity index 100% rename from src/6.3.01/io/history_start.f90 rename to src/6.3.02/io/history_start.f90 diff --git a/src/6.3.01/io/inithis.f90 b/src/6.3.02/io/inithis.f90 similarity index 100% rename from src/6.3.01/io/inithis.f90 rename to src/6.3.02/io/inithis.f90 diff --git a/src/6.3.01/io/io_params.f90 b/src/6.3.02/io/io_params.f90 similarity index 100% rename from src/6.3.01/io/io_params.f90 rename to src/6.3.02/io/io_params.f90 diff --git a/src/6.3.01/io/opspec.f90 b/src/6.3.02/io/opspec.f90 similarity index 98% rename from src/6.3.01/io/opspec.f90 rename to src/6.3.02/io/opspec.f90 index 9747aec..97427a3 100644 --- a/src/6.3.01/io/opspec.f90 +++ b/src/6.3.02/io/opspec.f90 @@ -223,6 +223,10 @@ Subroutine opspec1 () print*,'FATAL - ISALT OUT OF RANGE: MUST BE 0-2' IFATERR = IFATERR + 1 endif + if (iabcarb .lt. 0 .or. iabcarb .gt. 1) THEN + print*,'FATAL - IABCARB OUT OF RANGE: MUST BE 0-1' + IFATERR = IFATERR + 1 + endif if (iaerorad .lt. 0 .or. iaerorad .gt. 1) THEN print*,'FATAL - IAERORAD OUT OF RANGE: MUST BE 0-1' IFATERR = IFATERR + 1 @@ -346,8 +350,8 @@ Subroutine opspec1 () endif endif if (icloud .eq. 5) then - if (iaerosol.eq.0 .and. idust.eq.0 .and. isalt.eq.0) then - print*,'FATAL - If icloud==5, then either IAEROSOL, IDUST, or ISALT' + if (iaerosol.eq.0 .and. idust.eq.0 .and. isalt.eq.0 .and. iabcarb.eq.0) then + print*,'FATAL - If icloud==5, then either IAEROSOL, IDUST, IABCARB, or ISALT' print*,' must be turned on so that some aerosols are present in order' print*,' for cloud nucleation to occur.' IFATERR = IFATERR + 1 @@ -405,6 +409,7 @@ Subroutine opspec1 () iaerosol > 0 .or. & idust > 0 .or. & isalt > 0 .or. & + iabcarb > 0 .or. & iccnlev > 0 .or. & iaerorad > 0 .or. & iaerodep > 0 .or. & @@ -417,7 +422,7 @@ Subroutine opspec1 () print*,'in HUCM Bin Microphysics, so set them to zero for OFF.' print*,'' print*,'ICLOUD, IDRIZ, IRAIN, ISNOW, IAGGR, IAEROSOL' - print*,'ISALT, IDUST, ICCNLEV, IAERORAD, IAERODEP, IAEROPRNT' + print*,'IABCARB, ISALT, IDUST, ICCNLEV, IAERORAD, IAERODEP, IAEROPRNT' print*,'ITRKEPSILON, ITRKDUST, ITRKDUSTIFN, ICHECKMIC.' print*,'' print*,'HUCM only uses the following microphysics flags:' diff --git a/src/6.3.01/io/ranlavg.f90 b/src/6.3.02/io/ranlavg.f90 similarity index 100% rename from src/6.3.01/io/ranlavg.f90 rename to src/6.3.02/io/ranlavg.f90 diff --git a/src/6.3.01/io/rcio.f90 b/src/6.3.02/io/rcio.f90 similarity index 100% rename from src/6.3.01/io/rcio.f90 rename to src/6.3.02/io/rcio.f90 diff --git a/src/6.3.01/io/rname.f90 b/src/6.3.02/io/rname.f90 similarity index 98% rename from src/6.3.01/io/rname.f90 rename to src/6.3.02/io/rname.f90 index 753ffea..25bafea 100644 --- a/src/6.3.01/io/rname.f90 +++ b/src/6.3.02/io/rname.f90 @@ -25,7 +25,7 @@ Subroutine nvfillm (group,vr,ii,ff,cc,nv) real :: ff integer :: ii,nv integer :: inrflg -integer, parameter ::nvgrid=37,nvstrt=77,nvindat=142,nvsound=10 +integer, parameter ::nvgrid=37,nvstrt=77,nvindat=145,nvsound=10 integer :: igrids(nvgrid),istart(nvstrt),iindat(nvindat),isound(nvsound) character(len=16) :: grids(nvgrid),start(nvstrt),indat(nvindat),sound(nvsound) data igrids/nvgrid*0/,istart/nvstrt*0/,iindat/nvindat*0/,isound/nvsound*0/ @@ -75,7 +75,8 @@ Subroutine nvfillm (group,vr,ii,ff,cc,nv) ,'GCCN_MAX','DUST1_MAX','DUST2_MAX','SALTF_MAX','SALTJ_MAX' & ,'SALTS_MAX','IAEROLBC','ICO2LBC','BCTAU','IAERO_CHEM' & ,'AERO_EPSILON','AERO_MEDRAD','ITRKEPSILON','ITRKDUST' & - ,'ITRKDUSTIFN','SCMTIME','ISCMX','ISCMY','FRACSAT'/ + ,'ITRKDUSTIFN','SCMTIME','ISCMX','ISCMY','FRACSAT','IABCARB' & + ,'ABC1_MAX','ABC2_MAX'/ DATA SOUND/ & 'IPSFLG','ITSFLG','IRTSFLG','IUSFLG','HS','PS','TS','RTS','US','VS'/ @@ -347,6 +348,7 @@ END SUBROUTINE varseti IF(VR.EQ.'HUCMFILE') CALL varsetc (VR,HUCMFILE,NV,1,CC,1,strl1) IF(VR.EQ.'NDTCOLL') CALL varseti (VR,NDTCOLL,NV,1,II,1,10) IF(VR.EQ.'IAEROSOL') CALL varseti (VR,IAEROSOL,NV,1,II,0,1) + IF(VR.EQ.'IABCARB') CALL varseti (VR,IABCARB,NV,1,II,0,1) IF(VR.EQ.'ISALT') CALL varseti (VR,ISALT,NV,1,II,0,2) IF(VR.EQ.'IDUST') CALL varseti (VR,IDUST,NV,1,II,0,2) IF(VR.EQ.'IDUSTLOFT') CALL varseti (VR,IDUSTLOFT,NV,1,II,0,99) @@ -363,15 +365,17 @@ END SUBROUTINE varseti IF(VR.EQ.'GCCN_MAX') CALL varsetf (VR,GCCN_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'DUST1_MAX') CALL varsetf (VR,DUST1_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'DUST2_MAX') CALL varsetf (VR,DUST2_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'ABC1_MAX') CALL varsetf (VR,ABC1_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'ABC2_MAX') CALL varsetf (VR,ABC2_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'SALTF_MAX') CALL varsetf (VR,SALTF_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'SALTJ_MAX') CALL varsetf (VR,SALTJ_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'SALTS_MAX') CALL varsetf (VR,SALTS_MAX,NV,1,FF,0.,1.E4) IF(VR.EQ.'IAEROLBC') CALL varseti (VR,IAEROLBC(NV),NV,MAXGRDS,II,0,1) IF(VR.EQ.'ICO2LBC') CALL varseti (VR,ICO2LBC(NV),NV,MAXGRDS,II,0,1) IF(VR.EQ.'BCTAU') CALL varsetf (VR,BCTAU(NV),NV,MAXGRDS,FF,0.,1.E4) - IF(VR.EQ.'IAERO_CHEM') CALL varseti (VR,IAERO_CHEM(NV),NV,9,II,0,2) - IF(VR.EQ.'AERO_EPSILON') CALL varsetf (VR,AERO_EPSILON(NV),NV,9,FF,0.,1.) - IF(VR.EQ.'AERO_MEDRAD') CALL varsetf (VR,AERO_MEDRAD(NV),NV,9,FF,0.,20.) + IF(VR.EQ.'IAERO_CHEM') CALL varseti (VR,IAERO_CHEM(NV),NV,aerocat,II,0,2) + IF(VR.EQ.'AERO_EPSILON') CALL varsetf (VR,AERO_EPSILON(NV),NV,aerocat,FF,0.,1.) + IF(VR.EQ.'AERO_MEDRAD') CALL varsetf (VR,AERO_MEDRAD(NV),NV,aerocat,FF,0.,20.) IF(VR.EQ.'ITRKEPSILON') CALL varseti (VR,ITRKEPSILON,NV,1,II,0,1) IF(VR.EQ.'ITRKDUST') CALL varseti (VR,ITRKDUST,NV,1,II,0,1) IF(VR.EQ.'ITRKDUSTIFN') CALL varseti (VR,ITRKDUSTIFN,NV,1,II,0,1) @@ -521,6 +525,7 @@ Subroutine nameout () ,'IHAIL=',IHAIL & ,'NDTCOLL=',NDTCOLL & ,'IAEROSOL=',IAEROSOL & + ,'IABCARB=',IABCARB & ,'ISALT=',ISALT & ,'IDUST=',IDUST & ,'IDUSTLOFT=',IDUSTLOFT & @@ -603,6 +608,8 @@ Subroutine nameout () ,'GCCN_MAX=',GCCN_MAX & ,'DUST1_MAX=',DUST1_MAX & ,'DUST2_MAX=',DUST2_MAX & + ,'ABC1_MAX=',ABC1_MAX & + ,'ABC2_MAX=',ABC2_MAX & ,'SALTF_MAX=',SALTF_MAX & ,'SALTJ_MAX=',SALTJ_MAX & ,'SALTS_MAX=',SALTS_MAX & diff --git a/src/6.3.01/io/rprnt.f90 b/src/6.3.02/io/rprnt.f90 similarity index 100% rename from src/6.3.01/io/rprnt.f90 rename to src/6.3.02/io/rprnt.f90 diff --git a/src/6.3.01/isan/aobj.f90 b/src/6.3.02/isan/aobj.f90 similarity index 100% rename from src/6.3.01/isan/aobj.f90 rename to src/6.3.02/isan/aobj.f90 diff --git a/src/6.3.01/isan/asgen.f90 b/src/6.3.02/isan/asgen.f90 similarity index 100% rename from src/6.3.01/isan/asgen.f90 rename to src/6.3.02/isan/asgen.f90 diff --git a/src/6.3.01/isan/asti.f90 b/src/6.3.02/isan/asti.f90 similarity index 100% rename from src/6.3.01/isan/asti.f90 rename to src/6.3.02/isan/asti.f90 diff --git a/src/6.3.01/isan/asti2.f90 b/src/6.3.02/isan/asti2.f90 similarity index 100% rename from src/6.3.01/isan/asti2.f90 rename to src/6.3.02/isan/asti2.f90 diff --git a/src/6.3.01/isan/astp.f90 b/src/6.3.02/isan/astp.f90 similarity index 100% rename from src/6.3.01/isan/astp.f90 rename to src/6.3.02/isan/astp.f90 diff --git a/src/6.3.01/isan/avarf.f90 b/src/6.3.02/isan/avarf.f90 similarity index 100% rename from src/6.3.01/isan/avarf.f90 rename to src/6.3.02/isan/avarf.f90 diff --git a/src/6.3.01/isan/file_inv.f90 b/src/6.3.02/isan/file_inv.f90 similarity index 100% rename from src/6.3.01/isan/file_inv.f90 rename to src/6.3.02/isan/file_inv.f90 diff --git a/src/6.3.01/isan/isan_coms.f90 b/src/6.3.02/isan/isan_coms.f90 similarity index 100% rename from src/6.3.01/isan/isan_coms.f90 rename to src/6.3.02/isan/isan_coms.f90 diff --git a/src/6.3.01/isan/isan_io.f90 b/src/6.3.02/isan/isan_io.f90 similarity index 100% rename from src/6.3.01/isan/isan_io.f90 rename to src/6.3.02/isan/isan_io.f90 diff --git a/src/6.3.01/isan/isan_name.f90 b/src/6.3.02/isan/isan_name.f90 similarity index 100% rename from src/6.3.01/isan/isan_name.f90 rename to src/6.3.02/isan/isan_name.f90 diff --git a/src/6.3.01/isan/refstate.f90 b/src/6.3.02/isan/refstate.f90 similarity index 100% rename from src/6.3.01/isan/refstate.f90 rename to src/6.3.02/isan/refstate.f90 diff --git a/src/6.3.01/isan/v_interps.f90 b/src/6.3.02/isan/v_interps.f90 similarity index 100% rename from src/6.3.01/isan/v_interps.f90 rename to src/6.3.02/isan/v_interps.f90 diff --git a/src/6.3.01/isan/write_varf.f90 b/src/6.3.02/isan/write_varf.f90 similarity index 100% rename from src/6.3.01/isan/write_varf.f90 rename to src/6.3.02/isan/write_varf.f90 diff --git a/src/6.3.01/kpp/kpp_coeffs.f90 b/src/6.3.02/kpp/kpp_coeffs.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_coeffs.f90 rename to src/6.3.02/kpp/kpp_coeffs.f90 diff --git a/src/6.3.01/kpp/kpp_init.f90 b/src/6.3.02/kpp/kpp_init.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_init.f90 rename to src/6.3.02/kpp/kpp_init.f90 diff --git a/src/6.3.01/kpp/kpp_mix.f90 b/src/6.3.02/kpp/kpp_mix.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_mix.f90 rename to src/6.3.02/kpp/kpp_mix.f90 diff --git a/src/6.3.01/kpp/kpp_ocint.f90 b/src/6.3.02/kpp/kpp_ocint.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_ocint.f90 rename to src/6.3.02/kpp/kpp_ocint.f90 diff --git a/src/6.3.01/kpp/kpp_override.f90 b/src/6.3.02/kpp/kpp_override.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_override.f90 rename to src/6.3.02/kpp/kpp_override.f90 diff --git a/src/6.3.01/kpp/kpp_params.f90 b/src/6.3.02/kpp/kpp_params.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_params.f90 rename to src/6.3.02/kpp/kpp_params.f90 diff --git a/src/6.3.01/kpp/kpp_timestep.f90 b/src/6.3.02/kpp/kpp_timestep.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_timestep.f90 rename to src/6.3.02/kpp/kpp_timestep.f90 diff --git a/src/6.3.01/kpp/kpp_typexfer.f90 b/src/6.3.02/kpp/kpp_typexfer.f90 similarity index 100% rename from src/6.3.01/kpp/kpp_typexfer.f90 rename to src/6.3.02/kpp/kpp_typexfer.f90 diff --git a/src/6.3.01/lib/an_header.f90 b/src/6.3.02/lib/an_header.f90 similarity index 100% rename from src/6.3.01/lib/an_header.f90 rename to src/6.3.02/lib/an_header.f90 diff --git a/src/6.3.01/lib/charutils.f90 b/src/6.3.02/lib/charutils.f90 similarity index 100% rename from src/6.3.01/lib/charutils.f90 rename to src/6.3.02/lib/charutils.f90 diff --git a/src/6.3.01/lib/dateutils.f90 b/src/6.3.02/lib/dateutils.f90 similarity index 100% rename from src/6.3.01/lib/dateutils.f90 rename to src/6.3.02/lib/dateutils.f90 diff --git a/src/6.3.01/lib/griber_grb1.c b/src/6.3.02/lib/griber_grb1.c similarity index 100% rename from src/6.3.01/lib/griber_grb1.c rename to src/6.3.02/lib/griber_grb1.c diff --git a/src/6.3.01/lib/griber_grb2.c b/src/6.3.02/lib/griber_grb2.c similarity index 100% rename from src/6.3.01/lib/griber_grb2.c rename to src/6.3.02/lib/griber_grb2.c diff --git a/src/6.3.01/lib/hdf5_f2c.c b/src/6.3.02/lib/hdf5_f2c.c similarity index 100% rename from src/6.3.01/lib/hdf5_f2c.c rename to src/6.3.02/lib/hdf5_f2c.c diff --git a/src/6.3.01/lib/hdf5_utils.f90 b/src/6.3.02/lib/hdf5_utils.f90 similarity index 100% rename from src/6.3.01/lib/hdf5_utils.f90 rename to src/6.3.02/lib/hdf5_utils.f90 diff --git a/src/6.3.01/lib/interp_lib.f90 b/src/6.3.02/lib/interp_lib.f90 similarity index 100% rename from src/6.3.01/lib/interp_lib.f90 rename to src/6.3.02/lib/interp_lib.f90 diff --git a/src/6.3.01/lib/map_proj.f90 b/src/6.3.02/lib/map_proj.f90 similarity index 100% rename from src/6.3.01/lib/map_proj.f90 rename to src/6.3.02/lib/map_proj.f90 diff --git a/src/6.3.01/lib/numutils.f90 b/src/6.3.02/lib/numutils.f90 similarity index 100% rename from src/6.3.01/lib/numutils.f90 rename to src/6.3.02/lib/numutils.f90 diff --git a/src/6.3.01/lib/parlib.c b/src/6.3.02/lib/parlib.c similarity index 100% rename from src/6.3.01/lib/parlib.c rename to src/6.3.02/lib/parlib.c diff --git a/src/6.3.01/lib/polarst.f90 b/src/6.3.02/lib/polarst.f90 similarity index 100% rename from src/6.3.01/lib/polarst.f90 rename to src/6.3.02/lib/polarst.f90 diff --git a/src/6.3.01/lib/rconstants.f90 b/src/6.3.02/lib/rconstants.f90 similarity index 100% rename from src/6.3.01/lib/rconstants.f90 rename to src/6.3.02/lib/rconstants.f90 diff --git a/src/6.3.01/lib/rget.F90 b/src/6.3.02/lib/rget.F90 similarity index 100% rename from src/6.3.01/lib/rget.F90 rename to src/6.3.02/lib/rget.F90 diff --git a/src/6.3.01/lib/rnamel.f90 b/src/6.3.02/lib/rnamel.f90 similarity index 100% rename from src/6.3.01/lib/rnamel.f90 rename to src/6.3.02/lib/rnamel.f90 diff --git a/src/6.3.01/lib/rsys.F90 b/src/6.3.02/lib/rsys.F90 similarity index 100% rename from src/6.3.01/lib/rsys.F90 rename to src/6.3.02/lib/rsys.F90 diff --git a/src/6.3.01/lib/therm_lib.f90 b/src/6.3.02/lib/therm_lib.f90 similarity index 100% rename from src/6.3.01/lib/therm_lib.f90 rename to src/6.3.02/lib/therm_lib.f90 diff --git a/src/6.3.01/lib/utils_c.c b/src/6.3.02/lib/utils_c.c similarity index 100% rename from src/6.3.01/lib/utils_c.c rename to src/6.3.02/lib/utils_c.c diff --git a/src/6.3.01/lib/utils_f.f90 b/src/6.3.02/lib/utils_f.f90 similarity index 100% rename from src/6.3.01/lib/utils_f.f90 rename to src/6.3.02/lib/utils_f.f90 diff --git a/src/6.3.01/memory/alloc.f90 b/src/6.3.02/memory/alloc.f90 similarity index 100% rename from src/6.3.01/memory/alloc.f90 rename to src/6.3.02/memory/alloc.f90 diff --git a/src/6.3.01/memory/grid_dims.f90 b/src/6.3.02/memory/grid_dims.f90 similarity index 94% rename from src/6.3.01/memory/grid_dims.f90 rename to src/6.3.02/memory/grid_dims.f90 index 4a3fbe8..71cd64f 100644 --- a/src/6.3.01/memory/grid_dims.f90 +++ b/src/6.3.02/memory/grid_dims.f90 @@ -36,12 +36,12 @@ Module grid_dims ! !Configuration for isentropic data analysis package maximum sizes ,maxpr = 100 & ! Max # of vertical levels allowed in the pressure data - ,maxisn = 100 & ! Max # of vertical levels allowed in the isentropic analysis + ,maxisn = 200 & ! Max # of vertical levels allowed in the isentropic analysis ,maxx = 1000 & ! Max # of X (west-east) grid points in RAMS or pressure grids ,maxy = 1000 & ! Max # of Y (north-south) grid points in RAMS or pressure grids - ,maxtimes = 100 & ! Max # of data analysis times that can be processed in a single run. + ,maxtimes = 200 & ! Max # of data analysis times that can be processed in a single run. ,maxagrds = 10 & ! Max # of RAMS grids that can have varfiles generated - ,maxsigz = 100 & ! Max # of vertical levels allowed in sigma-z analysis. + ,maxsigz = 200 & ! Max # of vertical levels allowed in sigma-z analysis. ,maxlev = 500 & ! Max # of levels in an input rawinsonde ,maxsname = 10000 & ! Max # of input observations ,maxisfiles = 1000 & ! Max # of input data times diff --git a/src/6.3.01/memory/grid_struct.f90 b/src/6.3.02/memory/grid_struct.f90 similarity index 100% rename from src/6.3.01/memory/grid_struct.f90 rename to src/6.3.02/memory/grid_struct.f90 diff --git a/src/6.3.01/memory/mem_all.f90 b/src/6.3.02/memory/mem_all.f90 similarity index 100% rename from src/6.3.01/memory/mem_all.f90 rename to src/6.3.02/memory/mem_all.f90 diff --git a/src/6.3.01/memory/mem_basic.f90 b/src/6.3.02/memory/mem_basic.f90 similarity index 100% rename from src/6.3.01/memory/mem_basic.f90 rename to src/6.3.02/memory/mem_basic.f90 diff --git a/src/6.3.01/memory/mem_cuparm.f90 b/src/6.3.02/memory/mem_cuparm.f90 similarity index 100% rename from src/6.3.01/memory/mem_cuparm.f90 rename to src/6.3.02/memory/mem_cuparm.f90 diff --git a/src/6.3.01/memory/mem_grid.f90 b/src/6.3.02/memory/mem_grid.f90 similarity index 100% rename from src/6.3.01/memory/mem_grid.f90 rename to src/6.3.02/memory/mem_grid.f90 diff --git a/src/6.3.01/memory/mem_kpp.f90 b/src/6.3.02/memory/mem_kpp.f90 similarity index 100% rename from src/6.3.01/memory/mem_kpp.f90 rename to src/6.3.02/memory/mem_kpp.f90 diff --git a/src/6.3.01/memory/mem_leaf.f90 b/src/6.3.02/memory/mem_leaf.f90 similarity index 100% rename from src/6.3.01/memory/mem_leaf.f90 rename to src/6.3.02/memory/mem_leaf.f90 diff --git a/src/6.3.01/memory/mem_micro.f90 b/src/6.3.02/memory/mem_micro.f90 similarity index 98% rename from src/6.3.01/memory/mem_micro.f90 rename to src/6.3.02/memory/mem_micro.f90 index 25c1eff..62cbfba 100644 --- a/src/6.3.01/memory/mem_micro.f90 +++ b/src/6.3.02/memory/mem_micro.f90 @@ -18,6 +18,7 @@ Module mem_micro ,md1np,md2np,md1mp,md2mp & ,salt_film_np,salt_jet_np,salt_spum_np & ,salt_film_mp,salt_jet_mp,salt_spum_mp & + ,abc1np,abc2np,abc1mp,abc2mp & ,regen_aero1_np,regen_aero1_mp & ,regen_aero2_np,regen_aero2_mp & !Immersion freezing nuclei tracking @@ -148,6 +149,12 @@ Subroutine alloc_micro (micro,n1,n2,n3,n4) allocate (micro%salt_jet_mp(n1,n2,n3)) allocate (micro%salt_spum_mp(n1,n2,n3)) endif + if(iabcarb > 0) then + allocate (micro%abc1np(n1,n2,n3)) + allocate (micro%abc2np(n1,n2,n3)) + allocate (micro%abc1mp(n1,n2,n3)) + allocate (micro%abc2mp(n1,n2,n3)) + endif endif if (level >= 2 .and. level .ne. 4) then @@ -501,6 +508,10 @@ Subroutine dealloc_micro (micro) if (allocated(micro%salt_film_mp)) deallocate (micro%salt_film_mp) if (allocated(micro%salt_jet_mp)) deallocate (micro%salt_jet_mp) if (allocated(micro%salt_spum_mp)) deallocate (micro%salt_spum_mp) + if (allocated(micro%abc1np)) deallocate (micro%abc1np) + if (allocated(micro%abc2np)) deallocate (micro%abc2np) + if (allocated(micro%abc1mp)) deallocate (micro%abc1mp) + if (allocated(micro%abc2mp)) deallocate (micro%abc2mp) if (allocated(micro%regen_aero1_np)) deallocate (micro%regen_aero1_np) if (allocated(micro%regen_aero1_mp)) deallocate (micro%regen_aero1_mp) if (allocated(micro%regen_aero2_np)) deallocate (micro%regen_aero2_np) @@ -813,6 +824,22 @@ Subroutine filltab_micro (micro,microm,imean,n1,n2,n3,ng) CALL vtables2 (micro%salt_spum_mp(1,1,1),microm%salt_spum_mp(1,1,1) & ,ng, npts, imean, & 'SALT_SPUM_MP :3:anal:mpti:mpt1') + if (allocated(micro%abc1np)) & + CALL vtables2 (micro%abc1np(1,1,1),microm%abc1np(1,1,1) & + ,ng, npts, imean, & + 'ABC1NP :3:anal:mpti:mpt1') + if (allocated(micro%abc2np)) & + CALL vtables2 (micro%abc2np(1,1,1),microm%abc2np(1,1,1) & + ,ng, npts, imean, & + 'ABC2NP :3:anal:mpti:mpt1') + if (allocated(micro%abc1mp)) & + CALL vtables2 (micro%abc1mp(1,1,1),microm%abc1mp(1,1,1) & + ,ng, npts, imean, & + 'ABC1MP :3:anal:mpti:mpt1') + if (allocated(micro%abc2mp)) & + CALL vtables2 (micro%abc2mp(1,1,1),microm%abc2mp(1,1,1) & + ,ng, npts, imean, & + 'ABC2MP :3:anal:mpti:mpt1') if (allocated(micro%regen_aero1_np)) & CALL vtables2 (micro%regen_aero1_np(1,1,1),microm%regen_aero1_np(1,1,1) & ,ng, npts, imean, & diff --git a/src/6.3.01/memory/mem_mksfc.f90 b/src/6.3.02/memory/mem_mksfc.f90 similarity index 100% rename from src/6.3.01/memory/mem_mksfc.f90 rename to src/6.3.02/memory/mem_mksfc.f90 diff --git a/src/6.3.01/memory/mem_nestb.f90 b/src/6.3.02/memory/mem_nestb.f90 similarity index 100% rename from src/6.3.01/memory/mem_nestb.f90 rename to src/6.3.02/memory/mem_nestb.f90 diff --git a/src/6.3.01/memory/mem_oda.f90 b/src/6.3.02/memory/mem_oda.f90 similarity index 100% rename from src/6.3.01/memory/mem_oda.f90 rename to src/6.3.02/memory/mem_oda.f90 diff --git a/src/6.3.01/memory/mem_radiate.f90 b/src/6.3.02/memory/mem_radiate.f90 similarity index 100% rename from src/6.3.01/memory/mem_radiate.f90 rename to src/6.3.02/memory/mem_radiate.f90 diff --git a/src/6.3.01/memory/mem_scratch.f90 b/src/6.3.02/memory/mem_scratch.f90 similarity index 100% rename from src/6.3.01/memory/mem_scratch.f90 rename to src/6.3.02/memory/mem_scratch.f90 diff --git a/src/6.3.01/memory/mem_sib.f90 b/src/6.3.02/memory/mem_sib.f90 similarity index 100% rename from src/6.3.01/memory/mem_sib.f90 rename to src/6.3.02/memory/mem_sib.f90 diff --git a/src/6.3.01/memory/mem_tend.f90 b/src/6.3.02/memory/mem_tend.f90 similarity index 96% rename from src/6.3.01/memory/mem_tend.f90 rename to src/6.3.02/memory/mem_tend.f90 index 6f9010e..91e0173 100644 --- a/src/6.3.01/memory/mem_tend.f90 +++ b/src/6.3.02/memory/mem_tend.f90 @@ -17,6 +17,7 @@ Module mem_tend ,md1nt, md2nt, md1mt, md2mt & ,salt_film_nt,salt_jet_nt,salt_spum_nt & ,salt_film_mt,salt_jet_mt,salt_spum_mt & + ,abc1nt, abc2nt, abc1mt, abc2mt & ,regen_aero1_nt,regen_aero1_mt & ,regen_aero2_nt,regen_aero2_mt & ,immerct, immerdt, immerrt ,ifnnuct & @@ -122,6 +123,10 @@ Subroutine alloc_tend (numz,numx,numy,ngrs) if (allocated(micro_g(1)%salt_film_mp)) allocate (tend%salt_film_mt(ntpts)) if (allocated(micro_g(1)%salt_jet_mp)) allocate (tend%salt_jet_mt(ntpts)) if (allocated(micro_g(1)%salt_spum_mp)) allocate (tend%salt_spum_mt(ntpts)) + if (allocated(micro_g(1)%abc1np)) allocate (tend%abc1nt(ntpts)) + if (allocated(micro_g(1)%abc2np)) allocate (tend%abc2nt(ntpts)) + if (allocated(micro_g(1)%abc1mp)) allocate (tend%abc1mt(ntpts)) + if (allocated(micro_g(1)%abc2mp)) allocate (tend%abc2mt(ntpts)) if (allocated(micro_g(1)%regen_aero1_np)) allocate (tend%regen_aero1_nt(ntpts)) if (allocated(micro_g(1)%regen_aero1_mp)) allocate (tend%regen_aero1_mt(ntpts)) if (allocated(micro_g(1)%regen_aero2_np)) allocate (tend%regen_aero2_nt(ntpts)) @@ -247,6 +252,10 @@ Subroutine dealloc_tend (ngrs) if (allocated(tend%salt_film_mt)) deallocate (tend%salt_film_mt) if (allocated(tend%salt_jet_mt)) deallocate (tend%salt_jet_mt) if (allocated(tend%salt_spum_mt)) deallocate (tend%salt_spum_mt) + if (allocated(tend%abc1nt)) deallocate (tend%abc1nt) + if (allocated(tend%abc2nt)) deallocate (tend%abc2nt) + if (allocated(tend%abc1mt)) deallocate (tend%abc1mt) + if (allocated(tend%abc2mt)) deallocate (tend%abc2mt) if (allocated(tend%regen_aero1_nt)) deallocate (tend%regen_aero1_nt) if (allocated(tend%regen_aero1_mt)) deallocate (tend%regen_aero1_mt) if (allocated(tend%regen_aero2_nt)) deallocate (tend%regen_aero2_nt) @@ -414,6 +423,14 @@ Subroutine filltab_tend (basic,micro,turb,sib,tracer,ng) if (allocated(tend%salt_spum_mt)) & CALL vtables_scalar (micro%salt_spum_mp(1,1,1) & ,tend%salt_spum_mt(1),ng,'SALT_SPUM_MP') + if (allocated(tend%abc1nt)) & + CALL vtables_scalar (micro%abc1np(1,1,1),tend%abc1nt(1),ng,'ABC1NP') + if (allocated(tend%abc2nt)) & + CALL vtables_scalar (micro%abc2np(1,1,1),tend%abc2nt(1),ng,'ABC2NP') + if (allocated(tend%abc1mt)) & + CALL vtables_scalar (micro%abc1mp(1,1,1),tend%abc1mt(1),ng,'ABC1MP') + if (allocated(tend%abc2mt)) & + CALL vtables_scalar (micro%abc2mp(1,1,1),tend%abc2mt(1),ng,'ABC2MP') if (allocated(tend%regen_aero1_nt)) & CALL vtables_scalar (micro%regen_aero1_np(1,1,1) & ,tend%regen_aero1_nt(1),ng,'REGEN_AERO1_NP') diff --git a/src/6.3.01/memory/mem_tracer.f90 b/src/6.3.02/memory/mem_tracer.f90 similarity index 100% rename from src/6.3.01/memory/mem_tracer.f90 rename to src/6.3.02/memory/mem_tracer.f90 diff --git a/src/6.3.01/memory/mem_turb.f90 b/src/6.3.02/memory/mem_turb.f90 similarity index 100% rename from src/6.3.01/memory/mem_turb.f90 rename to src/6.3.02/memory/mem_turb.f90 diff --git a/src/6.3.01/memory/mem_varinit.f90 b/src/6.3.02/memory/mem_varinit.f90 similarity index 100% rename from src/6.3.01/memory/mem_varinit.f90 rename to src/6.3.02/memory/mem_varinit.f90 diff --git a/src/6.3.01/memory/var_tables.f90 b/src/6.3.02/memory/var_tables.f90 similarity index 100% rename from src/6.3.01/memory/var_tables.f90 rename to src/6.3.02/memory/var_tables.f90 diff --git a/src/6.3.01/memory/vtab_fill.f90 b/src/6.3.02/memory/vtab_fill.f90 similarity index 100% rename from src/6.3.01/memory/vtab_fill.f90 rename to src/6.3.02/memory/vtab_fill.f90 diff --git a/src/6.3.01/micro/aero_deposit.f90 b/src/6.3.02/micro/aero_deposit.f90 similarity index 94% rename from src/6.3.01/micro/aero_deposit.f90 rename to src/6.3.02/micro/aero_deposit.f90 index d31adbd..2787abf 100644 --- a/src/6.3.01/micro/aero_deposit.f90 +++ b/src/6.3.02/micro/aero_deposit.f90 @@ -98,8 +98,10 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & (acat==5 .and. isalt>0) .or. & ! Salt film mode (acat==6 .and. isalt>0) .or. & ! Salt jet mode (acat==7 .and. isalt>0) .or. & ! Salt spume mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol rundep=1 epsilonsol = aero_epsilon(acat) @@ -130,8 +132,8 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & aerocon(k,acat) = aerocon(k,acat) * dn0(k) aeromas(k,acat) = aeromas(k,acat) * dn0(k) !Aerosol and solubility tracking - if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) & - regenmas(k,acat-7) = regenmas(k,acat-7) * dn0(k) + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==aerocat-1.or.acat==aerocat)) & + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) * dn0(k) enddo !Radii in mic_init are in meters: we need these to be in um @@ -181,9 +183,9 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & rh = eee/es !Aerosol and solubility tracking - if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==aerocat-1.or.acat==aerocat) & .and. aeromas(k,acat)>0.) & - epsilonsol = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + epsilonsol = min(1.0,regenmas(k,acat-(aerocat-2))/aeromas(k,acat)) !Set default density (kg/m3) in k loop and update if particle deliquesced rhodry=aero_rhosol(acat) @@ -292,14 +294,15 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & aeromas(k,acat) = aeromas(k,acat) - amas_remove(lcat) !Aerosol and solubility tracking if(iccnlev>=2) then - cnmhx(k,lcat) = cnmhx(k,lcat) + amas_remove(lcat) + !Do density conversion to kg/kg for added aerosol mass to "lcat" dependent variables + cnmhx(k,lcat) = cnmhx(k,lcat) + (amas_remove(lcat) / dn0(k)) if(itrkepsilon==1) then - snmhx(k,lcat) = snmhx(k,lcat) + amas_remove(lcat) * epsilonsol - if(acat==8.or.acat==9) & - regenmas(k,acat-7)=regenmas(k,acat-7)-amas_remove(lcat)*epsilonsol + snmhx(k,lcat) = snmhx(k,lcat) + (amas_remove(lcat) / dn0(k)) * epsilonsol + if(acat==aerocat-1.or.acat==aerocat) & + regenmas(k,acat-(aerocat-2))=regenmas(k,acat-(aerocat-2))-amas_remove(lcat)*epsilonsol endif if(itrkdust==1 .and. (acat==3.or.acat==4)) & - dnmhx(k,lcat) = dnmhx(k,lcat) + amas_remove(lcat) + dnmhx(k,lcat) = dnmhx(k,lcat) + (amas_remove(lcat) / dn0(k)) endif enddo endif !wet scavenge if micro level=3 at least mincon @@ -457,8 +460,8 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & endif aeromas(k,acat) = aeromas(k,acat) - gainmas(k) !Aerosol and solubility tracking - if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) & - regenmas(k,acat-7) = regenmas(k,acat-7)-gainmas(k)*epsilonsol + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==aerocat-1.or.acat==aerocat)) & + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2))-gainmas(k)*epsilonsol enddo !Wet and Dry deposition loop over all vertical layers endif !End conditional deposition over layers containing aerosols @@ -469,10 +472,10 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & aerocon(k,acat) = aerocon(k,acat) + gaincon(k+1) aeromas(k,acat) = aeromas(k,acat) + gainmas(k+1) !Aerosol and solubility tracking - if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9) & + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==aerocat-1.or.acat==aerocat) & .and.aeromas(k+1,acat)>0.) then - epsilonsol = min(1.0,regenmas(k+1,acat-7)/aeromas(k+1,acat)) - regenmas(k,acat-7) = regenmas(k,acat-7)+gainmas(k+1)*epsilonsol + epsilonsol = min(1.0,regenmas(k+1,acat-(aerocat-2))/aeromas(k+1,acat)) + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2))+gainmas(k+1)*epsilonsol endif enddo else @@ -480,10 +483,10 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & aerocon(k,acat) = aerocon(k,acat) + gaincon(k+1) aeromas(k,acat) = aeromas(k,acat) + gainmas(k+1) !Aerosol and solubility tracking - if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9) & + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==aerocat-1.or.acat==aerocat) & .and.aeromas(k+1,acat)>0.) then - epsilonsol = min(1.0,regenmas(k+1,acat-7)/aeromas(k+1,acat)) - regenmas(k,acat-7) = regenmas(k,acat-7)+gainmas(k+1)*epsilonsol + epsilonsol = min(1.0,regenmas(k+1,acat-(aerocat-2))/aeromas(k+1,acat)) + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2))+gainmas(k+1)*epsilonsol endif enddo endif @@ -499,10 +502,10 @@ Subroutine deposition_driver (i,j,m1,xztop,rtgt & stop endif !Aerosol and solubility tracking - if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) then - regenmas(k,acat-7) = regenmas(k,acat-7) / dn0(k) - if(regenmas(k,acat-7)<0.)then - print*,'RegenNeg',k,i,j,regenmas(k,acat-7),aeromas(k,acat) + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==aerocat-1.or.acat==aerocat)) then + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) / dn0(k) + if(regenmas(k,acat-(aerocat-2))<0.)then + print*,'RegenNeg',k,i,j,regenmas(k,acat-(aerocat-2)),aeromas(k,acat) stop endif endif diff --git a/src/6.3.01/micro/aero_include.f90 b/src/6.3.02/micro/aero_include.f90 similarity index 100% rename from src/6.3.01/micro/aero_include.f90 rename to src/6.3.02/micro/aero_include.f90 diff --git a/src/6.3.01/micro/aero_sources.f90 b/src/6.3.02/micro/aero_sources.f90 similarity index 100% rename from src/6.3.01/micro/aero_sources.f90 rename to src/6.3.02/micro/aero_sources.f90 diff --git a/src/6.3.01/micro/mic_adj.f90 b/src/6.3.02/micro/mic_adj.f90 similarity index 88% rename from src/6.3.01/micro/mic_adj.f90 rename to src/6.3.02/micro/mic_adj.f90 index c61e58c..e6a86ec 100644 --- a/src/6.3.01/micro/mic_adj.f90 +++ b/src/6.3.02/micro/mic_adj.f90 @@ -32,7 +32,7 @@ Subroutine adj1 (m1,m2,m3,rtp,micro,ngr) implicit none integer :: m1,m2,m3,toomany,i,j,k,lcat,ngr -real :: frac +real :: frac,cnmhx_num,zerocheck,rxloss real, dimension(m1,m2,m3) :: rtp real, dimension(m1) :: rtemp type (micro_vars) :: micro @@ -135,23 +135,65 @@ Subroutine adj1 (m1,m2,m3,rtp,micro,ngr) !Zero out very small mixing ratios do lcat = 1,ncat do k = 1,m1 + + zerocheck=0 + cxloss=0 + rxloss=0 + + !Zero out hydrometeor fields if they are below a min threshold for 2-moment if(jnmb(lcat)>=5 .and. (rx(k,lcat) < rxmin .or. cx(k,lcat) <= 0.0)) then + zerocheck=1 + cxloss = cx(k,lcat) + rxloss = rx(k,lcat) rx(k,lcat) = 0. cx(k,lcat) = 0. qx(k,lcat) = 0. endif + !Finish zeroing fields or do this if 1-moment if(rx(k,lcat) < rxmin) then + zerocheck=1 rx(k,lcat) = 0. qx(k,lcat) = 0. pcpvx(k,lcat) = 0. - !Aerosol and solubility tracking - if(iccnlev>=2) then - cnmhx(k,lcat) = 0. - if(itrkepsilon==1) snmhx(k,lcat) = 0. - if(itrkdust==1) dnmhx(k,lcat) = 0. - if(itrkdustifn==1) dinhx(k,lcat) = 0. + endif + + !Aerosol and solubility tracking + if(zerocheck==1 .and. iccnlev>=2 .and. cnmhx(k,lcat)>0.0) then + + !Determine how many number to restore + if(cxloss > 0.0) then + !If there are number to restore, compute median radius (rg) + rg=((0.23873/aero_rhosol(aerocat)*cnmhx(k,lcat) / & + max(1.e-10,cxloss))**(0.3333))/aero_rg2rm(aerocat) + if(rg < 0.01e-6) rg = 0.01e-6 + if(rg > 6.50e-6) rg = 6.50e-6 + else + !Compute a number to restore based on assumed 1 micron rg + rg = 1.0e-6 + endif + !Compute the number to restore + cnmhx_num = cnmhx(k,lcat) * (0.23873/aero_rhosol(aerocat)) / & + ((rg * aero_rg2rm(aerocat)) ** 3.) + + !Restore aerosols to regenerated category + if(rg <= 0.96e-6) then + micro%regen_aero1_mp(k,i,j) = micro%regen_aero1_mp(k,i,j) + cnmhx(k,lcat) + micro%regen_aero1_np(k,i,j) = micro%regen_aero1_np(k,i,j) + cnmhx_num + else + micro%regen_aero2_mp(k,i,j) = micro%regen_aero2_mp(k,i,j) + cnmhx(k,lcat) + micro%regen_aero2_np(k,i,j) = micro%regen_aero2_np(k,i,j) + cnmhx_num endif + + !Statement to check the restoration of aerosol data + !print*,'rmin',rxloss,cnmhx(k,lcat),cxloss,cnmhx_num,rg*1.e6 + + !Zero out aerosol masses and such within hydrometeors + cnmhx(k,lcat) = 0. + if(itrkepsilon==1) snmhx(k,lcat) = 0. + if(itrkdust==1) dnmhx(k,lcat) = 0. + if(itrkdustifn==1) dinhx(k,lcat) = 0. endif + !Aerosol and solubility tracking if(iccnlev>=2) then if(cnmhx(k,lcat)cnmhx(k,lcat)) & snmhx(k,lcat)=0.99*cnmhx(k,lcat) endif + enddo enddo @@ -331,6 +374,16 @@ Subroutine adj1 (m1,m2,m3,rtp,micro,ngr) toomany=1 endif endif + if(iabcarb>0) then + if(micro%abc1np(k,i,j) > maxaero) then + print*,"Too many Absorbing Carbon 1:",micro%abc1np(k,i,j) + toomany=1 + endif + if(micro%abc2np(k,i,j) > maxaero) then + print*,"Too many Absorbing Carbon 2:",micro%abc2np(k,i,j) + toomany=1 + endif + endif if(isalt>0) then if(micro%salt_film_np(k,i,j) > maxaero) then print*,"Too many Salt-Film:",micro%salt_film_np(k,i,j) @@ -385,6 +438,16 @@ Subroutine adj1 (m1,m2,m3,rtp,micro,ngr) micro%md2mp(k,i,j) = 0.0 endif endif + if(iabcarb>0) then + if(micro%abc1np(k,i,j)0) then if(micro%salt_film_np(k,i,j) 0) then + aerocon(k,8) = abc1np(k) + aeromas(k,8) = abc1mp(k) + aerocon(k,9) = abc2np(k) + aeromas(k,9) = abc2mp(k) + endif enddo elseif(aflag==2)then @@ -224,6 +235,12 @@ Subroutine aero_copy (aflag,m1,cccnp,cccmp,gccnp,gccmp,md1np,md1mp & salt_spum_np(k) = aerocon(k,7) salt_spum_mp(k) = aeromas(k,7) endif + if (iabcarb > 0) then + abc1np(k) = aerocon(k,8) + abc1mp(k) = aeromas(k,8) + abc2np(k) = aerocon(k,9) + abc2mp(k) = aeromas(k,9) + endif enddo endif diff --git a/src/6.3.01/micro/mic_chknan.f90 b/src/6.3.02/micro/mic_chknan.f90 similarity index 97% rename from src/6.3.01/micro/mic_chknan.f90 rename to src/6.3.02/micro/mic_chknan.f90 index 5f3a167..aac82ee 100644 --- a/src/6.3.01/micro/mic_chknan.f90 +++ b/src/6.3.02/micro/mic_chknan.f90 @@ -57,6 +57,13 @@ Subroutine checkmicro (string) isnanr(micro_g(ngrid)%md2np(k,i,j)) .or. & isnanr(micro_g(ngrid)%md2mp(k,i,j)) ) prtflg=1 endif + !CHECK ABSORBING CARBON MODES + if(iabcarb > 0)then + if(isnanr(micro_g(ngrid)%abc1np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%abc1mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%abc2np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%abc2mp(k,i,j)) ) prtflg=1 + endif !CHECK SEA SALT MODES if(isalt > 0)then if(isnanr(micro_g(ngrid)%salt_film_np(k,i,j)) .or. & @@ -384,6 +391,12 @@ Subroutine checkmicro (string) print*,'md2np: ',micro_g(ngrid)%md2np(k,i,j) print*,'md2mp: ',micro_g(ngrid)%md2mp(k,i,j) endif + if(iabcarb > 0)then + print*,'abc1np: ',micro_g(ngrid)%abc1np(k,i,j) + print*,'abc1mp: ',micro_g(ngrid)%abc1mp(k,i,j) + print*,'abc2np: ',micro_g(ngrid)%abc2np(k,i,j) + print*,'abc2mp: ',micro_g(ngrid)%abc2mp(k,i,j) + endif if(isalt > 0)then print*,'salt_film_np: ',micro_g(ngrid)%salt_film_np(k,i,j) print*,'salt_jet_np: ' ,micro_g(ngrid)%salt_jet_np(k,i,j) diff --git a/src/6.3.01/micro/mic_coll.f90 b/src/6.3.02/micro/mic_coll.f90 similarity index 100% rename from src/6.3.01/micro/mic_coll.f90 rename to src/6.3.02/micro/mic_coll.f90 diff --git a/src/6.3.01/micro/mic_driv.f90 b/src/6.3.02/micro/mic_driv.f90 similarity index 98% rename from src/6.3.01/micro/mic_driv.f90 rename to src/6.3.02/micro/mic_driv.f90 index c191292..433cb15 100644 --- a/src/6.3.01/micro/mic_driv.f90 +++ b/src/6.3.02/micro/mic_driv.f90 @@ -585,6 +585,12 @@ Subroutine copyback (m1,k2,k3,i,j,micro) CALL ae1kmic (2,m1-1,micro%salt_spum_np(1,i,j),aerocon(1,7)) CALL ae1kmic (2,m1-1,micro%salt_spum_mp(1,i,j),aeromas(1,7)) endif +if (iabcarb > 0) then + CALL ae1kmic (2,m1-1,micro%abc1np(1,i,j),aerocon(1,8)) + CALL ae1kmic (2,m1-1,micro%abc1mp(1,i,j),aeromas(1,8)) + CALL ae1kmic (2,m1-1,micro%abc2np(1,i,j),aerocon(1,9)) + CALL ae1kmic (2,m1-1,micro%abc2mp(1,i,j),aeromas(1,9)) +endif !Copyback AEROSOL TRACKING VARIABLES if (iccnlev>=2) then @@ -637,10 +643,10 @@ Subroutine copyback (m1,k2,k3,i,j,micro) if(itrkdustifn==1) CALL ae1kmic (2,dtop,micro%dindp(1,i,j),dinhx(1,8)) endif !Regenerated aerosol variables - CALL ae1kmic (2,m1-1,micro%regen_aero1_np(1,i,j),aerocon(1,8)) - CALL ae1kmic (2,m1-1,micro%regen_aero1_mp(1,i,j),aeromas(1,8)) - CALL ae1kmic (2,m1-1,micro%regen_aero2_np(1,i,j),aerocon(1,9)) - CALL ae1kmic (2,m1-1,micro%regen_aero2_mp(1,i,j),aeromas(1,9)) + CALL ae1kmic (2,m1-1,micro%regen_aero1_np(1,i,j),aerocon(1,aerocat-1)) + CALL ae1kmic (2,m1-1,micro%regen_aero1_mp(1,i,j),aeromas(1,aerocat-1)) + CALL ae1kmic (2,m1-1,micro%regen_aero2_np(1,i,j),aerocon(1,aerocat)) + CALL ae1kmic (2,m1-1,micro%regen_aero2_mp(1,i,j),aeromas(1,aerocat)) if(itrkepsilon==1) then CALL ae1kmic (2,m1-1,micro%resol_aero1_mp(1,i,j),regenmas(1,1)) CALL ae1kmic (2,m1-1,micro%resol_aero2_mp(1,i,j),regenmas(1,2)) diff --git a/src/6.3.01/micro/mic_gamma.f90 b/src/6.3.02/micro/mic_gamma.f90 similarity index 100% rename from src/6.3.01/micro/mic_gamma.f90 rename to src/6.3.02/micro/mic_gamma.f90 diff --git a/src/6.3.01/micro/mic_init.f90 b/src/6.3.02/micro/mic_init.f90 similarity index 92% rename from src/6.3.01/micro/mic_init.f90 rename to src/6.3.02/micro/mic_init.f90 index 0870df2..18169cf 100644 --- a/src/6.3.01/micro/mic_init.f90 +++ b/src/6.3.02/micro/mic_init.f90 @@ -351,6 +351,74 @@ Subroutine init_dust (n1,n2,n3,md1np,md2np,md1mp,md2mp,dn0,ifm) return END SUBROUTINE init_dust +!############################################################################## +Subroutine init_absorbing_carbon (n1,n2,n3,abc1np,abc2np,abc1mp,abc2mp,dn0,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: abc1np,abc2np,abc1mp,abc2mp,dn0 +real :: abc1_maxt,abc2_maxt + +! Initialize Absorbing Carbon +if(iaeroprnt==1 .and. print_msg) then + print*,'Start Initializing Absorbing Carbon concentration' + print*,'iabcarb,iaerorad',iabcarb,iaerorad +endif + +!Convert RAMSIN #/mg to #/kg + abc1_maxt = abc1_max * 1.e6 + abc2_maxt = abc2_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !If not using absorbing carbon / smoke source model + if(iabcarb == 1) then + !Set up concentration of mode1 absorbing carbon (#/kg) + if(k<=2) abc1np(k,i,j)=abc1_maxt + if(k>2) abc1np(k,i,j)=abc1_maxt*exp(-zt(k)/7000.) + !Set up concentration of mode2 absorbing carbon (#/kg) + if(k<=2) abc2np(k,i,j)=abc2_maxt + if(k>2) abc2np(k,i,j)=abc2_maxt*exp(-zt(k)/7000.) + + !Set up Field of mode1 absorbing carbon mass (kg/kg) + abc1mp(k,i,j) = ((aero_medrad(8)*aero_rg2rm(8))**3.) & + *abc1np(k,i,j)/(0.23873/aero_rhosol(8)) + !Set up Field of mode2 absorbing carbon mass (kg/kg) + abc2mp(k,i,j) = ((aero_medrad(9)*aero_rg2rm(9))**3.) & + *abc2np(k,i,j)/(0.23873/aero_rhosol(9)) + + !Leaving this section here in case we add an absorbing carbon / smoke + !source in the future + elseif(iabcarb == 2) then + abc1np(k,i,j) = 0. + abc2np(k,i,j) = 0. + abc1mp(k,i,j) = 0. + abc2mp(k,i,j) = 0. + endif + + !Output sample initial profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' AbsorbingCarbon-init (k,zt,abc1/mg,abc2/mg) on Grid:',ifm + print'(a21,i5,f11.1,2f17.7)',' AbsorbingCarbon-init' & + ,k,zt(k),abc1np(k,i,j)/1.e6,abc2np(k,i,j)/1.e6 + endif + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_absorbing_carbon + !############################################################################## Subroutine init_salt (n1,n2,n3,salt_film_np,salt_jet_np,salt_spum_np & ,salt_film_mp,salt_jet_mp,salt_spum_mp,ifm) diff --git a/src/6.3.01/micro/mic_misc.f90 b/src/6.3.02/micro/mic_misc.f90 similarity index 98% rename from src/6.3.01/micro/mic_misc.f90 rename to src/6.3.02/micro/mic_misc.f90 index 8ebb954..0d6d104 100644 --- a/src/6.3.01/micro/mic_misc.f90 +++ b/src/6.3.02/micro/mic_misc.f90 @@ -179,16 +179,22 @@ Subroutine range_check (m1,k1,k2,k3,i,j,frq,ngr,dtlt,time,micro) aerocon(k,7) = micro%salt_spum_np(k,i,j) aeromas(k,7) = micro%salt_spum_mp(k,i,j) endif + if (iabcarb > 0) then + aerocon(k,8) = micro%abc1np(k,i,j) + aeromas(k,8) = micro%abc1mp(k,i,j) + aerocon(k,9) = micro%abc2np(k,i,j) + aeromas(k,9) = micro%abc2mp(k,i,j) + endif enddo !Aerosol and solubility tracking variables scratch arrays if (iccnlev>=2) then do k = 2,m1-1 !Regenerated aerosol and solubility - aerocon(k,8) = micro%regen_aero1_np(k,i,j) - aeromas(k,8) = micro%regen_aero1_mp(k,i,j) - aerocon(k,9) = micro%regen_aero2_np(k,i,j) - aeromas(k,9) = micro%regen_aero2_mp(k,i,j) + aerocon(k,aerocat-1) = micro%regen_aero1_np(k,i,j) + aeromas(k,aerocat-1) = micro%regen_aero1_mp(k,i,j) + aerocon(k,aerocat) = micro%regen_aero2_np(k,i,j) + aeromas(k,aerocat) = micro%regen_aero2_mp(k,i,j) if(itrkepsilon==1) then regenmas(k,1) = micro%resol_aero1_mp(k,i,j) regenmas(k,2) = micro%resol_aero2_mp(k,i,j) @@ -1298,7 +1304,12 @@ Subroutine sedim_trubin (m1,lcat,ngr,k1,k2 & if(iplaws==0) densrtgt = 10.0 * sqrt(dn0i(k)) / rtgt if(iplaws==1) densrtgt = 10.0 * (0.7*dn0i(k))**0.362 / rtgt if(iplaws==2) densrtgt = 10.0 * (0.7*dn0i(k))**bdenpowfac / rtgt - if(int(densrtgt)<1 .or. int(densrtgt)>40)then + if(ISCM>=1)then + !SaleebySCM: CCPP models can go to really high altitude and low density which + !can cause "densrtgt" >> ndensrtgt, so we cap this value. + densrtgt = min(ndensrtgt,int(densrtgt)) + endif + if(int(densrtgt)<1 .or. int(densrtgt)>ndensrtgt)then print*,'Bad sedimentation densrtgt index.' stop endif diff --git a/src/6.3.01/micro/mic_nuc.f90 b/src/6.3.02/micro/mic_nuc.f90 similarity index 95% rename from src/6.3.01/micro/mic_nuc.f90 rename to src/6.3.02/micro/mic_nuc.f90 index 46684e7..01202f2 100644 --- a/src/6.3.01/micro/mic_nuc.f90 +++ b/src/6.3.02/micro/mic_nuc.f90 @@ -82,8 +82,10 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) (acat==5 .and. isalt>0) .or. & ! Salt film mode (acat==6 .and. isalt>0) .or. & ! Salt jet mode (acat==7 .and. isalt>0) .or. & ! Salt spume mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol !Assign aerosol specs to local arrays concen_nuc = aerocon(k,acat) @@ -92,16 +94,16 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) epsil = aero_epsilon(acat) !Aerosol and solubility tracking - if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==aerocat-1.or.acat==aerocat) & .and. aeromas(k,acat)>0.) & - epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + epsil = min(1.0,regenmas(k,acat-(aerocat-2))/aeromas(k,acat)) !Temporary check to make sure regensol is not > regen - if(acat==8.or.acat==9)then - if(regenmas(k,acat-7) > aeromas(k,acat))then + if(acat==aerocat-1.or.acat==aerocat)then + if(regenmas(k,acat-(aerocat-2)) > aeromas(k,acat))then print*,'Soluble regenerated mass > Regenerated mass' & - ,acat,k,i,j,regenmas(k,acat-7)/aeromas(k,acat) & - ,regenmas(k,acat-7),aeromas(k,acat) + ,acat,k,i,j,regenmas(k,acat-(aerocat-2))/aeromas(k,acat) & + ,regenmas(k,acat-(aerocat-2)),aeromas(k,acat) endif endif @@ -195,8 +197,10 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) (acat==5 .and. isalt>0) .or. & ! Salt film mode (acat==6 .and. isalt>0) .or. & ! Salt jet mode (acat==7 .and. isalt>0) .or. & ! Salt spume mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol if(aerocon(k,acat) > mincon) then aero_vap(acat) = (4.0 * 3.14159 * aero_rg(acat)**2) * concen_tab(acat) sfcareatotal = sfcareatotal + aero_vap(acat) @@ -223,8 +227,10 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) (acat==5 .and. isalt>0) .or. & ! Salt film mode (acat==6 .and. isalt>0) .or. & ! Salt jet mode (acat==7 .and. isalt>0) .or. & ! Salt spume mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol !Assign aerosol specs to local arrays concen_nuc = aerocon(k,acat) aeromass = aeromas(k,acat) @@ -234,9 +240,9 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) epsil = aero_epsilon(acat) !Aerosol and solubility tracking - if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==aerocat-1.or.acat==aerocat) & .and. aeromas(k,acat)>0.) & - epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + epsil = min(1.0,regenmas(k,acat-(aerocat-2))/aeromas(k,acat)) !If not removing aerosols, subtract off Ice nuclei amount if(iifn==3 .and. iccnlev==0)then @@ -366,12 +372,14 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) endif !Track immersion freezing droplets that contain large CCN, GCCN, or DUST ! Do not track immersion freezing for salt species (acat=5,6,7) - if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9) & + if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9 & + .or.acat==aerocat-1.or.acat==aerocat) & .and. rcm > 0.25e-6 .and. ic>1) num_ccn_ifn=ccncon(ic-1) !Track the amount of aerosol mass contained within new droplets if(ccncon(ic)>=concen_tab(acat) .or. ccnmas(ic)>=aeromass .or. ic==itbin-1) then !Further immersion freezing tracking for (acat=1,2,3,4,8,9) - if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9) & + if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9 & + .or.acat==aerocat-1.or.acat==aerocat) & .and. rcm > 0.25e-6 .and. ic>1) num_ccn_ifn=concen_tab(acat) ccnmass=ccnmas(ic-1) go to 111 @@ -403,8 +411,8 @@ Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) cnmhx(k,drop) = cnmhx(k,drop) + ccnmass if(itrkepsilon==1) then snmhx(k,drop) = snmhx(k,drop) + ccnmass * epsil - if(acat==8.or.acat==9) & - regenmas(k,acat-7) = regenmas(k,acat-7) - ccnmass * epsil + if(acat==aerocat-1.or.acat==aerocat) & + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) - ccnmass * epsil endif if(itrkdust==1 .and. (acat==3 .or. acat==4)) & dnmhx(k,drop) = dnmhx(k,drop) + ccnmass diff --git a/src/6.3.01/micro/mic_nucpre.f90 b/src/6.3.02/micro/mic_nucpre.f90 similarity index 87% rename from src/6.3.01/micro/mic_nucpre.f90 rename to src/6.3.02/micro/mic_nucpre.f90 index f431845..c79240b 100644 --- a/src/6.3.01/micro/mic_nucpre.f90 +++ b/src/6.3.02/micro/mic_nucpre.f90 @@ -21,8 +21,10 @@ Subroutine prenuc_ccn (k,i,j) (acat==5 .and. isalt>0) .or. & ! Salt film mode (acat==6 .and. isalt>0) .or. & ! Salt jet mode (acat==7 .and. isalt>0) .or. & ! Salt spume mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol !Assign aerosol specs to local arrays aeromass = aeromas(k,acat) @@ -40,8 +42,8 @@ Subroutine prenuc_ccn (k,i,j) aeromas(k,acat) = ((aero_rg(acat)*aero_rg2rm(acat))**3.) & *aerocon(k,acat)/(0.23873/rhosol) - if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9)) & - regenmas(k,acat-7) = regenmas(k,acat-7) * (aeromas(k,acat) / aeromass) + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==aerocat-1.or.acat==aerocat)) & + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) * (aeromas(k,acat) / aeromass) endif @@ -85,8 +87,10 @@ Subroutine prenuc_ifn (m1,k,dn0,rv) (acat==2) .or. & ! GCCN (acat==3 .and. idust>0) .or. & ! Small dust mode (acat==4 .and. idust>0) .or. & ! Large dust mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol concen_nuc = aerocon(k,acat) aeromass = aeromas(k,acat) @@ -254,15 +258,17 @@ Subroutine prenuc_ifn (m1,k,dn0,rv) (acat==2) .or. & ! GCCN (acat==3 .and. idust>0) .or. & ! Small dust mode (acat==4 .and. idust>0) .or. & ! Large dust mode - (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol - (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + (acat==8 .and. iabcarb>0) .or. & ! Absorbing carbon 1 mode + (acat==9 .and. iabcarb>0) .or. & ! Absorbing carbon 2 mode + (acat==aerocat-1 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==aerocat .and. iccnlev>=2)) then ! Large regenerated aerosol !Assign aerosol specs to local arrays epsil = aero_epsilon(acat) !Aerosol and solubility tracking - if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==aerocat-1.or.acat==aerocat) & .and. aeromas(k,acat)>0.) then - epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + epsil = min(1.0,regenmas(k,acat-(aerocat-2))/aeromas(k,acat)) endif aerocon(k,acat) = aerocon(k,acat) - totifnn(k,acat) @@ -276,8 +282,8 @@ Subroutine prenuc_ifn (m1,k,dn0,rv) cnmhx(k,3) = cnmhx(k,3) + totifnm(k,acat) if(itrkepsilon==1) then snmhx(k,3) = snmhx(k,3) + totifnm(k,acat) * epsil - if(acat==8.or.acat==9) & - regenmas(k,acat-7) = regenmas(k,acat-7) - totifnm(k,acat) * epsil + if(acat==aerocat-1.or.acat==aerocat) & + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) - totifnm(k,acat) * epsil endif if(itrkdust==1 .and. (acat==3 .or. acat==4)) & dnmhx(k,3) = dnmhx(k,3) + totifnm(k,acat) diff --git a/src/6.3.01/micro/mic_nuctab.f90 b/src/6.3.02/micro/mic_nuctab.f90 similarity index 100% rename from src/6.3.01/micro/mic_nuctab.f90 rename to src/6.3.02/micro/mic_nuctab.f90 diff --git a/src/6.3.01/micro/mic_tabs.f90 b/src/6.3.02/micro/mic_tabs.f90 similarity index 100% rename from src/6.3.01/micro/mic_tabs.f90 rename to src/6.3.02/micro/mic_tabs.f90 diff --git a/src/6.3.01/micro/mic_vap.f90 b/src/6.3.02/micro/mic_vap.f90 similarity index 99% rename from src/6.3.01/micro/mic_vap.f90 rename to src/6.3.02/micro/mic_vap.f90 index 30417c8..4412ebe 100644 --- a/src/6.3.01/micro/mic_vap.f90 +++ b/src/6.3.02/micro/mic_vap.f90 @@ -305,12 +305,12 @@ Subroutine vapflux (m1,lcat,k1,k2,rv,i,j) cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass !For approximation, test rg based on regenerated aerosol - acat=8 + acat=aerocat-1 rg=((0.23873/aero_rhosol(acat)*ccnmass/cxloss)**(0.3333))/aero_rg2rm(acat) if(rg>0.96e-6) then - acat=9 + acat=aerocat else - acat=8 + acat=aerocat-1 endif aeromas(k,acat) = aeromas(k,acat) + ccnmass aerocon(k,acat) = aerocon(k,acat) + cxloss @@ -318,7 +318,7 @@ Subroutine vapflux (m1,lcat,k1,k2,rv,i,j) if(itrkepsilon==1)then scnmass = snmhx(k,lcat) * rxferratio snmhx(k,lcat) = snmhx(k,lcat) - scnmass - regenmas(k,acat-7) = regenmas(k,acat-7) + scnmass + regenmas(k,acat-(aerocat-2)) = regenmas(k,acat-(aerocat-2)) + scnmass endif if(itrkdust==1)then dcnmass = dnmhx(k,lcat) * rxferratio diff --git a/src/6.3.01/micro/micphys.f90 b/src/6.3.02/micro/micphys.f90 similarity index 96% rename from src/6.3.01/micro/micphys.f90 rename to src/6.3.02/micro/micphys.f90 index f5bee78..98c9718 100644 --- a/src/6.3.01/micro/micphys.f90 +++ b/src/6.3.02/micro/micphys.f90 @@ -30,7 +30,7 @@ Module micphys !-------------------------------------------------------------------------- integer :: level,icloud,idriz,irain,ipris,isnow,iaggr,igraup,ihail & - ,irime,iplaws,iaerosol,idust,idustloft,isalt,iaerorad,iifn & + ,irime,iplaws,iaerosol,idust,idustloft,iabcarb,isalt,iaerorad,iifn & ,imbudget,isedim,itrkepsilon,itrkdust,itrkdustifn,iaerodep,icheckmic & ,iaeroprnt,iaerohist,iifn_formula,iscm,iscmx,iscmy @@ -131,7 +131,7 @@ Module micphys real :: cin_max,ccn_max,gccn_max,dust1_max,dust2_max,saltf_max,saltj_max & ,salts_max,enxferratio,rxferratio,ccnmass,ccnnum,rxtemp,cxtemp,fracmass & ,cxloss,concen_nuc,aeromass,rg,rhosol,cldrat,epsil,ant,rcm,rmlar,rmsma & - ,power,scnmass,dcnmass,dinmass + ,power,scnmass,dcnmass,dinmass,abc1_max,abc2_max real, dimension(nzpmax) :: nifn !Tracking total aerosol mass, immersion freezing number in hydrometeors cats @@ -173,7 +173,7 @@ Module micphys ! 8 = Sub-micron radius regenerated mixed aerosols ! 9 = Super-micron radius regenerated mixed aerosols integer :: acat -integer, parameter :: aerocat=9 +integer, parameter :: aerocat=11 real, dimension(nzpmax) :: cifnx real, dimension(nzpmax,2) :: regenmas real, dimension(nzpmax,aerocat) :: totifnn,totifnm,aerocon,aeromas @@ -185,7 +185,7 @@ Module micphys !values for condition statements involving aerosols real, parameter :: mincon=1.0e-1 & ,minmas=1.0e-21 & - ,maxaero=20000.e6 & + ,maxaero=20000.e6 & ,minmashydro=1.0e-27 & ,minifn=1.0e-14 @@ -200,7 +200,9 @@ Module micphys ,1.80 & !large mineral dust ,1.80 & !salt film mode ,1.80 & !salt jet mode - ,1.80 & !salt spume mode + ,1.80 & !salt spume mode + ,1.80 & !absorbing carbon mode-1 + ,1.80 & !absorbing carbon mode-2 ,1.80 & !sub-micro regenerated aerosol (mixed) ,1.80 / !super-micro regenerated aerosol (mixed) !Set the relationship between median radius and mean mass radius @@ -213,6 +215,8 @@ Module micphys ,1.6791 & !salt film mode ,1.6791 & !salt jet mode ,1.6791 & !salt spume mode + ,1.6791 & !absorbing carbon mode-1 + ,1.6791 & !absorbing carbon mode-2 ,1.6791 & !sub-micro regenerated aerosol (mixed) ,1.6791 / !super-micro regenerated aerosol (mixed) diff --git a/src/6.3.01/micro/write_scm.f90 b/src/6.3.02/micro/write_scm.f90 similarity index 98% rename from src/6.3.01/micro/write_scm.f90 rename to src/6.3.02/micro/write_scm.f90 index f8379ba..459e6bf 100644 --- a/src/6.3.01/micro/write_scm.f90 +++ b/src/6.3.02/micro/write_scm.f90 @@ -159,6 +159,13 @@ Subroutine readwrite_scm (wf,fln) if(idust == 2) CALL iofil ('dustfrac.txt',micro_g(ng)%dustfrac(i,j),1,wf,fln) endif +if(iabcarb > 0) then + CALL iofil ('abc1np.txt',micro_g(ng)%abc1np(:,i,j),m1,wf,fln) + CALL iofil ('abc2np.txt',micro_g(ng)%abc2np(:,i,j),m1,wf,fln) + CALL iofil ('abc1mp.txt',micro_g(ng)%abc1mp(:,i,j),m1,wf,fln) + CALL iofil ('abc2mp.txt',micro_g(ng)%abc2mp(:,i,j),m1,wf,fln) +endif + if(isalt > 0) then CALL iofil ('salt_film_np.txt',micro_g(ng)%salt_film_np(:,i,j),m1,wf,fln) CALL iofil ('salt_jet_np.txt' ,micro_g(ng)%salt_jet_np (:,i,j),m1,wf,fln) diff --git a/src/6.3.01/micro_bin/micro_prm.f90 b/src/6.3.02/micro_bin/micro_prm.f90 similarity index 99% rename from src/6.3.01/micro_bin/micro_prm.f90 rename to src/6.3.02/micro_bin/micro_prm.f90 index dd7cb2a..8a73689 100644 --- a/src/6.3.01/micro_bin/micro_prm.f90 +++ b/src/6.3.02/micro_bin/micro_prm.f90 @@ -11,7 +11,7 @@ Module micro_prm integer, parameter :: nkr=33 ! for bulk nucleation -integer, parameter :: BULKNUC=0 +integer, parameter :: BULKNUC=1 ! COL=Ln2/3 (for xl(k+1)=xl(k)*2.) real :: COL = 0.231049060186648 !=log(2.)/3. diff --git a/src/6.3.01/micro_bin/microphysics.f90 b/src/6.3.02/micro_bin/microphysics.f90 similarity index 98% rename from src/6.3.01/micro_bin/microphysics.f90 rename to src/6.3.02/micro_bin/microphysics.f90 index 26bfbc5..284df0f 100644 --- a/src/6.3.01/micro_bin/microphysics.f90 +++ b/src/6.3.02/micro_bin/microphysics.f90 @@ -44,7 +44,7 @@ Subroutine micro_proc () use mem_micro use rconstants use micro_prm -use micphys, only: imbudget,ipris,igraup,ihail +use micphys, only: imbudget,ipris,igraup,ihail,ccn_max IMPLICIT NONE @@ -76,6 +76,11 @@ Subroutine micro_proc () INTEGER :: k,i,j integer itimestep, kr, ikl +do kr=1,nkr + fccn0(kr) =FCCNR0(KR)*1000.*xccn(kr)*ccn_max +enddo + + !-------------BEGIN Loops over Space------------ do k = 1,mzp do i = ia,iz @@ -313,7 +318,8 @@ Subroutine micro_proc () ,DEL1IN,DEL2IN,DIV1,DIV2 & ,FF1R,FF1IN,XL,RLEC,RO1BL & ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & - ,COL,DTCOND,ICEMAX,NKR) + ,COL,DTCOND,ICEMAX,NKR & + ,micro_g(ngrid)%vapcldt(k,i,j),micro_g(ngrid)%vapraint(k,i,j)) !If ice ELSE IF(ISYM1.EQ.0.AND.(TT-273.15).LE.-0.187.AND. & (ISYM2.EQ.1.OR.ISYM3.EQ.1.OR.ISYM4.EQ.1.OR.ISYM5.EQ.1))THEN @@ -340,7 +346,8 @@ Subroutine micro_proc () ,FF5R,FF5IN,XH,RHEC,RO5BL & ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & ,COL,DTCOND,ICEMAX,NKR & - ,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5) + ,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5 & + ,micro_g(ngrid)%vapcldt(k,i,j),micro_g(ngrid)%vapraint(k,i,j)) END IF IF (ifastsbm==1) CALL fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) @@ -1337,10 +1344,14 @@ Subroutine vap_budget (ff1r,ff2r,ff3r,ff4r,ff5r,dens,k,i,j,str) sum_mass(ff2r(:,1)+ff2r(:,2)+ff2r(:,3)+ff3r+ff4r+ff5r,xs,dens,1,nkr) endif if (imbudget >= 2) then - micro_g(ngrid)%vapcldt(k,i,j) = micro_g(ngrid)%vapcldt(k,i,j) + & - plusminus * sum_mass(ff1r,xl,dens,1,krdrop-1) - micro_g(ngrid)%vapraint(k,i,j) = micro_g(ngrid)%vapraint(k,i,j) + & - plusminus * sum_mass(ff1r,xl,dens,krdrop-1,nkr) + ! micro_g(ngrid)%vapcldt(k,i,j) = micro_g(ngrid)%vapcldt(k,i,j) + & + ! plusminus * sum_mass(ff1r,xl,dens,1,krdrop-1) + ! micro_g(ngrid)%vapraint(k,i,j) = micro_g(ngrid)%vapraint(k,i,j) + & + ! plusminus * sum_mass(ff1r,xl,dens,krdrop,nkr) + micro_g(ngrid)%cld2raint(k,i,j) = micro_g(ngrid)%cld2raint(k,i,j) + & + plusminus * sum_mass(ff1r,xl,dens,krdrop,nkr) + & + plusminus * -1. * micro_g(ngrid)%vapraint(k,i,j) + if(iceprocs.eq.1) then if (ipris > 0) & micro_g(ngrid)%vapprist(k,i,j) = micro_g(ngrid)%vapprist(k,i,j) + & diff --git a/src/6.3.01/micro_bin/module_hujisbm.f90 b/src/6.3.02/micro_bin/module_hujisbm.f90 similarity index 98% rename from src/6.3.01/micro_bin/module_hujisbm.f90 rename to src/6.3.02/micro_bin/module_hujisbm.f90 index af59667..eb86003 100644 --- a/src/6.3.01/micro_bin/module_hujisbm.f90 +++ b/src/6.3.02/micro_bin/module_hujisbm.f90 @@ -2622,7 +2622,8 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & ,DEL1N,DEL2N,DIV1,DIV2 & ,FF1,PSI1,R1,RLEC,RO1BL & ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & - ,COL,DTCOND,ICEMAX,NKR) + ,COL,DTCOND,ICEMAX,NKR & + ,vapcldt,vapraint) IMPLICIT NONE @@ -2670,6 +2671,10 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & ! CCN regeneration real tot_before, tot_after + +!condensation budgets +real vapcldt, vapraint,vapc,vapr + ! NEW ALGORITHM (NO TYPE OF ICE) OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 @@ -2688,6 +2693,9 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & DATA DT0L, DT0I /1.E20,1.E20/ +vapc=0. +vapr=0. + ! CONTROL OF DROP SPECTRUM IN subroutine ONECOND COL3=3.0*COL @@ -2780,9 +2788,10 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & ,DTT,D1N,D2N,DT0L,DT0I) ! DROPLET DISTRIBUTION function + CALL JERDFUN (R1,B11_MY,B12_MY & ,FI1,PSI1,D1N & - ,1,1,COL,NKR) + ,1,6,COL,NKR,vapc,vapr,rori) ELSE ! EVAPORATION - ONLY WATER @@ -2832,7 +2841,7 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & CALL JERDFUN (R1,B11_MY,B12_MY & ,FI1,PSI1,D1N & - ,1,1,COL,NKR) + ,1,6,COL,NKR,vapc,vapr,rori) ENDIF @@ -2891,7 +2900,8 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & !------------------------------------------------------------ CALL JERDFUN_NEW (R1,DSUPINTW & ,FF1_OLD,PSI1,D1N & - ,1,1,COL,NKR) + ,1,1,COL,NKR,vapcldt,vapraint,rori) + RMASSLAA=0.0 RMASSLBB=0.0 ! BEFORE JERNEWF @@ -2902,6 +2912,7 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & RMASSLBB=RMASSLBB+FI1R1 ENDDO RMASSLBB=RMASSLBB*COL3*RORI + IF(RMASSLBB.LT.0.0) RMASSLBB=0.0 ! AFTER JERNEWF !add CCN regeneration. Calculate the total droplets after condensation -J. Fan @@ -2913,12 +2924,14 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & RMASSLAA=RMASSLAA+FI1R1 tot_after = tot_after+psi1(k)*3.0*r1(k)*col ENDDO + ! CCN regeneration from evaporation ccnreg = max((tot_before-tot_after),0.0) RMASSLAA=RMASSLAA*COL3*RORI IF(RMASSLAA.LT.0.0) RMASSLAA=0.0 DELMASSL1=RMASSLAA-RMASSLBB + QPN=QOLD-DELMASSL1 DAL1 = AL1 TPN=TOLD+DAL1*DELMASSL1 @@ -2942,7 +2955,8 @@ Subroutine ONECOND1 (TT,QQ,PP,ROR & END SUBROUTINE ONECOND1 !############################################################################## -Subroutine JERDFUN (R2,B21_MY,B22_MY,FI2,PSI2,DEL2N,IND,ITYPE,COL,NKR) +Subroutine JERDFUN (R2,B21_MY,B22_MY,FI2,PSI2,DEL2N,IND,ITYPE,COL,NKR, & + vapcldt,vapraint,rori) IMPLICIT NONE REAL COL,DEL2N @@ -2955,6 +2969,9 @@ Subroutine JERDFUN (R2,B21_MY,B22_MY,FI2,PSI2,DEL2N,IND,ITYPE,COL,NKR) DOUBLE PRECISION DR2(NKR,IND),DR2N(NKR,IND),DDEL2N, & DB21_MY(NKR,IND) DOUBLE PRECISION CHECK +REAL vapcldt, vapraint +DOUBLE PRECISION rori + CHECK=0.D0 DO KR=1,NKR CHECK=B21_MY(1,1)*B21_MY(KR,1) @@ -2989,6 +3006,15 @@ Subroutine JERDFUN (R2,B21_MY,B22_MY,FI2,PSI2,DEL2N,IND,ITYPE,COL,NKR) ENDIF ENDDO +IF (ITYPE==6) THEN + DO KR=1,KRDROP-1 + vapcldt=vapcldt+3.*FI2R(KR)*R2(KR,1)*(max(0.,R2N(KR,1))-R2(KR,1))*COL*RORI + ENDDO + DO KR=KRDROP,NKR + vapraint=vapraint+3.*FI2R(KR)*R2(KR,1)*(max(0.,R2N(KR,1))-R2(KR,1))*COL*RORI + ENDDO +ENDIF + DO ICE=1,IND IF(ITYP.EQ.ICE) THEN DO KR=1,NKR @@ -3009,13 +3035,15 @@ END SUBROUTINE JERDFUN !############################################################################## Subroutine JERDFUN_NEW (R2,B21_MY & ,FI2,PSI2,DEL2N & - ,IND,ITYPE,COL,NKR) + ,IND,ITYPE,COL,NKR,vapcldt,vapraint,rori) IMPLICIT NONE INTEGER IND,ITYPE,KR,ICE,NRM,NR,NKR REAL R2(NKR,IND),FI2(NKR,IND),PSI2(NKR,IND),COL,DEL2N DOUBLE PRECISION B21_MY(NKR,IND) DOUBLE PRECISION R2R(NKR),R2NR(NKR),FI2R(NKR),PSI2R(NKR) +REAL vapcldt,vapraint +DOUBLE PRECISION rori DO KR=1,NKR FI2R(KR)=FI2(KR,ITYPE) @@ -3030,6 +3058,13 @@ Subroutine JERDFUN_NEW (R2,B21_MY & R2NR(KR)=R2(KR,ICE)+B21_MY(KR,ICE) ENDDO + DO KR=1,KRDROP-1 + vapcldt=vapcldt+3.*FI2R(KR)*R2R(KR)*(max(0.,R2NR(KR))-R2R(KR))*COL*RORI + ENDDO + DO KR=KRDROP,NKR + vapraint=vapraint+3.*FI2R(KR)*R2R(KR)*(max(0.,R2NR(KR))-R2R(KR))*COL*RORI + ENDDO + CALL JERNEWF (NR,NRM,R2R,FI2R,PSI2R,R2NR,COL,NKR) DO KR=1,NKR PSI2(KR,ICE)=PSI2R(KR) @@ -3625,6 +3660,9 @@ Subroutine ONECOND2 (TT,QQ,PP,ROR & ! For IN regeneration real totin_before, totin_after + +!dummy budgets +real vapc,vapr OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 OPER3(AR1,AR2)=AR1*AR2/(0.622+0.378*AR1) @@ -3784,30 +3822,30 @@ Subroutine ONECOND2 (TT,QQ,PP,ROR & IF(ISYM2.NE.0) THEN CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,1,COL,NKR) + ,ICM,1,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,2,COL,NKR) + ,ICM,2,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,3,COL,NKR) + ,ICM,3,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM3.NE.0) THEN !Snow CALL JERDFUN (R3,B31_MY,B32_MY & ,FI3,PSI3,D2N & - ,1,4,COL,NKR) + ,1,4,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM4.NE.0) THEN !Graupel CALL JERDFUN (R4,B41_MY,B42_MY & ,FI4,PSI4,D2N & - ,1,4,COL,NKR) + ,1,4,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM5.NE.0) THEN !Hail CALL JERDFUN (R5,B51_MY,B52_MY & ,FI5,PSI5,D2N & - ,1,5,COL,NKR) + ,1,5,COL,NKR,vapc,vapr,rori) ENDIF ELSE DT0I=1.E20 @@ -3847,30 +3885,30 @@ Subroutine ONECOND2 (TT,QQ,PP,ROR & IF(ISYM2.NE.0) THEN !CRYSTALS CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,1,COL,NKR) + ,ICM,1,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,2,COL,NKR) + ,ICM,2,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICM,3,COL,NKR) + ,ICM,3,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM3.NE.0) THEN !SNOW CALL JERDFUN (R3,B31_MY,B32_MY & ,FI3,PSI3,D2N & - ,1,3,COL,NKR) + ,1,3,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM4.NE.0) THEN !GRAUPEL CALL JERDFUN (R4,B41_MY,B42_MY & ,FI4,PSI4,D2N & - ,1,4,COL,NKR) + ,1,4,COL,NKR,vapc,vapr,rori) ENDIF IF(ISYM5.NE.0) THEN !HAIL CALL JERDFUN (R5,B51_MY,B52_MY & ,FI5,PSI5,D2N & - ,1,5,COL,NKR) + ,1,5,COL,NKR,vapc,vapr,rori) ENDIF ENDIF @@ -3991,7 +4029,8 @@ Subroutine ONECOND3 (TT,QQ,PP,ROR & ,FF5,PSI5,R5,RHEC,RO5BL & ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & ,COL,DTCOND,ICEMAX,NKR & -,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5) +,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5 & +,vapcldt,vapraint) IMPLICIT NONE INTEGER NKR,KR,ITIME,ICE,KCOND,K,ICEMAX & @@ -4069,12 +4108,19 @@ Subroutine ONECOND3 (TT,QQ,PP,ROR & ! CCN/IN regeneration real totccn_before, totccn_after, totin_before, totin_after +!condensation budgets +real vapcldt, vapraint,vapc,vapr + DATA AL1 /2500./, AL2 /2834./ REAL EPSDEL,EPSDEL2 DATA EPSDEL, EPSDEL2 /0.1E-03,0.1E-03/ + OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 OPER3(AR1,AR2)=AR1*AR2/(0.622+0.378*AR1) +vapc=0. +vapr=0. + DT_WATER_COND=0.4 DT_WATER_EVAP=0.4 DT_ICE_COND=0.4 @@ -4442,39 +4488,39 @@ Subroutine ONECOND3 (TT,QQ,PP,ROR & IF(ISYM1.NE.0) THEN CALL JERDFUN (R1,B11_MY,B12_MY & ,FI1,PSI1,D1N & - ,1,1,COL,NKR) + ,1,6,COL,NKR,vapcldt,vapraint,rori) ENDIF !------------ CRYSTALS --------------------------------------------- IF(ISYM2.NE.0) THEN CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICEMAX,1,COL,NKR) + ,ICEMAX,1,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICEMAX,2,COL,NKR) + ,ICEMAX,2,COL,NKR,vapc,vapr,rori) CALL JERDFUN (R2,B21_MY,B22_MY & ,FI2,PSI2,D2N & - ,ICEMAX,3,COL,NKR) + ,ICEMAX,3,COL,NKR,vapc,vapr,rori) ENDIF ! ---------------SNOW ----------------------------------------- IF(ISYM3.NE.0) THEN CALL JERDFUN (R3,B31_MY,B32_MY & ,FI3,PSI3,D2N & - ,1,3,COL,NKR) + ,1,3,COL,NKR,vapc,vapr,rori) ENDIF !------------- GRAUPELS ------------------------------------- IF(ISYM4.NE.0) THEN CALL JERDFUN (R4,B41_MY,B42_MY & ,FI4,PSI4,D2N & - ,1,4,COL,NKR) + ,1,4,COL,NKR,vapc,vapr,rori) ENDIF ! ---------------HAIL -------------------------------------- IF(ISYM5.NE.0) THEN CALL JERDFUN (R5,B51_MY,B52_MY & ,FI5,PSI5,D2N & - ,1,5,COL,NKR) + ,1,5,COL,NKR,vapc,vapr,rori) ENDIF !------------Update other variables----------------------------- diff --git a/src/6.3.01/mksfc/geodat.f90 b/src/6.3.02/mksfc/geodat.f90 similarity index 100% rename from src/6.3.01/mksfc/geodat.f90 rename to src/6.3.02/mksfc/geodat.f90 diff --git a/src/6.3.01/mksfc/landuse_input.f90 b/src/6.3.02/mksfc/landuse_input.f90 similarity index 100% rename from src/6.3.01/mksfc/landuse_input.f90 rename to src/6.3.02/mksfc/landuse_input.f90 diff --git a/src/6.3.01/mksfc/mksfc_driver.f90 b/src/6.3.02/mksfc/mksfc_driver.f90 similarity index 100% rename from src/6.3.01/mksfc/mksfc_driver.f90 rename to src/6.3.02/mksfc/mksfc_driver.f90 diff --git a/src/6.3.01/mksfc/mksfc_ndvi.f90 b/src/6.3.02/mksfc/mksfc_ndvi.f90 similarity index 100% rename from src/6.3.01/mksfc/mksfc_ndvi.f90 rename to src/6.3.02/mksfc/mksfc_ndvi.f90 diff --git a/src/6.3.01/mksfc/mksfc_sfc.f90 b/src/6.3.02/mksfc/mksfc_sfc.f90 similarity index 100% rename from src/6.3.01/mksfc/mksfc_sfc.f90 rename to src/6.3.02/mksfc/mksfc_sfc.f90 diff --git a/src/6.3.01/mksfc/mksfc_sst.f90 b/src/6.3.02/mksfc/mksfc_sst.f90 similarity index 100% rename from src/6.3.01/mksfc/mksfc_sst.f90 rename to src/6.3.02/mksfc/mksfc_sst.f90 diff --git a/src/6.3.01/mksfc/mksfc_top.f90 b/src/6.3.02/mksfc/mksfc_top.f90 similarity index 100% rename from src/6.3.01/mksfc/mksfc_top.f90 rename to src/6.3.02/mksfc/mksfc_top.f90 diff --git a/src/6.3.01/mksfc/ndvi_read.f90 b/src/6.3.02/mksfc/ndvi_read.f90 similarity index 100% rename from src/6.3.01/mksfc/ndvi_read.f90 rename to src/6.3.02/mksfc/ndvi_read.f90 diff --git a/src/6.3.01/mksfc/nest_geosst.f90 b/src/6.3.02/mksfc/nest_geosst.f90 similarity index 100% rename from src/6.3.01/mksfc/nest_geosst.f90 rename to src/6.3.02/mksfc/nest_geosst.f90 diff --git a/src/6.3.01/mksfc/sst_read.f90 b/src/6.3.02/mksfc/sst_read.f90 similarity index 100% rename from src/6.3.01/mksfc/sst_read.f90 rename to src/6.3.02/mksfc/sst_read.f90 diff --git a/src/6.3.01/mpi/mpass_cyclic.f90 b/src/6.3.02/mpi/mpass_cyclic.f90 similarity index 100% rename from src/6.3.01/mpi/mpass_cyclic.f90 rename to src/6.3.02/mpi/mpass_cyclic.f90 diff --git a/src/6.3.01/mpi/mpass_dtl.f90 b/src/6.3.02/mpi/mpass_dtl.f90 similarity index 100% rename from src/6.3.01/mpi/mpass_dtl.f90 rename to src/6.3.02/mpi/mpass_dtl.f90 diff --git a/src/6.3.01/mpi/mpass_init.f90 b/src/6.3.02/mpi/mpass_init.f90 similarity index 98% rename from src/6.3.01/mpi/mpass_init.f90 rename to src/6.3.02/mpi/mpass_init.f90 index 067cd42..56e779c 100644 --- a/src/6.3.01/mpi/mpass_init.f90 +++ b/src/6.3.02/mpi/mpass_init.f90 @@ -29,9 +29,9 @@ Subroutine broadcast_config () !Saleeby(2016) !Increment memory buffer size here if you add RAMSIN Namelist variables. !Add to the appropriate section below as (#-of-them * arraysize). - nwords = 216 * 1 & !single values + nwords = 219 * 1 & !single values + 1 * 8 & !micro (8-hydromet types for gnu) - + 3 * 9 & !micro (9-aerosol species) + + 3 * aerocat & !micro (number aerosol species) + 42 * maxgrds & !grid-dependent (max grids) + 3 * nzpmax & !max vertical levels + 3 * nzgmax & !max soil levels @@ -301,6 +301,7 @@ Subroutine broadcast_config () CALL par_put_int (NDTCOLL,1) CALL par_put_int (IAEROSOL,1) CALL par_put_int (ISALT,1) + CALL par_put_int (IABCARB,1) CALL par_put_int (IDUST,1) CALL par_put_int (IDUSTLOFT,1) CALL par_put_char (DUSTFILE,strl1) @@ -319,12 +320,14 @@ Subroutine broadcast_config () CALL par_put_float (SALTF_MAX,1) CALL par_put_float (SALTJ_MAX,1) CALL par_put_float (SALTS_MAX,1) + CALL par_put_float (ABC1_MAX,1) + CALL par_put_float (ABC2_MAX,1) CALL par_put_int (IAEROLBC,MAXGRDS) CALL par_put_int (ICO2LBC,MAXGRDS) CALL par_put_float (BCTAU,MAXGRDS) - CALL par_put_int (IAERO_CHEM,9) - CALL par_put_float (AERO_EPSILON,9) - CALL par_put_float (AERO_MEDRAD,9) + CALL par_put_int (IAERO_CHEM,aerocat) + CALL par_put_float (AERO_EPSILON,aerocat) + CALL par_put_float (AERO_MEDRAD,aerocat) CALL par_put_int (ITRKEPSILON,1) CALL par_put_int (ITRKDUST,1) CALL par_put_int (ITRKDUSTIFN,1) @@ -630,6 +633,7 @@ Subroutine broadcast_config () CALL par_get_int (NDTCOLL,1) CALL par_get_int (IAEROSOL,1) CALL par_get_int (ISALT,1) + CALL par_get_int (IABCARB,1) CALL par_get_int (IDUST,1) CALL par_get_int (IDUSTLOFT,1) CALL par_get_char (DUSTFILE,strl1) @@ -648,12 +652,14 @@ Subroutine broadcast_config () CALL par_get_float (SALTF_MAX,1) CALL par_get_float (SALTJ_MAX,1) CALL par_get_float (SALTS_MAX,1) + CALL par_get_float (ABC1_MAX,1) + CALL par_get_float (ABC2_MAX,1) CALL par_get_int (IAEROLBC,MAXGRDS) CALL par_get_int (ICO2LBC,MAXGRDS) CALL par_get_float (BCTAU,MAXGRDS) - CALL par_get_int (IAERO_CHEM,9) - CALL par_get_float (AERO_EPSILON,9) - CALL par_get_float (AERO_MEDRAD,9) + CALL par_get_int (IAERO_CHEM,aerocat) + CALL par_get_float (AERO_EPSILON,aerocat) + CALL par_get_float (AERO_MEDRAD,aerocat) CALL par_get_int (ITRKEPSILON,1) CALL par_get_int (ITRKDUST,1) CALL par_get_int (ITRKDUSTIFN,1) diff --git a/src/6.3.01/mpi/mpass_lbc.f90 b/src/6.3.02/mpi/mpass_lbc.f90 similarity index 100% rename from src/6.3.01/mpi/mpass_lbc.f90 rename to src/6.3.02/mpi/mpass_lbc.f90 diff --git a/src/6.3.01/mpi/mpass_nest.f90 b/src/6.3.02/mpi/mpass_nest.f90 similarity index 100% rename from src/6.3.01/mpi/mpass_nest.f90 rename to src/6.3.02/mpi/mpass_nest.f90 diff --git a/src/6.3.01/mpi/node_mod.f90 b/src/6.3.02/mpi/node_mod.f90 similarity index 100% rename from src/6.3.01/mpi/node_mod.f90 rename to src/6.3.02/mpi/node_mod.f90 diff --git a/src/6.3.01/mpi/par_decomp.f90 b/src/6.3.02/mpi/par_decomp.f90 similarity index 100% rename from src/6.3.01/mpi/par_decomp.f90 rename to src/6.3.02/mpi/par_decomp.f90 diff --git a/src/6.3.01/mpi/para_init.f90 b/src/6.3.02/mpi/para_init.f90 similarity index 100% rename from src/6.3.01/mpi/para_init.f90 rename to src/6.3.02/mpi/para_init.f90 diff --git a/src/6.3.01/mpi/rnode.f90 b/src/6.3.02/mpi/rnode.f90 similarity index 100% rename from src/6.3.01/mpi/rnode.f90 rename to src/6.3.02/mpi/rnode.f90 diff --git a/src/6.3.01/nesting/nest_drivers.f90 b/src/6.3.02/nesting/nest_drivers.f90 similarity index 100% rename from src/6.3.01/nesting/nest_drivers.f90 rename to src/6.3.02/nesting/nest_drivers.f90 diff --git a/src/6.3.01/nesting/nest_feed.f90 b/src/6.3.02/nesting/nest_feed.f90 similarity index 100% rename from src/6.3.01/nesting/nest_feed.f90 rename to src/6.3.02/nesting/nest_feed.f90 diff --git a/src/6.3.01/nesting/nest_intrp.f90 b/src/6.3.02/nesting/nest_intrp.f90 similarity index 100% rename from src/6.3.01/nesting/nest_intrp.f90 rename to src/6.3.02/nesting/nest_intrp.f90 diff --git a/src/6.3.01/radiate/rad_aero.f90 b/src/6.3.02/radiate/rad_aero.f90 similarity index 57% rename from src/6.3.01/radiate/rad_aero.f90 rename to src/6.3.02/radiate/rad_aero.f90 index e99798f..e1cc26b 100644 --- a/src/6.3.01/radiate/rad_aero.f90 +++ b/src/6.3.02/radiate/rad_aero.f90 @@ -48,6 +48,8 @@ Subroutine aerorad (i,j,mb,nb,nrad,m1,dzl,relh,tp,omgp,gp,dn0,aodt) ! 1 - Ammonium sulfate ! 2 - Sea Salt ! 3 - Mineral Dust +! 4 - Absorbing Carbon 1 +! 5 - Absorbing Carbon 2 do acat=1,aerocat aerotype(acat) = 0 enddo @@ -65,9 +67,13 @@ Subroutine aerorad (i,j,mb,nb,nrad,m1,dzl,relh,tp,omgp,gp,dn0,aodt) aerotype(6) = 2 ! Salt jet mode aerotype(7) = 2 ! Salt spume mode endif +if(iabcarb>0) then + aerotype(8) = 4 ! Absorbing carbon mode-1 (1% BC, 99% OC) + aerotype(9) = 5 ! Absorbing carbon mode-2 (2% BC, 98% OC) +endif if(iccnlev>=2) then - aerotype(8) = 1 ! Small regenerated aerosol - aerotype(9) = 1 ! Large regenerated aerosol + aerotype(aerocat-1) = 1 ! Small regenerated aerosol + aerotype(aerocat) = 1 ! Large regenerated aerosol endif !Loop thru all aerosol species and set number and size @@ -91,11 +97,11 @@ Subroutine aerorad (i,j,mb,nb,nrad,m1,dzl,relh,tp,omgp,gp,dn0,aodt) aodt=0.0 DO acat=1,aerocat IF(aerotype(acat).gt.0) then - ! For each aerosol, the code requires a total number concentration of + ! For each aerosol, the code requires a total number concentration of ! the aerosol at each grid point, along with either a total mass at the ! grid point or a median radius. CALL aerobin (m1,naerbins,aerocon(1,acat),aeroradius(1,acat),rnaer,dn0) - ! This is the routine that calculates the optical properties of the + ! This is the routine that calculates the optical properties of the ! aerosols within the radiation routine: ! Doing over all vertical levels (not including radiation levels) DO k = 2,m1-1 @@ -357,7 +363,7 @@ Subroutine aerobin (m1,naerbins,numconc,medianrad,rnaer,dn0) IF(interp.EQ.1) m = 1 IF(interp.EQ.25) m = 23 - ! Determining the coefficients to be used in the 3rd order + ! Determining the coefficients to be used in the 3rd order !Lagrangian polynomial interpolation scheme: L(1) = (rg-radlim(m+3))*(rg-radlim(m+2))* & (rg-radlim(m+1))/(radlim(m)-radlim(m+3))/ & @@ -392,108 +398,108 @@ Subroutine aerogrowth (aerotype,bin,rh,value) implicit none INTEGER aerotype,bin,rh,ib - REAL growth(3,17,20),value + REAL growth(5,17,20),value -! Ammonium sulfate with 90% insoluble inclusion (dust) +! Ammonium sulfate with 20% insoluble inclusion (dust low R(Im))) DATA(growth(1,ib,1),ib=1,17) & ! Amm. Sulf. at 80% RH - /1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & - ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & - ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ + / 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + , 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + , 1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ DATA(growth(1,ib,2),ib=1,17) & ! Amm. Sulf. at 81% RH - /1.0024, 1.0027, 1.0030, 1.0031, 1.0033, 1.0033 & - ,1.0034, 1.0034, 1.0034, 1.0034, 1.0035, 1.0035 & - ,1.0035, 1.0035, 1.0035, 1.0035, 1.0035/ + / 1.0100, 1.0094, 1.0099, 1.0102, 1.0104, 1.0105 & + , 1.0106, 1.0106, 1.0107, 1.0107, 1.0107, 1.0107 & + , 1.0107, 1.0107, 1.0107, 1.0107, 1.0107/ DATA(growth(1,ib,3),ib=1,17) & ! Amm. Sulf. at 82% RH - /1.0050, 1.0057, 1.0062, 1.0066, 1.0068, 1.0070 & - ,1.0071, 1.0072, 1.0072, 1.0073, 1.0073, 1.0073 & - ,1.0073, 1.0073, 1.0073, 1.0073, 1.0073/ + / 1.0195, 1.0195, 1.0205, 1.0212, 1.0216, 1.0219 & + , 1.0220, 1.0221, 1.0222, 1.0222, 1.0223, 1.0223 & + , 1.0223, 1.0223, 1.0223, 1.0223, 1.0223/ DATA(growth(1,ib,4),ib=1,17) & ! Amm. Sulf. at 83% RH - /1.0078, 1.0089, 1.0098, 1.0104, 1.0108, 1.0111 & - ,1.0112, 1.0114, 1.0114, 1.0115, 1.0115, 1.0115 & - ,1.0115, 1.0115, 1.0115, 1.0115, 1.0115/ + / 1.0295, 1.0305, 1.0320, 1.0331, 1.0337, 1.0342 & + , 1.0344, 1.0346, 1.0347, 1.0348, 1.0348, 1.0349 & + , 1.0349, 1.0349, 1.0349, 1.0349, 1.0349/ DATA(growth(1,ib,5),ib=1,17) & ! Amm. Sulf. at 84% RH - /1.0108, 1.0125, 1.0138, 1.0146, 1.0152, 1.0156 & - ,1.0159, 1.0160, 1.0161, 1.0162, 1.0162, 1.0162 & - ,1.0163, 1.0163, 1.0163, 1.0163, 1.0163/ + / 1.0404, 1.0423, 1.0445, 1.0460, 1.0469, 1.0476 & + , 1.0480, 1.0482, 1.0484, 1.0485, 1.0485, 1.0486 & + , 1.0486, 1.0486, 1.0486, 1.0486, 1.0486/ DATA(growth(1,ib,6),ib=1,17) & ! Amm. Sulf. at 85% RH - /1.0142, 1.0165, 1.0182, 1.0193, 1.0201, 1.0207 & - ,1.0210, 1.0212, 1.0214, 1.0215, 1.0215, 1.0216 & - ,1.0216, 1.0216, 1.0216, 1.0216, 1.0216/ + / 1.0522, 1.0551, 1.0581, 1.0601, 1.0614, 1.0622 & + , 1.0628, 1.0631, 1.0633, 1.0635, 1.0635, 1.0636 & + , 1.0636, 1.0637, 1.0637, 1.0637, 1.0637/ DATA(growth(1,ib,7),ib=1,17) & ! Amm. Sulf. at 86% RH - /1.0179, 1.0209, 1.0231, 1.0246, 1.0257, 1.0264 & - ,1.0268, 1.0271, 1.0273, 1.0274, 1.0275, 1.0276 & - ,1.0276, 1.0276, 1.0276, 1.0276, 1.0276/ + / 1.0650, 1.0692, 1.0731, 1.0757, 1.0774, 1.0785 & + , 1.0792, 1.0796, 1.0799, 1.0800, 1.0802, 1.0802 & + , 1.0803, 1.0803, 1.0803, 1.0803, 1.0803/ DATA(growth(1,ib,8),ib=1,17) & ! Amm. Sulf. at 87% RH - /1.0220, 1.0258, 1.0286, 1.0306, 1.0320, 1.0329 & - ,1.0335, 1.0339, 1.0341, 1.0343, 1.0344, 1.0344 & - ,1.0345, 1.0345, 1.0345, 1.0345, 1.0345/ + / 1.0790, 1.0847, 1.0897, 1.0930, 1.0951, 1.0965 & + , 1.0974, 1.0980, 1.0983, 1.0985, 1.0987, 1.0988 & + , 1.0988, 1.0989, 1.0989, 1.0989, 1.0989/ DATA(growth(1,ib,9),ib=1,17) & ! Amm. Sulf. at 88% RH - /1.0266, 1.0313, 1.0349, 1.0374, 1.0392, 1.0404 & - ,1.0411, 1.0416, 1.0419, 1.0421, 1.0422, 1.0423 & - ,1.0424, 1.0424, 1.0424, 1.0424, 1.0425/ + / 1.0945, 1.1019, 1.1081, 1.1123, 1.1150, 1.1168 & + , 1.1179, 1.1186, 1.1191, 1.1194, 1.1195, 1.1197 & + , 1.1197, 1.1198, 1.1198, 1.1198, 1.1198/ DATA(growth(1,ib,10),ib=1,17) & ! Amm. Sulf. at 89% RH - /1.0317, 1.0376, 1.0421, 1.0453, 1.0475, 1.0490 & - ,1.0500, 1.0506, 1.0510, 1.0513, 1.0514, 1.0515 & - ,1.0516, 1.0516, 1.0517, 1.0517, 1.0517/ + / 1.1117, 1.1213, 1.1290, 1.1342, 1.1376, 1.1398 & + , 1.1412, 1.1422, 1.1427, 1.1431, 1.1433, 1.1435 & + , 1.1435, 1.1436, 1.1436, 1.1437, 1.1437/ DATA(growth(1,ib,11),ib=1,17) & ! Amm. Sulf. at 90% RH - /1.0375, 1.0448, 1.0504, 1.0545, 1.0573, 1.0592 & - ,1.0604, 1.0612, 1.0617, 1.0621, 1.0623, 1.0624 & - ,1.0625, 1.0625, 1.0626, 1.0626, 1.0626/ + / 1.1310, 1.1432, 1.1528, 1.1593, 1.1636, 1.1664 & + , 1.1682, 1.1693, 1.1700, 1.1705, 1.1708, 1.1709 & + , 1.1711, 1.1711, 1.1712, 1.1712, 1.1712/ DATA(growth(1,ib,12),ib=1,17) & ! Amm. Sulf. at 91% RH - /1.0441, 1.0531, 1.0602, 1.0653, 1.0689, 1.0713 & - ,1.0729, 1.0739, 1.0746, 1.0750, 1.0752, 1.0754 & - ,1.0755, 1.0756, 1.0756, 1.0756, 1.0757/ + / 1.1529, 1.1684, 1.1804, 1.1886, 1.1940, 1.1975 & + , 1.1997, 1.2011, 1.2020, 1.2026, 1.2030, 1.2032 & + , 1.2034, 1.2034, 1.2035, 1.2035, 1.2036/ DATA(growth(1,ib,13),ib=1,17) & ! Amm. Sulf. at 92% RH - /1.0518, 1.0629, 1.0718, 1.0783, 1.0829, 1.0860 & - ,1.0880, 1.0894, 1.0902, 1.0907, 1.0911, 1.0913 & - ,1.0914, 1.0915, 1.0916, 1.0916, 1.0916/ + / 1.1782, 1.1978, 1.2129, 1.2232, 1.2301, 1.2345 & + , 1.2374, 1.2392, 1.2403, 1.2411, 1.2415, 1.2418 & + , 1.2420, 1.2421, 1.2422, 1.2422, 1.2422/ DATA(growth(1,ib,14),ib=1,17) & ! Amm. Sulf. at 93% RH - /1.0606, 1.0745, 1.0859, 1.0943, 1.1002, 1.1042 & - ,1.1069, 1.1086, 1.1097, 1.1104, 1.1108, 1.1111 & - ,1.1113, 1.1114, 1.1115, 1.1115, 1.1116/ + / 1.2079, 1.2329, 1.2521, 1.2653, 1.2740, 1.2797 & + , 1.2833, 1.2856, 1.2871, 1.2880, 1.2886, 1.2890 & + , 1.2892, 1.2894, 1.2895, 1.2895, 1.2896/ DATA(growth(1,ib,15),ib=1,17) & ! Amm. Sulf. at 94% RH - /1.0711, 1.0887, 1.1033, 1.1143, 1.1221, 1.1275 & - ,1.1310, 1.1333, 1.1347, 1.1357, 1.1363, 1.1367 & - ,1.1369, 1.1371, 1.1371, 1.1372, 1.1372/ + / 1.2435, 1.2758, 1.3005, 1.3175, 1.3288, 1.3362 & + , 1.3409, 1.3440, 1.3459, 1.3471, 1.3479, 1.3484 & + , 1.3487, 1.3489, 1.3490, 1.3491, 1.3491/ DATA(growth(1,ib,16),ib=1,17) & ! Amm. Sulf. at 95% RH - /1.0837, 1.1063, 1.1255, 1.1402, 1.1508, 1.1581 & - ,1.1630, 1.1661, 1.1682, 1.1695, 1.1703, 1.1708 & - ,1.1711, 1.1714, 1.1715, 1.1716, 1.1716/ + / 1.2874, 1.3298, 1.3623, 1.3847, 1.3996, 1.4094 & + , 1.4157, 1.4197, 1.4222, 1.4238, 1.4249, 1.4255 & + , 1.4259, 1.4262, 1.4263, 1.4264, 1.4265/ DATA(growth(1,ib,17),ib=1,17) & ! Amm. Sulf. at 96% RH - /1.0993, 1.1289, 1.1548, 1.1753, 1.1903, 1.2007 & - ,1.2077, 1.2123, 1.2152, 1.2171, 1.2183, 1.2190 & - ,1.2195, 1.2198, 1.2200, 1.2201, 1.2202/ + / 1.3435, 1.4006, 1.4443, 1.4747, 1.4951, 1.5083 & + , 1.5169, 1.5224, 1.5258, 1.5280, 1.5294, 1.5303 & + , 1.5309, 1.5312, 1.5314, 1.5316, 1.5317/ DATA(growth(1,ib,18),ib=1,17) & ! Amm. Sulf. at 97% RH - /1.1190, 1.1591, 1.1959, 1.2260, 1.2486, 1.2644 & - ,1.2752, 1.2822, 1.2868, 1.2898, 1.2916, 1.2928 & - ,1.2936, 1.2940, 1.2943, 1.2945, 1.2947/ + / 1.4184, 1.4982, 1.5597, 1.6028, 1.6324, 1.6517 & + , 1.6643, 1.6723, 1.6774, 1.6806, 1.6826, 1.6839 & + , 1.6847, 1.6852, 1.6856, 1.6858, 1.6859/ DATA(growth(1,ib,19),ib=1,17) & ! Amm. Sulf. at 98% RH - /1.1451, 1.2022, 1.2585, 1.3071, 1.3448, 1.3720 & - ,1.3907, 1.4032, 1.4113, 1.4165, 1.4199, 1.4220 & - ,1.4233, 1.4242, 1.4247, 1.4250, 1.4253/ + / 1.5256, 1.6446, 1.7397, 1.8075, 1.8536, 1.8840 & + , 1.9037, 1.9164, 1.9245, 1.9296, 1.9328, 1.9349 & + , 1.9362, 1.9370, 1.9375, 1.9379, 1.9381/ DATA(growth(1,ib,20),ib=1,17) & ! Amm. Sulf. at 99% RH - /1.1816, 1.2705, 1.3696, 1.4645, 1.5442, 1.6047 & - ,1.6476, 1.6766, 1.6958, 1.7082, 1.7162, 1.7213 & - ,1.7245, 1.7265, 1.7278, 1.7286, 1.7291/ + / 1.6978, 1.9026, 2.0745, 2.2054, 2.2983, 2.3613 & + , 2.4028, 2.4298, 2.4471, 2.4581, 2.4651, 2.4695 & + , 2.4723, 2.4740, 2.4751, 2.4758, 2.4763/ ! Sea salt with no insoluble inclusion DATA(growth(2,ib,1),ib=1,17) & ! Sea Salt at 80% RH @@ -598,823 +604,825 @@ Subroutine aerogrowth (aerotype,bin,rh,value) value = growth(aerotype,bin,rh) -! No growth factor for dust at RH under 100%: - IF(AEROTYPE.EQ.3) value = 1.0 - +! No growth factor for dust or absorbing carbon at RH under 100%: + IF(AEROTYPE.EQ.3) value = 1.0 ! Mineral dust + IF(AEROTYPE.EQ.4) value = 1.0 ! Absorbing carbon (1% BC, 99% OC) + IF(AEROTYPE.EQ.5) value = 1.0 ! Absorbing carbon (2% BC, 98% OC) return END SUBROUTINE aerogrowth !############################################################################## Subroutine aeroqext (aerotype,radband,bin,rh,value) +use rrad3, only:dust_ref_im + implicit none INTEGER aerotype,radband,bin,rh,ib - REAL qext(3,8,17,20),value - -! Setting for aerosol with no growth (completely insoluble): - IF(AEROTYPE.EQ.3) rh = 1 + REAL qext(2,8,17,20),value + REAL qext_dust(3,8,17) + REAL qext_carb(2,8,17) -! Qext for Ammonium Sulfate (with a 90% insoluble dust inclusion): +! Qext Ammonium sulfate with 20% insoluble inclusion (dust low R(Im))) DATA(qext(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% - /0.00149, 0.00242, 0.00397, 0.00702, 0.01392, 0.04336 & - ,0.16334, 0.54998, 1.39850, 2.52940, 2.77530, 2.71620 & - ,2.41690, 2.20950, 2.17190, 2.12740, 2.09270/ + / 0.00243, 0.00399, 0.00676, 0.01291, 0.03101, 0.11152 & + , 0.39298, 1.20280, 2.59550, 3.42510, 2.50370, 2.36510 & + , 2.25050, 2.18720, 2.14660, 2.10300, 2.07280/ DATA(qext(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% - /0.00150, 0.00243, 0.00401, 0.00708, 0.01406, 0.04380 & - ,0.16471, 0.55391, 1.40580, 2.53920, 2.78010, 2.71520 & - ,2.41230, 2.21190, 2.17210, 2.12720, 2.09250/ + / 0.00247, 0.00405, 0.00686, 0.01315, 0.03175, 0.11430 & + , 0.40095, 1.22000, 2.61630, 3.42130, 2.49150, 2.34430 & + , 2.24030, 2.17830, 2.14220, 2.09950, 2.07250/ DATA(qext(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% - /0.00151, 0.00245, 0.00404, 0.00714, 0.01421, 0.04428 & - ,0.16621, 0.55824, 1.41380, 2.55000, 2.78520, 2.71450 & - ,2.40880, 2.21310, 2.17130, 2.12680, 2.09230/ + / 0.00251, 0.00411, 0.00698, 0.01342, 0.03257, 0.11734 & + , 0.40973, 1.23880, 2.63900, 3.41530, 2.47780, 2.34960 & + , 2.23690, 2.18440, 2.13900, 2.09960, 2.07340/ DATA(qext(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% - /0.00153, 0.00247, 0.00408, 0.00722, 0.01438, 0.04482 & - ,0.16789, 0.56306, 1.42280, 2.56170, 2.79030, 2.71480 & - ,2.40350, 2.21140, 2.16910, 2.12630, 2.09200/ + / 0.00254, 0.00418, 0.00710, 0.01371, 0.03347, 0.12070 & + , 0.41949, 1.25960, 2.66360, 3.40690, 2.47100, 2.32250 & + , 2.24880, 2.17460, 2.14160, 2.10060, 2.07520/ DATA(qext(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% - /0.00154, 0.00250, 0.00412, 0.00730, 0.01457, 0.04543 & - ,0.16976, 0.56845, 1.43290, 2.57470, 2.79550, 2.71600 & - ,2.39450, 2.20870, 2.16830, 2.12590, 2.09170/ + / 0.00258, 0.00425, 0.00724, 0.01403, 0.03447, 0.12441 & + , 0.43040, 1.28260, 2.69010, 3.39640, 2.46560, 2.33550 & + , 2.23730, 2.18500, 2.14040, 2.10210, 2.07500/ DATA(qext(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% - /0.00155, 0.00252, 0.00417, 0.00739, 0.01478, 0.04611 & - ,0.17188, 0.57450, 1.44430, 2.58890, 2.80060, 2.71690 & - ,2.38340, 2.21340, 2.16940, 2.12460, 2.09120/ + / 0.00263, 0.00433, 0.00739, 0.01438, 0.03559, 0.12856 & + , 0.44268, 1.30810, 2.71830, 3.38460, 2.45840, 2.30650 & + , 2.24240, 2.17900, 2.13650, 2.10230, 2.07490/ DATA(qext(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% - /0.00157, 0.00255, 0.00422, 0.00749, 0.01501, 0.04688 & - ,0.17428, 0.58136, 1.45740, 2.60470, 2.80550, 2.71630 & - ,2.37520, 2.22400, 2.16840, 2.12420, 2.09060/ + / 0.00267, 0.00441, 0.00755, 0.01477, 0.03685, 0.13322 & + , 0.45665, 1.33650, 2.74850, 3.37330, 2.44610, 2.30040 & + , 2.24060, 2.17600, 2.13390, 2.10200, 2.07110/ DATA(qext(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% - /0.00158, 0.00258, 0.00427, 0.00760, 0.01528, 0.04776 & - ,0.17702, 0.58920, 1.47230, 2.62230, 2.81030, 2.71180 & - ,2.36970, 2.22790, 2.16710, 2.12250, 2.08990/ + / 0.00272, 0.00450, 0.00773, 0.01522, 0.03829, 0.13851 & + , 0.47267, 1.36830, 2.78070, 3.36300, 2.43130, 2.30430 & + , 2.24940, 2.18380, 2.13010, 2.09760, 2.07030/ DATA(qext(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% - /0.00160, 0.00261, 0.00434, 0.00772, 0.01559, 0.04878 & - ,0.18021, 0.59823, 1.48980, 2.64210, 2.81470, 2.70850 & - ,2.35840, 2.22120, 2.16830, 2.12150, 2.08920/ + / 0.00278, 0.00461, 0.00793, 0.01572, 0.03995, 0.14459 & + , 0.49126, 1.40410, 2.81570, 3.34940, 2.42830, 2.28660 & + , 2.24990, 2.18560, 2.12480, 2.09710, 2.07020/ DATA(qext(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% - /0.00162, 0.00265, 0.00441, 0.00787, 0.01594, 0.04998 & - ,0.18393, 0.60878, 1.51030, 2.66460, 2.81890, 2.70760 & - ,2.34990, 2.22930, 2.16630, 2.11990, 2.08840/ + / 0.00284, 0.00472, 0.00815, 0.01630, 0.04190, 0.15167 & + , 0.51309, 1.44470, 2.85490, 3.32690, 2.42480, 2.27210 & + , 2.24610, 2.17890, 2.12900, 2.09430, 2.06870/ DATA(qext(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% - /0.00164, 0.00270, 0.00450, 0.00804, 0.01636, 0.05140 & - ,0.18836, 0.62123, 1.53480, 2.69040, 2.82340, 2.69900 & - ,2.34020, 2.23700, 2.16640, 2.11830, 2.08770/ + / 0.00291, 0.00485, 0.00841, 0.01698, 0.04423, 0.16002 & + , 0.53905, 1.49120, 2.90080, 3.29250, 2.41490, 2.28060 & + , 2.24940, 2.16770, 2.12270, 2.09130, 2.06700/ DATA(qext(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% - /0.00167, 0.00275, 0.00459, 0.00824, 0.01686, 0.05312 & - ,0.19370, 0.63617, 1.56440, 2.72060, 2.82970, 2.68780 & - ,2.32630, 2.22930, 2.16360, 2.11730, 2.08720/ + / 0.00298, 0.00499, 0.00871, 0.01779, 0.04706, 0.17009 & + , 0.57036, 1.54560, 2.95660, 3.25190, 2.41590, 2.26050 & + , 2.24660, 2.16400, 2.13220, 2.09290, 2.06840/ DATA(qext(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% - /0.00170, 0.00281, 0.00471, 0.00847, 0.01746, 0.05524 & - ,0.20029, 0.65445, 1.60100, 2.75700, 2.83770, 2.68130 & - ,2.31590, 2.23730, 2.16100, 2.11630, 2.08670/ + / 0.00307, 0.00516, 0.00907, 0.01878, 0.05060, 0.18246 & + , 0.60865, 1.61090, 3.02240, 3.21000, 2.41410, 2.25750 & + , 2.24660, 2.15570, 2.12580, 2.08810, 2.06440/ DATA(qext(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% - /0.00173, 0.00287, 0.00484, 0.00876, 0.01821, 0.05793 & - ,0.20863, 0.67733, 1.64690, 2.80240, 2.84230, 2.66420 & - ,2.30400, 2.24000, 2.15680, 2.11670, 2.08580/ + / 0.00317, 0.00536, 0.00950, 0.02004, 0.05516, 0.19810 & + , 0.65619, 1.69260, 3.09320, 3.14050, 2.42580, 2.26270 & + , 2.22030, 2.16260, 2.11180, 2.08570, 2.06260/ DATA(qext(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% - /0.00177, 0.00296, 0.00501, 0.00912, 0.01917, 0.06144 & - ,0.21952, 0.70689, 1.70590, 2.86090, 2.83750, 2.63840 & - ,2.29430, 2.23600, 2.15490, 2.11590, 2.08410/ + / 0.00329, 0.00561, 0.01005, 0.02168, 0.06127, 0.21852 & + , 0.71628, 1.79930, 3.16720, 3.05150, 2.44450, 2.29230 & + , 2.20420, 2.16790, 2.12050, 2.08490, 2.06120/ DATA(qext(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% - /0.00181, 0.00305, 0.00521, 0.00958, 0.02044, 0.06625 & - ,0.23443, 0.74677, 1.78360, 2.93450, 2.81970, 2.60950 & - ,2.28910, 2.22880, 2.15040, 2.11410, 2.08210/ + / 0.00344, 0.00591, 0.01076, 0.02394, 0.06987, 0.24643 & + , 0.79436, 1.93990, 3.25950, 2.92110, 2.46390, 2.31160 & + , 2.20510, 2.15580, 2.10930, 2.08210, 2.05930/ DATA(qext(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% - /0.00187, 0.00318, 0.00548, 0.01020, 0.02224, 0.07325 & - ,0.25619, 0.80417, 1.88990, 3.01840, 2.79740, 2.56840 & - ,2.27980, 2.21950, 2.15160, 2.10840, 2.08070/ + / 0.00362, 0.00632, 0.01173, 0.02725, 0.08275, 0.28716 & + , 0.90224, 2.12220, 3.34370, 2.75870, 2.47640, 2.30890 & + , 2.20160, 2.14420, 2.10500, 2.07860, 2.05570/ DATA(qext(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% - /0.00194, 0.00334, 0.00584, 0.01109, 0.02502, 0.08445 & - ,0.29133, 0.89605, 2.04820, 3.11820, 2.73070, 2.49010 & - ,2.26510, 2.19690, 2.14400, 2.10610, 2.07700/ + / 0.00387, 0.00687, 0.01318, 0.03260, 0.10391, 0.35406 & + , 1.07260, 2.38460, 3.40860, 2.54840, 2.42030, 2.26990 & + , 2.18920, 2.13010, 2.10390, 2.07290, 2.05390/ DATA(qext(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% - /0.00202, 0.00356, 0.00638, 0.01253, 0.02998, 0.10540 & - ,0.35938, 1.07060, 2.32480, 3.22630, 2.61070, 2.36850 & - ,2.24080, 2.18350, 2.13650, 2.09820, 2.07280/ + / 0.00421, 0.00772, 0.01567, 0.04297, 0.14416, 0.48717 & + , 1.37270, 2.76550, 3.33610, 2.38330, 2.29050, 2.22400 & + , 2.17340, 2.11910, 2.09050, 2.06590, 2.04670/ DATA(qext(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% - /0.00214, 0.00390, 0.00730, 0.01549, 0.04218, 0.15907 & - ,0.54778, 1.48410, 2.85730, 3.16580, 2.46260, 2.24560 & - ,2.24020, 2.15030, 2.11870, 2.08630, 2.06390/ + / 0.00476, 0.00927, 0.02126, 0.07066, 0.24497, 0.81293 & + , 1.99920, 3.29440, 2.81910, 2.45820, 2.32640, 2.20730 & + , 2.14340, 2.10410, 2.07720, 2.05600, 2.04400/ DATA(qext(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% - /0.00188, 0.00355, 0.00926, 0.03712, 0.17250, 0.70887 & - ,2.02340, 3.42880, 3.06140, 2.60440, 2.33320, 2.26490 & - ,2.18920, 2.14060, 2.10170, 2.07490, 2.05500/ + / 0.00027, 0.00152, 0.00939, 0.05618, 0.24749, 0.91117 & + , 2.28680, 3.57540, 2.87780, 2.38950, 2.34530, 2.22210 & + , 2.16090, 2.12210, 2.08480, 2.05860, 2.04530/ DATA(qext(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% - /0.00187, 0.00355, 0.00927, 0.03727, 0.17317, 0.71054 & - ,2.02350, 3.42780, 3.06090, 2.60320, 2.33340, 2.26490 & - ,2.18890, 2.14040, 2.10140, 2.07480, 2.05490/ + / 0.00028, 0.00156, 0.00967, 0.05772, 0.25225, 0.92267 & + , 2.30370, 3.57880, 2.86350, 2.38570, 2.34270, 2.22560 & + , 2.16300, 2.12240, 2.08490, 2.06410, 2.04570/ DATA(qext(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% - /0.00187, 0.00354, 0.00928, 0.03745, 0.17391, 0.71241 & - ,2.02380, 3.42680, 3.06020, 2.60170, 2.33270, 2.26420 & - ,2.18820, 2.13990, 2.10130, 2.07470, 2.05480/ + / 0.00028, 0.00161, 0.00997, 0.05942, 0.25746, 0.93529 & + , 2.32200, 3.58150, 2.84940, 2.37620, 2.33370, 2.22180 & + , 2.16210, 2.11920, 2.08300, 2.05990, 2.04340/ DATA(qext(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% - /0.00186, 0.00353, 0.00929, 0.03764, 0.17474, 0.71450 & - ,2.02410, 3.42580, 3.05930, 2.59990, 2.33180, 2.26250 & - ,2.18720, 2.13950, 2.10110, 2.07430, 2.05460/ + / 0.00029, 0.00166, 0.01030, 0.06129, 0.26323, 0.94922 & + , 2.34190, 3.58310, 2.83290, 2.36780, 2.33150, 2.22060 & + , 2.16130, 2.11580, 2.07840, 2.05860, 2.04320/ DATA(qext(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% - /0.00185, 0.00352, 0.00931, 0.03785, 0.17567, 0.71686 & - ,2.02460, 3.42490, 3.05800, 2.59810, 2.33210, 2.26150 & - ,2.18680, 2.13900, 2.10070, 2.07430, 2.05450/ + / 0.00030, 0.00171, 0.01068, 0.06339, 0.26963, 0.96473 & + , 2.36360, 3.58360, 2.81400, 2.35970, 2.32380, 2.22240 & + , 2.15620, 2.10910, 2.08300, 2.06230, 2.04360/ DATA(qext(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% - /0.00184, 0.00351, 0.00932, 0.03810, 0.17672, 0.71955 & - ,2.02530, 3.42410, 3.05620, 2.59560, 2.33120, 2.26080 & - ,2.18620, 2.13880, 2.10050, 2.07390, 2.05430/ + / 0.00030, 0.00177, 0.01111, 0.06574, 0.27681, 0.98216 & + , 2.38760, 3.58320, 2.79190, 2.35370, 2.33020, 2.21150 & + , 2.15640, 2.10680, 2.08120, 2.06070, 2.04310/ DATA(qext(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% - /0.00183, 0.00349, 0.00934, 0.03838, 0.17791, 0.72262 & - ,2.02620, 3.42360, 3.05390, 2.59220, 2.33080, 2.25870 & - ,2.18510, 2.13780, 2.10020, 2.07370, 2.05410/ + / 0.00031, 0.00185, 0.01159, 0.06840, 0.28494, 1.00200 & + , 2.41450, 3.58260, 2.76650, 2.34540, 2.31160, 2.20840 & + , 2.15290, 2.11080, 2.07660, 2.05610, 2.04320/ DATA(qext(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% - /0.00182, 0.00348, 0.00936, 0.03870, 0.17928, 0.72617 & - ,2.02740, 3.42350, 3.05080, 2.58880, 2.32980, 2.25760 & - ,2.18450, 2.13770, 2.09980, 2.07350, 2.05380/ + / 0.00032, 0.00193, 0.01215, 0.07144, 0.29424, 1.02470 & + , 2.44510, 3.58330, 2.74170, 2.33360, 2.31470, 2.21930 & + , 2.14640, 2.10710, 2.07700, 2.05940, 2.04150/ DATA(qext(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% - /0.00181, 0.00347, 0.00939, 0.03908, 0.18086, 0.73033 & - ,2.02910, 3.42380, 3.04690, 2.58440, 2.33040, 2.25510 & - ,2.18280, 2.13650, 2.09940, 2.07300, 2.05360/ + / 0.00033, 0.00202, 0.01279, 0.07496, 0.30502, 1.05120 & + , 2.48070, 3.58620, 2.71940, 2.31750, 2.31040, 2.21110 & + , 2.14470, 2.10510, 2.07910, 2.05890, 2.04050/ DATA(qext(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% - /0.00180, 0.00345, 0.00942, 0.03952, 0.18272, 0.73524 & - ,2.03140, 3.42500, 3.04210, 2.58090, 2.33060, 2.25290 & - ,2.18150, 2.13590, 2.09920, 2.07260, 2.05330/ + / 0.00035, 0.00213, 0.01356, 0.07909, 0.31774, 1.08250 & + , 2.52280, 3.58930, 2.69160, 2.30190, 2.30670, 2.20850 & + , 2.14200, 2.10380, 2.07760, 2.05620, 2.04060/ DATA(qext(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% - /0.00178, 0.00343, 0.00946, 0.04005, 0.18493, 0.74113 & - ,2.03470, 3.42720, 3.03680, 2.57490, 2.33030, 2.25160 & - ,2.18050, 2.13440, 2.09850, 2.07210, 2.05300/ + / 0.00036, 0.00226, 0.01448, 0.08402, 0.33303, 1.12000 & + , 2.57280, 3.58780, 2.65470, 2.29190, 2.29270, 2.21020 & + , 2.13970, 2.10570, 2.07410, 2.05800, 2.04180/ DATA(qext(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% - /0.00177, 0.00341, 0.00952, 0.04070, 0.18761, 0.74832 & - ,2.03930, 3.43070, 3.03190, 2.56800, 2.32880, 2.24900 & - ,2.17930, 2.13300, 2.09790, 2.07150, 2.05250/ + / 0.00038, 0.00243, 0.01562, 0.09000, 0.35180, 1.16550 & + , 2.63190, 3.57800, 2.62000, 2.26910, 2.28690, 2.21430 & + , 2.13330, 2.10200, 2.07340, 2.05390, 2.03890/ DATA(qext(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% - /0.00175, 0.00339, 0.00958, 0.04150, 0.19092, 0.75725 & - ,2.04600, 3.43560, 3.02700, 2.56100, 2.32750, 2.24590 & - ,2.17700, 2.13130, 2.09730, 2.07070, 2.05200/ + / 0.00041, 0.00263, 0.01705, 0.09743, 0.37547, 1.22160 & + , 2.70050, 3.56240, 2.58150, 2.25730, 2.28720, 2.20910 & + , 2.13460, 2.10530, 2.07250, 2.05230, 2.03870/ DATA(qext(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% - /0.00173, 0.00337, 0.00967, 0.04253, 0.19510, 0.76865 & - ,2.05610, 3.44170, 3.01910, 2.55060, 2.32680, 2.24070 & - ,2.17520, 2.12960, 2.09560, 2.06980, 2.05140/ + / 0.00044, 0.00289, 0.01891, 0.10692, 0.40620, 1.29140 & + , 2.78000, 3.54560, 2.53900, 2.24550, 2.28160, 2.19530 & + , 2.13030, 2.10140, 2.07330, 2.05160, 2.03710/ DATA(qext(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% - /0.00171, 0.00334, 0.00979, 0.04388, 0.20056, 0.78361 & - ,2.07180, 3.44860, 3.00600, 2.53720, 2.32560, 2.23450 & - ,2.17290, 2.12670, 2.09400, 2.06870, 2.05060/ + / 0.00048, 0.00324, 0.02142, 0.11943, 0.44743, 1.37940 & + , 2.87770, 3.50280, 2.49830, 2.24030, 2.26540, 2.18070 & + , 2.13580, 2.09560, 2.07170, 2.04990, 2.03640/ DATA(qext(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% - /0.00168, 0.00331, 0.00997, 0.04574, 0.20801, 0.80407 & - ,2.09750, 3.45520, 2.98110, 2.51670, 2.32710, 2.22770 & - ,2.17010, 2.12290, 2.09200, 2.06740, 2.04970/ + / 0.00053, 0.00372, 0.02500, 0.13665, 0.50455, 1.49420 & + , 3.00770, 3.43500, 2.46080, 2.25430, 2.24370, 2.16100 & + , 2.13350, 2.09020, 2.06810, 2.04760, 2.03490/ DATA(qext(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% - /0.00165, 0.00328, 0.01024, 0.04847, 0.21878, 0.83363 & - ,2.14150, 3.46280, 2.94540, 2.49200, 2.32280, 2.21880 & - ,2.16770, 2.12000, 2.08910, 2.06590, 2.04830/ + / 0.00061, 0.00445, 0.03042, 0.16163, 0.58614, 1.65500 & + , 3.16140, 3.31230, 2.42970, 2.29580, 2.19720, 2.16000 & + , 2.12040, 2.08600, 2.06200, 2.04570, 2.03230/ DATA(qext(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% - /0.00161, 0.00325, 0.01068, 0.05282, 0.23577, 0.88021 & - ,2.21860, 3.48830, 2.88970, 2.45290, 2.31840, 2.21050 & - ,2.16160, 2.11590, 2.08590, 2.06310, 2.04650/ + / 0.00073, 0.00565, 0.03942, 0.20094, 0.70828, 1.89860 & + , 3.34780, 3.10740, 2.40100, 2.34250, 2.18720, 2.15740 & + , 2.11290, 2.08090, 2.05860, 2.04270, 2.03000/ DATA(qext(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% - /0.00156, 0.00322, 0.01150, 0.06079, 0.26694, 0.96671 & - ,2.35780, 3.52060, 2.77450, 2.37700, 2.31220, 2.19790 & - ,2.15500, 2.11260, 2.08080, 2.05910, 2.04360/ + / 0.00094, 0.00790, 0.05687, 0.27466, 0.91940, 2.27830 & + , 3.51960, 2.77250, 2.32350, 2.31360, 2.20490, 2.13130 & + , 2.09910, 2.07630, 2.05460, 2.03850, 2.02740/ DATA(qext(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% - /0.00150, 0.00323, 0.01343, 0.07997, 0.34651, 1.20200 & - ,2.70630, 3.51110, 2.55470, 2.24690, 2.28820, 2.19750 & - ,2.12670, 2.09840, 2.07060, 2.05250, 2.03840/ + / 0.00138, 0.01347, 0.10048, 0.46808, 1.40640, 2.96310 & + , 3.40340, 2.42910, 2.25600, 2.21130, 2.14870, 2.11730 & + , 2.08700, 2.06300, 2.04550, 2.03180, 2.01970/ DATA(qext(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% - /0.00551, 0.01885, 0.08808, 0.39024, 1.29860, 2.89670 & - ,3.70940, 2.63090, 2.41080, 2.25560, 2.20910, 2.15790 & - ,2.11870, 2.08870, 2.06480, 2.04770, 2.03510/ + / 0.00380, 0.02378, 0.12766, 0.52465, 1.52200, 3.05850 & + , 3.54690, 2.43980, 2.39540, 2.20440, 2.19480, 2.12910 & + , 2.09410, 2.07630, 2.05230, 2.03650, 2.02610/ DATA(qext(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% - /0.00551, 0.01891, 0.08848, 0.39154, 1.30010, 2.89550 & - ,3.70770, 2.63050, 2.41050, 2.25380, 2.20850, 2.15760 & - ,2.11860, 2.08850, 2.06470, 2.04760, 2.03500/ + / 0.00391, 0.02440, 0.13047, 0.53312, 1.53760, 3.07170 & + , 3.53820, 2.42730, 2.39430, 2.19750, 2.19920, 2.13160 & + , 2.09740, 2.07660, 2.05020, 2.03670, 2.02550/ DATA(qext(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% - /0.00551, 0.01898, 0.08893, 0.39298, 1.30180, 2.89420 & - ,3.70590, 2.62920, 2.41030, 2.25390, 2.20810, 2.15700 & - ,2.11840, 2.08830, 2.06460, 2.04750, 2.03500/ + / 0.00401, 0.02509, 0.13354, 0.54239, 1.55460, 3.08630 & + , 3.52830, 2.41610, 2.39450, 2.20910, 2.19270, 2.13770 & + , 2.09600, 2.06980, 2.05380, 2.04010, 2.02570/ DATA(qext(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% - /0.00551, 0.01905, 0.08943, 0.39457, 1.30380, 2.89300 & - ,3.70390, 2.62760, 2.40910, 2.25360, 2.20740, 2.15680 & - ,2.11800, 2.08810, 2.06440, 2.04740, 2.03490/ + / 0.00413, 0.02585, 0.13693, 0.55257, 1.57340, 3.10260 & + , 3.51680, 2.40150, 2.39370, 2.21000, 2.19240, 2.13450 & + , 2.09480, 2.07560, 2.05320, 2.03730, 2.02530/ DATA(qext(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% - /0.00551, 0.01914, 0.08998, 0.39636, 1.30600, 2.89170 & - ,3.70190, 2.62610, 2.40740, 2.25150, 2.20660, 2.15630 & - ,2.11750, 2.08800, 2.06420, 2.04730, 2.03480/ + / 0.00426, 0.02669, 0.14068, 0.56384, 1.59430, 3.12030 & + , 3.50320, 2.38940, 2.39040, 2.21310, 2.20050, 2.13800 & + , 2.10330, 2.07170, 2.05110, 2.03750, 2.02550/ DATA(qext(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% - /0.00551, 0.01923, 0.09060, 0.39837, 1.30850, 2.89040 & - ,3.70000, 2.62440, 2.40800, 2.25050, 2.20620, 2.15550 & - ,2.11720, 2.08760, 2.06400, 2.04710, 2.03460/ + / 0.00440, 0.02764, 0.14486, 0.57641, 1.61750, 3.13970 & + , 3.48780, 2.37570, 2.39410, 2.20880, 2.20150, 2.13440 & + , 2.09920, 2.06930, 2.05110, 2.03550, 2.02350/ DATA(qext(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% - /0.00551, 0.01933, 0.09131, 0.40064, 1.31150, 2.88920 & - ,3.69760, 2.62270, 2.40740, 2.24890, 2.20580, 2.15510 & - ,2.11670, 2.08730, 2.06370, 2.04690, 2.03450/ + / 0.00456, 0.02870, 0.14956, 0.59054, 1.64350, 3.16050 & + , 3.47130, 2.36060, 2.39440, 2.21970, 2.19750, 2.13040 & + , 2.09770, 2.06650, 2.05100, 2.03830, 2.02370/ DATA(qext(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% - /0.00551, 0.01945, 0.09211, 0.40325, 1.31500, 2.88800 & - ,3.69400, 2.61990, 2.40630, 2.24880, 2.20490, 2.15420 & - ,2.11610, 2.08680, 2.06340, 2.04670, 2.03430/ + / 0.00474, 0.02992, 0.15490, 0.60661, 1.67280, 3.18300 & + , 3.45240, 2.34370, 2.39860, 2.21830, 2.20080, 2.13920 & + , 2.09390, 2.06500, 2.05000, 2.03660, 2.02380/ DATA(qext(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% - /0.00551, 0.01959, 0.09302, 0.40626, 1.31910, 2.88700 & - ,3.68970, 2.61740, 2.40600, 2.24650, 2.20380, 2.15380 & - ,2.11560, 2.08660, 2.06310, 2.04650, 2.03420/ + / 0.00495, 0.03131, 0.16102, 0.62509, 1.70620, 3.20750 & + , 3.43030, 2.32310, 2.39800, 2.22000, 2.19350, 2.13120 & + , 2.09140, 2.07120, 2.04770, 2.03450, 2.02320/ DATA(qext(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% - /0.00551, 0.01975, 0.09409, 0.40979, 1.32400, 2.88630 & - ,3.68580, 2.61230, 2.40590, 2.24480, 2.20240, 2.15230 & - ,2.11490, 2.08610, 2.06270, 2.04620, 2.03400/ + / 0.00519, 0.03294, 0.16814, 0.64667, 1.74460, 3.23450 & + , 3.40460, 2.29920, 2.39990, 2.23010, 2.18150, 2.13690 & + , 2.08880, 2.06530, 2.04750, 2.03460, 2.02300/ DATA(qext(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% - /0.00551, 0.01993, 0.09535, 0.41396, 1.32990, 2.88600 & - ,3.68140, 2.60580, 2.40550, 2.24300, 2.20110, 2.15100 & - ,2.11390, 2.08550, 2.06240, 2.04590, 2.03380/ + / 0.00547, 0.03486, 0.17656, 0.67227, 1.78930, 3.26520 & + , 3.37210, 2.27500, 2.40140, 2.23280, 2.18590, 2.13280 & + , 2.09000, 2.06900, 2.04800, 2.03370, 2.02150/ DATA(qext(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% - /0.00551, 0.02015, 0.09686, 0.41900, 1.33730, 2.88670 & - ,3.67640, 2.59860, 2.40280, 2.24230, 2.20020, 2.15010 & - ,2.11310, 2.08490, 2.06180, 2.04550, 2.03350/ + / 0.00581, 0.03718, 0.18671, 0.70319, 1.84230, 3.30060 & + , 3.32810, 2.25370, 2.39380, 2.24220, 2.17810, 2.11870 & + , 2.08930, 2.06380, 2.04640, 2.03340, 2.02180/ DATA(qext(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% - /0.00552, 0.02042, 0.09869, 0.42519, 1.34650, 2.88870 & - ,3.67070, 2.58810, 2.39860, 2.23810, 2.19920, 2.14890 & - ,2.11150, 2.08400, 2.06120, 2.04510, 2.03320/ + / 0.00623, 0.04004, 0.19923, 0.74133, 1.90610, 3.34050 & + , 3.27340, 2.23570, 2.39620, 2.24860, 2.16670, 2.11360 & + , 2.08780, 2.06180, 2.04560, 2.03240, 2.02090/ DATA(qext(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% - /0.00552, 0.02076, 0.10097, 0.43299, 1.35840, 2.89280 & - ,3.66370, 2.57630, 2.39500, 2.23540, 2.19610, 2.14750 & - ,2.11050, 2.08340, 2.06040, 2.04460, 2.03280/ + / 0.00674, 0.04366, 0.21512, 0.78938, 1.98420, 3.38530 & + , 3.21630, 2.20870, 2.39290, 2.24580, 2.15810, 2.10800 & + , 2.08570, 2.06170, 2.04450, 2.03170, 2.01820/ DATA(qext(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% - /0.00554, 0.02118, 0.10388, 0.44312, 1.37410, 2.90010 & - ,3.65460, 2.55910, 2.39170, 2.23010, 2.19550, 2.14500 & - ,2.10840, 2.08210, 2.05950, 2.04390, 2.03230/ + / 0.00741, 0.04839, 0.23599, 0.85138, 2.08130, 3.43700 & + , 3.13090, 2.19610, 2.38270, 2.24940, 2.14270, 2.11470 & + , 2.08570, 2.05900, 2.04290, 2.02980, 2.01730/ DATA(qext(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% - /0.00555, 0.02174, 0.10775, 0.45682, 1.39590, 2.91340 & - ,3.64110, 2.53880, 2.39300, 2.22590, 2.19220, 2.14330 & - ,2.10700, 2.08030, 2.05830, 2.04300, 2.03160/ + / 0.00831, 0.05484, 0.26458, 0.93364, 2.20610, 3.49060 & + , 3.01700, 2.19370, 2.35740, 2.23330, 2.13230, 2.11460 & + , 2.08050, 2.05880, 2.04130, 2.02950, 2.01640/ DATA(qext(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% - /0.00558, 0.02250, 0.11313, 0.47637, 1.42780, 2.93820 & - ,3.61530, 2.51250, 2.39590, 2.21830, 2.19110, 2.14040 & - ,2.10350, 2.07690, 2.05710, 2.04190, 2.03080/ + / 0.00958, 0.06413, 0.30577, 1.04760, 2.37580, 3.54390 & + , 2.86490, 2.22020, 2.30260, 2.19730, 2.14710, 2.10040 & + , 2.07160, 2.05450, 2.03930, 2.02640, 2.01320/ DATA(qext(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% - /0.00562, 0.02360, 0.12118, 0.50645, 1.48020, 2.98580 & - ,3.57030, 2.45720, 2.39760, 2.21380, 2.19370, 2.13760 & - ,2.09990, 2.07450, 2.05490, 2.04030, 2.02960/ + / 0.01152, 0.07852, 0.36898, 1.21830, 2.61230, 3.55660 & + , 2.65080, 2.28380, 2.21140, 2.15770, 2.13710, 2.10120 & + , 2.06750, 2.05040, 2.03600, 2.02490, 2.01130/ DATA(qext(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% - /0.00569, 0.02534, 0.13461, 0.55830, 1.58210, 3.08140 & - ,3.49730, 2.36320, 2.40250, 2.21830, 2.19310, 2.13570 & - ,2.09610, 2.06970, 2.05130, 2.03780, 2.02780/ + / 0.01481, 0.10356, 0.47826, 1.50800, 2.95860, 3.46980 & + , 2.37300, 2.36310, 2.19460, 2.17800, 2.12050, 2.09160 & + , 2.06530, 2.04620, 2.03300, 2.02110, 2.00650/ DATA(qext(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% - /0.00582, 0.02851, 0.16184, 0.66856, 1.82450, 3.29450 & - ,3.25540, 2.21460, 2.38670, 2.24740, 2.15090, 2.11170 & - ,2.08330, 2.06190, 2.04540, 2.03320, 2.02430/ + / 0.02152, 0.15804, 0.72090, 2.06640, 3.41330, 3.02450 & + , 2.18440, 2.33350, 2.21490, 2.13210, 2.10390, 2.07600 & + , 2.05410, 2.03850, 2.02670, 2.01270, 1.99470/ DATA(qext(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% - /0.00254, 0.00407, 0.00650, 0.01036, 0.01535, 0.02445 & - ,0.03903, 0.06275, 0.10298, 0.17894, 0.35874, 0.90169 & - ,2.24330, 3.18390, 2.89810, 2.58850, 2.44120/ + / 0.00371, 0.00604, 0.00974, 0.01560, 0.02351, 0.03755 & + , 0.06009, 0.09697, 0.16031, 0.28213, 0.56198, 1.20610 & + , 2.15550, 2.80300, 2.70990, 2.47520, 2.35740/ DATA(qext(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% - /0.00256, 0.00410, 0.00654, 0.01044, 0.01547, 0.02465 & - ,0.03935, 0.06328, 0.10386, 0.18051, 0.36192, 0.90814 & - ,2.24520, 3.17780, 2.89510, 2.58700, 2.44020/ + / 0.00379, 0.00615, 0.00992, 0.01591, 0.02399, 0.03833 & + , 0.06136, 0.09905, 0.16388, 0.28886, 0.57604, 1.22980 & + , 2.17360, 2.80180, 2.70080, 2.47170, 2.35470/ DATA(qext(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% - /0.00257, 0.00412, 0.00659, 0.01052, 0.01561, 0.02487 & - ,0.03971, 0.06386, 0.10483, 0.18224, 0.36544, 0.91524 & - ,2.24730, 3.17110, 2.89170, 2.58540, 2.43900/ + / 0.00386, 0.00627, 0.01012, 0.01623, 0.02451, 0.03917 & + , 0.06271, 0.10128, 0.16772, 0.29612, 0.59121, 1.25500 & + , 2.19260, 2.80040, 2.69130, 2.46790, 2.35180/ DATA(qext(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% - /0.00259, 0.00416, 0.00665, 0.01061, 0.01575, 0.02511 & - ,0.04010, 0.06450, 0.10590, 0.18416, 0.36934, 0.92309 & - ,2.24960, 3.16390, 2.88800, 2.58360, 2.43780/ + / 0.00393, 0.00640, 0.01033, 0.01657, 0.02507, 0.04007 & + , 0.06417, 0.10368, 0.17185, 0.30398, 0.60764, 1.28190 & + , 2.21280, 2.79890, 2.68150, 2.46380, 2.34880/ DATA(qext(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% - /0.00261, 0.00419, 0.00671, 0.01071, 0.01592, 0.02538 & - ,0.04054, 0.06521, 0.10710, 0.18630, 0.37370, 0.93181 & - ,2.25200, 3.15600, 2.88390, 2.58160, 2.43630/ + / 0.00401, 0.00653, 0.01055, 0.01694, 0.02567, 0.04104 & + , 0.06574, 0.10628, 0.17633, 0.31253, 0.62553, 1.31080 & + , 2.23410, 2.79710, 2.67120, 2.45960, 2.34550/ DATA(qext(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% - /0.00263, 0.00423, 0.00677, 0.01082, 0.01610, 0.02568 & - ,0.04103, 0.06601, 0.10843, 0.18870, 0.37859, 0.94156 & - ,2.25480, 3.14750, 2.87940, 2.57940, 2.43480/ + / 0.00409, 0.00668, 0.01080, 0.01734, 0.02632, 0.04209 & + , 0.06745, 0.10909, 0.18122, 0.32191, 0.64512, 1.34190 & + , 2.25670, 2.79510, 2.66040, 2.45500, 2.34210/ DATA(qext(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% - /0.00265, 0.00427, 0.00685, 0.01095, 0.01631, 0.02602 & - ,0.04158, 0.06691, 0.10994, 0.19140, 0.38412, 0.95255 & - ,2.25780, 3.13810, 2.87430, 2.57700, 2.43300/ + / 0.00418, 0.00683, 0.01106, 0.01778, 0.02703, 0.04324 & + , 0.06932, 0.11218, 0.18658, 0.33227, 0.66674, 1.37560 & + , 2.28070, 2.79270, 2.64900, 2.45000, 2.33840/ DATA(qext(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% - /0.00267, 0.00431, 0.00693, 0.01109, 0.01654, 0.02640 & - ,0.04220, 0.06794, 0.11166, 0.19449, 0.39043, 0.96501 & - ,2.26130, 3.12790, 2.86860, 2.57420, 2.43100/ + / 0.00428, 0.00700, 0.01135, 0.01826, 0.02781, 0.04450 & + , 0.07137, 0.11558, 0.19253, 0.34381, 0.69078, 1.41220 & + , 2.30620, 2.79000, 2.63720, 2.44470, 2.33440/ DATA(qext(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% - /0.00270, 0.00436, 0.00702, 0.01125, 0.01681, 0.02684 & - ,0.04292, 0.06911, 0.11363, 0.19804, 0.39770, 0.97927 & - ,2.26520, 3.11660, 2.86210, 2.57110, 2.42870/ + / 0.00438, 0.00719, 0.01167, 0.01879, 0.02867, 0.04590 & + , 0.07365, 0.11937, 0.19917, 0.35680, 0.71778, 1.45240 & + , 2.33350, 2.78670, 2.62460, 2.43900, 2.33010/ DATA(qext(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% - /0.00273, 0.00442, 0.00713, 0.01143, 0.01711, 0.02734 & - ,0.04375, 0.07046, 0.11591, 0.20216, 0.40616, 0.99575 & - ,2.26960, 3.10410, 2.85470, 2.56750, 2.42600/ + / 0.00450, 0.00740, 0.01202, 0.01939, 0.02963, 0.04747 & + , 0.07621, 0.12364, 0.20670, 0.37161, 0.74843, 1.49670 & + , 2.36260, 2.78250, 2.61140, 2.43260, 2.32540/ DATA(qext(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% - /0.00276, 0.00449, 0.00725, 0.01164, 0.01747, 0.02793 & - ,0.04471, 0.07205, 0.11859, 0.20701, 0.41614, 1.01500 & - ,2.27490, 3.09030, 2.84620, 2.56340, 2.42290/ + / 0.00463, 0.00763, 0.01243, 0.02006, 0.03072, 0.04925 & + , 0.07913, 0.12851, 0.21533, 0.38873, 0.78368, 1.54610 & + , 2.39380, 2.77710, 2.59720, 2.42570, 2.32020/ DATA(qext(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% - /0.00280, 0.00457, 0.00739, 0.01189, 0.01789, 0.02863 & - ,0.04586, 0.07394, 0.12178, 0.21280, 0.42809, 1.03790 & - ,2.28110, 3.07500, 2.83630, 2.55850, 2.41930/ + / 0.00478, 0.00790, 0.01288, 0.02083, 0.03198, 0.05130 & + , 0.08249, 0.13415, 0.22539, 0.40889, 0.82481, 1.60160 & + , 2.42730, 2.76980, 2.58180, 2.41790, 2.31450/ DATA(qext(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% - /0.00285, 0.00465, 0.00756, 0.01219, 0.01839, 0.02947 & - ,0.04724, 0.07622, 0.12565, 0.21985, 0.44269, 1.06540 & - ,2.28870, 3.05790, 2.82450, 2.55260, 2.41490/ + / 0.00494, 0.00820, 0.01342, 0.02172, 0.03345, 0.05371 & + , 0.08644, 0.14081, 0.23737, 0.43310, 0.87365, 1.66470 & + , 2.46360, 2.76010, 2.56510, 2.40910, 2.30790/ DATA(qext(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% - /0.00290, 0.00476, 0.00776, 0.01255, 0.01901, 0.03050 & - ,0.04894, 0.07904, 0.13044, 0.22862, 0.46091, 1.09920 & - ,2.29840, 3.03870, 2.81020, 2.54540, 2.40960/ + / 0.00513, 0.00856, 0.01404, 0.02279, 0.03520, 0.05659 & + , 0.09119, 0.14883, 0.25195, 0.46292, 0.93280, 1.73730 & + , 2.50320, 2.74740, 2.54650, 2.39910, 2.30050/ DATA(qext(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% - /0.00296, 0.00489, 0.00801, 0.01300, 0.01978, 0.03179 & - ,0.05109, 0.08261, 0.13653, 0.23985, 0.48434, 1.14180 & - ,2.31120, 3.01700, 2.79240, 2.53650, 2.40290/ + / 0.00536, 0.00899, 0.01481, 0.02410, 0.03734, 0.06011 & + , 0.09702, 0.15878, 0.27025, 0.50078, 1.00610, 1.82200 & + , 2.54670, 2.73060, 2.52590, 2.38750, 2.29180/ DATA(qext(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% - /0.00303, 0.00504, 0.00832, 0.01357, 0.02077, 0.03348 & - ,0.05390, 0.08730, 0.14457, 0.25478, 0.51567, 1.19720 & - ,2.32910, 2.99200, 2.76940, 2.52510, 2.39430/ + / 0.00563, 0.00951, 0.01576, 0.02573, 0.04004, 0.06458 & + , 0.10445, 0.17153, 0.29408, 0.55070, 1.09940, 1.92280 & + , 2.59380, 2.70790, 2.50280, 2.37380, 2.28150/ DATA(qext(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% - /0.00312, 0.00524, 0.00872, 0.01434, 0.02211, 0.03578 & - ,0.05775, 0.09375, 0.15572, 0.27574, 0.55989, 1.27230 & - ,2.35630, 2.96150, 2.73870, 2.50990, 2.38290/ + / 0.00597, 0.01019, 0.01699, 0.02788, 0.04358, 0.07047 & + , 0.11431, 0.18867, 0.32675, 0.61987, 1.22220, 2.04570 & + , 2.64200, 2.67610, 2.47670, 2.35730, 2.26910/ DATA(qext(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% - /0.00323, 0.00551, 0.00928, 0.01541, 0.02404, 0.03911 & - ,0.06340, 0.10331, 0.17240, 0.30764, 0.62751, 1.38080 & - ,2.40100, 2.92120, 2.69690, 2.48850, 2.36690/ + / 0.00642, 0.01110, 0.01868, 0.03084, 0.04855, 0.07880 & + , 0.12839, 0.21359, 0.37563, 0.72384, 1.39280, 2.20050 & + , 2.68500, 2.63040, 2.44600, 2.33640, 2.25330/ DATA(qext(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% - /0.00337, 0.00587, 0.01010, 0.01708, 0.02710, 0.04453 & - ,0.07271, 0.11925, 0.20078, 0.36342, 0.74568, 1.55280 & - ,2.47950, 2.86420, 2.63600, 2.45590, 2.34270/ + / 0.00704, 0.01242, 0.02124, 0.03545, 0.05630, 0.09194 & + , 0.15093, 0.25461, 0.45926, 0.89825, 1.64410, 2.39340 & + , 2.70740, 2.56430, 2.40790, 2.30840, 2.23210/ DATA(qext(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% - /0.00357, 0.00644, 0.01151, 0.02016, 0.03309, 0.05554 & - ,0.09218, 0.15362, 0.26458, 0.49546, 1.01500, 1.87470 & - ,2.61310, 2.76300, 2.53870, 2.39880, 2.30010/ + / 0.00800, 0.01467, 0.02584, 0.04412, 0.07141, 0.11840 & + , 0.19813, 0.34574, 0.65501, 1.26650, 2.06340, 2.62200 & + , 2.65390, 2.46840, 2.35130, 2.26500, 2.19920/ DATA(qext(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% - /0.00242, 0.00394, 0.00635, 0.01020, 0.01324, 0.02120 & - ,0.03410, 0.05576, 0.09577, 0.18722, 0.45630, 1.20090 & - ,2.49710, 3.34910, 2.66470, 2.46510, 2.32040/ + / 0.00662, 0.01083, 0.01749, 0.02809, 0.04193, 0.06717 & + , 0.10817, 0.17717, 0.30271, 0.55931, 1.07340, 1.84510 & + , 2.52640, 2.67300, 2.44090, 2.33010, 2.24740/ DATA(qext(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% - /0.00246, 0.00401, 0.00647, 0.01040, 0.01357, 0.02174 & - ,0.03498, 0.05718, 0.09817, 0.19146, 0.46379, 1.20960 & - ,2.49280, 3.33110, 2.66380, 2.46090, 2.31910/ + / 0.00678, 0.01106, 0.01788, 0.02874, 0.04296, 0.06885 & + , 0.11090, 0.18168, 0.31045, 0.57266, 1.09100, 1.85480 & + , 2.51940, 2.65780, 2.43530, 2.32630, 2.24480/ DATA(qext(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% - /0.00250, 0.00408, 0.00660, 0.01062, 0.01393, 0.02233 & - ,0.03594, 0.05875, 0.10080, 0.19614, 0.47202, 1.21900 & - ,2.48820, 3.31180, 2.66260, 2.45650, 2.31770/ + / 0.00692, 0.01131, 0.01830, 0.02942, 0.04407, 0.07064 & + , 0.11382, 0.18651, 0.31876, 0.58695, 1.10960, 1.86520 & + , 2.51240, 2.64240, 2.42940, 2.32230, 2.24220/ DATA(qext(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% - /0.00255, 0.00416, 0.00675, 0.01086, 0.01433, 0.02298 & - ,0.03700, 0.06049, 0.10372, 0.20131, 0.48109, 1.22930 & - ,2.48340, 3.29090, 2.66090, 2.45200, 2.31630/ + / 0.00708, 0.01158, 0.01875, 0.03016, 0.04526, 0.07257 & + , 0.11695, 0.19171, 0.32770, 0.60228, 1.12930, 1.87630 & + , 2.50530, 2.62670, 2.42320, 2.31810, 2.23940/ DATA(qext(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% - /0.00260, 0.00425, 0.00691, 0.01113, 0.01477, 0.02370 & - ,0.03817, 0.06242, 0.10696, 0.20705, 0.49114, 1.24070 & - ,2.47820, 3.26840, 2.65870, 2.44730, 2.31480/ + / 0.00724, 0.01187, 0.01923, 0.03095, 0.04655, 0.07465 & + , 0.12034, 0.19734, 0.33739, 0.61881, 1.15040, 1.88820 & + , 2.49820, 2.61070, 2.41670, 2.31370, 2.23640/ DATA(qext(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% - /0.00265, 0.00435, 0.00708, 0.01143, 0.01526, 0.02451 & - ,0.03948, 0.06457, 0.11059, 0.21348, 0.50236, 1.25320 & - ,2.47260, 3.24390, 2.65590, 2.44240, 2.31310/ + / 0.00742, 0.01218, 0.01976, 0.03181, 0.04794, 0.07691 & + , 0.12402, 0.20346, 0.34793, 0.63673, 1.17300, 1.90110 & + , 2.49110, 2.59430, 2.40980, 2.30910, 2.23330/ DATA(qext(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% - /0.00271, 0.00446, 0.00727, 0.01176, 0.01581, 0.02541 & - ,0.04096, 0.06700, 0.11468, 0.22073, 0.51494, 1.26710 & - ,2.46670, 3.21730, 2.65230, 2.43720, 2.31130/ + / 0.00762, 0.01252, 0.02032, 0.03275, 0.04946, 0.07937 & + , 0.12804, 0.21015, 0.35948, 0.65626, 1.19730, 1.91500 & + , 2.48400, 2.57760, 2.40250, 2.30420, 2.23000/ DATA(qext(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% - /0.00277, 0.00458, 0.00749, 0.01213, 0.01643, 0.02644 & - ,0.04264, 0.06975, 0.11932, 0.22895, 0.52915, 1.28270 & - ,2.46030, 3.18810, 2.64780, 2.43180, 2.30920/ + / 0.00782, 0.01288, 0.02094, 0.03378, 0.05112, 0.08208 & + , 0.13247, 0.21754, 0.37223, 0.67771, 1.22360, 1.93010 & + , 2.47690, 2.56030, 2.39470, 2.29910, 2.22650/ DATA(qext(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% - /0.00284, 0.00472, 0.00774, 0.01256, 0.01714, 0.02761 & - ,0.04455, 0.07289, 0.12463, 0.23837, 0.54535, 1.30010 & - ,2.45340, 3.15620, 2.64210, 2.42610, 2.30690/ + / 0.00805, 0.01328, 0.02163, 0.03492, 0.05297, 0.08509 & + , 0.13740, 0.22576, 0.38644, 0.70147, 1.25230, 1.94680 & + , 2.46990, 2.54240, 2.38640, 2.29360, 2.22270/ DATA(qext(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% - /0.00292, 0.00488, 0.00802, 0.01305, 0.01796, 0.02895 & - ,0.04676, 0.07653, 0.13077, 0.24926, 0.56397, 1.31990 & - ,2.44600, 3.12090, 2.63500, 2.42000, 2.30430/ + / 0.00830, 0.01373, 0.02239, 0.03619, 0.05504, 0.08846 & + , 0.14292, 0.23501, 0.40246, 0.72802, 1.28380, 1.96510 & + , 2.46310, 2.52390, 2.37750, 2.28770, 2.21870/ DATA(qext(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% - /0.00301, 0.00505, 0.00834, 0.01361, 0.01891, 0.03052 & - ,0.04933, 0.08078, 0.13796, 0.26200, 0.58561, 1.34250 & - ,2.43800, 3.08180, 2.62620, 2.41350, 2.30130/ + / 0.00858, 0.01423, 0.02325, 0.03762, 0.05738, 0.09229 & + , 0.14920, 0.24554, 0.42073, 0.75803, 1.31890, 1.98560 & + , 2.45640, 2.50480, 2.36810, 2.28140, 2.21430/ DATA(qext(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% - /0.00311, 0.00526, 0.00872, 0.01427, 0.02002, 0.03238 & - ,0.05238, 0.08581, 0.14649, 0.27713, 0.61107, 1.36850 & - ,2.42950, 3.03820, 2.61510, 2.40630, 2.29760/ + / 0.00889, 0.01479, 0.02422, 0.03926, 0.06007, 0.09669 & + , 0.15645, 0.25773, 0.44189, 0.79237, 1.35820, 2.00850 & + , 2.45000, 2.48510, 2.35790, 2.27460, 2.20940/ DATA(qext(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% - /0.00323, 0.00549, 0.00916, 0.01505, 0.02135, 0.03460 & - ,0.05604, 0.09188, 0.15678, 0.29537, 0.64147, 1.39880 & - ,2.42040, 2.98930, 2.60130, 2.39830, 2.29320/ + / 0.00925, 0.01544, 0.02536, 0.04118, 0.06320, 0.10184 & + , 0.16495, 0.27207, 0.46682, 0.83228, 1.40300, 2.03460 & + , 2.44350, 2.46470, 2.34690, 2.26710, 2.20410/ DATA(qext(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% - /0.00337, 0.00577, 0.00969, 0.01600, 0.02297, 0.03731 & - ,0.06053, 0.09933, 0.16944, 0.31784, 0.67841, 1.43460 & - ,2.41080, 2.93430, 2.58380, 2.38920, 2.28780/ + / 0.00965, 0.01620, 0.02670, 0.04345, 0.06694, 0.10799 & + , 0.17512, 0.28932, 0.49682, 0.87942, 1.45450, 2.06430 & + , 2.43700, 2.44340, 2.33500, 2.25880, 2.19820/ DATA(qext(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% - /0.00352, 0.00610, 0.01033, 0.01716, 0.02499, 0.04071 & - ,0.06618, 0.10872, 0.18545, 0.34620, 0.72430, 1.47770 & - ,2.40100, 2.87210, 2.56160, 2.37850, 2.28100/ + / 0.01013, 0.01711, 0.02831, 0.04622, 0.07149, 0.11551 & + , 0.18762, 0.31058, 0.53384, 0.93622, 1.51500, 2.09880 & + , 2.42980, 2.42090, 2.32200, 2.24960, 2.19150/ DATA(qext(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% - /0.00371, 0.00651, 0.01114, 0.01865, 0.02759, 0.04510 & - ,0.07350, 0.12094, 0.20636, 0.38324, 0.78291, 1.53050 & - ,2.39160, 2.80170, 2.53300, 2.36540, 2.27230/ + / 0.01072, 0.01823, 0.03033, 0.04968, 0.07722, 0.12500 & + , 0.20345, 0.33768, 0.58094, 1.00630, 1.58700, 2.13900 & + , 2.42190, 2.39730, 2.30770, 2.23930, 2.18390/ DATA(qext(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% - /0.00394, 0.00703, 0.01219, 0.02061, 0.03105, 0.05102 & - ,0.08342, 0.13760, 0.23498, 0.43381, 0.86060, 1.59740 & - ,2.38360, 2.72230, 2.49650, 2.34870, 2.26100/ + / 0.01144, 0.01966, 0.03293, 0.05419, 0.08470, 0.13746 & + , 0.22437, 0.37374, 0.64333, 1.09530, 1.67470, 2.18590 & + , 2.41250, 2.37250, 2.29170, 2.22740, 2.17500/ DATA(qext(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% - /0.00423, 0.00771, 0.01361, 0.02334, 0.03596, 0.05950 & - ,0.09777, 0.16184, 0.27693, 0.50762, 0.96915, 1.68600 & - ,2.37880, 2.63290, 2.45060, 2.32640, 2.24580/ + / 0.01238, 0.02157, 0.03647, 0.06039, 0.09511, 0.15496 & + , 0.25404, 0.42543, 0.73173, 1.21460, 1.78580, 2.24010 & + , 2.39980, 2.34550, 2.27320, 2.21320, 2.16410/ DATA(qext(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% - /0.00460, 0.00864, 0.01569, 0.02749, 0.04362, 0.07297 & - ,0.12084, 0.20129, 0.34589, 0.62753, 1.13410, 1.81250 & - ,2.37980, 2.53210, 2.39340, 2.29560, 2.22470/ + / 0.01368, 0.02433, 0.04179, 0.06996, 0.11123, 0.18237 & + , 0.30113, 0.50833, 0.86910, 1.38640, 1.93270, 2.30080 & + , 2.37900, 2.31510, 2.25030, 2.19530, 2.15020/ DATA(qext(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% - /0.00511, 0.01006, 0.01915, 0.03493, 0.05805, 0.09927 & - ,0.16713, 0.28246, 0.49044, 0.86851, 1.42940, 2.02170 & - ,2.39120, 2.41690, 2.32250, 2.25050, 2.19270/ + / 0.01569, 0.02899, 0.05126, 0.08778, 0.14237, 0.23705 & + , 0.39812, 0.68081, 1.13100, 1.67790, 2.14450, 2.35560 & + , 2.33920, 2.27490, 2.21730, 2.16870, 2.12920/ DATA(qext(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% - /0.00499, 0.00790, 0.01251, 0.01984, 0.03252, 0.05194 & - ,0.08390, 0.13958, 0.24905, 0.49482, 0.98441, 1.69740 & - ,2.35350, 2.59790, 2.44710, 2.28060, 2.21050/ + / 0.01346, 0.02088, 0.03271, 0.05151, 0.08608, 0.13671 & + , 0.21852, 0.35207, 0.56488, 0.86102, 1.23390, 1.64360 & + , 2.01200, 2.22170, 2.21970, 2.17010, 2.13690/ DATA(qext(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% - /0.00498, 0.00787, 0.01247, 0.01978, 0.03242, 0.05176 & - ,0.08362, 0.13916, 0.24846, 0.49408, 0.98344, 1.69790 & - ,2.35730, 2.60170, 2.44690, 2.28000, 2.21020/ + / 0.01322, 0.02053, 0.03213, 0.05058, 0.08447, 0.13415 & + , 0.21451, 0.34601, 0.55666, 0.85245, 1.22920, 1.64620 & + , 2.02210, 2.23150, 2.22150, 2.17070, 2.13690/ DATA(qext(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% - /0.00497, 0.00785, 0.01243, 0.01971, 0.03230, 0.05158 & - ,0.08332, 0.13870, 0.24782, 0.49327, 0.98243, 1.69860 & - ,2.36140, 2.60580, 2.44650, 2.27940, 2.20980/ + / 0.01300, 0.02017, 0.03154, 0.04963, 0.08280, 0.13151 & + , 0.21037, 0.33977, 0.54824, 0.84378, 1.22480, 1.64990 & + , 2.03380, 2.24210, 2.22330, 2.17150, 2.13690/ DATA(qext(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% - /0.00495, 0.00783, 0.01239, 0.01964, 0.03217, 0.05137 & - ,0.08299, 0.13819, 0.24713, 0.49240, 0.98136, 1.69950 & - ,2.36610, 2.61030, 2.44600, 2.27870, 2.20940/ + / 0.01277, 0.01979, 0.03093, 0.04864, 0.08107, 0.12877 & + , 0.20608, 0.33334, 0.53961, 0.83504, 1.22080, 1.65470 & + , 2.04740, 2.25380, 2.22500, 2.17250, 2.13700/ DATA(qext(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% - /0.00494, 0.00780, 0.01234, 0.01956, 0.03203, 0.05114 & - ,0.08263, 0.13764, 0.24637, 0.49147, 0.98025, 1.70050 & - ,2.37140, 2.61540, 2.44530, 2.27800, 2.20900/ + / 0.01253, 0.01940, 0.03029, 0.04762, 0.07928, 0.12593 & + , 0.20164, 0.32668, 0.53076, 0.82625, 1.21740, 1.66110 & + , 2.06310, 2.26650, 2.22650, 2.17360, 2.13710/ DATA(qext(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% - /0.00492, 0.00777, 0.01229, 0.01947, 0.03188, 0.05089 & - ,0.08223, 0.13703, 0.24554, 0.49046, 0.97909, 1.70170 & - ,2.37740, 2.62090, 2.44440, 2.27720, 2.20850/ + / 0.01229, 0.01899, 0.02963, 0.04656, 0.07742, 0.12297 & + , 0.19703, 0.31980, 0.52170, 0.81744, 1.21470, 1.66940 & + , 2.08140, 2.28030, 2.22780, 2.17480, 2.13720/ DATA(qext(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% - /0.00490, 0.00774, 0.01223, 0.01937, 0.03170, 0.05061 & - ,0.08179, 0.13635, 0.24462, 0.48937, 0.97790, 1.70320 & - ,2.38420, 2.62710, 2.44330, 2.27630, 2.20790/ + / 0.01203, 0.01857, 0.02895, 0.04544, 0.07548, 0.11990 & + , 0.19223, 0.31267, 0.51240, 0.80868, 1.21300, 1.67990 & + , 2.10270, 2.29530, 2.22890, 2.17620, 2.13740/ DATA(qext(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% - /0.00488, 0.00770, 0.01217, 0.01926, 0.03151, 0.05030 & - ,0.08129, 0.13560, 0.24361, 0.48818, 0.97670, 1.70520 & - ,2.39210, 2.63410, 2.44180, 2.27530, 2.20730/ + / 0.01177, 0.01813, 0.02822, 0.04428, 0.07345, 0.11668 & + , 0.18722, 0.30526, 0.50288, 0.80004, 1.21240, 1.69340 & + , 2.12760, 2.31170, 2.22980, 2.17770, 2.13760/ DATA(qext(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% - /0.00486, 0.00766, 0.01209, 0.01914, 0.03130, 0.04995 & - ,0.08073, 0.13475, 0.24248, 0.48691, 0.97551, 1.70760 & - ,2.40130, 2.64190, 2.43990, 2.27430, 2.20650/ + / 0.01149, 0.01767, 0.02747, 0.04306, 0.07132, 0.11330 & + , 0.18198, 0.29754, 0.49313, 0.79166, 1.21340, 1.71050 & + , 2.15680, 2.32910, 2.23030, 2.17920, 2.13770/ DATA(qext(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% - /0.00484, 0.00762, 0.01201, 0.01901, 0.03105, 0.04955 & - ,0.08010, 0.13380, 0.24123, 0.48553, 0.97440, 1.71080 & - ,2.41220, 2.65080, 2.43740, 2.27320, 2.20560/ + / 0.01120, 0.01718, 0.02667, 0.04178, 0.06907, 0.10974 & + , 0.17646, 0.28950, 0.48320, 0.78372, 1.21660, 1.73230 & + , 2.19130, 2.34740, 2.23040, 2.18070, 2.13790/ DATA(qext(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% - /0.00481, 0.00757, 0.01192, 0.01885, 0.03078, 0.04910 & - ,0.07938, 0.13271, 0.23982, 0.48406, 0.97344, 1.71490 & - ,2.42520, 2.66090, 2.43410, 2.27210, 2.20450/ + / 0.01089, 0.01667, 0.02583, 0.04042, 0.06670, 0.10598 & + , 0.17065, 0.28110, 0.47315, 0.77654, 1.22280, 1.76050 & + , 2.23220, 2.36620, 2.23020, 2.18190, 2.13790/ DATA(qext(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% - /0.00478, 0.00751, 0.01182, 0.01867, 0.03046, 0.04858 & - ,0.07855, 0.13147, 0.23825, 0.48251, 0.97279, 1.72040 & - ,2.44110, 2.67260, 2.42970, 2.27110, 2.20320/ + / 0.01057, 0.01612, 0.02494, 0.03897, 0.06417, 0.10198 & + , 0.16450, 0.27235, 0.46311, 0.77064, 1.23320, 1.79690 & + , 2.28130, 2.38500, 2.22980, 2.18260, 2.13780/ DATA(qext(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% - /0.00475, 0.00744, 0.01170, 0.01847, 0.03009, 0.04797 & - ,0.07759, 0.13003, 0.23647, 0.48093, 0.97270, 1.72790 & - ,2.46090, 2.68610, 2.42330, 2.26990, 2.20150/ + / 0.01022, 0.01554, 0.02398, 0.03742, 0.06147, 0.09772 & + , 0.15799, 0.26327, 0.45333, 0.76687, 1.24970, 1.84460 & + , 2.34080, 2.40160, 2.22970, 2.18260, 2.13750/ DATA(qext(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% - /0.00471, 0.00737, 0.01157, 0.01823, 0.02965, 0.04726 & - ,0.07645, 0.12835, 0.23449, 0.47939, 0.97367, 1.73840 & - ,2.48600, 2.70200, 2.41390, 2.26910, 2.19960/ + / 0.00985, 0.01491, 0.02295, 0.03576, 0.05857, 0.09317 & + , 0.15110, 0.25395, 0.44429, 0.76673, 1.27540, 1.90780 & + , 2.41190, 2.41310, 2.23070, 2.18170, 2.13700/ DATA(qext(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% - /0.00467, 0.00728, 0.01140, 0.01794, 0.02913, 0.04640 & - ,0.07510, 0.12638, 0.23230, 0.47812, 0.97656, 1.75390 & - ,2.51900, 2.72070, 2.40030, 2.26880, 2.19720/ + / 0.00945, 0.01424, 0.02185, 0.03398, 0.05547, 0.08832 & + , 0.14386, 0.24464, 0.43687, 0.77290, 1.31580, 1.99350 & + , 2.49510, 2.41490, 2.23410, 2.18050, 2.13620/ DATA(qext(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% - /0.00462, 0.00718, 0.01121, 0.01760, 0.02850, 0.04537 & - ,0.07347, 0.12405, 0.22996, 0.47757, 0.98317, 1.77750 & - ,2.56350, 2.74130, 2.38190, 2.26880, 2.19440/ + / 0.00901, 0.01350, 0.02065, 0.03207, 0.05216, 0.08319 & + , 0.13639, 0.23589, 0.43279, 0.79046, 1.38010, 2.11290 & + , 2.59160, 2.39880, 2.24160, 2.17960, 2.13450/ DATA(qext(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% - /0.00456, 0.00705, 0.01097, 0.01718, 0.02772, 0.04409 & - ,0.07147, 0.12131, 0.22775, 0.47887, 0.99733, 1.81550 & - ,2.62500, 2.75890, 2.35230, 2.26910, 2.19110/ + / 0.00853, 0.01270, 0.01937, 0.03005, 0.04866, 0.07788 & + , 0.12904, 0.22896, 0.43550, 0.82935, 1.48410, 2.27840 & + , 2.68730, 2.35520, 2.25150, 2.17880, 2.13120/ DATA(qext(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% - /0.00449, 0.00690, 0.01068, 0.01665, 0.02674, 0.04248 & - ,0.06902, 0.11822, 0.22660, 0.48500, 1.02820, 1.88150 & - ,2.71410, 2.77030, 2.31190, 2.26620, 2.18620/ + / 0.00800, 0.01184, 0.01802, 0.02796, 0.04509, 0.07263 & + , 0.12264, 0.22695, 0.45277, 0.91014, 1.65580, 2.51070 & + , 2.75170, 2.28400, 2.24970, 2.17240, 2.12640/ DATA(qext(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% - /0.00440, 0.00671, 0.01030, 0.01598, 0.02548, 0.04049 & - ,0.06614, 0.11546, 0.23018, 0.50585, 1.10060, 2.01490 & - ,2.86900, 2.73110, 2.26860, 2.24470, 2.17470/ + / 0.00742, 0.01093, 0.01665, 0.02595, 0.04177, 0.06835 & + , 0.12001, 0.23916, 0.50645, 1.07370, 1.96710, 2.82060 & + , 2.68290, 2.24560, 2.21250, 2.16010, 2.11780/ DATA(qext(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% - /0.00429, 0.00646, 0.00981, 0.01515, 0.02399, 0.03839 & - ,0.06412, 0.11859, 0.25934, 0.59425, 1.31360, 2.37590 & - ,3.08790, 2.48080, 2.31080, 2.20770, 2.15760/ + / 0.00679, 0.01006, 0.01557, 0.02475, 0.04025, 0.06909 & + , 0.13484, 0.30639, 0.70846, 1.51040, 2.59390, 3.05600 & + , 2.28920, 2.31640, 2.19940, 2.13920, 2.10200/ DATA(qext(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% - /0.00480, 0.00761, 0.01208, 0.01921, 0.03078, 0.04945 & - ,0.08113, 0.14118, 0.28491, 0.73426, 1.97470, 3.23210 & - ,3.10530, 2.50640, 2.43460, 2.32000, 2.23810/ + / 0.01070, 0.01682, 0.02658, 0.04213, 0.06873, 0.11075 & + , 0.18330, 0.32338, 0.64074, 1.34360, 2.38250, 3.07040 & + , 2.81750, 2.42450, 2.36310, 2.26590, 2.19850/ DATA(qext(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% - /0.00479, 0.00761, 0.01208, 0.01919, 0.03077, 0.04942 & - ,0.08109, 0.14112, 0.28480, 0.73326, 1.96640, 3.22440 & - ,3.10860, 2.50420, 2.43450, 2.31940, 2.23750/ + / 0.01062, 0.01670, 0.02637, 0.04179, 0.06820, 0.10988 & + , 0.18187, 0.32090, 0.63566, 1.32980, 2.35900, 3.05560 & + , 2.81850, 2.42020, 2.36160, 2.26400, 2.19670/ DATA(qext(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% - /0.00479, 0.00760, 0.01207, 0.01918, 0.03075, 0.04940 & - ,0.08105, 0.14105, 0.28468, 0.73217, 1.95740, 3.21590 & - ,3.11220, 2.50190, 2.43440, 2.31870, 2.23690/ + / 0.01054, 0.01657, 0.02615, 0.04142, 0.06762, 0.10894 & + , 0.18032, 0.31823, 0.63026, 1.31540, 2.33450, 3.03990 & + , 2.81960, 2.41620, 2.35990, 2.26200, 2.19490/ DATA(qext(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% - /0.00479, 0.00760, 0.01206, 0.01916, 0.03073, 0.04936 & - ,0.08100, 0.14098, 0.28454, 0.73094, 1.94760, 3.20650 & - ,3.11610, 2.49950, 2.43430, 2.31790, 2.23630/ + / 0.01046, 0.01643, 0.02591, 0.04102, 0.06699, 0.10791 & + , 0.17863, 0.31534, 0.62451, 1.30030, 2.30900, 3.02340 & + , 2.82070, 2.41220, 2.35800, 2.26000, 2.19300/ DATA(qext(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% - /0.00479, 0.00759, 0.01205, 0.01914, 0.03071, 0.04933 & - ,0.08093, 0.14088, 0.28438, 0.72958, 1.93680, 3.19600 & - ,3.12030, 2.49690, 2.43420, 2.31710, 2.23550/ + / 0.01037, 0.01627, 0.02565, 0.04059, 0.06630, 0.10679 & + , 0.17679, 0.31222, 0.61837, 1.28440, 2.28230, 3.00600 & + , 2.82200, 2.40820, 2.35580, 2.25770, 2.19090/ DATA(qext(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% - /0.00478, 0.00758, 0.01203, 0.01912, 0.03068, 0.04928 & - ,0.08086, 0.14077, 0.28419, 0.72803, 1.92490, 3.18420 & - ,3.12500, 2.49410, 2.43410, 2.31610, 2.23470/ + / 0.01027, 0.01610, 0.02536, 0.04012, 0.06555, 0.10557 & + , 0.17478, 0.30884, 0.61182, 1.26770, 2.25460, 2.98760 & + , 2.82330, 2.40400, 2.35320, 2.25530, 2.18870/ DATA(qext(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% - /0.00478, 0.00758, 0.01202, 0.01910, 0.03065, 0.04923 & - ,0.08078, 0.14064, 0.28396, 0.72629, 1.91170, 3.17090 & - ,3.13000, 2.49110, 2.43390, 2.31510, 2.23380/ + / 0.01017, 0.01592, 0.02505, 0.03962, 0.06473, 0.10423 & + , 0.17260, 0.30517, 0.60482, 1.25020, 2.22550, 2.96810 & + , 2.82480, 2.39920, 2.35030, 2.25270, 2.18640/ DATA(qext(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% - /0.00477, 0.00757, 0.01200, 0.01907, 0.03061, 0.04916 & - ,0.08067, 0.14048, 0.28369, 0.72429, 1.89710, 3.15580 & - ,3.13550, 2.48800, 2.43380, 2.31400, 2.23270/ + / 0.01006, 0.01572, 0.02472, 0.03906, 0.06382, 0.10275 & + , 0.17020, 0.30119, 0.59732, 1.23160, 2.19510, 2.94750 & + , 2.82630, 2.39370, 2.34710, 2.24980, 2.18390/ DATA(qext(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% - /0.00477, 0.00756, 0.01198, 0.01903, 0.03056, 0.04908 & - ,0.08055, 0.14029, 0.28336, 0.72199, 1.88060, 3.13850 & - ,3.14160, 2.48470, 2.43360, 2.31270, 2.23160/ + / 0.00993, 0.01551, 0.02435, 0.03845, 0.06282, 0.10113 & + , 0.16756, 0.29685, 0.58926, 1.21210, 2.16320, 2.92560 & + , 2.82780, 2.38760, 2.34360, 2.24660, 2.18120/ DATA(qext(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% - /0.00476, 0.00754, 0.01196, 0.01899, 0.03050, 0.04899 & - ,0.08039, 0.14006, 0.28296, 0.71932, 1.86210, 3.11850 & - ,3.14820, 2.48130, 2.43340, 2.31130, 2.23020/ + / 0.00980, 0.01527, 0.02394, 0.03778, 0.06171, 0.09933 & + , 0.16465, 0.29210, 0.58061, 1.19150, 2.12970, 2.90240 & + , 2.82890, 2.38140, 2.33940, 2.24300, 2.17830/ DATA(qext(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% - /0.00476, 0.00753, 0.01193, 0.01894, 0.03043, 0.04887 & - ,0.08020, 0.13976, 0.28247, 0.71619, 1.84100, 3.09520 & - ,3.15540, 2.47790, 2.43300, 2.30960, 2.22860/ + / 0.00965, 0.01500, 0.02350, 0.03704, 0.06047, 0.09733 & + , 0.16142, 0.28690, 0.57132, 1.16980, 2.09470, 2.87770 & + , 2.82920, 2.37590, 2.33440, 2.23890, 2.17510/ DATA(qext(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% - /0.00475, 0.00751, 0.01190, 0.01888, 0.03034, 0.04872 & - ,0.07996, 0.13939, 0.28187, 0.71247, 1.81690, 3.06760 & - ,3.16320, 2.47450, 2.43250, 2.30760, 2.22670/ + / 0.00948, 0.01471, 0.02300, 0.03622, 0.05909, 0.09509 & + , 0.15784, 0.28121, 0.56135, 1.14700, 2.05830, 2.85170 & + , 2.82800, 2.37150, 2.32870, 2.23440, 2.17170/ DATA(qext(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% - /0.00474, 0.00749, 0.01186, 0.01881, 0.03023, 0.04853 & - ,0.07965, 0.13892, 0.28111, 0.70800, 1.78910, 3.03460 & - ,3.17130, 2.47150, 2.43170, 2.30530, 2.22450/ + / 0.00930, 0.01438, 0.02244, 0.03530, 0.05754, 0.09258 & + , 0.15385, 0.27498, 0.55073, 1.12330, 2.02080, 2.82450 & + , 2.82460, 2.36650, 2.32240, 2.22920, 2.16780/ DATA(qext(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% - /0.00473, 0.00747, 0.01181, 0.01872, 0.03008, 0.04828 & - ,0.07925, 0.13832, 0.28015, 0.70256, 1.75670, 2.99450 & - ,3.17930, 2.46920, 2.43040, 2.30230, 2.22180/ + / 0.00909, 0.01401, 0.02182, 0.03427, 0.05578, 0.08977 & + , 0.14941, 0.26822, 0.53958, 1.09920, 1.98330, 2.79670 & + , 2.81920, 2.35840, 2.31470, 2.22330, 2.16360/ DATA(qext(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% - /0.00471, 0.00743, 0.01174, 0.01860, 0.02989, 0.04795 & - ,0.07872, 0.13752, 0.27893, 0.69585, 1.71850, 2.94500 & - ,3.18610, 2.46820, 2.42810, 2.29850, 2.21840/ + / 0.00886, 0.01359, 0.02111, 0.03311, 0.05380, 0.08661 & + , 0.14449, 0.26100, 0.52825, 1.07600, 1.94770, 2.76970 & + , 2.81300, 2.35000, 2.30620, 2.21650, 2.15870/ DATA(qext(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% - /0.00469, 0.00739, 0.01166, 0.01844, 0.02963, 0.04751 & - ,0.07800, 0.13645, 0.27737, 0.68746, 1.67330, 2.88290 & - ,3.18940, 2.46930, 2.42370, 2.29340, 2.21410/ + / 0.00859, 0.01312, 0.02032, 0.03182, 0.05158, 0.08309 & + , 0.13914, 0.25362, 0.51755, 1.05610, 1.91800, 2.74750 & + , 2.80670, 2.33960, 2.29610, 2.20880, 2.15300/ DATA(qext(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% - /0.00467, 0.00734, 0.01155, 0.01823, 0.02926, 0.04689 & - ,0.07701, 0.13501, 0.27544, 0.67690, 1.61940, 2.80360 & - ,3.18460, 2.47420, 2.41530, 2.28590, 2.20840/ + / 0.00828, 0.01258, 0.01943, 0.03039, 0.04912, 0.07927 & + , 0.13356, 0.24684, 0.50936, 1.04480, 1.90210, 2.73730 & + , 2.79430, 2.32440, 2.28380, 2.19970, 2.14620/ DATA(qext(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% - /0.00464, 0.00727, 0.01140, 0.01794, 0.02874, 0.04602 & - ,0.07562, 0.13310, 0.27332, 0.66393, 1.55590, 2.70240 & - ,3.16540, 2.48320, 2.40070, 2.27470, 2.20060/ + / 0.00792, 0.01197, 0.01845, 0.02886, 0.04651, 0.07534 & + , 0.12835, 0.24265, 0.50811, 1.05370, 1.91470, 2.75120 & + , 2.77160, 2.30170, 2.26740, 2.18840, 2.13770/ DATA(qext(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% - /0.00460, 0.00717, 0.01118, 0.01753, 0.02798, 0.04476 & - ,0.07372, 0.13090, 0.27257, 0.65053, 1.48570, 2.58440 & - ,3.13330, 2.48800, 2.37430, 2.25700, 2.18850/ + / 0.00751, 0.01131, 0.01745, 0.02740, 0.04406, 0.07208 & + , 0.12565, 0.24734, 0.52697, 1.10910, 1.99660, 2.81460 & + , 2.71050, 2.27250, 2.24140, 2.17260, 2.12630/ DATA(qext(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% - /0.00455, 0.00702, 0.01086, 0.01696, 0.02694, 0.04324 & - ,0.07208, 0.13183, 0.28505, 0.66024, 1.44830, 2.52130 & - ,3.07560, 2.44530, 2.33400, 2.22740, 2.16620/ + / 0.00705, 0.01068, 0.01674, 0.02675, 0.04332, 0.07310 & + , 0.13566, 0.28890, 0.63118, 1.31960, 2.29670, 2.94500 & + , 2.48900, 2.27270, 2.20000, 2.14740, 2.10820/ DATA(qext(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% - /0.00163, 0.00259, 0.00411, 0.00654, 0.01041, 0.01685 & - ,0.02841, 0.05378, 0.12576, 0.32198, 0.82147, 1.75220 & - ,2.80160, 2.74470, 2.40400, 2.22710, 2.17840/ + / 0.00235, 0.00373, 0.00592, 0.00945, 0.01527, 0.02557 & + , 0.04786, 0.11442, 0.32899, 0.93060, 2.06240, 3.20160 & + , 2.76950, 2.40340, 2.31150, 2.19560, 2.14520/ DATA(qext(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% - /0.00163, 0.00259, 0.00411, 0.00654, 0.01042, 0.01686 & - ,0.02845, 0.05398, 0.12665, 0.32480, 0.82901, 1.76620 & - ,2.81420, 2.74120, 2.40490, 2.22820, 2.17680/ + / 0.00235, 0.00372, 0.00592, 0.00945, 0.01527, 0.02560 & + , 0.04816, 0.11609, 0.33443, 0.94474, 2.08670, 3.21330 & + , 2.75590, 2.40410, 2.30920, 2.19490, 2.14400/ DATA(qext(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% - /0.00163, 0.00259, 0.00411, 0.00655, 0.01042, 0.01687 & - ,0.02850, 0.05420, 0.12765, 0.32794, 0.83738, 1.78160 & - ,2.82800, 2.73720, 2.40590, 2.22950, 2.17510/ + / 0.00234, 0.00372, 0.00592, 0.00945, 0.01527, 0.02565 & + , 0.04851, 0.11795, 0.34041, 0.96009, 2.11300, 3.22650 & + , 2.73930, 2.40370, 2.30590, 2.19400, 2.14280/ DATA(qext(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% - /0.00163, 0.00259, 0.00412, 0.00655, 0.01043, 0.01689 & - ,0.02855, 0.05446, 0.12876, 0.33145, 0.84670, 1.79860 & - ,2.84300, 2.73280, 2.40700, 2.23120, 2.17340/ + / 0.00234, 0.00372, 0.00592, 0.00945, 0.01527, 0.02571 & + , 0.04891, 0.12004, 0.34704, 0.97683, 2.14140, 3.24110 & + , 2.71880, 2.40080, 2.30320, 2.19360, 2.14160/ DATA(qext(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% - /0.00163, 0.00259, 0.00412, 0.00655, 0.01043, 0.01690 & - ,0.02861, 0.05474, 0.13002, 0.33540, 0.85717, 1.81760 & - ,2.85950, 2.72770, 2.40810, 2.23330, 2.17160/ + / 0.00234, 0.00372, 0.00592, 0.00945, 0.01528, 0.02578 & + , 0.04938, 0.12241, 0.35442, 0.99523, 2.17200, 3.25690 & + , 2.69460, 2.39880, 2.29860, 2.19300, 2.14050/ DATA(qext(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% - /0.00163, 0.00259, 0.00412, 0.00656, 0.01044, 0.01692 & - ,0.02868, 0.05507, 0.13144, 0.33989, 0.86900, 1.83900 & - ,2.87760, 2.72180, 2.40900, 2.23590, 2.16970/ + / 0.00234, 0.00372, 0.00592, 0.00946, 0.01529, 0.02588 & + , 0.04992, 0.12509, 0.36271, 1.01560, 2.20510, 3.27260 & + , 2.66850, 2.39890, 2.29190, 2.19250, 2.13950/ DATA(qext(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% - /0.00163, 0.00259, 0.00412, 0.00657, 0.01045, 0.01694 & - ,0.02876, 0.05544, 0.13308, 0.34503, 0.88249, 1.86310 & - ,2.89760, 2.71470, 2.40920, 2.23890, 2.16790/ + / 0.00234, 0.00372, 0.00593, 0.00948, 0.01532, 0.02600 & + , 0.05056, 0.12818, 0.37212, 1.03850, 2.24100, 3.28710 & + , 2.64420, 2.39780, 2.28540, 2.19180, 2.13860/ DATA(qext(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% - /0.00163, 0.00260, 0.00413, 0.00657, 0.01046, 0.01697 & - ,0.02885, 0.05588, 0.13498, 0.35098, 0.89800, 1.89050 & - ,2.91970, 2.70590, 2.40830, 2.24230, 2.16640/ + / 0.00234, 0.00373, 0.00593, 0.00949, 0.01535, 0.02615 & + , 0.05132, 0.13176, 0.38293, 1.06440, 2.28010, 3.29890 & + , 2.62070, 2.39130, 2.27580, 2.19050, 2.13760/ DATA(qext(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% - /0.00163, 0.00260, 0.00413, 0.00658, 0.01047, 0.01700 & - ,0.02897, 0.05640, 0.13720, 0.35793, 0.91602, 1.92210 & - ,2.94410, 2.69470, 2.40600, 2.24610, 2.16530/ + / 0.00234, 0.00373, 0.00595, 0.00952, 0.01540, 0.02634 & + , 0.05223, 0.13596, 0.39549, 1.09430, 2.32330, 3.30760 & + , 2.59190, 2.38650, 2.26500, 2.18840, 2.13650/ DATA(qext(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% - /0.00164, 0.00260, 0.00414, 0.00659, 0.01048, 0.01704 & - ,0.02911, 0.05702, 0.13983, 0.36618, 0.93722, 1.95870 & - ,2.97090, 2.68010, 2.40290, 2.25010, 2.16490/ + / 0.00235, 0.00374, 0.00596, 0.00956, 0.01547, 0.02658 & + , 0.05334, 0.14097, 0.41036, 1.12930, 2.37210, 3.31470 & + , 2.55380, 2.38130, 2.25260, 2.18510, 2.13460/ DATA(qext(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% - /0.00164, 0.00260, 0.00414, 0.00660, 0.01050, 0.01709 & - ,0.02927, 0.05778, 0.14300, 0.37610, 0.96251, 2.00160 & - ,3.00020, 2.66140, 2.39900, 2.25370, 2.16550/ + / 0.00235, 0.00375, 0.00599, 0.00960, 0.01556, 0.02689 & + , 0.05473, 0.14704, 0.42830, 1.17110, 2.42880, 3.32350 & + , 2.51440, 2.37030, 2.23830, 2.18020, 2.13170/ DATA(qext(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% - /0.00164, 0.00261, 0.00415, 0.00662, 0.01053, 0.01715 & - ,0.02948, 0.05871, 0.14690, 0.38828, 0.99316, 2.05240 & - ,3.03170, 2.63890, 2.39260, 2.25630, 2.16720/ + / 0.00236, 0.00377, 0.00602, 0.00967, 0.01568, 0.02729 & + , 0.05649, 0.15453, 0.45045, 1.22210, 2.49670, 3.33420 & + , 2.47860, 2.35840, 2.22380, 2.17410, 2.12810/ DATA(qext(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% - /0.00164, 0.00261, 0.00416, 0.00664, 0.01056, 0.01723 & - ,0.02976, 0.05991, 0.15178, 0.40358, 1.03100, 2.11360 & - ,3.06510, 2.61260, 2.38150, 2.25620, 2.16960/ + / 0.00237, 0.00379, 0.00606, 0.00976, 0.01585, 0.02783 & + , 0.05879, 0.16401, 0.47858, 1.28540, 2.57910, 3.33490 & + , 2.43220, 2.34280, 2.21240, 2.16840, 2.12510/ DATA(qext(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% - /0.00164, 0.00262, 0.00418, 0.00667, 0.01061, 0.01733 & - ,0.03012, 0.06147, 0.15808, 0.42334, 1.07880, 2.18790 & - ,3.10060, 2.57890, 2.36740, 2.25160, 2.17130/ + / 0.00238, 0.00382, 0.00612, 0.00988, 0.01609, 0.02857 & + , 0.06187, 0.17631, 0.51544, 1.36480, 2.67610, 3.31470 & + , 2.39010, 2.32340, 2.20740, 2.16580, 2.12360/ DATA(qext(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% - /0.00165, 0.00263, 0.00419, 0.00670, 0.01067, 0.01748 & - ,0.03061, 0.06360, 0.16650, 0.44979, 1.14070, 2.27980 & - ,3.13870, 2.53230, 2.34560, 2.23960, 2.16910/ + / 0.00240, 0.00386, 0.00621, 0.01005, 0.01643, 0.02962 & + , 0.06618, 0.19283, 0.56548, 1.46490, 2.78560, 3.28670 & + , 2.34810, 2.30200, 2.21280, 2.16740, 2.12100/ DATA(qext(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% - /0.00165, 0.00264, 0.00422, 0.00676, 0.01076, 0.01770 & - ,0.03133, 0.06666, 0.17829, 0.48689, 1.22340, 2.39660 & - ,3.17410, 2.47980, 2.31710, 2.21940, 2.15990/ + / 0.00243, 0.00392, 0.00634, 0.01030, 0.01694, 0.03117 & + , 0.07250, 0.21592, 0.63566, 1.59230, 2.91590, 3.22030 & + , 2.31660, 2.28570, 2.22680, 2.16380, 2.11500/ DATA(qext(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% - /0.00166, 0.00266, 0.00426, 0.00683, 0.01090, 0.01804 & - ,0.03244, 0.07138, 0.19586, 0.54214, 1.33890, 2.55320 & - ,3.18710, 2.41090, 2.28240, 2.19910, 2.14960/ + / 0.00246, 0.00401, 0.00653, 0.01069, 0.01774, 0.03361 & + , 0.08240, 0.24990, 0.73660, 1.76420, 3.08010, 3.10240 & + , 2.31300, 2.28550, 2.22580, 2.14680, 2.11030/ DATA(qext(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% - /0.00167, 0.00268, 0.00432, 0.00696, 0.01114, 0.01863 & - ,0.03436, 0.07949, 0.22470, 0.63126, 1.51360, 2.77130 & - ,3.15860, 2.34700, 2.25630, 2.20040, 2.15260/ + / 0.00252, 0.00416, 0.00683, 0.01130, 0.01907, 0.03785 & + , 0.09961, 0.30467, 0.88741, 2.02580, 3.25040, 2.88680 & + , 2.34170, 2.29750, 2.18910, 2.14370, 2.10350/ DATA(qext(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% - /0.00168, 0.00272, 0.00441, 0.00719, 0.01160, 0.01979 & - ,0.03834, 0.09623, 0.28030, 0.79283, 1.82160, 3.05890 & - ,2.99010, 2.32150, 2.27670, 2.20150, 2.13750/ + / 0.00262, 0.00440, 0.00736, 0.01243, 0.02165, 0.04658 & + , 0.13456, 0.40898, 1.14490, 2.41730, 3.38420, 2.55430 & + , 2.35810, 2.24140, 2.17890, 2.12900, 2.09420/ DATA(qext(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% - /0.00170, 0.00279, 0.00462, 0.00771, 0.01277, 0.02302 & - ,0.05034, 0.14638, 0.43704, 1.19370, 2.46260, 3.34130 & - ,2.49980, 2.33230, 2.21850, 2.16760, 2.12290/ + / 0.00280, 0.00489, 0.00848, 0.01501, 0.02845, 0.07264 & + , 0.23193, 0.70597, 1.73200, 3.07620, 3.14340, 2.29680 & + , 2.28220, 2.22450, 2.14580, 2.10950, 2.07990/ ! Qext for Sea Salt: DATA(qext(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% @@ -2217,864 +2225,1031 @@ Subroutine aeroqext (aerotype,radband,bin,rh,value) ,0.54577, 1.45180, 2.80730, 3.34810, 2.33220, 2.30030 & ,2.21140, 2.16340, 2.11850, 2.08590, 2.06320/ -! Qext for Mineral Dust: - DATA(qext(3,1,ib,1),ib=1,17) & ! Band 1, All RH's +! Qext for Mineral Dust R(imaginary) = 0.0015 (LOW absorption)(No RH effect) + DATA(qext_dust(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00053, 0.00086, 0.00144, 0.00276, 0.00728, 0.02876 & + , 0.12569, 0.44984, 1.21290, 2.29250, 2.64450, 2.66060 & + , 2.54140, 2.19160, 2.20710, 2.13410, 2.09580/ + + DATA(qext_dust(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00050, 0.00128, 0.00509, 0.02746, 0.15370, 0.67428 & + , 2.01810, 3.46660, 3.06260, 2.65140, 2.32890, 2.28180 & + , 2.19870, 2.14360, 2.10470, 2.07500, 2.05570/ + + DATA(qext_dust(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00246, 0.01192, 0.06727, 0.33158, 1.24500, 2.93860 & + , 3.77620, 2.62540, 2.43390, 2.24850, 2.21360, 2.15880 & + , 2.11950, 2.09170, 2.06560, 2.04800, 2.03390/ + + DATA(qext_dust(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00232, 0.00368, 0.00584, 0.00927, 0.01472, 0.02341 & + , 0.03732, 0.05997, 0.09838, 0.17106, 0.34448, 0.88580 & + , 2.31920, 3.26560, 2.89620, 2.60710, 2.45250/ + + DATA(qext_dust(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00154, 0.00244, 0.00387, 0.00615, 0.00978, 0.01558 & + , 0.02498, 0.04082, 0.07056, 0.14147, 0.36788, 1.06280 & + , 2.46800, 3.53330, 2.71720, 2.50290, 2.33060/ + + DATA(qext_dust(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00319, 0.00506, 0.00804, 0.01277, 0.02033, 0.03253 & + , 0.05279, 0.08919, 0.16752, 0.38114, 0.93498, 1.87920 & + , 2.68110, 2.74410, 2.47570, 2.30710, 2.22650/ + + DATA(qext_dust(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00347, 0.00550, 0.00874, 0.01389, 0.02215, 0.03557 & + , 0.05837, 0.10191, 0.20923, 0.57176, 1.73950, 3.22860 & + , 3.29090, 2.47190, 2.45570, 2.32820, 2.24460/ + + DATA(qext_dust(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00147, 0.00234, 0.00371, 0.00591, 0.00942, 0.01519 & + , 0.02535, 0.04659, 0.10365, 0.25753, 0.65195, 1.44010 & + , 2.51080, 2.84480, 2.33600, 2.25070, 2.18000/ + +! Qext for Mineral Dust R(imaginary) = 0.003 (MID absorption)(No RH effect) + DATA(qext_dust(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00070, 0.00112, 0.00185, 0.00343, 0.00839, 0.03067 & + , 0.12895, 0.45450, 1.21520, 2.28620, 2.63730, 2.65780 & + , 2.54130, 2.19440, 2.20660, 2.13270, 2.09540/ + + DATA(qext_dust(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00090, 0.00193, 0.00616, 0.02932, 0.15704, 0.67954 & + , 2.01910, 3.45710, 3.05920, 2.64770, 2.33040, 2.28090 & + , 2.19820, 2.14350, 2.10420, 2.07570, 2.05580/ + + DATA(qext_dust(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00327, 0.01328, 0.06968, 0.33582, 1.24930, 2.93440 & + , 3.76520, 2.62660, 2.43290, 2.25180, 2.21400, 2.15940 & + , 2.12010, 2.09120, 2.06570, 2.04800, 2.03400/ + + DATA(qext_dust(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00232, 0.00368, 0.00584, 0.00927, 0.01472, 0.02341 & + , 0.03732, 0.05997, 0.09838, 0.17106, 0.34448, 0.88580 & + , 2.31920, 3.26560, 2.89620, 2.60710, 2.45250/ + + DATA(qext_dust(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00154, 0.00244, 0.00387, 0.00615, 0.00978, 0.01558 & + , 0.02498, 0.04082, 0.07056, 0.14147, 0.36788, 1.06280 & + , 2.46800, 3.53330, 2.71720, 2.50290, 2.33060/ + + DATA(qext_dust(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00319, 0.00506, 0.00804, 0.01277, 0.02033, 0.03253 & + , 0.05279, 0.08919, 0.16752, 0.38114, 0.93498, 1.87920 & + , 2.68110, 2.74410, 2.47570, 2.30710, 2.22650/ + + DATA(qext_dust(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00347, 0.00550, 0.00874, 0.01389, 0.02215, 0.03557 & + , 0.05837, 0.10191, 0.20923, 0.57176, 1.73950, 3.22860 & + , 3.29090, 2.47190, 2.45570, 2.32820, 2.24460/ + + DATA(qext_dust(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00147, 0.00234, 0.00371, 0.00591, 0.00942, 0.01519 & + , 0.02535, 0.04659, 0.10365, 0.25753, 0.65195, 1.44010 & + , 2.51080, 2.84480, 2.33600, 2.25070, 2.18000/ + +! Qext for Mineral Dust R(imaginary) = 0.008 (HIGH absorption)(No RH effect) + DATA(qext_dust(3,1,ib),ib=1,17) & ! Band 1, All RH's /0.00124, 0.00198, 0.00323, 0.00566, 0.01209, 0.03703 & ,0.13977, 0.46990, 1.22290, 2.26570, 2.61390, 2.64980 & ,2.54470, 2.19980, 2.20590, 2.13130, 2.09540/ - DATA(qext(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + DATA(qext_dust(3,2,ib),ib=1,17) & ! Band 2, All RH's /0.00224, 0.00409, 0.00974, 0.03551, 0.16816, 0.69694 & ,2.02260, 3.42610, 3.04780, 2.63640, 2.33260, 2.27750 & ,2.19670, 2.14290, 2.10390, 2.07640, 2.05630/ - DATA(qext(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + DATA(qext_dust(3,3,ib),ib=1,17) & ! Band 3, All RH's /0.00599, 0.01846, 0.08179, 0.36834, 1.28590, 2.91150 & ,3.72340, 2.62500, 2.42800, 2.26110, 2.21600, 2.16130 & ,2.12100, 2.09050, 2.06620, 2.04880, 2.03590/ - DATA(qext(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + DATA(qext_dust(3,4,ib),ib=1,17) & ! Band 4, All RH's /0.00232, 0.00368, 0.00584, 0.00927, 0.01472, 0.02341 & ,0.03733, 0.05997, 0.09838, 0.17106, 0.34448, 0.88581 & ,2.31920, 3.26570, 2.89620, 2.60710, 2.45250/ - DATA(qext(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + DATA(qext_dust(3,5,ib),ib=1,17) & ! Band 5, All RH's /0.00154, 0.00240, 0.00387, 0.00615, 0.00978, 0.01558 & ,0.02498, 0.04083, 0.07056, 0.14147, 0.36788, 1.06280 & ,2.46800, 3.53330, 2.71720, 2.50290, 2.33060/ - DATA(qext(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + DATA(qext_dust(3,6,ib),ib=1,17) & ! Band 6, All RH's /0.00319, 0.00506, 0.00804, 0.01277, 0.02033, 0.03253 & ,0.05279, 0.08919, 0.16752, 0.38114, 0.93498, 1.87920 & ,2.68110, 2.74410, 2.47570, 2.30710, 2.22650/ - DATA(qext(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + DATA(qext_dust(3,7,ib),ib=1,17) & ! Band 7, All RH's /0.00347, 0.00550, 0.00874, 0.01389, 0.02215, 0.03557 & ,0.05837, 0.10191, 0.20923, 0.57176, 1.73950, 3.22860 & ,3.29090, 2.47200, 2.45570, 2.32820, 2.24460/ - DATA(qext(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + DATA(qext_dust(3,8,ib),ib=1,17) & ! Band 8, All RH's /0.00147, 0.00234, 0.00371, 0.00591, 0.00942, 0.01519 & ,0.02535, 0.04659, 0.10365, 0.25753, 0.65195, 1.44010 & ,2.51080, 2.84480, 2.33600, 2.25070, 2.18000/ -! Returning value for qext: - value = qext(aerotype,radband,bin,rh) +! Qext for Absorbing Carbon (1% BC, 99% OC)(No RH effect) + DATA(qext_carb(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00245, 0.00392, 0.00643, 0.01137, 0.02481, 0.07891 & + , 0.31208, 1.10800, 2.52240, 3.47310, 2.68080, 2.52040 & + , 2.29430, 2.23790, 2.17310, 2.12700, 2.09340/ + + DATA(qext_carb(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00547, 0.00931, 0.01846, 0.05122, 0.20027, 0.76872 & + , 2.14280, 3.52800, 3.06150, 2.48770, 2.40170, 2.26170 & + , 2.19620, 2.14160, 2.10360, 2.07600, 2.05560/ + + DATA(qext_carb(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00903, 0.02314, 0.08790, 0.37122, 1.29850, 2.93160 & + , 3.68880, 2.61620, 2.43400, 2.26980, 2.21970, 2.16330 & + , 2.12150, 2.08990, 2.06580, 2.04790, 2.03400/ + + DATA(qext_carb(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00207, 0.00329, 0.00522, 0.00828, 0.01316, 0.02092 & + , 0.03338, 0.05370, 0.08851, 0.15621, 0.32870, 0.92364 & + , 2.49150, 3.30090, 2.84960, 2.61440, 2.45410/ + + DATA(qext_carb(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00213, 0.00338, 0.00536, 0.00852, 0.01354, 0.02158 & + , 0.03461, 0.05658, 0.09779, 0.19599, 0.51048, 1.50240 & + , 2.95000, 3.32070, 2.51700, 2.45020, 2.32250/ + + DATA(qext_carb(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00454, 0.00721, 0.01145, 0.01824, 0.02920, 0.04748 & + , 0.08070, 0.15532, 0.40043, 1.55040, 3.49400, 3.14430 & + , 2.69580, 2.55150, 2.40690, 2.30370, 2.22700/ + + DATA(qext_carb(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00286, 0.00454, 0.00721, 0.01147, 0.01833, 0.02967 & + , 0.04984, 0.09332, 0.22860, 0.84677, 2.86630, 3.66030 & + , 2.88190, 2.56760, 2.41750, 2.32800, 2.24340/ + + DATA(qext_carb(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00161, 0.00256, 0.00407, 0.00648, 0.01042, 0.01720 & + , 0.03094, 0.06965, 0.21644, 0.70260, 1.89450, 3.28730 & + , 3.07130, 2.40340, 2.32590, 2.25300, 2.17850/ + +! Qext for Absorbing Carbon (2% BC, 98% OC)(No RH effect) + DATA(qext_carb(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00342, 0.00547, 0.00892, 0.01543, 0.03173, 0.09177 & + , 0.33775, 1.14950, 2.54460, 3.42600, 2.67820, 2.50580 & + , 2.29910, 2.23690, 2.17270, 2.12680, 2.09320/ + + DATA(qext_carb(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00750, 0.01260, 0.02395, 0.06106, 0.21973, 0.80684 & + , 2.17380, 3.49700, 3.02970, 2.48110, 2.39390, 2.26130 & + , 2.19440, 2.14100, 2.10330, 2.07590, 2.05550/ + + DATA(qext_carb(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.01321, 0.03033, 0.10142, 0.39842, 1.33920, 2.93800 & + , 3.63570, 2.60750, 2.43470, 2.27660, 2.22210, 2.16420 & + , 2.12160, 2.08970, 2.06580, 2.04790, 2.03400/ + + DATA(qext_carb(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00211, 0.00334, 0.00531, 0.00842, 0.01338, 0.02128 & + , 0.03395, 0.05463, 0.09002, 0.15880, 0.33355, 0.93306 & + , 2.49280, 3.29170, 2.84880, 2.61350, 2.45390/ + + DATA(qext_carb(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00222, 0.00353, 0.00561, 0.00890, 0.01415, 0.02255 & + , 0.03617, 0.05912, 0.10209, 0.20388, 0.52654, 1.53030 & + , 2.95560, 3.29540, 2.52100, 2.44760, 2.32290/ + + DATA(qext_carb(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00463, 0.00736, 0.01170, 0.01863, 0.02982, 0.04848 & + , 0.08234, 0.15815, 0.40567, 1.55670, 3.48360, 3.14260 & + , 2.69610, 2.55100, 2.40700, 2.30380, 2.22710/ + + DATA(qext_carb(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00297, 0.00471, 0.00749, 0.01192, 0.01905, 0.03081 & + , 0.05172, 0.09650, 0.23444, 0.85764, 2.86680, 3.64720 & + , 2.87810, 2.56980, 2.42000, 2.32800, 2.24340/ + + DATA(qext_carb(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00196, 0.00312, 0.00496, 0.00790, 0.01268, 0.02086 & + , 0.03705, 0.08057, 0.23796, 0.74521, 1.94130, 3.27520 & + , 3.01750, 2.41950, 2.32940, 2.24830, 2.17860/ +! Returning value for qext: + if (aerotype <= 2) value = qext(aerotype,radband,bin,rh) + if (aerotype == 3) value = qext_dust(dust_ref_im,radband,bin) + if (aerotype == 4) value = qext_carb(1,radband,bin) + if (aerotype == 5) value = qext_carb(2,radband,bin) return END SUBROUTINE aeroqext !############################################################################## Subroutine aeroqscat (aerotype,radband,bin,rh,value) +use rrad3, only:dust_ref_im + implicit none INTEGER aerotype,radband,bin,rh,ib - REAL qscat(3,8,17,20),value - -! Setting for aerosol with no growth (completely insoluble): - IF(AEROTYPE.EQ.3) rh = 1 + REAL qscat(2,8,17,20),value + REAL qscat_dust(3,8,17) + REAL qscat_carb(2,8,17) -! Qscat for Ammonium Sulfate (with a 90% insoluble dust inclusion): +! Qscat Ammonium sulfate with 20% insoluble inclusion (dust low R(Im))) DATA(qscat(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% - /0.00000, 0.00002, 0.00013, 0.00080, 0.00454, 0.02746 & - ,0.13553, 0.49914, 1.31130, 2.38440, 2.54700, 2.37630 & - ,1.94730, 1.59790, 1.42910, 1.27210, 1.16110/ + / 0.00001, 0.00006, 0.00041, 0.00262, 0.01488, 0.08427 & + , 0.34594, 1.12330, 2.47130, 3.25330, 2.28770, 2.11400 & + , 1.97460, 1.89150, 1.81820, 1.72860, 1.63710/ DATA(qscat(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% - /0.00000, 0.00002, 0.00013, 0.00081, 0.00459, 0.02775 & - ,0.13664, 0.50267, 1.31790, 2.39340, 2.55060, 2.37430 & - ,1.94120, 1.60120, 1.42960, 1.27260, 1.16180/ + / 0.00001, 0.00006, 0.00042, 0.00270, 0.01536, 0.08657 & + , 0.35310, 1.13920, 2.49080, 3.24820, 2.27460, 2.09340 & + , 1.96480, 1.88360, 1.81340, 1.72510, 1.63570/ DATA(qscat(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% - /0.00000, 0.00002, 0.00013, 0.00082, 0.00465, 0.02807 & - ,0.13788, 0.50658, 1.32520, 2.40310, 2.55440, 2.37240 & - ,1.93570, 1.60310, 1.43000, 1.27350, 1.16250/ + / 0.00001, 0.00007, 0.00044, 0.00280, 0.01588, 0.08910 & + , 0.36102, 1.15670, 2.51210, 3.24080, 2.25990, 2.09770 & + , 1.96380, 1.88850, 1.81160, 1.72280, 1.63510/ DATA(qscat(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% - /0.00000, 0.00002, 0.00013, 0.00083, 0.00471, 0.02843 & - ,0.13925, 0.51092, 1.33340, 2.41380, 2.55820, 2.37100 & - ,1.92910, 1.60270, 1.42970, 1.27440, 1.16330/ + / 0.00001, 0.00007, 0.00045, 0.00291, 0.01647, 0.09190 & + , 0.36985, 1.17600, 2.53510, 3.23100, 2.25210, 2.07070 & + , 1.97100, 1.87960, 1.81280, 1.72460, 1.63610/ DATA(qscat(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% - /0.00000, 0.00002, 0.00013, 0.00084, 0.00478, 0.02884 & - ,0.14079, 0.51578, 1.34270, 2.42560, 2.56200, 2.37010 & - ,1.91990, 1.60110, 1.43010, 1.27550, 1.16420/ + / 0.00001, 0.00007, 0.00047, 0.00303, 0.01713, 0.09502 & + , 0.37976, 1.19740, 2.55990, 3.21890, 2.24540, 2.08230 & + , 1.96320, 1.89000, 1.80980, 1.72550, 1.63600/ DATA(qscat(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% - /0.00000, 0.00002, 0.00013, 0.00086, 0.00486, 0.02930 & - ,0.14253, 0.52125, 1.35310, 2.43850, 2.56570, 2.36890 & - ,1.90880, 1.60400, 1.43220, 1.27660, 1.16510/ + / 0.00001, 0.00007, 0.00049, 0.00316, 0.01788, 0.09850 & + , 0.39096, 1.22120, 2.58640, 3.20540, 2.23690, 2.05350 & + , 1.96770, 1.88250, 1.80680, 1.72330, 1.63480/ DATA(qscat(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% - /0.00000, 0.00002, 0.00014, 0.00087, 0.00495, 0.02982 & - ,0.14452, 0.52746, 1.36510, 2.45300, 2.56910, 2.36640 & - ,1.89930, 1.61320, 1.43390, 1.27800, 1.16620/ + / 0.00001, 0.00008, 0.00051, 0.00332, 0.01874, 0.10245 & + , 0.40374, 1.24780, 2.61470, 3.19230, 2.22350, 2.04680 & + , 1.96580, 1.88060, 1.80380, 1.72360, 1.62980/ DATA(qscat(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% - /0.00000, 0.00002, 0.00014, 0.00089, 0.00506, 0.03043 & - ,0.14679, 0.53456, 1.37880, 2.46900, 2.57220, 2.36120 & - ,1.89220, 1.62010, 1.43540, 1.27940, 1.16740/ + / 0.00001, 0.00008, 0.00054, 0.00350, 0.01973, 0.10694 & + , 0.41845, 1.27750, 2.64480, 3.18020, 2.20750, 2.04960 & + , 1.97200, 1.88710, 1.79840, 1.72010, 1.62920/ DATA(qscat(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% - /0.00000, 0.00002, 0.00014, 0.00091, 0.00518, 0.03113 & - ,0.14944, 0.54276, 1.39490, 2.48710, 2.57490, 2.35660 & - ,1.88130, 1.61800, 1.43910, 1.28130, 1.16890/ + / 0.00001, 0.00009, 0.00057, 0.00371, 0.02089, 0.11213 & + , 0.43560, 1.31100, 2.67760, 3.16480, 2.20340, 2.03160 & + , 1.97410, 1.88860, 1.79410, 1.71760, 1.62710/ DATA(qscat(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% - /0.00000, 0.00002, 0.00015, 0.00093, 0.00532, 0.03197 & - ,0.15255, 0.55234, 1.41380, 2.50770, 2.57720, 2.35330 & - ,1.87260, 1.62400, 1.44170, 1.28330, 1.17070/ + / 0.00001, 0.00009, 0.00061, 0.00397, 0.02228, 0.11819 & + , 0.45580, 1.34910, 2.71430, 3.14030, 2.19870, 2.01660 & + , 1.97110, 1.88150, 1.79690, 1.71240, 1.62450/ DATA(qscat(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% - /0.00000, 0.00002, 0.00015, 0.00096, 0.00549, 0.03297 & - ,0.15625, 0.56369, 1.43640, 2.53130, 2.57940, 2.34380 & - ,1.86270, 1.63620, 1.44590, 1.28640, 1.17310/ + / 0.00001, 0.00010, 0.00066, 0.00427, 0.02396, 0.12540 & + , 0.47992, 1.39290, 2.75750, 3.10390, 2.18730, 2.02420 & + , 1.97270, 1.87050, 1.78990, 1.70920, 1.62060/ DATA(qscat(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% - /0.00000, 0.00002, 0.00015, 0.00100, 0.00570, 0.03420 & - ,0.16075, 0.57732, 1.46390, 2.55900, 2.58290, 2.33190 & - ,1.85060, 1.63320, 1.44980, 1.29070, 1.17640/ + / 0.00002, 0.00011, 0.00071, 0.00466, 0.02604, 0.13412 & + , 0.50910, 1.44410, 2.81030, 3.06100, 2.18660, 2.00370 & + , 1.97050, 1.86580, 1.79790, 1.70880, 1.61930/ DATA(qscat(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% - /0.00000, 0.00002, 0.00016, 0.00104, 0.00597, 0.03573 & - ,0.16631, 0.59404, 1.49790, 2.59240, 2.58770, 2.32240 & - ,1.84220, 1.64720, 1.45460, 1.29700, 1.18070/ + / 0.00002, 0.00012, 0.00078, 0.00514, 0.02869, 0.14490 & + , 0.54490, 1.50590, 2.87280, 3.01630, 2.18330, 2.00000 & + , 1.96910, 1.85610, 1.79000, 1.70200, 1.61310/ DATA(qscat(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% - /0.00000, 0.00003, 0.00017, 0.00110, 0.00630, 0.03769 & - ,0.17340, 0.61501, 1.54080, 2.63430, 2.58920, 2.30550 & - ,1.83310, 1.65330, 1.45950, 1.30520, 1.18570/ + / 0.00002, 0.00013, 0.00088, 0.00579, 0.03218, 0.15862 & + , 0.58947, 1.58360, 2.93980, 2.94330, 2.19310, 2.00420 & + , 1.94380, 1.85870, 1.77470, 1.69710, 1.60760/ DATA(qscat(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% - /0.00000, 0.00003, 0.00018, 0.00117, 0.00675, 0.04031 & - ,0.18273, 0.64219, 1.59610, 2.68860, 2.58160, 2.28040 & - ,1.82810, 1.65800, 1.46740, 1.31530, 1.19150/ + / 0.00002, 0.00014, 0.00100, 0.00668, 0.03696, 0.17667 & + , 0.64588, 1.68580, 3.00920, 2.85090, 2.20960, 2.03300 & + , 1.92560, 1.86600, 1.78090, 1.69270, 1.60170/ DATA(qscat(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% - /0.00000, 0.00003, 0.00019, 0.00128, 0.00738, 0.04396 & - ,0.19560, 0.67898, 1.66920, 2.75720, 2.56080, 2.25160 & - ,1.82730, 1.66620, 1.47870, 1.32690, 1.19970/ + / 0.00002, 0.00017, 0.00119, 0.00798, 0.04384, 0.20153 & + , 0.71929, 1.82120, 3.09630, 2.71670, 2.22650, 2.05100 & + , 1.92650, 1.85290, 1.76580, 1.68450, 1.59420/ DATA(qscat(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% - /0.00000, 0.00003, 0.00021, 0.00142, 0.00832, 0.04940 & - ,0.21458, 0.73217, 1.76990, 2.83560, 2.53460, 2.21090 & - ,1.82830, 1.67110, 1.49800, 1.34040, 1.21270/ + / 0.00003, 0.00020, 0.00147, 0.01001, 0.05440, 0.23822 & + , 0.82090, 1.99710, 3.17410, 2.54890, 2.23630, 2.04750 & + , 1.92190, 1.83630, 1.75680, 1.67450, 1.58250/ DATA(qscat(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% - /0.00000, 0.00003, 0.00024, 0.00166, 0.00987, 0.05834 & - ,0.24568, 0.81783, 1.92050, 2.92820, 2.46480, 2.13970 & - ,1.82830, 1.67450, 1.51900, 1.36490, 1.23070/ + / 0.00003, 0.00026, 0.00196, 0.01354, 0.07223, 0.29942 & + , 0.98224, 2.25040, 3.23060, 2.33270, 2.17640, 2.00390 & + , 1.90610, 1.81800, 1.74810, 1.65870, 1.56840/ DATA(qscat(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% - /0.00000, 0.00004, 0.00029, 0.00211, 0.01290, 0.07563 & - ,0.30715, 0.98207, 2.18580, 3.02680, 2.34250, 2.02900 & - ,1.82970, 1.69690, 1.55040, 1.39930, 1.26190/ + / 0.00004, 0.00037, 0.00295, 0.02099, 0.10710, 0.42365 & + , 1.26870, 2.61800, 3.14690, 2.15930, 2.04100, 1.95550 & + , 1.88310, 1.79710, 1.72150, 1.63510, 1.54220/ DATA(qscat(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% - /0.00001, 0.00005, 0.00040, 0.00323, 0.02131, 0.12172 & - ,0.48233, 1.37510, 2.69820, 2.95220, 2.19410, 1.92460 & - ,1.86720, 1.71550, 1.59730, 1.45850, 1.32080/ + / 0.00006, 0.00065, 0.00577, 0.04291, 0.19708, 0.73191 & + , 1.87400, 3.12550, 2.61160, 2.22190, 2.06750, 1.93050 & + , 1.84030, 1.76180, 1.68050, 1.59160, 1.50230/ DATA(qscat(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% - /0.00011, 0.00071, 0.00458, 0.02897, 0.15655, 0.67540 & - ,1.95970, 3.31950, 2.88180, 2.33520, 1.97270, 1.79570 & - ,1.59220, 1.41060, 1.26120, 1.16840, 1.12650/ + / 0.00022, 0.00144, 0.00926, 0.05594, 0.24703, 0.91027 & + , 2.28510, 3.57260, 2.87320, 2.38200, 2.33280, 2.20410 & + , 2.13570, 2.08510, 2.02930, 1.97580, 1.91940/ DATA(qscat(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% - /0.00011, 0.00072, 0.00461, 0.02916, 0.15731, 0.67728 & - ,1.96030, 3.31930, 2.88280, 2.33570, 1.97470, 1.79770 & - ,1.59440, 1.41280, 1.26260, 1.16900, 1.12650/ + / 0.00023, 0.00148, 0.00953, 0.05748, 0.25179, 0.92179 & + , 2.30210, 3.57610, 2.85900, 2.37840, 2.33090, 2.20810 & + , 2.13850, 2.08560, 2.03000, 1.98170, 1.92190/ DATA(qscat(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% - /0.00011, 0.00072, 0.00464, 0.02938, 0.15814, 0.67936 & - ,1.96110, 3.31920, 2.88370, 2.33620, 1.97680, 1.79970 & - ,1.59660, 1.41510, 1.26430, 1.16980, 1.12650/ + / 0.00023, 0.00153, 0.00984, 0.05918, 0.25702, 0.93442 & + , 2.32040, 3.57880, 2.84500, 2.36900, 2.32270, 2.20510 & + , 2.13780, 2.08380, 2.02990, 1.97930, 1.92210/ DATA(qscat(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% - /0.00011, 0.00073, 0.00468, 0.02962, 0.15906, 0.68169 & - ,1.96200, 3.31930, 2.88460, 2.33660, 1.97900, 1.80160 & - ,1.59910, 1.41770, 1.26620, 1.17050, 1.12650/ + / 0.00024, 0.00158, 0.01017, 0.06106, 0.26279, 0.94837 & + , 2.34030, 3.58050, 2.82860, 2.36080, 2.32070, 2.20460 & + , 2.13710, 2.08060, 2.02640, 1.98000, 1.92520/ DATA(qscat(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% - /0.00011, 0.00074, 0.00472, 0.02988, 0.16010, 0.68431 & - ,1.96310, 3.31940, 2.88530, 2.33720, 1.98170, 1.80390 & - ,1.60210, 1.42050, 1.26820, 1.17150, 1.12660/ + / 0.00025, 0.00163, 0.01055, 0.06316, 0.26920, 0.96390 & + , 2.36210, 3.58100, 2.80980, 2.35290, 2.31340, 2.20600 & + , 2.13330, 2.07530, 2.03180, 1.98500, 1.92680/ DATA(qscat(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% - /0.00012, 0.00074, 0.00477, 0.03019, 0.16127, 0.68728 & - ,1.96450, 3.31990, 2.88570, 2.33740, 1.98440, 1.80680 & - ,1.60540, 1.42370, 1.27070, 1.17240, 1.12660/ + / 0.00026, 0.00170, 0.01098, 0.06552, 0.27639, 0.98135 & + , 2.38610, 3.58070, 2.78780, 2.34710, 2.31900, 2.19650 & + , 2.13340, 2.07350, 2.03110, 1.98570, 1.92930/ DATA(qscat(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% - /0.00012, 0.00075, 0.00482, 0.03053, 0.16259, 0.69068 & - ,1.96620, 3.32070, 2.88580, 2.33750, 1.98770, 1.80940 & - ,1.60920, 1.42720, 1.27330, 1.17370, 1.12670/ + / 0.00027, 0.00177, 0.01147, 0.06818, 0.28452, 1.00120 & + , 2.41300, 3.58020, 2.76250, 2.33890, 2.30190, 2.19370 & + , 2.13120, 2.07800, 2.02800, 1.98290, 1.93170/ DATA(qscat(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% - /0.00012, 0.00076, 0.00488, 0.03093, 0.16410, 0.69460 & - ,1.96830, 3.32190, 2.88540, 2.33770, 1.99110, 1.81280 & - ,1.61340, 1.43150, 1.27640, 1.17510, 1.12680/ + / 0.00028, 0.00185, 0.01202, 0.07123, 0.29383, 1.02390 & + , 2.44370, 3.58100, 2.73780, 2.32730, 2.30480, 2.20370 & + , 2.12550, 2.07520, 2.02980, 1.98740, 1.93390/ DATA(qscat(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% - /0.00012, 0.00077, 0.00496, 0.03138, 0.16586, 0.69916 & - ,1.97090, 3.32390, 2.88440, 2.33750, 1.99590, 1.81580 & - ,1.61780, 1.43610, 1.28010, 1.17670, 1.12700/ + / 0.00029, 0.00195, 0.01268, 0.07476, 0.30463, 1.05040 & + , 2.47940, 3.58390, 2.71570, 2.31140, 2.30070, 2.19670 & + , 2.12420, 2.07450, 2.03270, 1.98930, 1.93560/ DATA(qscat(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% - /0.00012, 0.00078, 0.00504, 0.03192, 0.16791, 0.70454 & - ,1.97430, 3.32680, 2.88300, 2.33790, 2.00150, 1.82010 & - ,1.62330, 1.44160, 1.28450, 1.17870, 1.12730/ + / 0.00030, 0.00206, 0.01345, 0.07889, 0.31735, 1.08170 & + , 2.52150, 3.58710, 2.68800, 2.29600, 2.29730, 2.19480 & + , 2.12230, 2.07430, 2.03320, 1.98900, 1.93880/ DATA(qscat(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% - /0.00012, 0.00079, 0.00514, 0.03255, 0.17034, 0.71097 & - ,1.97880, 3.33110, 2.88130, 2.33730, 2.00740, 1.82540 & - ,1.62980, 1.44780, 1.28950, 1.18120, 1.12770/ + / 0.00032, 0.00220, 0.01437, 0.08382, 0.33265, 1.11930 & + , 2.57150, 3.58560, 2.65120, 2.28620, 2.28410, 2.19680 & + , 2.12090, 2.07720, 2.03170, 1.99290, 1.94290/ DATA(qscat(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% - /0.00012, 0.00081, 0.00525, 0.03332, 0.17327, 0.71878 & - ,1.98480, 3.33690, 2.88030, 2.33650, 2.01350, 1.83110 & - ,1.63780, 1.45510, 1.29570, 1.18440, 1.12830/ + / 0.00034, 0.00236, 0.01551, 0.08981, 0.35143, 1.16480 & + , 2.63070, 3.57600, 2.61670, 2.26380, 2.27860, 2.20140 & + , 2.11490, 2.07450, 2.03220, 1.99180, 1.94460/ DATA(qscat(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% - /0.00013, 0.00083, 0.00539, 0.03426, 0.17687, 0.72845 & - ,1.99310, 3.34460, 2.87970, 2.33620, 2.02040, 1.83790 & - ,1.64670, 1.46420, 1.30350, 1.18820, 1.12910/ + / 0.00037, 0.00256, 0.01694, 0.09724, 0.37511, 1.22090 & + , 2.69930, 3.56040, 2.57830, 2.25210, 2.27900, 2.19690 & + , 2.11730, 2.07920, 2.03310, 1.99270, 1.94810/ DATA(qscat(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% - /0.00013, 0.00085, 0.00557, 0.03545, 0.18141, 0.74072 & - ,2.00510, 3.35410, 2.87720, 2.33430, 2.02940, 1.84500 & - ,1.65830, 1.47550, 1.31260, 1.19350, 1.13040/ + / 0.00040, 0.00283, 0.01880, 0.10674, 0.40586, 1.29070 & + , 2.77890, 3.54370, 2.53590, 2.24060, 2.27390, 2.18430 & + , 2.11360, 2.07670, 2.03600, 1.99530, 1.95130/ DATA(qscat(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% - /0.00013, 0.00088, 0.00580, 0.03701, 0.18731, 0.75676 & - ,2.02300, 3.36520, 2.87100, 2.33060, 2.04090, 1.85500 & - ,1.67270, 1.48950, 1.32480, 1.20060, 1.13250/ + / 0.00044, 0.00318, 0.02132, 0.11926, 0.44710, 1.37880 & + , 2.87670, 3.50110, 2.49540, 2.23570, 2.25850, 2.17010 & + , 2.12030, 2.07230, 2.03640, 1.99680, 1.95540/ DATA(qscat(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% - /0.00014, 0.00092, 0.00611, 0.03912, 0.19529, 0.77856 & - ,2.05140, 3.37710, 2.85500, 2.32270, 2.05760, 1.86700 & - ,1.69140, 1.50760, 1.34150, 1.21130, 1.13620/ + / 0.00050, 0.00367, 0.02490, 0.13648, 0.50423, 1.49370 & + , 3.00670, 3.43340, 2.45820, 2.25000, 2.23680, 2.15100 & + , 2.11880, 2.06880, 2.03560, 1.99800, 1.95940/ DATA(qscat(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% - /0.00014, 0.00097, 0.00654, 0.04216, 0.20674, 0.80984 & - ,2.09870, 3.39130, 2.82950, 2.31320, 2.07370, 1.88270 & - ,1.71700, 1.53410, 1.36470, 1.22720, 1.14240/ + / 0.00058, 0.00440, 0.03033, 0.16147, 0.58584, 1.65450 & + , 3.16050, 3.31080, 2.42720, 2.29180, 2.19090, 2.15090 & + , 2.10700, 2.06620, 2.03200, 2.00000, 1.96280/ DATA(qscat(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% - /0.00015, 0.00104, 0.00719, 0.04693, 0.22465, 0.85868 & - ,2.18040, 3.42460, 2.78720, 2.29430, 2.09670, 1.90580 & - ,1.75050, 1.57290, 1.40170, 1.25330, 1.15470/ + / 0.00070, 0.00560, 0.03934, 0.20080, 0.70801, 1.89810 & + , 3.34690, 3.10610, 2.39880, 2.33890, 2.18180, 2.14890 & + , 2.10080, 2.06290, 2.03130, 2.00120, 1.96690/ DATA(qscat(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% - /0.00016, 0.00115, 0.00830, 0.05550, 0.25710, 0.94827 & - ,2.32580, 3.46800, 2.69020, 2.24680, 2.12630, 1.94210 & - ,1.80220, 1.63660, 1.46260, 1.30290, 1.18290/ + / 0.00091, 0.00785, 0.05679, 0.27452, 0.91914, 2.27780 & + , 3.51890, 2.77130, 2.32140, 2.31030, 2.19990, 2.12400 & + , 2.08820, 2.05990, 2.03000, 2.00130, 1.97120/ DATA(qscat(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% - /0.00017, 0.00135, 0.01067, 0.07559, 0.33861, 1.18810 & - ,2.68340, 3.47430, 2.49650, 2.15760, 2.15960, 2.01730 & - ,1.87270, 1.74060, 1.58500, 1.42040, 1.26840/ + / 0.00135, 0.01342, 0.10041, 0.46794, 1.40620, 2.96270 & + , 3.40270, 2.42790, 2.25410, 2.20830, 2.14420, 2.11080 & + , 2.07720, 2.04800, 2.02300, 1.99800, 1.96980/ DATA(qscat(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% - /0.00202, 0.01296, 0.07746, 0.36935, 1.25280, 2.81310 & - ,3.56840, 2.40800, 2.09700, 1.85010, 1.68620, 1.50270 & - ,1.33810, 1.21600, 1.14800, 1.12260, 1.11420/ + / 0.00370, 0.02361, 0.12737, 0.52409, 1.52090, 3.05660 & + , 3.54360, 2.43440, 2.38660, 2.19150, 2.17570, 2.10150 & + , 2.05360, 2.01450, 1.95950, 1.89610, 1.81840/ DATA(qscat(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% - /0.00203, 0.01305, 0.07791, 0.37075, 1.25460, 2.81260 & - ,3.56790, 2.40940, 2.09830, 1.85140, 1.68820, 1.50500 & - ,1.34000, 1.21710, 1.14830, 1.12240, 1.11390/ + / 0.00381, 0.02424, 0.13018, 0.53257, 1.53640, 3.06980 & + , 3.53500, 2.42200, 2.38590, 2.18550, 2.18050, 2.10420 & + , 2.05760, 2.01580, 1.95890, 1.90010, 1.82170/ DATA(qscat(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% - /0.00204, 0.01314, 0.07841, 0.37230, 1.25670, 2.81200 & - ,3.56730, 2.41030, 2.09990, 1.85340, 1.69050, 1.50740 & - ,1.34210, 1.21830, 1.14860, 1.12220, 1.11360/ + / 0.00392, 0.02493, 0.13326, 0.54184, 1.55350, 3.08450 & + , 3.52510, 2.41090, 2.38610, 2.19630, 2.17520, 2.11070 & + , 2.05690, 2.01050, 1.96450, 1.90570, 1.82690/ DATA(qscat(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% - /0.00206, 0.01324, 0.07896, 0.37402, 1.25900, 2.81160 & - ,3.56670, 2.41100, 2.10140, 1.85550, 1.69310, 1.51030 & - ,1.34450, 1.21970, 1.14890, 1.12200, 1.11330/ + / 0.00404, 0.02569, 0.13665, 0.55204, 1.57240, 3.10070 & + , 3.51370, 2.39650, 2.38550, 2.19750, 2.17540, 2.10910 & + , 2.05660, 2.01770, 1.96570, 1.90660, 1.83050/ DATA(qscat(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% - /0.00207, 0.01336, 0.07958, 0.37594, 1.26160, 2.81110 & - ,3.56620, 2.41190, 2.10310, 1.85730, 1.69600, 1.51340 & - ,1.34690, 1.22130, 1.14930, 1.12170, 1.11290/ + / 0.00417, 0.02654, 0.14041, 0.56332, 1.59330, 3.11860 & + , 3.50020, 2.38450, 2.38270, 2.20140, 2.18330, 2.11300 & + , 2.06530, 2.01560, 1.96610, 1.90890, 1.83520/ DATA(qscat(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% - /0.00209, 0.01348, 0.08027, 0.37810, 1.26450, 2.81080 & - ,3.56580, 2.41280, 2.10580, 1.85970, 1.69940, 1.51670 & - ,1.34980, 1.22300, 1.14980, 1.12150, 1.11250/ + / 0.00431, 0.02749, 0.14460, 0.57590, 1.61650, 3.13790 & + , 3.48490, 2.37100, 2.38660, 2.19740, 2.18370, 2.11060 & + , 2.06340, 2.01500, 1.96880, 1.91180, 1.83810/ DATA(qscat(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% - /0.00211, 0.01363, 0.08105, 0.38055, 1.26800, 2.81050 & - ,3.56530, 2.41390, 2.10840, 1.86230, 1.70310, 1.52050 & - ,1.35310, 1.22500, 1.15040, 1.12130, 1.11200/ + / 0.00447, 0.02856, 0.14930, 0.59004, 1.64250, 3.15880 & + , 3.46850, 2.35610, 2.38700, 2.20830, 2.18180, 2.10750 & + , 2.06230, 2.01440, 1.97180, 1.91770, 1.84330/ DATA(qscat(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% - /0.00213, 0.01379, 0.08193, 0.38335, 1.27200, 2.81050 & - ,3.56370, 2.41440, 2.11160, 1.86550, 1.70750, 1.52480 & - ,1.35670, 1.22720, 1.15100, 1.12100, 1.11150/ + / 0.00466, 0.02977, 0.15464, 0.60612, 1.67190, 3.18140 & + , 3.44970, 2.33930, 2.39140, 2.20770, 2.18500, 2.11610 & + , 2.06020, 2.01440, 1.97320, 1.91970, 1.85000/ DATA(qscat(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% - /0.00216, 0.01397, 0.08295, 0.38657, 1.27660, 2.81070 & - ,3.56160, 2.41510, 2.11540, 1.86900, 1.71210, 1.52990 & - ,1.36120, 1.23000, 1.15190, 1.12080, 1.11090/ + / 0.00487, 0.03117, 0.16077, 0.62462, 1.70530, 3.20590 & + , 3.42770, 2.31890, 2.39110, 2.20940, 2.17870, 2.10990 & + , 2.05930, 2.02190, 1.97380, 1.92200, 1.85550/ DATA(qscat(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% - /0.00219, 0.01418, 0.08412, 0.39034, 1.28220, 2.81140 & - ,3.56020, 2.41410, 2.12040, 1.87270, 1.71740, 1.53530 & - ,1.36620, 1.23330, 1.15300, 1.12050, 1.11030/ + / 0.00511, 0.03280, 0.16790, 0.64622, 1.74370, 3.23300 & + , 3.40210, 2.29520, 2.39340, 2.21990, 2.16730, 2.11600 & + , 2.05750, 2.01800, 1.97630, 1.92700, 1.86160/ DATA(qscat(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% - /0.00222, 0.01443, 0.08551, 0.39479, 1.28900, 2.81280 & - ,3.55860, 2.41240, 2.12550, 1.87770, 1.72340, 1.54170 & - ,1.37210, 1.23720, 1.15440, 1.12020, 1.10960/ + / 0.00540, 0.03473, 0.17633, 0.67183, 1.78850, 3.26370 & + , 3.36980, 2.27110, 2.39520, 2.22330, 2.17140, 2.11280 & + , 2.06020, 2.02410, 1.98000, 1.93110, 1.86730/ DATA(qscat(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% - /0.00225, 0.01472, 0.08715, 0.40014, 1.29720, 2.81530 & - ,3.55690, 2.40990, 2.12980, 1.88390, 1.73120, 1.55000 & - ,1.37920, 1.24210, 1.15610, 1.12010, 1.10870/ + / 0.00574, 0.03706, 0.18648, 0.70277, 1.84150, 3.29920 & + , 3.32590, 2.25000, 2.38820, 2.23320, 2.16480, 2.10000 & + , 2.06100, 2.02150, 1.98210, 1.93590, 1.87530/ DATA(qscat(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% - /0.00230, 0.01507, 0.08915, 0.40670, 1.30740, 2.81950 & - ,3.55480, 2.40560, 2.13390, 1.88930, 1.74070, 1.55990 & - ,1.38780, 1.24790, 1.15850, 1.12000, 1.10780/ + / 0.00615, 0.03992, 0.19901, 0.74093, 1.90540, 3.33920 & + , 3.27130, 2.23230, 2.39080, 2.24020, 2.15510, 2.09600 & + , 2.06130, 2.02240, 1.98540, 1.94110, 1.88370/ DATA(qscat(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% - /0.00235, 0.01550, 0.09162, 0.41494, 1.32050, 2.82600 & - ,3.55210, 2.40080, 2.13970, 1.89680, 1.75090, 1.57220 & - ,1.39900, 1.25600, 1.16170, 1.12000, 1.10670/ + / 0.00667, 0.04354, 0.21491, 0.78901, 1.98350, 3.38410 & + , 3.21430, 2.20550, 2.38790, 2.23870, 2.14650, 2.09180 & + , 2.06140, 2.02490, 1.98850, 1.94670, 1.89080/ DATA(qscat(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% - /0.00241, 0.01603, 0.09476, 0.42561, 1.33780, 2.83630 & - ,3.54830, 2.39230, 2.14830, 1.90550, 1.76540, 1.58680 & - ,1.41270, 1.26620, 1.16650, 1.12050, 1.10550/ + / 0.00734, 0.04828, 0.23580, 0.85103, 2.08060, 3.43590 & + , 3.12910, 2.19330, 2.37820, 2.24250, 2.13320, 2.09930 & + , 2.06350, 2.02560, 1.99210, 1.95240, 1.90110/ DATA(qscat(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% - /0.00249, 0.01672, 0.09891, 0.43996, 1.36130, 2.85320 & - ,3.54130, 2.38190, 2.16300, 1.91810, 1.78270, 1.60670 & - ,1.43190, 1.28040, 1.17360, 1.12160, 1.10420/ + / 0.00825, 0.05474, 0.26441, 0.93331, 2.20550, 3.48960 & + , 3.01550, 2.19110, 2.35350, 2.22710, 2.12380, 2.10170 & + , 2.06060, 2.02880, 1.99580, 1.96050, 1.91330/ DATA(qscat(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% - /0.00259, 0.01764, 0.10465, 0.46034, 1.39550, 2.88250 & - ,3.52370, 2.36790, 2.18340, 1.93290, 1.80760, 1.63290 & - ,1.45770, 1.30030, 1.18540, 1.12450, 1.10290/ + / 0.00952, 0.06404, 0.30561, 1.04730, 2.37530, 3.54300 & + , 2.86350, 2.21810, 2.29920, 2.19190, 2.13960, 2.08910 & + , 2.05470, 2.02890, 2.00010, 1.96710, 1.92490/ DATA(qscat(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% - /0.00272, 0.01894, 0.11316, 0.49152, 1.45080, 2.93570 & - ,3.48900, 2.32910, 2.20870, 1.95730, 1.84510, 1.67120 & - ,1.49660, 1.33330, 1.20570, 1.13130, 1.10220/ + / 0.01147, 0.07844, 0.36883, 1.21810, 2.61190, 3.55590 & + , 2.64970, 2.28200, 2.20870, 2.15350, 2.13070, 2.09220 & + , 2.05370, 2.02950, 2.00410, 1.97700, 1.94070/ DATA(qscat(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% - /0.00290, 0.02096, 0.12723, 0.54491, 1.55650, 3.03920 & - ,3.42950, 2.25740, 2.24620, 2.00390, 1.89780, 1.73310 & - ,1.56050, 1.39220, 1.24710, 1.15000, 1.10490/ + / 0.01477, 0.10349, 0.47814, 1.50780, 2.95820, 3.46930 & + , 2.37220, 2.36180, 2.19230, 2.17480, 2.11580, 2.08470 & + , 2.05500, 2.03080, 2.00970, 1.98670, 1.95780/ DATA(qscat(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% - /0.00317, 0.02451, 0.15542, 0.65754, 1.80500, 3.26390 & - ,3.20780, 2.14190, 2.27970, 2.09880, 1.94200, 1.81610 & - ,1.67600, 1.51750, 1.35540, 1.21840, 1.13060/ + / 0.02148, 0.15799, 0.72082, 2.06630, 3.41310, 3.02420 & + , 2.18390, 2.33270, 2.21370, 2.13040, 2.10130, 2.07200 & + , 2.04820, 2.02980, 2.01440, 1.99660, 1.97740/ DATA(qscat(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00020, 0.00131, 0.00844, 0.05454, 0.31563 & - ,1.12620, 1.76130, 1.40620, 1.22980, 1.23050/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00006, 0.00040, 0.00258, 0.01637, 0.09695, 0.40877 & + , 0.99543, 1.43050, 1.31110, 1.17900, 1.17950/ DATA(qscat(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00021, 0.00132, 0.00853, 0.05505, 0.31755 & - ,1.12530, 1.75470, 1.40390, 1.22910, 1.23000/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00007, 0.00042, 0.00270, 0.01708, 0.10063, 0.41801 & + , 1.00260, 1.42490, 1.30340, 1.17870, 1.17940/ DATA(qscat(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00021, 0.00134, 0.00862, 0.05562, 0.31968 & - ,1.12420, 1.74750, 1.40150, 1.22830, 1.22940/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00007, 0.00044, 0.00282, 0.01786, 0.10471, 0.42801 & + , 1.01030, 1.41930, 1.29560, 1.17840, 1.17920/ DATA(qscat(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00021, 0.00135, 0.00873, 0.05626, 0.32204 & - ,1.12310, 1.73970, 1.39880, 1.22750, 1.22880/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00007, 0.00046, 0.00297, 0.01875, 0.10925, 0.43886 & + , 1.01860, 1.41350, 1.28770, 1.17820, 1.17910/ DATA(qscat(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00021, 0.00137, 0.00884, 0.05697, 0.32468 & - ,1.12200, 1.73110, 1.39580, 1.22670, 1.22810/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00008, 0.00049, 0.00313, 0.01975, 0.11432, 0.45070 & + , 1.02780, 1.40750, 1.27980, 1.17790, 1.17890/ DATA(qscat(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00022, 0.00139, 0.00898, 0.05779, 0.32766 & - ,1.12070, 1.72180, 1.39250, 1.22580, 1.22730/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00008, 0.00052, 0.00331, 0.02090, 0.12004, 0.46370 & + , 1.03770, 1.40140, 1.27170, 1.17760, 1.17880/ DATA(qscat(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00003, 0.00022, 0.00142, 0.00914, 0.05872, 0.33104 & - ,1.11930, 1.71160, 1.38870, 1.22480, 1.22650/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00009, 0.00055, 0.00353, 0.02222, 0.12654, 0.47806 & + , 1.04860, 1.39500, 1.26360, 1.17740, 1.17870/ DATA(qscat(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00023, 0.00145, 0.00932, 0.05981, 0.33492 & - ,1.11790, 1.70030, 1.38460, 1.22370, 1.22550/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00009, 0.00059, 0.00378, 0.02376, 0.13401, 0.49404 & + , 1.06060, 1.38840, 1.25530, 1.17710, 1.17860/ DATA(qscat(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00023, 0.00148, 0.00953, 0.06108, 0.33940 & - ,1.11630, 1.68780, 1.37990, 1.22250, 1.22450/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00010, 0.00064, 0.00408, 0.02560, 0.14268, 0.51197 & + , 1.07390, 1.38150, 1.24700, 1.17690, 1.17850/ DATA(qscat(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00024, 0.00152, 0.00978, 0.06259, 0.34463 & - ,1.11470, 1.67390, 1.37450, 1.22130, 1.22330/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00011, 0.00070, 0.00444, 0.02781, 0.15289, 0.53231 & + , 1.08850, 1.37410, 1.23850, 1.17670, 1.17840/ DATA(qscat(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00024, 0.00157, 0.01009, 0.06441, 0.35084 & - ,1.11300, 1.65840, 1.36840, 1.21980, 1.22190/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00012, 0.00077, 0.00489, 0.03052, 0.16509, 0.55564 & + , 1.10470, 1.36610, 1.23000, 1.17660, 1.17830/ DATA(qscat(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00025, 0.00162, 0.01047, 0.06665, 0.35832 & - ,1.11130, 1.64090, 1.36130, 1.21820, 1.22030/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00013, 0.00086, 0.00546, 0.03395, 0.17991, 0.58274 & + , 1.12280, 1.35710, 1.22140, 1.17650, 1.17830/ DATA(qscat(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00026, 0.00170, 0.01095, 0.06947, 0.36749 & - ,1.10970, 1.62130, 1.35310, 1.21640, 1.21850/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00015, 0.00097, 0.00620, 0.03838, 0.19830, 0.61470 & + , 1.14300, 1.34680, 1.21280, 1.17650, 1.17820/ DATA(qscat(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00004, 0.00028, 0.00180, 0.01157, 0.07314, 0.37902 & - ,1.10830, 1.59900, 1.34330, 1.21430, 1.21630/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & + , 0.00018, 0.00113, 0.00721, 0.04432, 0.22164, 0.65301 & + , 1.16570, 1.33460, 1.20430, 1.17650, 1.17820/ DATA(qscat(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00005, 0.00030, 0.00193, 0.01243, 0.07808, 0.39393 & - ,1.10770, 1.57350, 1.33160, 1.21180, 1.21380/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & + , 0.00021, 0.00135, 0.00864, 0.05262, 0.25205, 0.69977 & + , 1.19120, 1.32000, 1.19600, 1.17670, 1.17820/ DATA(qscat(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00005, 0.00033, 0.00212, 0.01366, 0.08508, 0.41397 & - ,1.10860, 1.54430, 1.31710, 1.20890, 1.21060/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & + , 0.00026, 0.00169, 0.01080, 0.06483, 0.29286, 0.75805 & + , 1.21990, 1.30230, 1.18830, 1.17700, 1.17820/ DATA(qscat(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00006, 0.00038, 0.00242, 0.01556, 0.09576, 0.44237 & - ,1.11300, 1.51030, 1.29860, 1.20530, 1.20680/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + , 0.00035, 0.00225, 0.01431, 0.08406, 0.34964, 0.83237 & + , 1.25070, 1.27990, 1.18180, 1.17750, 1.17820/ DATA(qscat(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00007, 0.00046, 0.00295, 0.01891, 0.11385, 0.48578 & - ,1.12530, 1.46890, 1.27450, 1.20070, 1.20200/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + , 0.00051, 0.00329, 0.02086, 0.11762, 0.43356, 0.93051 & + , 1.27950, 1.25120, 1.17730, 1.17810, 1.17810/ DATA(qscat(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & - ,0.00010, 0.00063, 0.00409, 0.02614, 0.15040, 0.56095 & - ,1.15670, 1.41490, 1.24270, 1.19470, 1.19590/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00013 & + , 0.00087, 0.00571, 0.03568, 0.18469, 0.56813, 1.06060 & + , 1.29550, 1.21580, 1.17580, 1.17870, 1.17760/ DATA(qscat(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & - ,0.00018, 0.00121, 0.00804, 0.05065, 0.25404, 0.72700 & - ,1.23010, 1.33440, 1.20190, 1.18720, 1.18810/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00033 & + , 0.00223, 0.01470, 0.08736, 0.35672, 0.82620, 1.22560 & + , 1.26460, 1.18190, 1.17780, 1.17880, 1.17600/ DATA(qscat(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00074, 0.00470, 0.02958, 0.16912, 0.66331 & - ,1.65090, 2.22490, 1.39120, 1.22580, 1.17470/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + , 0.00032, 0.00205, 0.01278, 0.07358, 0.30598, 0.76319 & + , 1.24540, 1.33480, 1.16390, 1.15450, 1.15530/ DATA(qscat(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00074, 0.00473, 0.02977, 0.16963, 0.66110 & - ,1.63450, 2.19630, 1.38460, 1.21940, 1.17280/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + , 0.00033, 0.00212, 0.01319, 0.07550, 0.30950, 0.76195 & + , 1.23310, 1.32040, 1.16170, 1.15330, 1.15440/ DATA(qscat(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00075, 0.00477, 0.02998, 0.17021, 0.65875 & - ,1.61700, 2.16600, 1.37770, 1.21300, 1.17110/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + , 0.00035, 0.00219, 0.01364, 0.07762, 0.31339, 0.76107 & + , 1.22100, 1.30590, 1.15940, 1.15210, 1.15360/ DATA(qscat(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00076, 0.00481, 0.03021, 0.17087, 0.65624 & - ,1.59820, 2.13360, 1.37040, 1.20660, 1.16930/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + , 0.00036, 0.00228, 0.01415, 0.08000, 0.31770, 0.76063 & + , 1.20900, 1.29150, 1.15700, 1.15100, 1.15270/ DATA(qscat(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00076, 0.00486, 0.03048, 0.17163, 0.65358 & - ,1.57810, 2.09910, 1.36260, 1.20040, 1.16770/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + , 0.00038, 0.00238, 0.01473, 0.08267, 0.32251, 0.76070 & + , 1.19720, 1.27720, 1.15450, 1.14980, 1.15190/ DATA(qscat(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00077, 0.00492, 0.03079, 0.17250, 0.65074 & - ,1.55650, 2.06200, 1.35440, 1.19420, 1.16610/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + , 0.00039, 0.00249, 0.01539, 0.08570, 0.32790, 0.76136 & + , 1.18560, 1.26290, 1.15200, 1.14860, 1.15110/ DATA(qscat(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00012, 0.00078, 0.00498, 0.03115, 0.17353, 0.64773 & - ,1.53320, 2.02230, 1.34560, 1.18820, 1.16460/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + , 0.00041, 0.00262, 0.01616, 0.08916, 0.33398, 0.76273 & + , 1.17420, 1.24860, 1.14950, 1.14740, 1.15020/ DATA(qscat(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00013, 0.00080, 0.00506, 0.03156, 0.17474, 0.64454 & - ,1.50800, 1.97960, 1.33630, 1.18250, 1.16310/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00007 & + , 0.00044, 0.00277, 0.01706, 0.09315, 0.34090, 0.76494 & + , 1.16300, 1.23440, 1.14690, 1.14630, 1.14940/ DATA(qscat(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00013, 0.00081, 0.00515, 0.03206, 0.17618, 0.64116 & - ,1.48080, 1.93360, 1.32620, 1.17700, 1.16170/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00007 & + , 0.00047, 0.00295, 0.01813, 0.09782, 0.34885, 0.76817 & + , 1.15220, 1.22020, 1.14420, 1.14520, 1.14860/ DATA(qscat(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00013, 0.00083, 0.00526, 0.03266, 0.17794, 0.63763 & - ,1.45130, 1.88380, 1.31520, 1.17180, 1.16020/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + , 0.00050, 0.00318, 0.01942, 0.10334, 0.35807, 0.77265 & + , 1.14180, 1.20610, 1.14160, 1.14410, 1.14780/ DATA(qscat(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00013, 0.00085, 0.00539, 0.03340, 0.18011, 0.63397 & - ,1.41930, 1.82990, 1.30320, 1.16690, 1.15870/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + , 0.00055, 0.00345, 0.02100, 0.10998, 0.36892, 0.77869 & + , 1.13200, 1.19210, 1.13890, 1.14300, 1.14700/ DATA(qscat(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00014, 0.00088, 0.00556, 0.03433, 0.18284, 0.63028 & - ,1.38460, 1.77130, 1.29010, 1.16240, 1.15710/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + , 0.00060, 0.00380, 0.02300, 0.11810, 0.38185, 0.78669 & + , 1.12280, 1.17840, 1.13640, 1.14200, 1.14630/ DATA(qscat(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00014, 0.00091, 0.00577, 0.03553, 0.18635, 0.62671 & - ,1.34680, 1.70760, 1.27540, 1.15830, 1.15540/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00011 & + , 0.00067, 0.00425, 0.02559, 0.12824, 0.39756, 0.79719 & + , 1.11460, 1.16510, 1.13400, 1.14110, 1.14570/ DATA(qscat(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00015, 0.00096, 0.00606, 0.03712, 0.19102, 0.62354 & - ,1.30580, 1.63810, 1.25900, 1.15460, 1.15340/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00012 & + , 0.00077, 0.00487, 0.02906, 0.14122, 0.41704, 0.81093 & + , 1.10740, 1.15240, 1.13180, 1.14040, 1.14510/ DATA(qscat(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & - ,0.00016, 0.00102, 0.00647, 0.03932, 0.19743, 0.62135 & - ,1.26170, 1.56250, 1.24040, 1.15110, 1.15120/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00014 & + , 0.00091, 0.00575, 0.03389, 0.15829, 0.44180, 0.82891 & + , 1.10160, 1.14070, 1.13010, 1.13990, 1.14470/ DATA(qscat(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & - ,0.00017, 0.00112, 0.00706, 0.04254, 0.20666, 0.62120 & - ,1.21480, 1.48050, 1.21920, 1.14770, 1.14860/ + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00017 & + , 0.00112, 0.00706, 0.04098, 0.18143, 0.47424, 0.85251 & + , 1.09740, 1.13020, 1.12900, 1.13970, 1.14440/ DATA(qscat(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & - ,0.00020, 0.00127, 0.00802, 0.04762, 0.22074, 0.62533 & - ,1.16630, 1.39270, 1.19490, 1.14410, 1.14570/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00023 & + , 0.00147, 0.00920, 0.05210, 0.21396, 0.51833, 0.88359 & + , 1.09510, 1.12190, 1.12890, 1.13990, 1.14420/ DATA(qscat(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & - ,0.00024, 0.00155, 0.00974, 0.05659, 0.24414, 0.63873 & - ,1.11930, 1.30100, 1.16810, 1.13990, 1.14260/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00033 & + , 0.00211, 0.01313, 0.07138, 0.26245, 0.58175, 0.92502 & + , 1.09500, 1.11670, 1.13000, 1.14070, 1.14430/ DATA(qscat(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & - ,0.00033, 0.00216, 0.01358, 0.07558, 0.28828, 0.67420 & - ,1.08080, 1.21010, 1.14150, 1.13550, 1.14010/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00055 & + , 0.00359, 0.02190, 0.10983, 0.34045, 0.67795, 0.97980 & + , 1.09730, 1.11630, 1.13290, 1.14220, 1.14450/ DATA(qscat(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00065, 0.00435, 0.02689, 0.13280, 0.39431, 0.77241 & - ,1.06860, 1.13330, 1.12400, 1.13420, 1.14010/ + / 0.00000, 0.00000, 0.00000, 0.00003, 0.00019, 0.00135 & + , 0.00889, 0.05146, 0.20959, 0.49717, 0.83848, 1.04940 & + , 1.10350, 1.12400, 1.13850, 1.14430, 1.14420/ DATA(qscat(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & - ,0.00052, 0.00327, 0.02003, 0.10642, 0.35826, 0.81682 & - ,1.26810, 1.40030, 1.24000, 1.12530, 1.11970/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + , 0.00129, 0.00772, 0.03990, 0.14049, 0.31797, 0.58959 & + , 0.88305, 1.07650, 1.09900, 1.09250, 1.10260/ DATA(qscat(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & - ,0.00052, 0.00330, 0.02017, 0.10695, 0.35922, 0.81974 & - ,1.27370, 1.40510, 1.24010, 1.12480, 1.11950/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + , 0.00130, 0.00775, 0.04003, 0.14069, 0.32013, 0.59639 & + , 0.89451, 1.08540, 1.09920, 1.09150, 1.10110/ DATA(qscat(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & - ,0.00053, 0.00332, 0.02032, 0.10754, 0.36029, 0.82298 & - ,1.28000, 1.41040, 1.24010, 1.12440, 1.11930/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + , 0.00131, 0.00780, 0.04026, 0.14114, 0.32298, 0.60446 & + , 0.90762, 1.09530, 1.09920, 1.09060, 1.09960/ DATA(qscat(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & - ,0.00053, 0.00335, 0.02049, 0.10820, 0.36151, 0.82662 & - ,1.28690, 1.41620, 1.24010, 1.12380, 1.11900/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + , 0.00132, 0.00788, 0.04058, 0.14188, 0.32666, 0.61404 & + , 0.92265, 1.10620, 1.09920, 1.08990, 1.09820/ DATA(qscat(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & - ,0.00054, 0.00339, 0.02068, 0.10895, 0.36290, 0.83072 & - ,1.29470, 1.42260, 1.24000, 1.12330, 1.11870/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00022 & + , 0.00134, 0.00798, 0.04103, 0.14298, 0.33135, 0.62541 & + , 0.93994, 1.11810, 1.09900, 1.08930, 1.09690/ DATA(qscat(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00054, 0.00343, 0.02090, 0.10980, 0.36451, 0.83537 & - ,1.30350, 1.42980, 1.23970, 1.12270, 1.11840/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00022 & + , 0.00136, 0.00811, 0.04163, 0.14451, 0.33725, 0.63897 & + , 0.95988, 1.13110, 1.09860, 1.08890, 1.09560/ DATA(qscat(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00055, 0.00347, 0.02115, 0.11078, 0.36638, 0.84071 & - ,1.31340, 1.43780, 1.23920, 1.12210, 1.11810/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00022 & + , 0.00139, 0.00828, 0.04243, 0.14658, 0.34466, 0.65519 & + , 0.98300, 1.14540, 1.09790, 1.08870, 1.09440/ DATA(qscat(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00056, 0.00352, 0.02145, 0.11191, 0.36859, 0.84687 & - ,1.32470, 1.44680, 1.23850, 1.12150, 1.11770/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00023 & + , 0.00143, 0.00851, 0.04348, 0.14932, 0.35396, 0.67472 & + , 1.00990, 1.16090, 1.09700, 1.08860, 1.09340/ DATA(qscat(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00057, 0.00358, 0.02179, 0.11324, 0.37122, 0.85408 & - ,1.33790, 1.45690, 1.23740, 1.12090, 1.11720/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00024 & + , 0.00148, 0.00881, 0.04485, 0.15294, 0.36565, 0.69844 & + , 1.04140, 1.17750, 1.09570, 1.08870, 1.09240/ DATA(qscat(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00058, 0.00366, 0.02220, 0.11482, 0.37441, 0.86263 & - ,1.35320, 1.46850, 1.23580, 1.12020, 1.11660/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + , 0.00155, 0.00919, 0.04664, 0.15770, 0.38040, 0.72754 & + , 1.07850, 1.19520, 1.09410, 1.08890, 1.09150/ DATA(qscat(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & - ,0.00059, 0.00374, 0.02270, 0.11672, 0.37835, 0.87292 & - ,1.37130, 1.48170, 1.23350, 1.11970, 1.11600/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & + , 0.00164, 0.00971, 0.04901, 0.16400, 0.39919, 0.76364 & + , 1.12240, 1.21330, 1.09220, 1.08900, 1.09070/ DATA(qscat(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & - ,0.00061, 0.00385, 0.02332, 0.11907, 0.38330, 0.88553 & - ,1.39310, 1.49700, 1.23030, 1.11940, 1.11530/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00028 & + , 0.00176, 0.01041, 0.05219, 0.17240, 0.42335, 0.80902 & + , 1.17480, 1.23130, 1.09030, 1.08890, 1.09010/ DATA(qscat(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & - ,0.00063, 0.00399, 0.02410, 0.12201, 0.38971, 0.90135 & - ,1.41980, 1.51470, 1.22580, 1.11930, 1.11440/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00031 & + , 0.00192, 0.01137, 0.05652, 0.18383, 0.45493, 0.86679 & + , 1.23780, 1.24770, 1.08890, 1.08860, 1.08960/ DATA(qscat(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & - ,0.00066, 0.00417, 0.02512, 0.12583, 0.39827, 0.92175 & - ,1.45330, 1.53550, 1.21890, 1.11980, 1.11340/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00034 & + , 0.00216, 0.01275, 0.06256, 0.19974, 0.49704, 0.94132 & + , 1.31340, 1.25900, 1.08910, 1.08810, 1.08940/ DATA(qscat(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00011 & - ,0.00070, 0.00441, 0.02650, 0.13094, 0.41018, 0.94902 & - ,1.49640, 1.56020, 1.20840, 1.12110, 1.11240/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00040 & + , 0.00251, 0.01478, 0.07125, 0.22270, 0.55489, 1.03920 & + , 1.40190, 1.26110, 1.09250, 1.08810, 1.08960/ DATA(qscat(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00012 & - ,0.00076, 0.00477, 0.02848, 0.13812, 0.42765, 0.98717 & - ,1.55410, 1.58920, 1.19320, 1.12370, 1.11150/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00049 & + , 0.00306, 0.01793, 0.08422, 0.25748, 0.63760, 1.17120 & + , 1.50380, 1.24580, 1.10130, 1.09000, 1.09000/ DATA(qscat(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00013 & - ,0.00084, 0.00531, 0.03154, 0.14888, 0.45526, 1.04370 & - ,1.63410, 1.61940, 1.16990, 1.12790, 1.11110/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00063 & + , 0.00399, 0.02318, 0.10448, 0.31369, 0.76106, 1.35240 & + , 1.60720, 1.20440, 1.11490, 1.09430, 1.09030/ DATA(qscat(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & - ,0.00099, 0.00626, 0.03682, 0.16662, 0.50348, 1.13400 & - ,1.74790, 1.64320, 1.13760, 1.13120, 1.11060/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00014, 0.00091 & + , 0.00576, 0.03292, 0.13868, 0.41255, 0.95369, 1.60010 & + , 1.67930, 1.13790, 1.12120, 1.09590, 1.09110/ DATA(qscat(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00020 & - ,0.00131, 0.00830, 0.04787, 0.20080, 0.59996, 1.29650 & - ,1.92570, 1.62550, 1.10700, 1.12130, 1.10660/ + / 0.00000, 0.00000, 0.00000, 0.00004, 0.00023, 0.00156 & + , 0.00986, 0.05426, 0.20376, 0.59500, 1.28030, 1.92210 & + , 1.61610, 1.10790, 1.09990, 1.09610, 1.09140/ DATA(qscat(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00034 & - ,0.00234, 0.01505, 0.08212, 0.29489, 0.83761, 1.68570 & - ,2.17570, 1.39960, 1.17480, 1.10880, 1.10420/ + / 0.00000, 0.00000, 0.00001, 0.00008, 0.00056, 0.00390 & + , 0.02450, 0.11934, 0.39030, 1.02070, 1.89770, 2.14610 & + , 1.22040, 1.19920, 1.11660, 1.09590, 1.09070/ DATA(qscat(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00113, 0.00725, 0.04681, 0.27904, 1.07380, 1.99160 & - ,1.71550, 1.15450, 1.22020, 1.20580, 1.19920/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00055 & + , 0.00349, 0.02210, 0.13083, 0.54750, 1.31360, 1.84030 & + , 1.53760, 1.19340, 1.22340, 1.20190, 1.19400/ DATA(qscat(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00113, 0.00727, 0.04691, 0.27900, 1.06960, 1.98870 & - ,1.72160, 1.15300, 1.22000, 1.20480, 1.19820/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00055 & + , 0.00350, 0.02215, 0.13060, 0.54204, 1.30020, 1.83330 & + , 1.54310, 1.18950, 1.22110, 1.19890, 1.19070/ DATA(qscat(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00113, 0.00729, 0.04701, 0.27895, 1.06510, 1.98550 & - ,1.72820, 1.15150, 1.21970, 1.20380, 1.19710/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00055 & + , 0.00351, 0.02220, 0.13040, 0.53638, 1.28630, 1.82600 & + , 1.54890, 1.18600, 1.21870, 1.19570, 1.18730/ DATA(qscat(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00114, 0.00732, 0.04713, 0.27889, 1.06020, 1.98180 & - ,1.73540, 1.14990, 1.21950, 1.20270, 1.19600/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00055 & + , 0.00353, 0.02226, 0.13021, 0.53052, 1.27200, 1.81830 & + , 1.55500, 1.18270, 1.21610, 1.19250, 1.18370/ DATA(qscat(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00114, 0.00735, 0.04727, 0.27883, 1.05480, 1.97770 & - ,1.74340, 1.14840, 1.21920, 1.20140, 1.19470/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00056 & + , 0.00354, 0.02234, 0.13005, 0.52445, 1.25720, 1.81030 & + , 1.56160, 1.17980, 1.21330, 1.18910, 1.17990/ DATA(qscat(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00115, 0.00738, 0.04741, 0.27876, 1.04880, 1.97310 & - ,1.75220, 1.14680, 1.21900, 1.20010, 1.19330/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00056 & + , 0.00356, 0.02244, 0.12993, 0.51816, 1.24210, 1.80190 & + , 1.56860, 1.17710, 1.21030, 1.18550, 1.17600/ DATA(qscat(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00115, 0.00741, 0.04758, 0.27867, 1.04230, 1.96780 & - ,1.76190, 1.14520, 1.21870, 1.19860, 1.19170/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00056 & + , 0.00359, 0.02256, 0.12988, 0.51166, 1.22640, 1.79320 & + , 1.57610, 1.17450, 1.20690, 1.18170, 1.17190/ DATA(qscat(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00116, 0.00745, 0.04778, 0.27857, 1.03490, 1.96170 & - ,1.77280, 1.14380, 1.21840, 1.19700, 1.19000/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00057 & + , 0.00362, 0.02271, 0.12990, 0.50496, 1.21030, 1.78420 & + , 1.58420, 1.17190, 1.20320, 1.17760, 1.16760/ DATA(qscat(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00117, 0.00749, 0.04800, 0.27846, 1.02680, 1.95460 & - ,1.78500, 1.14250, 1.21810, 1.19530, 1.18800/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00058 & + , 0.00366, 0.02290, 0.13003, 0.49807, 1.19380, 1.77490 & + , 1.59290, 1.16900, 1.19920, 1.17330, 1.16310/ DATA(qscat(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & - ,0.00118, 0.00755, 0.04826, 0.27833, 1.01760, 1.94630 & - ,1.79880, 1.14160, 1.21770, 1.19330, 1.18570/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00058 & + , 0.00371, 0.02314, 0.13033, 0.49106, 1.17690, 1.76540 & + , 1.60210, 1.16620, 1.19470, 1.16860, 1.15830/ DATA(qscat(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & - ,0.00119, 0.00761, 0.04858, 0.27817, 1.00720, 1.93650 & - ,1.81440, 1.14110, 1.21730, 1.19100, 1.18320/ + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00059 & + , 0.00377, 0.02346, 0.13085, 0.48401, 1.15980, 1.75590 & + , 1.61160, 1.16390, 1.18980, 1.16350, 1.15330/ DATA(qscat(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & - ,0.00120, 0.00769, 0.04896, 0.27800, 0.99543, 1.92480 & - ,1.83230, 1.14150, 1.21670, 1.18850, 1.18020/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00061 & + , 0.00385, 0.02389, 0.13171, 0.47712, 1.14270, 1.74660 & + , 1.62110, 1.16260, 1.18430, 1.15790, 1.14800/ DATA(qscat(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & - ,0.00121, 0.00778, 0.04943, 0.27781, 0.98196, 1.91050 & - ,1.85290, 1.14310, 1.21590, 1.18550, 1.17670/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00062 & + , 0.00396, 0.02448, 0.13307, 0.47071, 1.12630, 1.73790 & + , 1.63020, 1.16210, 1.17830, 1.15190, 1.14230/ DATA(qscat(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & - ,0.00123, 0.00790, 0.05003, 0.27762, 0.96649, 1.89300 & - ,1.87670, 1.14700, 1.21470, 1.18200, 1.17260/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00065 & + , 0.00412, 0.02531, 0.13521, 0.46546, 1.11160, 1.73040 & + , 1.63890, 1.16070, 1.17170, 1.14530, 1.13620/ DATA(qscat(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% - /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00020 & - ,0.00126, 0.00807, 0.05084, 0.27747, 0.94870, 1.87110 & - ,1.90410, 1.15420, 1.21280, 1.17770, 1.16770/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00069 & + , 0.00434, 0.02655, 0.13859, 0.46260, 1.10080, 1.72560 & + , 1.64760, 1.15870, 1.16470, 1.13830, 1.12980/ DATA(qscat(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00020 & - ,0.00130, 0.00830, 0.05197, 0.27745, 0.92833, 1.84320 & - ,1.93510, 1.16690, 1.20960, 1.17220, 1.16170/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00012, 0.00074 & + , 0.00469, 0.02846, 0.14405, 0.46462, 1.09800, 1.72720 & + , 1.65680, 1.15630, 1.15700, 1.13090, 1.12290/ DATA(qscat(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & - ,0.00135, 0.00865, 0.05369, 0.27785, 0.90559, 1.80740 & - ,1.96830, 1.18820, 1.20390, 1.16480, 1.15420/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00013, 0.00083 & + , 0.00528, 0.03161, 0.15316, 0.47666, 1.11120, 1.74310 & + , 1.66270, 1.15010, 1.14860, 1.12310, 1.11560/ DATA(qscat(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00023 & - ,0.00145, 0.00924, 0.05664, 0.27950, 0.88222, 1.76160 & - ,1.99960, 1.22220, 1.19440, 1.15460, 1.14470/ + / 0.00000, 0.00000, 0.00000, 0.00002, 0.00015, 0.00101 & + , 0.00636, 0.03743, 0.16944, 0.51027, 1.15510, 1.78530 & + , 1.65830, 1.13830, 1.13840, 1.11500, 1.10780/ DATA(qscat(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & - ,0.00165, 0.01049, 0.06282, 0.28553, 0.86576, 1.71140 & - ,2.02930, 1.26800, 1.17990, 1.14030, 1.13180/ + / 0.00000, 0.00000, 0.00000, 0.00003, 0.00021, 0.00139 & + , 0.00881, 0.05001, 0.20201, 0.59089, 1.26440, 1.87270 & + , 1.61450, 1.12150, 1.12270, 1.10590, 1.09980/ DATA(qscat(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00034 & - ,0.00227, 0.01454, 0.08216, 0.31465, 0.89350, 1.72680 & - ,2.05730, 1.28860, 1.16810, 1.12220, 1.11360/ + / 0.00000, 0.00000, 0.00001, 0.00006, 0.00040, 0.00274 & + , 0.01728, 0.08856, 0.29694, 0.80396, 1.56750, 2.00610 & + , 1.39930, 1.13830, 1.10260, 1.09580, 1.09100/ DATA(qscat(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & - ,0.00155, 0.00939, 0.05049, 0.19427, 0.60629, 1.41840 & - ,2.31550, 2.08250, 1.57030, 1.27520, 1.17020/ + / 0.00000, 0.00000, 0.00001, 0.00003, 0.00020, 0.00127 & + , 0.00795, 0.04691, 0.21397, 0.73696, 1.76500, 2.77830 & + , 2.19980, 1.68950, 1.49460, 1.30100, 1.19360/ DATA(qscat(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & - ,0.00158, 0.00955, 0.05129, 0.19688, 0.61344, 1.43180 & - ,2.32740, 2.07790, 1.57040, 1.27600, 1.16880/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00021, 0.00131 & + , 0.00823, 0.04847, 0.21909, 0.75028, 1.78770, 2.78750 & + , 2.18260, 1.68670, 1.48990, 1.29800, 1.19090/ DATA(qscat(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & - ,0.00160, 0.00973, 0.05218, 0.19978, 0.62137, 1.44650 & - ,2.34020, 2.07270, 1.57040, 1.27710, 1.16730/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00021, 0.00137 & + , 0.00855, 0.05020, 0.22472, 0.76471, 1.81230, 2.79780 & + , 2.16260, 1.68310, 1.48390, 1.29490, 1.18820/ DATA(qscat(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & - ,0.00164, 0.00993, 0.05318, 0.20303, 0.63022, 1.46290 & - ,2.35420, 2.06690, 1.57020, 1.27850, 1.16570/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00022, 0.00142 & + , 0.00891, 0.05212, 0.23092, 0.78043, 1.83890, 2.80940 & + , 2.13900, 1.67730, 1.47790, 1.29190, 1.18550/ DATA(qscat(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00027 & - ,0.00168, 0.01016, 0.05430, 0.20669, 0.64014, 1.48110 & - ,2.36960, 2.06030, 1.56990, 1.28030, 1.16400/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00023, 0.00149 & + , 0.00932, 0.05428, 0.23781, 0.79767, 1.86770, 2.82180 & + , 2.11150, 1.67120, 1.47050, 1.28870, 1.18270/ DATA(qscat(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00027 & - ,0.00172, 0.01042, 0.05557, 0.21084, 0.65136, 1.50160 & - ,2.38640, 2.05270, 1.56930, 1.28260, 1.16240/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00025, 0.00156 & + , 0.00978, 0.05672, 0.24552, 0.81676, 1.89880, 2.83410 & + , 2.08150, 1.66620, 1.46080, 1.28560, 1.18010/ DATA(qscat(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00028 & - ,0.00177, 0.01072, 0.05703, 0.21558, 0.66415, 1.52470 & - ,2.40500, 2.04380, 1.56820, 1.28530, 1.16090/ + / 0.00000, 0.00000, 0.00001, 0.00004, 0.00026, 0.00165 & + , 0.01031, 0.05951, 0.25423, 0.83811, 1.93240, 2.84510 & + , 2.05180, 1.66040, 1.45040, 1.28190, 1.17740/ DATA(qscat(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00029 & - ,0.00183, 0.01107, 0.05872, 0.22107, 0.67885, 1.55090 & - ,2.42540, 2.03300, 1.56590, 1.28840, 1.15970/ + / 0.00000, 0.00000, 0.00001, 0.00005, 0.00027, 0.00175 & + , 0.01093, 0.06272, 0.26420, 0.86231, 1.96910, 2.85330 & + , 2.02220, 1.65020, 1.43740, 1.27760, 1.17470/ DATA(qscat(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00030 & - ,0.00190, 0.01148, 0.06070, 0.22748, 0.69593, 1.58110 & - ,2.44790, 2.01960, 1.56230, 1.29190, 1.15900/ + / 0.00000, 0.00000, 0.00001, 0.00005, 0.00029, 0.00187 & + , 0.01166, 0.06647, 0.27576, 0.89016, 2.00950, 2.85810 & + , 1.98780, 1.63960, 1.42260, 1.27220, 1.17160/ DATA(qscat(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00031 & - ,0.00198, 0.01197, 0.06304, 0.23508, 0.71603, 1.61610 & - ,2.47260, 2.00280, 1.55720, 1.29560, 1.15910/ + / 0.00000, 0.00000, 0.00001, 0.00005, 0.00031, 0.00201 & + , 0.01254, 0.07091, 0.28940, 0.92279, 2.05500, 2.86030 & + , 1.94450, 1.62840, 1.40570, 1.26520, 1.16780/ DATA(qscat(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00033 & - ,0.00208, 0.01256, 0.06586, 0.24421, 0.74000, 1.65710 & - ,2.49940, 1.98150, 1.55080, 1.29900, 1.16030/ + / 0.00000, 0.00000, 0.00001, 0.00006, 0.00034, 0.00219 & + , 0.01361, 0.07627, 0.30579, 0.96181, 2.10760, 2.86290 & + , 1.89810, 1.61160, 1.38670, 1.25650, 1.16290/ DATA(qscat(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00035 & - ,0.00220, 0.01329, 0.06931, 0.25542, 0.76907, 1.70580 & - ,2.52800, 1.95550, 1.54190, 1.30130, 1.16270/ + / 0.00000, 0.00000, 0.00001, 0.00006, 0.00038, 0.00241 & + , 0.01495, 0.08286, 0.32599, 1.00950, 2.17050, 2.86600 & + , 1.85310, 1.59260, 1.36720, 1.24610, 1.15710/ DATA(qscat(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00037 & - ,0.00235, 0.01422, 0.07364, 0.26948, 0.80499, 1.76420 & - ,2.55800, 1.92480, 1.52840, 1.30110, 1.16600/ + / 0.00000, 0.00000, 0.00001, 0.00007, 0.00042, 0.00269 & + , 0.01669, 0.09116, 0.35160, 1.06870, 2.24680, 2.85910 & + , 1.79820, 1.56910, 1.34960, 1.23570, 1.15180/ DATA(qscat(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00040 & - ,0.00256, 0.01543, 0.07921, 0.28764, 0.85037, 1.83530 & - ,2.58880, 1.88630, 1.51060, 1.29640, 1.16870/ + / 0.00000, 0.00000, 0.00001, 0.00008, 0.00048, 0.00307 & + , 0.01901, 0.10191, 0.38515, 1.14330, 2.33680, 2.83050 & + , 1.74450, 1.54060, 1.33760, 1.22790, 1.14800/ DATA(qscat(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00045 & - ,0.00283, 0.01708, 0.08665, 0.31195, 0.90923, 1.92300 & - ,2.62070, 1.83390, 1.48550, 1.28440, 1.16770/ + / 0.00000, 0.00000, 0.00001, 0.00009, 0.00056, 0.00361 & + , 0.02225, 0.11631, 0.43070, 1.23760, 2.43810, 2.78930 & + , 1.68920, 1.50920, 1.33490, 1.22350, 1.14300/ DATA(qscat(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% - /0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00051 & - ,0.00323, 0.01944, 0.09704, 0.34604, 0.98798, 2.03400 & - ,2.64840, 1.77250, 1.45270, 1.26450, 1.16000/ + / 0.00000, 0.00000, 0.00002, 0.00011, 0.00068, 0.00440 & + , 0.02701, 0.13640, 0.49474, 1.35740, 2.55680, 2.70870 & + , 1.64240, 1.48130, 1.33920, 1.21320, 1.13460/ DATA(qscat(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% - /0.00000, 0.00000, 0.00000, 0.00002, 0.00009, 0.00060 & - ,0.00384, 0.02308, 0.11251, 0.39687, 1.09790, 2.18180 & - ,2.65190, 1.69420, 1.41300, 1.24430, 1.15140/ + / 0.00000, 0.00000, 0.00002, 0.00015, 0.00088, 0.00569 & + , 0.03457, 0.16596, 0.58704, 1.51790, 2.70440, 2.57020 & + , 1.61780, 1.46720, 1.32650, 1.18850, 1.12780/ DATA(qscat(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% - /0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00076 & - ,0.00491, 0.02938, 0.13787, 0.47899, 1.26320, 2.38650 & - ,2.60680, 1.61500, 1.38070, 1.24570, 1.15620/ + / 0.00000, 0.00000, 0.00003, 0.00020, 0.00123, 0.00802 & + , 0.04794, 0.21362, 0.72497, 1.76140, 2.85170, 2.32710 & + , 1.61980, 1.46160, 1.27480, 1.17700, 1.11950/ DATA(qscat(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% - /0.00000, 0.00000, 0.00000, 0.00003, 0.00016, 0.00109 & - ,0.00717, 0.04257, 0.18672, 0.62789, 1.55310, 2.65130 & - ,2.41220, 1.56670, 1.39370, 1.24530, 1.14310/ + / 0.00000, 0.00001, 0.00004, 0.00032, 0.00201, 0.01322 & + , 0.07593, 0.30470, 0.96070, 2.12400, 2.94730, 1.95050 & + , 1.59920, 1.38150, 1.24510, 1.15310, 1.11010/ DATA(qscat(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% - /0.00000, 0.00000, 0.00000, 0.00004, 0.00029, 0.00214 & - ,0.01460, 0.08332, 0.32481, 0.99785, 2.15220, 2.88160 & - ,1.86390, 1.53510, 1.32100, 1.20400, 1.13080/ + / 0.00000, 0.00001, 0.00009, 0.00070, 0.00463, 0.03081 & + , 0.15702, 0.56957, 1.50370, 2.72180, 2.63180, 1.61510 & + , 1.46860, 1.32380, 1.18470, 1.12540, 1.09980/ ! Qscat for Sea Salt: DATA(qscat(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% @@ -3877,49 +4052,216 @@ Subroutine aeroqscat (aerotype,radband,bin,rh,value) ,0.43157, 1.25490, 2.49680, 2.88860, 1.70360, 1.52330 & ,1.33570, 1.21560, 1.13740, 1.10350, 1.09250/ -! Qscat for Mineral Dust: - DATA(qscat(3,1,ib,1),ib=1,17) & ! Band 1, All RH's +! Qscat for Mineral Dust R(imaginary) = 0.0015 (LOW absorption)(No RH effect) + DATA(qscat_dust(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00000, 0.00002, 0.00010, 0.00060, 0.00379, 0.02295 & + , 0.11574, 0.43216, 1.18230, 2.24080, 2.56070, 2.52740 & + , 2.33820, 1.90440, 1.81000, 1.61960, 1.45920/ + + DATA(qscat_dust(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00010, 0.00063, 0.00402, 0.02560, 0.15020, 0.66682 & + , 2.00350, 3.44090, 3.01910, 2.58140, 2.22970, 2.14250 & + , 2.00430, 1.87080, 1.72780, 1.56920, 1.40860/ + + DATA(qscat_dust(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00166, 0.01056, 0.06481, 0.32669, 1.23460, 2.91900 & + , 3.74250, 2.56930, 2.34830, 2.13070, 2.05040, 1.93030 & + , 1.80160, 1.65710, 1.49460, 1.33930, 1.21530/ + + DATA(qscat_dust(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 & + , 0.00003, 0.00020, 0.00125, 0.00808, 0.05258, 0.31342 & + , 1.17700, 1.80920, 1.38670, 1.24760, 1.24330/ + + DATA(qscat_dust(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00010, 0.00066, 0.00420, 0.02663, 0.15649, 0.65345 & + , 1.77580, 2.55670, 1.53740, 1.30830, 1.20600/ + + DATA(qscat_dust(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + , 0.00054, 0.00344, 0.02155, 0.12273, 0.47129, 1.15740 & + , 1.71170, 1.59480, 1.27650, 1.14810, 1.13330/ + + DATA(qscat_dust(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & + , 0.00094, 0.00603, 0.03906, 0.24079, 1.02410, 2.13950 & + , 1.96750, 1.11300, 1.22940, 1.20200, 1.19660/ + + DATA(qscat_dust(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + , 0.00112, 0.00676, 0.03661, 0.14457, 0.46121, 1.13810 & + , 2.05970, 2.21310, 1.51910, 1.29570, 1.16240/ + +! Qscat for Mineral Dust R(imaginary) = 0.003 (MID absorption)(No RH effect) + DATA(qscat_dust(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00000, 0.00002, 0.00010, 0.00060, 0.00379, 0.02294 & + , 0.11555, 0.43023, 1.17330, 2.21550, 2.52310, 2.47760 & + , 2.27270, 1.81910, 1.69680, 1.48260, 1.31240/ + + DATA(qscat_dust(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00010, 0.00063, 0.00402, 0.02559, 0.15004, 0.66465 & + , 1.99000, 3.40630, 2.97380, 2.51370, 2.14500, 2.02750 & + , 1.85490, 1.68360, 1.50960, 1.34620, 1.21980/ + + DATA(qscat_dust(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00166, 0.01056, 0.06477, 0.32607, 1.22860, 2.89550 & + , 3.69870, 2.51770, 2.27170, 2.03600, 1.92120, 1.76420 & + , 1.59940, 1.43280, 1.28320, 1.18080, 1.13040/ + + DATA(qscat_dust(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 & + , 0.00003, 0.00020, 0.00125, 0.00808, 0.05258, 0.31342 & + , 1.17700, 1.80920, 1.38670, 1.24760, 1.24330/ + + DATA(qscat_dust(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00010, 0.00066, 0.00420, 0.02663, 0.15649, 0.65345 & + , 1.77580, 2.55670, 1.53740, 1.30830, 1.20600/ + + DATA(qscat_dust(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + , 0.00054, 0.00344, 0.02155, 0.12273, 0.47129, 1.15740 & + , 1.71170, 1.59480, 1.27650, 1.14810, 1.13330/ + + DATA(qscat_dust(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & + , 0.00094, 0.00603, 0.03906, 0.24079, 1.02410, 2.13950 & + , 1.96750, 1.11300, 1.22940, 1.20200, 1.19660/ + + DATA(qscat_dust(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + , 0.00112, 0.00676, 0.03661, 0.14457, 0.46121, 1.13810 & + , 2.05970, 2.21310, 1.51910, 1.29570, 1.16240/ + +! Qscat for Mineral Dust R(imaginary) = 0.008 (HIGH absorption)(No RH effect) + DATA(qscat_dust(3,1,ib),ib=1,17) & ! Band 1, All RH's /0.00000, 0.00002, 0.00010, 0.00060, 0.00379, 0.02291 & ,0.11493, 0.42401, 1.14410, 2.13480, 2.40680, 2.33500 & ,2.10380, 1.61510, 1.47100, 1.27120, 1.15620/ - DATA(qscat(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + DATA(qscat_dust(3,2,ib),ib=1,17) & ! Band 2, All RH's /0.00001, 0.00063, 0.00402, 0.02557, 0.14955, 0.65760 & ,1.94660, 3.29530, 2.83420, 2.32070, 1.91820, 1.74640 & ,1.53580, 1.35690, 1.22550, 1.15300, 1.12440/ - DATA(qscat(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + DATA(qscat_dust(3,3,ib),ib=1,17) & ! Band 3, All RH's /0.00177, 0.01133, 0.06890, 0.34280, 1.23190, 2.81180 & ,3.55540, 2.36150, 2.06270, 1.79890, 1.62930, 1.44460 & ,1.29170, 1.19010, 1.14040, 1.12370, 1.11720/ - DATA(qscat(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + DATA(qscat_dust(3,4,ib),ib=1,17) & ! Band 4, All RH's /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 & ,0.00003, 0.00020, 0.00125, 0.00808, 0.05258, 0.31342 & ,1.17700, 1.80920, 1.38670, 1.24760, 1.24330/ - DATA(qscat(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + DATA(qscat_dust(3,5,ib),ib=1,17) & ! Band 5, All RH's /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & ,0.00010, 0.00066, 0.00420, 0.02663, 0.15649, 0.65345 & ,1.77580, 2.55670, 1.53740, 1.30830, 1.20600/ - DATA(qscat(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + DATA(qscat_dust(3,6,ib),ib=1,17) & ! Band 6, All RH's /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & ,0.00054, 0.00344, 0.02155, 0.12273, 0.47129, 1.15740 & ,1.71170, 1.59490, 1.27650, 1.14810, 1.13330/ - DATA(qscat(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + DATA(qscat_dust(3,7,ib),ib=1,17) & ! Band 7, All RH's /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & ,0.00094, 0.00603, 0.03906, 0.24079, 1.02410, 2.13950 & ,1.96750, 1.11300, 1.22940, 1.20200, 1.19660/ - DATA(qscat(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + DATA(qscat_dust(3,8,ib),ib=1,17) & ! Band 8, All RH's /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & ,0.00112, 0.00676, 0.03661, 0.14457, 0.46121, 1.13810 & ,2.05970, 2.21310, 1.51910, 1.29570, 1.16240/ +! Qscat for Absorbing Carbon (1% BC, 99% OC)(No RH effect) + DATA(qscat_carb(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00000, 0.00003, 0.00019, 0.00122, 0.00777, 0.04849 & + , 0.25418, 0.98689, 2.31090, 3.12880, 2.17480, 1.87020 & + , 1.52560, 1.36780, 1.23920, 1.16940, 1.13780/ + + DATA(qscat_carb(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00010, 0.00065, 0.00414, 0.02635, 0.15382, 0.67180 & + , 1.95580, 3.21550, 2.57880, 1.83720, 1.63100, 1.38500 & + , 1.24630, 1.16880, 1.14060, 1.13040, 1.12380/ + + DATA(qscat_carb(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00168, 0.01071, 0.06546, 0.32685, 1.20600, 2.76310 & + , 3.41210, 2.19830, 1.88470, 1.60900, 1.43450, 1.28050 & + , 1.18550, 1.14350, 1.12910, 1.12250, 1.11730/ + + DATA(qscat_carb(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00004, 0.00022, 0.00143, 0.00932, 0.06155, 0.37469 & + , 1.36790, 1.85340, 1.34360, 1.26400, 1.25110/ + + DATA(qscat_carb(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00013, 0.00086, 0.00548, 0.03512, 0.20966, 0.89224 & + , 2.01100, 2.09660, 1.22770, 1.23610, 1.19210/ + + DATA(qscat_carb(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00043 & + , 0.00279, 0.01836, 0.12544, 0.81406, 2.21360, 1.62300 & + , 1.29270, 1.30940, 1.28940, 1.27790, 1.26630/ + + DATA(qscat_carb(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + , 0.00159, 0.01038, 0.07008, 0.46661, 1.93220, 2.41540 & + , 1.55580, 1.30580, 1.26040, 1.25670, 1.24290/ + + DATA(qscat_carb(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00058 & + , 0.00370, 0.02321, 0.13279, 0.54355, 1.60440, 2.82840 & + , 2.40960, 1.55340, 1.37700, 1.24730, 1.16110/ + +! Qscat for Absorbing Carbon (2% BC, 98% OC)(No RH effect) + DATA(qscat_carb(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00000, 0.00003, 0.00019, 0.00124, 0.00790, 0.04929 & + , 0.25710, 0.98291, 2.25740, 2.97020, 2.03230, 1.71230 & + , 1.40210, 1.27390, 1.18670, 1.14780, 1.13170/ + + DATA(qscat_carb(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00010, 0.00066, 0.00421, 0.02674, 0.15562, 0.67351 & + , 1.92130, 3.08420, 2.41380, 1.69000, 1.49700, 1.29130 & + , 1.19550, 1.15300, 1.13860, 1.13090, 1.12450/ + + DATA(qscat_carb(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.00170, 0.01086, 0.06629, 0.32918, 1.19620, 2.68280 & + , 3.22740, 2.01860, 1.70390, 1.44330, 1.29720, 1.19620 & + , 1.15210, 1.13680, 1.12920, 1.12310, 1.11790/ + + DATA(qscat_carb(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + , 0.00004, 0.00022, 0.00144, 0.00935, 0.06173, 0.37502 & + , 1.35900, 1.83760, 1.34160, 1.26330, 1.25140/ + + DATA(qscat_carb(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + , 0.00014, 0.00087, 0.00555, 0.03555, 0.21176, 0.89399 & + , 1.98550, 2.04520, 1.21630, 1.22730, 1.19130/ + + DATA(qscat_carb(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00043 & + , 0.00278, 0.01835, 0.12531, 0.81059, 2.19370, 1.61690 & + , 1.29100, 1.30830, 1.28930, 1.27780, 1.26630/ + + DATA(qscat_carb(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + , 0.00159, 0.01039, 0.07007, 0.46552, 1.91190, 2.38080 & + , 1.53550, 1.29950, 1.25930, 1.25600, 1.24300/ + + DATA(qscat_carb(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00060 & + , 0.00378, 0.02372, 0.13536, 0.54986, 1.59030, 2.72850 & + , 2.24840, 1.46690, 1.30380, 1.19790, 1.14560/ + ! Returning value for qscat: - value = qscat(aerotype,radband,bin,rh) + if (aerotype <= 2) value = qscat(aerotype,radband,bin,rh) + if (aerotype == 3) value = qscat_dust(dust_ref_im,radband,bin) + if (aerotype == 4) value = qscat_carb(1,radband,bin) + if (aerotype == 5) value = qscat_carb(2,radband,bin) return END SUBROUTINE aeroqscat @@ -3927,814 +4269,815 @@ END SUBROUTINE aeroqscat !############################################################################## Subroutine aerogasym (aerotype,radband,bin,rh,value) +use rrad3, only:dust_ref_im + implicit none INTEGER aerotype,radband,bin,rh,ib - REAL gasym(3,8,17,20),value + REAL gasym(2,8,17,20),value + REAL gasym_dust(3,8,17) + REAL gasym_carb(2,8,17) -! Setting for aerosol with no growth (completely insoluble): - IF(AEROTYPE.EQ.3) rh = 1 - -! gasym for Ammonium Sulfate (with a 90% insoluble dust inclusion): +! gasym Ammonium sulfate with 20% insoluble inclusion (dust low R(Im))) DATA(gasym(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% - /0.00117, 0.00297, 0.00750, 0.01891, 0.04501, 0.11364 & - ,0.30041, 0.62353, 0.76482, 0.83189, 0.82722, 0.84191 & - ,0.86233, 0.88780, 0.92578, 0.94922, 0.96426/ + / 0.00187, 0.00483, 0.01231, 0.03118, 0.07419, 0.19005 & + , 0.49242, 0.69369, 0.80106, 0.81543, 0.73993, 0.78459 & + , 0.82767, 0.84881, 0.87068, 0.88537, 0.89958/ DATA(gasym(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% - /0.00118, 0.00298, 0.00754, 0.01902, 0.04528, 0.11433 & - ,0.30236, 0.62443, 0.76550, 0.83229, 0.82734, 0.84191 & - ,0.86158, 0.88833, 0.92577, 0.94911, 0.96418/ + / 0.00191, 0.00491, 0.01255, 0.03179, 0.07566, 0.19405 & + , 0.50021, 0.69794, 0.80303, 0.81632, 0.74110, 0.79164 & + , 0.83038, 0.85811, 0.87193, 0.88738, 0.90009/ DATA(gasym(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% - /0.00118, 0.00300, 0.00759, 0.01914, 0.04557, 0.11510 & - ,0.30451, 0.62540, 0.76626, 0.83272, 0.82747, 0.84173 & - ,0.86062, 0.88873, 0.92584, 0.94902, 0.96409/ + / 0.00194, 0.00501, 0.01280, 0.03245, 0.07727, 0.19842 & + , 0.50840, 0.70244, 0.80505, 0.81717, 0.74209, 0.78602 & + , 0.83210, 0.85212, 0.87425, 0.88525, 0.89913/ DATA(gasym(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% - /0.00119, 0.00302, 0.00764, 0.01927, 0.04589, 0.11595 & - ,0.30691, 0.62645, 0.76709, 0.83317, 0.82761, 0.84128 & - ,0.86007, 0.88931, 0.92590, 0.94883, 0.96397/ + / 0.00198, 0.00511, 0.01308, 0.03317, 0.07903, 0.20322 & + , 0.51700, 0.70716, 0.80714, 0.81790, 0.74146, 0.79431 & + , 0.83074, 0.85907, 0.87398, 0.88879, 0.89923/ DATA(gasym(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% - /0.00119, 0.00304, 0.00769, 0.01942, 0.04625, 0.11690 & - ,0.30959, 0.62761, 0.76803, 0.83367, 0.82776, 0.84069 & - ,0.86013, 0.88994, 0.92575, 0.94868, 0.96384/ + / 0.00202, 0.00522, 0.01338, 0.03397, 0.08098, 0.20854 & + , 0.52604, 0.71212, 0.80928, 0.81843, 0.74213, 0.78781 & + , 0.83395, 0.85726, 0.87352, 0.88743, 0.90090/ DATA(gasym(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% - /0.00120, 0.00306, 0.00775, 0.01958, 0.04666, 0.11797 & - ,0.31262, 0.62889, 0.76907, 0.83420, 0.82792, 0.84021 & - ,0.86009, 0.88998, 0.92561, 0.94848, 0.96368/ + / 0.00206, 0.00535, 0.01371, 0.03485, 0.08314, 0.21447 & + , 0.53552, 0.71732, 0.81148, 0.81866, 0.74338, 0.79562 & + , 0.83605, 0.85718, 0.87415, 0.88609, 0.90053/ DATA(gasym(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% - /0.00121, 0.00308, 0.00782, 0.01977, 0.04712, 0.11919 & - ,0.31605, 0.63030, 0.77026, 0.83478, 0.82805, 0.83996 & - ,0.85896, 0.89010, 0.92573, 0.94821, 0.96351/ + / 0.00211, 0.00549, 0.01409, 0.03584, 0.08556, 0.22113 & + , 0.54543, 0.72275, 0.81376, 0.81861, 0.74621, 0.79596 & + , 0.83681, 0.86229, 0.87770, 0.88822, 0.90184/ DATA(gasym(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% - /0.00122, 0.00311, 0.00790, 0.01998, 0.04764, 0.12058 & - ,0.31998, 0.63188, 0.77161, 0.83539, 0.82812, 0.83997 & - ,0.85767, 0.89090, 0.92560, 0.94795, 0.96330/ + / 0.00216, 0.00564, 0.01451, 0.03695, 0.08829, 0.22870 & + , 0.55577, 0.72841, 0.81613, 0.81857, 0.74846, 0.79043 & + , 0.83876, 0.86304, 0.87596, 0.89334, 0.90353/ DATA(gasym(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% - /0.00123, 0.00314, 0.00798, 0.02022, 0.04824, 0.12219 & - ,0.32452, 0.63367, 0.77317, 0.83605, 0.82808, 0.83918 & - ,0.85796, 0.89187, 0.92527, 0.94763, 0.96305/ + / 0.00222, 0.00581, 0.01499, 0.03822, 0.09142, 0.23739 & + , 0.56651, 0.73430, 0.81865, 0.81881, 0.74804, 0.79537 & + , 0.84040, 0.86375, 0.88013, 0.89083, 0.90383/ DATA(gasym(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% - /0.00124, 0.00317, 0.00809, 0.02050, 0.04895, 0.12407 & - ,0.32984, 0.63570, 0.77497, 0.83676, 0.82783, 0.83799 & - ,0.85685, 0.89159, 0.92530, 0.94720, 0.96277/ + / 0.00229, 0.00601, 0.01553, 0.03968, 0.09504, 0.24750 & + , 0.57761, 0.74046, 0.82143, 0.81910, 0.75037, 0.79868 & + , 0.84272, 0.86589, 0.88100, 0.89136, 0.90473/ DATA(gasym(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% - /0.00125, 0.00321, 0.00820, 0.02083, 0.04978, 0.12631 & - ,0.33613, 0.63806, 0.77709, 0.83752, 0.82724, 0.83802 & - ,0.85651, 0.89251, 0.92482, 0.94675, 0.96243/ + / 0.00237, 0.00624, 0.01617, 0.04139, 0.09930, 0.25946 & + , 0.58898, 0.74692, 0.82457, 0.81874, 0.75533, 0.79687 & + , 0.84428, 0.86628, 0.88316, 0.89364, 0.90554/ DATA(gasym(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% - /0.00127, 0.00326, 0.00834, 0.02122, 0.05078, 0.12901 & - ,0.34372, 0.64084, 0.77961, 0.83834, 0.82621, 0.83744 & - ,0.85565, 0.89289, 0.92456, 0.94623, 0.96204/ + / 0.00246, 0.00651, 0.01693, 0.04343, 0.10441, 0.27386 & + , 0.60056, 0.75380, 0.82818, 0.81702, 0.75808, 0.80788 & + , 0.84672, 0.86604, 0.88057, 0.89393, 0.90560/ DATA(gasym(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% - /0.00128, 0.00332, 0.00851, 0.02170, 0.05200, 0.13232 & - ,0.35303, 0.64421, 0.78262, 0.83925, 0.82515, 0.83570 & - ,0.85597, 0.89394, 0.92415, 0.94573, 0.96155/ + / 0.00256, 0.00683, 0.01784, 0.04592, 0.11068, 0.29160 & + , 0.61231, 0.76133, 0.83213, 0.81535, 0.76358, 0.81005 & + , 0.84903, 0.86821, 0.88206, 0.89720, 0.90796/ DATA(gasym(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% - /0.00130, 0.00338, 0.00872, 0.02229, 0.05352, 0.13651 & - ,0.36471, 0.64843, 0.78628, 0.84035, 0.82455, 0.83452 & - ,0.85580, 0.89337, 0.92354, 0.94496, 0.96094/ + / 0.00269, 0.00722, 0.01898, 0.04903, 0.11858, 0.31397 & + , 0.62438, 0.76992, 0.83582, 0.81372, 0.76950, 0.81855 & + , 0.85340, 0.86906, 0.88584, 0.89869, 0.90871/ DATA(gasym(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% - /0.00133, 0.00347, 0.00898, 0.02305, 0.05550, 0.14196 & - ,0.37980, 0.65397, 0.79078, 0.84189, 0.82410, 0.83402 & - ,0.85608, 0.89339, 0.92216, 0.94413, 0.96012/ + / 0.00285, 0.00772, 0.02043, 0.05304, 0.12889, 0.34302 & + , 0.63746, 0.78001, 0.83887, 0.80796, 0.77631, 0.82251 & + , 0.85564, 0.87383, 0.88810, 0.89999, 0.91028/ DATA(gasym(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% - /0.00136, 0.00357, 0.00932, 0.02405, 0.05814, 0.14936 & - ,0.39998, 0.66174, 0.79638, 0.84413, 0.82178, 0.83185 & - ,0.85500, 0.89460, 0.92144, 0.94287, 0.95907/ + / 0.00305, 0.00837, 0.02237, 0.05845, 0.14294, 0.38183 & + , 0.65352, 0.79180, 0.84249, 0.80249, 0.78699, 0.83201 & + , 0.85554, 0.87796, 0.88866, 0.90134, 0.91190/ DATA(gasym(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% - /0.00139, 0.00371, 0.00977, 0.02545, 0.06190, 0.16004 & - ,0.42820, 0.67353, 0.80355, 0.84662, 0.81739, 0.82839 & - ,0.85644, 0.89306, 0.91969, 0.94117, 0.95762/ + / 0.00331, 0.00926, 0.02508, 0.06613, 0.16322, 0.43486 & + , 0.67682, 0.80557, 0.84607, 0.79253, 0.79745, 0.84326 & + , 0.86806, 0.87771, 0.89282, 0.90406, 0.91402/ DATA(gasym(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% - /0.00144, 0.00389, 0.01043, 0.02754, 0.06767, 0.17687 & - ,0.46979, 0.69307, 0.81322, 0.84775, 0.81114, 0.82726 & - ,0.85801, 0.89402, 0.91828, 0.93885, 0.95543/ + / 0.00368, 0.01057, 0.02916, 0.07790, 0.19523, 0.50685 & + , 0.71291, 0.82166, 0.84702, 0.77743, 0.80848, 0.84398 & + , 0.87134, 0.88430, 0.89481, 0.90729, 0.91677/ DATA(gasym(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% - /0.00150, 0.00417, 0.01148, 0.03107, 0.07786, 0.20775 & - ,0.53350, 0.72611, 0.82632, 0.84856, 0.80037, 0.82507 & - ,0.86271, 0.89448, 0.91520, 0.93532, 0.95194/ + / 0.00425, 0.01270, 0.03615, 0.09886, 0.25403, 0.59123 & + , 0.75669, 0.83788, 0.84058, 0.76828, 0.80618, 0.85339 & + , 0.87174, 0.88806, 0.90126, 0.91020, 0.91994/ DATA(gasym(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% - /0.00159, 0.00462, 0.01348, 0.03859, 0.10155, 0.28522 & - ,0.61997, 0.77368, 0.84552, 0.83754, 0.79296, 0.83100 & - ,0.86785, 0.89273, 0.91179, 0.92955, 0.94555/ + / 0.00524, 0.01694, 0.05117, 0.14742, 0.39603, 0.66970 & + , 0.80693, 0.85297, 0.80655, 0.80205, 0.83901, 0.86184 & + , 0.88081, 0.89545, 0.90640, 0.91621, 0.92543/ DATA(gasym(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% - /0.00537, 0.01357, 0.03414, 0.08571, 0.20982, 0.51975 & - ,0.67945, 0.74366, 0.69649, 0.72276, 0.77858, 0.83411 & - ,0.87045, 0.90423, 0.92975, 0.94564, 0.95243/ + / 0.00849, 0.02182, 0.05540, 0.14088, 0.35082, 0.62082 & + , 0.75525, 0.79558, 0.72584, 0.72424, 0.78566, 0.80938 & + , 0.82638, 0.84025, 0.84942, 0.85955, 0.86636/ DATA(gasym(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% - /0.00539, 0.01363, 0.03432, 0.08619, 0.21107, 0.52133 & - ,0.68060, 0.74461, 0.69749, 0.72297, 0.77893, 0.83415 & - ,0.87043, 0.90414, 0.92969, 0.94569, 0.95257/ + / 0.00865, 0.02221, 0.05644, 0.14368, 0.35783, 0.62460 & + , 0.75782, 0.79707, 0.72587, 0.72466, 0.78675, 0.80852 & + , 0.82729, 0.84041, 0.84940, 0.85797, 0.86736/ DATA(gasym(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% - /0.00541, 0.01370, 0.03451, 0.08671, 0.21245, 0.52304 & - ,0.68185, 0.74565, 0.69858, 0.72328, 0.77939, 0.83428 & - ,0.87043, 0.90399, 0.92964, 0.94574, 0.95272/ + / 0.00880, 0.02263, 0.05757, 0.14673, 0.36543, 0.62870 & + , 0.76050, 0.79859, 0.72596, 0.72674, 0.78941, 0.80984 & + , 0.82870, 0.84190, 0.85239, 0.85962, 0.86798/ DATA(gasym(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% - /0.00544, 0.01378, 0.03473, 0.08729, 0.21398, 0.52492 & - ,0.68322, 0.74678, 0.69978, 0.72365, 0.77991, 0.83449 & - ,0.87040, 0.90389, 0.92959, 0.94579, 0.95289/ + / 0.00897, 0.02310, 0.05881, 0.15008, 0.37369, 0.63317 & + , 0.76331, 0.80010, 0.72639, 0.72878, 0.79067, 0.81150 & + , 0.82858, 0.84291, 0.85303, 0.86128, 0.87007/ DATA(gasym(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% - /0.00547, 0.01387, 0.03497, 0.08793, 0.21570, 0.52698 & - ,0.68473, 0.74802, 0.70110, 0.72409, 0.78041, 0.83462 & - ,0.87037, 0.90386, 0.92949, 0.94583, 0.95306/ + / 0.00915, 0.02360, 0.06017, 0.15377, 0.38270, 0.63806 & + , 0.76626, 0.80154, 0.72703, 0.73108, 0.79324, 0.81200 & + , 0.82935, 0.84393, 0.85270, 0.86187, 0.86860/ DATA(gasym(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% - /0.00550, 0.01396, 0.03523, 0.08866, 0.21763, 0.52926 & - ,0.68640, 0.74939, 0.70255, 0.72472, 0.78112, 0.83478 & - ,0.87037, 0.90372, 0.92942, 0.94589, 0.95325/ + / 0.00934, 0.02416, 0.06167, 0.15787, 0.39256, 0.64345 & + , 0.76938, 0.80288, 0.72787, 0.73200, 0.79067, 0.81600 & + , 0.83041, 0.84330, 0.85329, 0.86303, 0.87003/ DATA(gasym(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% - /0.00554, 0.01407, 0.03553, 0.08948, 0.21982, 0.53179 & - ,0.68825, 0.75092, 0.70415, 0.72547, 0.78177, 0.83508 & - ,0.87038, 0.90354, 0.92931, 0.94593, 0.95346/ + / 0.00956, 0.02477, 0.06334, 0.16246, 0.40341, 0.64941 & + , 0.77270, 0.80406, 0.72862, 0.73340, 0.79717, 0.81867 & + , 0.83272, 0.84541, 0.85604, 0.86424, 0.86982/ DATA(gasym(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% - /0.00558, 0.01419, 0.03587, 0.09041, 0.22233, 0.53461 & - ,0.69032, 0.75262, 0.70589, 0.72630, 0.78261, 0.83521 & - ,0.87035, 0.90345, 0.92919, 0.94598, 0.95368/ + / 0.00980, 0.02546, 0.06522, 0.16766, 0.41540, 0.65605 & + , 0.77625, 0.80511, 0.72851, 0.73570, 0.79608, 0.81595 & + , 0.83564, 0.84451, 0.85734, 0.86296, 0.87265/ DATA(gasym(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% - /0.00562, 0.01432, 0.03626, 0.09148, 0.22522, 0.53779 & - ,0.69265, 0.75455, 0.70778, 0.72729, 0.78326, 0.83565 & - ,0.87037, 0.90321, 0.92901, 0.94600, 0.95393/ + / 0.01007, 0.02624, 0.06736, 0.17359, 0.42872, 0.66346 & + , 0.78006, 0.80620, 0.72829, 0.73829, 0.79820, 0.82004 & + , 0.83407, 0.84771, 0.85632, 0.86401, 0.87278/ DATA(gasym(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% - /0.00567, 0.01448, 0.03671, 0.09273, 0.22860, 0.54138 & - ,0.69531, 0.75675, 0.70979, 0.72817, 0.78424, 0.83590 & - ,0.87040, 0.90304, 0.92886, 0.94602, 0.95419/ + / 0.01038, 0.02713, 0.06982, 0.18046, 0.44358, 0.67176 & + , 0.78420, 0.80757, 0.72890, 0.74090, 0.79938, 0.82306 & + , 0.83898, 0.84893, 0.85943, 0.86579, 0.87313/ DATA(gasym(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% - /0.00573, 0.01466, 0.03723, 0.09419, 0.23261, 0.54547 & - ,0.69835, 0.75930, 0.71184, 0.72949, 0.78557, 0.83612 & - ,0.87030, 0.90273, 0.92863, 0.94602, 0.95448/ + / 0.01073, 0.02816, 0.07268, 0.18853, 0.46023, 0.68102 & + , 0.78870, 0.80917, 0.72965, 0.74294, 0.80450, 0.82427 & + , 0.84152, 0.84969, 0.86084, 0.86607, 0.87257/ DATA(gasym(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% - /0.00579, 0.01486, 0.03785, 0.09595, 0.23743, 0.55019 & - ,0.70189, 0.76229, 0.71394, 0.73083, 0.78731, 0.83647 & - ,0.87034, 0.90242, 0.92832, 0.94598, 0.95479/ + / 0.01113, 0.02936, 0.07607, 0.19821, 0.47891, 0.69131 & + , 0.79355, 0.81054, 0.72852, 0.74808, 0.80753, 0.82454 & + , 0.84188, 0.85114, 0.86152, 0.86849, 0.87534/ DATA(gasym(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% - /0.00587, 0.01511, 0.03859, 0.09808, 0.24335, 0.55569 & - ,0.70606, 0.76584, 0.71640, 0.73203, 0.78905, 0.83695 & - ,0.87035, 0.90206, 0.92794, 0.94588, 0.95511/ + / 0.01161, 0.03080, 0.08019, 0.21006, 0.49982, 0.70260 & + , 0.79878, 0.81106, 0.72915, 0.75060, 0.80884, 0.82811 & + , 0.84229, 0.85312, 0.86219, 0.87016, 0.87514/ DATA(gasym(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% - /0.00595, 0.01541, 0.03951, 0.10073, 0.25078, 0.56219 & - ,0.71109, 0.77007, 0.71960, 0.73402, 0.79098, 0.83778 & - ,0.87030, 0.90148, 0.92734, 0.94571, 0.95545/ + / 0.01218, 0.03257, 0.08530, 0.22497, 0.52301, 0.71482 & + , 0.80449, 0.81119, 0.72925, 0.75556, 0.81199, 0.83185 & + , 0.84535, 0.85566, 0.86332, 0.87107, 0.87711/ DATA(gasym(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% - /0.00606, 0.01578, 0.04065, 0.10412, 0.26041, 0.57001 & - ,0.71730, 0.77509, 0.72358, 0.73632, 0.79331, 0.83847 & - ,0.87039, 0.90095, 0.92660, 0.94537, 0.95576/ + / 0.01288, 0.03480, 0.09185, 0.24436, 0.54827, 0.72788 & + , 0.81102, 0.81094, 0.73168, 0.76304, 0.81673, 0.83221 & + , 0.84814, 0.85631, 0.86369, 0.87211, 0.87797/ DATA(gasym(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% - /0.00619, 0.01624, 0.04215, 0.10863, 0.27337, 0.57968 & - ,0.72525, 0.78093, 0.72828, 0.73877, 0.79636, 0.83940 & - ,0.87055, 0.90006, 0.92562, 0.94483, 0.95602/ + / 0.01378, 0.03772, 0.10059, 0.27059, 0.57502, 0.74201 & + , 0.81866, 0.80786, 0.73423, 0.77264, 0.81789, 0.83398 & + , 0.84901, 0.85963, 0.86757, 0.87395, 0.87872/ DATA(gasym(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% - /0.00635, 0.01685, 0.04418, 0.11494, 0.29181, 0.59216 & - ,0.73581, 0.78747, 0.73166, 0.74242, 0.80100, 0.84085 & - ,0.87058, 0.89893, 0.92409, 0.94380, 0.95606/ + / 0.01497, 0.04172, 0.11288, 0.30789, 0.60297, 0.75827 & + , 0.82573, 0.80249, 0.73979, 0.78614, 0.82149, 0.83856 & + , 0.85197, 0.86249, 0.86956, 0.87525, 0.88034/ DATA(gasym(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% - /0.00656, 0.01768, 0.04711, 0.12443, 0.32012, 0.60965 & - ,0.75025, 0.79526, 0.73673, 0.74748, 0.80696, 0.84210 & - ,0.87099, 0.89742, 0.92179, 0.94185, 0.95557/ + / 0.01664, 0.04760, 0.13151, 0.36409, 0.63499, 0.77808 & + , 0.83202, 0.79066, 0.74897, 0.80479, 0.82780, 0.84291 & + , 0.85719, 0.86657, 0.87276, 0.87712, 0.88175/ DATA(gasym(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% - /0.00684, 0.01891, 0.05178, 0.14060, 0.36901, 0.63865 & - ,0.77047, 0.80597, 0.73957, 0.75422, 0.81475, 0.84571 & - ,0.87128, 0.89539, 0.91761, 0.93788, 0.95349/ + / 0.01919, 0.05715, 0.16381, 0.45478, 0.68339, 0.80251 & + , 0.83523, 0.76912, 0.75969, 0.81392, 0.83549, 0.85114 & + , 0.85945, 0.86818, 0.87435, 0.87947, 0.88366/ DATA(gasym(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% - /0.00725, 0.02096, 0.06071, 0.17559, 0.46942, 0.69948 & - ,0.80194, 0.81321, 0.73877, 0.76821, 0.82788, 0.85142 & - ,0.87170, 0.89043, 0.90992, 0.92852, 0.94582/ + / 0.02368, 0.07617, 0.23497, 0.58298, 0.75193, 0.83176 & + , 0.82175, 0.74894, 0.78778, 0.82813, 0.84416, 0.85887 & + , 0.86722, 0.87317, 0.87828, 0.88227, 0.88582/ DATA(gasym(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% - /0.02652, 0.06689, 0.16982, 0.38963, 0.59803, 0.70274 & - ,0.72603, 0.64355, 0.74197, 0.79950, 0.84232, 0.88036 & - ,0.91173, 0.93410, 0.94606, 0.95018, 0.95093/ + / 0.03881, 0.09905, 0.25222, 0.51963, 0.69486, 0.77757 & + , 0.77036, 0.68247, 0.75387, 0.79048, 0.81340, 0.82732 & + , 0.84203, 0.84902, 0.85872, 0.86540, 0.87545/ DATA(gasym(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% - /0.02664, 0.06724, 0.17082, 0.39114, 0.59937, 0.70378 & - ,0.72705, 0.64464, 0.74209, 0.79992, 0.84241, 0.88032 & - ,0.91169, 0.93412, 0.94617, 0.95037, 0.95114/ + / 0.03954, 0.10080, 0.25684, 0.52471, 0.69808, 0.77971 & + , 0.77143, 0.68320, 0.75641, 0.79439, 0.81318, 0.82900 & + , 0.84282, 0.85014, 0.85809, 0.86731, 0.87556/ DATA(gasym(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% - /0.02678, 0.06763, 0.17192, 0.39279, 0.60083, 0.70491 & - ,0.72817, 0.64591, 0.74225, 0.80011, 0.84247, 0.88028 & - ,0.91165, 0.93412, 0.94628, 0.95057, 0.95136/ + / 0.04023, 0.10270, 0.26184, 0.53015, 0.70147, 0.78192 & + , 0.77250, 0.68353, 0.75898, 0.79231, 0.81625, 0.82987 & + , 0.84326, 0.85108, 0.85928, 0.86731, 0.87688/ DATA(gasym(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% - /0.02692, 0.06806, 0.17313, 0.39461, 0.60244, 0.70616 & - ,0.72936, 0.64728, 0.74254, 0.80045, 0.84253, 0.88019 & - ,0.91153, 0.93410, 0.94641, 0.95078, 0.95161/ + / 0.04098, 0.10477, 0.26729, 0.53598, 0.70505, 0.78421 & + , 0.77357, 0.68490, 0.76188, 0.79408, 0.81866, 0.83220 & + , 0.84343, 0.85129, 0.85919, 0.86824, 0.87659/ DATA(gasym(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% - /0.02708, 0.06853, 0.17448, 0.39663, 0.60422, 0.70755 & - ,0.73064, 0.64868, 0.74289, 0.80099, 0.84257, 0.88022 & - ,0.91143, 0.93410, 0.94654, 0.95102, 0.95188/ + / 0.04179, 0.10703, 0.27326, 0.54227, 0.70883, 0.78658 & + , 0.77461, 0.68599, 0.76466, 0.79497, 0.81743, 0.83264 & + , 0.84141, 0.85297, 0.86043, 0.86691, 0.87680/ DATA(gasym(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% - /0.02726, 0.06905, 0.17598, 0.39888, 0.60619, 0.70909 & - ,0.73201, 0.65017, 0.74311, 0.80141, 0.84258, 0.88020 & - ,0.91135, 0.93406, 0.94668, 0.95128, 0.95218/ + / 0.04268, 0.10953, 0.27981, 0.54907, 0.71283, 0.78902 & + , 0.77548, 0.68739, 0.76668, 0.79851, 0.81886, 0.83545 & + , 0.84651, 0.85485, 0.86156, 0.86968, 0.87685/ DATA(gasym(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% - /0.02745, 0.06964, 0.17767, 0.40140, 0.60839, 0.71081 & - ,0.73359, 0.65177, 0.74361, 0.80186, 0.84266, 0.88011 & - ,0.91121, 0.93404, 0.94683, 0.95156, 0.95250/ + / 0.04366, 0.11230, 0.28706, 0.55647, 0.71707, 0.79152 & + , 0.77607, 0.68889, 0.77045, 0.79829, 0.82115, 0.83719 & + , 0.84487, 0.85698, 0.86342, 0.86953, 0.87703/ DATA(gasym(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% - /0.02767, 0.07030, 0.17958, 0.40425, 0.61086, 0.71274 & - ,0.73548, 0.65356, 0.74409, 0.80209, 0.84280, 0.88002 & - ,0.91107, 0.93397, 0.94698, 0.95187, 0.95287/ + / 0.04475, 0.11540, 0.29514, 0.56455, 0.72159, 0.79407 & + , 0.77659, 0.69039, 0.77262, 0.80182, 0.82109, 0.83560 & + , 0.84850, 0.85714, 0.86362, 0.86947, 0.87844/ DATA(gasym(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% - /0.02791, 0.07104, 0.18177, 0.40750, 0.61365, 0.71492 & - ,0.73754, 0.65535, 0.74491, 0.80274, 0.84313, 0.87996 & - ,0.91088, 0.93393, 0.94715, 0.95222, 0.95328/ + / 0.04597, 0.11889, 0.30422, 0.57345, 0.72641, 0.79666 & + , 0.77698, 0.69232, 0.77644, 0.80448, 0.82417, 0.84092 & + , 0.84993, 0.85512, 0.86450, 0.87054, 0.87885/ DATA(gasym(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% - /0.02819, 0.07190, 0.18429, 0.41125, 0.61683, 0.71741 & - ,0.73966, 0.65761, 0.74578, 0.80359, 0.84342, 0.87982 & - ,0.91070, 0.93383, 0.94732, 0.95260, 0.95373/ + / 0.04734, 0.12287, 0.31450, 0.58328, 0.73158, 0.79929 & + , 0.77736, 0.69335, 0.77864, 0.80592, 0.82731, 0.83964 & + , 0.85028, 0.85616, 0.86505, 0.87162, 0.87874/ DATA(gasym(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% - /0.02850, 0.07288, 0.18724, 0.41560, 0.62048, 0.72028 & - ,0.74212, 0.65986, 0.74711, 0.80424, 0.84366, 0.87978 & - ,0.91041, 0.93367, 0.94749, 0.95302, 0.95425/ + / 0.04891, 0.12748, 0.32628, 0.59421, 0.73716, 0.80199 & + , 0.77763, 0.69483, 0.78237, 0.80978, 0.82774, 0.84082 & + , 0.85012, 0.85883, 0.86554, 0.87233, 0.87870/ DATA(gasym(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% - /0.02885, 0.07403, 0.19073, 0.42073, 0.62472, 0.72362 & - ,0.74487, 0.66221, 0.74900, 0.80509, 0.84388, 0.87959 & - ,0.91005, 0.93349, 0.94764, 0.95349, 0.95484/ + / 0.05072, 0.13290, 0.33993, 0.60639, 0.74324, 0.80486 & + , 0.77774, 0.69703, 0.78937, 0.81249, 0.82981, 0.84308 & + , 0.85095, 0.86045, 0.86652, 0.87300, 0.87904/ DATA(gasym(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% - /0.02927, 0.07540, 0.19491, 0.42687, 0.62971, 0.72758 & - ,0.74806, 0.66500, 0.75110, 0.80661, 0.84425, 0.87948 & - ,0.90966, 0.93325, 0.94779, 0.95401, 0.95552/ + / 0.05286, 0.13939, 0.35593, 0.62001, 0.74994, 0.80799 & + , 0.77677, 0.70050, 0.79198, 0.81541, 0.83306, 0.84457 & + , 0.85406, 0.86236, 0.86803, 0.87402, 0.88075/ DATA(gasym(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% - /0.02976, 0.07705, 0.20005, 0.43436, 0.63563, 0.73234 & - ,0.75176, 0.66810, 0.75336, 0.80775, 0.84493, 0.87937 & - ,0.90922, 0.93283, 0.94789, 0.95459, 0.95630/ + / 0.05543, 0.14734, 0.37493, 0.63518, 0.75744, 0.81134 & + , 0.77535, 0.70488, 0.79739, 0.82165, 0.83267, 0.84650 & + , 0.85453, 0.86263, 0.86872, 0.87410, 0.88064/ DATA(gasym(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% - /0.03034, 0.07908, 0.20649, 0.44370, 0.64280, 0.73821 & - ,0.75610, 0.67233, 0.75594, 0.80926, 0.84533, 0.87916 & - ,0.90845, 0.93229, 0.94791, 0.95521, 0.95722/ + / 0.05860, 0.15738, 0.39778, 0.65201, 0.76613, 0.81475 & + , 0.77321, 0.71066, 0.80256, 0.82315, 0.83665, 0.84717 & + , 0.85729, 0.86483, 0.87046, 0.87587, 0.88104/ DATA(gasym(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% - /0.03105, 0.08164, 0.21483, 0.45569, 0.65166, 0.74557 & - ,0.76131, 0.67693, 0.75913, 0.81125, 0.84655, 0.87886 & - ,0.90758, 0.93139, 0.94775, 0.95586, 0.95829/ + / 0.06263, 0.17052, 0.42555, 0.67066, 0.77667, 0.81810 & + , 0.76780, 0.72151, 0.80737, 0.82529, 0.84103, 0.85183 & + , 0.85790, 0.86570, 0.87231, 0.87641, 0.88180/ DATA(gasym(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% - /0.03194, 0.08501, 0.22605, 0.47164, 0.66294, 0.75515 & - ,0.76732, 0.68256, 0.76585, 0.81410, 0.84773, 0.87844 & - ,0.90638, 0.93002, 0.94723, 0.95645, 0.95954/ + / 0.06797, 0.18855, 0.45967, 0.69167, 0.78979, 0.82079 & + , 0.76019, 0.73768, 0.81182, 0.82851, 0.84377, 0.85444 & + , 0.86211, 0.86951, 0.87295, 0.87752, 0.88217/ DATA(gasym(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% - /0.03309, 0.08963, 0.24195, 0.49387, 0.67800, 0.76753 & - ,0.77344, 0.68949, 0.77355, 0.81770, 0.84944, 0.87792 & - ,0.90439, 0.92765, 0.94589, 0.95673, 0.96093/ + / 0.07548, 0.21493, 0.50250, 0.71662, 0.80504, 0.82069 & + , 0.74812, 0.76111, 0.81510, 0.83221, 0.84585, 0.85836 & + , 0.86614, 0.87098, 0.87500, 0.87880, 0.88283/ DATA(gasym(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% - /0.03464, 0.09648, 0.26626, 0.52682, 0.70007, 0.78416 & - ,0.77991, 0.69494, 0.78672, 0.82441, 0.85278, 0.87796 & - ,0.90114, 0.92354, 0.94257, 0.95579, 0.96215/ + / 0.08693, 0.25742, 0.56095, 0.74759, 0.82028, 0.81432 & + , 0.73036, 0.78855, 0.81905, 0.83971, 0.85382, 0.86023 & + , 0.86912, 0.87329, 0.87666, 0.88010, 0.88327/ DATA(gasym(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% - /0.03689, 0.10790, 0.30789, 0.58123, 0.73588, 0.80519 & - ,0.77954, 0.71019, 0.80913, 0.83581, 0.85567, 0.87534 & - ,0.89539, 0.91457, 0.93322, 0.94957, 0.96066/ + / 0.10706, 0.33768, 0.64779, 0.78698, 0.83186, 0.78599 & + , 0.73641, 0.81766, 0.83410, 0.84890, 0.85956, 0.86749 & + , 0.87155, 0.87598, 0.87874, 0.88128, 0.88351/ DATA(gasym(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00076 & - ,0.00191, 0.00482, 0.01212, 0.03042, 0.07694, 0.20715 & - ,0.50616, 0.68219, 0.77144, 0.85518, 0.88175/ + / 0.00001, 0.00003, 0.00008, 0.00020, 0.00048, 0.00121 & + , 0.00305, 0.00769, 0.01933, 0.04873, 0.12603, 0.34952 & + , 0.62871, 0.78210, 0.85086, 0.89593, 0.91627/ DATA(gasym(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00076 & - ,0.00192, 0.00484, 0.01218, 0.03059, 0.07737, 0.20845 & - ,0.50735, 0.68348, 0.77275, 0.85571, 0.88217/ + / 0.00001, 0.00003, 0.00008, 0.00020, 0.00049, 0.00123 & + , 0.00311, 0.00784, 0.01972, 0.04972, 0.12880, 0.35683 & + , 0.63342, 0.78454, 0.85248, 0.89674, 0.91654/ DATA(gasym(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00077 & - ,0.00194, 0.00487, 0.01225, 0.03077, 0.07785, 0.20990 & - ,0.50866, 0.68489, 0.77416, 0.85629, 0.88263/ + / 0.00001, 0.00003, 0.00008, 0.00021, 0.00050, 0.00126 & + , 0.00318, 0.00801, 0.02015, 0.05081, 0.13183, 0.36470 & + , 0.63844, 0.78710, 0.85415, 0.89756, 0.91682/ DATA(gasym(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00077 & - ,0.00195, 0.00491, 0.01234, 0.03098, 0.07839, 0.21152 & - ,0.51013, 0.68644, 0.77571, 0.85692, 0.88314/ + / 0.00001, 0.00003, 0.00008, 0.00021, 0.00051, 0.00129 & + , 0.00325, 0.00819, 0.02061, 0.05201, 0.13518, 0.37319 & + , 0.64380, 0.78979, 0.85588, 0.89841, 0.91711/ DATA(gasym(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00078 & - ,0.00196, 0.00494, 0.01243, 0.03121, 0.07899, 0.21334 & - ,0.51177, 0.68816, 0.77740, 0.85762, 0.88369/ + / 0.00001, 0.00003, 0.00009, 0.00022, 0.00052, 0.00132 & + , 0.00333, 0.00840, 0.02113, 0.05333, 0.13891, 0.38239 & + , 0.64953, 0.79262, 0.85768, 0.89927, 0.91741/ DATA(gasym(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00078 & - ,0.00198, 0.00498, 0.01253, 0.03147, 0.07968, 0.21541 & - ,0.51362, 0.69006, 0.77925, 0.85839, 0.88430/ + / 0.00001, 0.00003, 0.00009, 0.00022, 0.00053, 0.00135 & + , 0.00342, 0.00862, 0.02170, 0.05481, 0.14308, 0.39238 & + , 0.65568, 0.79562, 0.85956, 0.90016, 0.91773/ DATA(gasym(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00079 & - ,0.00200, 0.00503, 0.01265, 0.03177, 0.08046, 0.21777 & - ,0.51572, 0.69220, 0.78130, 0.85925, 0.88497/ + / 0.00001, 0.00003, 0.00009, 0.00023, 0.00055, 0.00139 & + , 0.00352, 0.00888, 0.02235, 0.05647, 0.14779, 0.40328 & + , 0.66229, 0.79883, 0.86153, 0.90108, 0.91807/ DATA(gasym(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00080 & - ,0.00202, 0.00508, 0.01278, 0.03211, 0.08136, 0.22049 & - ,0.51814, 0.69461, 0.78359, 0.86022, 0.88572/ + / 0.00001, 0.00004, 0.00009, 0.00024, 0.00057, 0.00144 & + , 0.00364, 0.00917, 0.02308, 0.05836, 0.15317, 0.41523 & + , 0.66942, 0.80225, 0.86361, 0.90203, 0.91842/ DATA(gasym(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00081 & - ,0.00204, 0.00515, 0.01294, 0.03251, 0.08241, 0.22366 & - ,0.52093, 0.69735, 0.78614, 0.86130, 0.88655/ + / 0.00001, 0.00004, 0.00010, 0.00024, 0.00059, 0.00149 & + , 0.00377, 0.00950, 0.02392, 0.06053, 0.15939, 0.42837 & + , 0.67712, 0.80594, 0.86583, 0.90303, 0.91880/ DATA(gasym(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% - /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00082 & - ,0.00207, 0.00522, 0.01313, 0.03298, 0.08365, 0.22741 & - ,0.52421, 0.70050, 0.78902, 0.86254, 0.88750/ + / 0.00001, 0.00004, 0.00010, 0.00025, 0.00061, 0.00155 & + , 0.00392, 0.00988, 0.02490, 0.06307, 0.16668, 0.44291 & + , 0.68548, 0.80991, 0.86822, 0.90408, 0.91921/ DATA(gasym(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% - /0.00001, 0.00002, 0.00005, 0.00014, 0.00033, 0.00083 & - ,0.00210, 0.00531, 0.01335, 0.03354, 0.08514, 0.23189 & - ,0.52810, 0.70416, 0.79230, 0.86395, 0.88857/ + / 0.00002, 0.00004, 0.00010, 0.00026, 0.00064, 0.00162 & + , 0.00410, 0.01034, 0.02605, 0.06607, 0.17538, 0.45908 & + , 0.69459, 0.81420, 0.87082, 0.90520, 0.91965/ DATA(gasym(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% - /0.00001, 0.00002, 0.00005, 0.00014, 0.00034, 0.00085 & - ,0.00215, 0.00541, 0.01362, 0.03422, 0.08695, 0.23737 & - ,0.53280, 0.70848, 0.79607, 0.86559, 0.88980/ + / 0.00002, 0.00004, 0.00011, 0.00028, 0.00067, 0.00170 & + , 0.00431, 0.01089, 0.02744, 0.06971, 0.18597, 0.47715 & + , 0.70458, 0.81885, 0.87364, 0.90639, 0.92014/ DATA(gasym(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% - /0.00001, 0.00002, 0.00006, 0.00014, 0.00034, 0.00087 & - ,0.00220, 0.00554, 0.01395, 0.03507, 0.08921, 0.24418 & - ,0.53858, 0.71364, 0.80043, 0.86750, 0.89122/ + / 0.00002, 0.00004, 0.00011, 0.00029, 0.00071, 0.00181 & + , 0.00458, 0.01156, 0.02916, 0.07421, 0.19915, 0.49744 & + , 0.71560, 0.82395, 0.87673, 0.90768, 0.92067/ DATA(gasym(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% - /0.00001, 0.00002, 0.00006, 0.00015, 0.00035, 0.00089 & - ,0.00226, 0.00571, 0.01438, 0.03616, 0.09210, 0.25290 & - ,0.54588, 0.71991, 0.80553, 0.86977, 0.89288/ + / 0.00002, 0.00005, 0.00012, 0.00031, 0.00076, 0.00194 & + , 0.00491, 0.01242, 0.03133, 0.07995, 0.21605, 0.52035 & + , 0.72787, 0.82965, 0.88013, 0.90908, 0.92127/ DATA(gasym(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% - /0.00001, 0.00002, 0.00006, 0.00015, 0.00036, 0.00093 & - ,0.00235, 0.00593, 0.01494, 0.03759, 0.09595, 0.26441 & - ,0.55537, 0.72768, 0.81156, 0.87251, 0.89487/ + / 0.00002, 0.00005, 0.00013, 0.00034, 0.00082, 0.00211 & + , 0.00535, 0.01353, 0.03419, 0.08754, 0.23840, 0.54636 & + , 0.74170, 0.83614, 0.88395, 0.91064, 0.92194/ DATA(gasym(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% - /0.00001, 0.00002, 0.00006, 0.00016, 0.00038, 0.00097 & - ,0.00246, 0.00623, 0.01571, 0.03957, 0.10130, 0.28029 & - ,0.56815, 0.73748, 0.81876, 0.87588, 0.89727/ + / 0.00002, 0.00005, 0.00014, 0.00037, 0.00091, 0.00234 & + , 0.00595, 0.01506, 0.03810, 0.09805, 0.26912, 0.57618 & + , 0.75738, 0.84362, 0.88828, 0.91238, 0.92272/ DATA(gasym(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% - /0.00001, 0.00002, 0.00006, 0.00017, 0.00040, 0.00103 & - ,0.00263, 0.00667, 0.01685, 0.04249, 0.10926, 0.30344 & - ,0.58622, 0.75008, 0.82756, 0.88017, 0.90024/ + / 0.00002, 0.00006, 0.00016, 0.00042, 0.00104, 0.00267 & + , 0.00681, 0.01726, 0.04377, 0.11356, 0.31303, 0.61107 & + , 0.77520, 0.85223, 0.89326, 0.91435, 0.92363/ DATA(gasym(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% - /0.00001, 0.00003, 0.00007, 0.00018, 0.00044, 0.00113 & - ,0.00290, 0.00738, 0.01868, 0.04722, 0.12238, 0.33989 & - ,0.61329, 0.76667, 0.83880, 0.88576, 0.90404/ + / 0.00002, 0.00007, 0.00019, 0.00050, 0.00123, 0.00319 & + , 0.00817, 0.02077, 0.05286, 0.13895, 0.37883, 0.65380 & + , 0.79606, 0.86259, 0.89905, 0.91667, 0.92474/ DATA(gasym(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% - /0.00001, 0.00003, 0.00007, 0.00020, 0.00050, 0.00132 & - ,0.00341, 0.00872, 0.02215, 0.05630, 0.14816, 0.40341 & - ,0.65647, 0.78999, 0.85407, 0.89340, 0.90910/ + / 0.00003, 0.00008, 0.00023, 0.00063, 0.00158, 0.00414 & + , 0.01065, 0.02719, 0.06976, 0.18772, 0.47735, 0.70782 & + , 0.82144, 0.87565, 0.90585, 0.91948, 0.92613/ DATA(gasym(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% - /0.00001, 0.00003, 0.00009, 0.00025, 0.00065, 0.00177 & - ,0.00470, 0.01222, 0.03142, 0.08120, 0.22183, 0.52633 & - ,0.72828, 0.82645, 0.87706, 0.90476, 0.91638/ + / 0.00003, 0.00011, 0.00033, 0.00094, 0.00243, 0.00647 & + , 0.01690, 0.04366, 0.11487, 0.31858, 0.61698, 0.77836 & + , 0.85425, 0.89391, 0.91422, 0.92331, 0.92807/ DATA(gasym(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% - /0.00002, 0.00004, 0.00011, 0.00029, 0.00069, 0.00175 & - ,0.00440, 0.01106, 0.02775, 0.06976, 0.18122, 0.49305 & - ,0.69945, 0.80568, 0.82301, 0.91174, 0.92981/ + / 0.00003, 0.00007, 0.00018, 0.00045, 0.00109, 0.00275 & + , 0.00695, 0.01750, 0.04418, 0.11414, 0.31696, 0.64379 & + , 0.80159, 0.87297, 0.90762, 0.92878, 0.93681/ DATA(gasym(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% - /0.00002, 0.00005, 0.00011, 0.00029, 0.00070, 0.00175 & - ,0.00442, 0.01111, 0.02789, 0.07013, 0.18234, 0.49524 & - ,0.70166, 0.80776, 0.82698, 0.91278, 0.93043/ + / 0.00003, 0.00007, 0.00018, 0.00046, 0.00111, 0.00280 & + , 0.00707, 0.01782, 0.04501, 0.11645, 0.32349, 0.64852 & + , 0.80445, 0.87478, 0.90887, 0.92928, 0.93721/ DATA(gasym(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% - /0.00002, 0.00005, 0.00011, 0.00029, 0.00070, 0.00176 & - ,0.00444, 0.01118, 0.02805, 0.07055, 0.18358, 0.49764 & - ,0.70405, 0.80999, 0.83110, 0.91382, 0.93104/ + / 0.00003, 0.00007, 0.00018, 0.00047, 0.00113, 0.00286 & + , 0.00721, 0.01818, 0.04593, 0.11898, 0.33062, 0.65353 & + , 0.80741, 0.87662, 0.91012, 0.92980, 0.93762/ DATA(gasym(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% - /0.00002, 0.00005, 0.00012, 0.00029, 0.00070, 0.00177 & - ,0.00447, 0.01124, 0.02823, 0.07101, 0.18496, 0.50029 & - ,0.70664, 0.81236, 0.83537, 0.91489, 0.93166/ + / 0.00003, 0.00007, 0.00019, 0.00048, 0.00115, 0.00292 & + , 0.00737, 0.01857, 0.04693, 0.12178, 0.33841, 0.65883 & + , 0.81048, 0.87851, 0.91137, 0.93032, 0.93803/ DATA(gasym(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% - /0.00002, 0.00005, 0.00012, 0.00029, 0.00071, 0.00179 & - ,0.00450, 0.01132, 0.02843, 0.07153, 0.18651, 0.50322 & - ,0.70944, 0.81490, 0.83980, 0.91597, 0.93229/ + / 0.00003, 0.00008, 0.00019, 0.00049, 0.00118, 0.00299 & + , 0.00754, 0.01900, 0.04805, 0.12490, 0.34699, 0.66448 & + , 0.81368, 0.88045, 0.91263, 0.93087, 0.93844/ DATA(gasym(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% - /0.00002, 0.00005, 0.00012, 0.00030, 0.00071, 0.00180 & - ,0.00453, 0.01141, 0.02865, 0.07212, 0.18827, 0.50648 & - ,0.71250, 0.81763, 0.84441, 0.91707, 0.93291/ + / 0.00003, 0.00008, 0.00020, 0.00050, 0.00121, 0.00306 & + , 0.00773, 0.01948, 0.04930, 0.12839, 0.35647, 0.67049 & + , 0.81703, 0.88244, 0.91390, 0.93143, 0.93887/ DATA(gasym(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% - /0.00002, 0.00005, 0.00012, 0.00030, 0.00072, 0.00181 & - ,0.00457, 0.01151, 0.02891, 0.07279, 0.19028, 0.51013 & - ,0.71584, 0.82056, 0.84919, 0.91819, 0.93355/ + / 0.00003, 0.00008, 0.00020, 0.00052, 0.00124, 0.00314 & + , 0.00794, 0.02002, 0.05071, 0.13234, 0.36701, 0.67693 & + , 0.82056, 0.88449, 0.91519, 0.93200, 0.93929/ DATA(gasym(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% - /0.00002, 0.00005, 0.00012, 0.00030, 0.00073, 0.00183 & - ,0.00462, 0.01162, 0.02920, 0.07356, 0.19260, 0.51425 & - ,0.71952, 0.82372, 0.85414, 0.91933, 0.93419/ + / 0.00003, 0.00008, 0.00021, 0.00053, 0.00128, 0.00324 & + , 0.00818, 0.02064, 0.05231, 0.13685, 0.37884, 0.68387 & + , 0.82429, 0.88661, 0.91650, 0.93260, 0.93973/ DATA(gasym(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% - /0.00002, 0.00005, 0.00012, 0.00030, 0.00073, 0.00185 & - ,0.00467, 0.01176, 0.02954, 0.07446, 0.19529, 0.51893 & - ,0.72358, 0.82713, 0.85929, 0.92050, 0.93486/ + / 0.00003, 0.00008, 0.00021, 0.00055, 0.00132, 0.00335 & + , 0.00846, 0.02135, 0.05415, 0.14207, 0.39220, 0.69138 & + , 0.82827, 0.88879, 0.91782, 0.93322, 0.94018/ DATA(gasym(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% - /0.00002, 0.00005, 0.00012, 0.00031, 0.00074, 0.00188 & - ,0.00473, 0.01191, 0.02994, 0.07552, 0.19847, 0.52431 & - ,0.72809, 0.83083, 0.86463, 0.92169, 0.93554/ + / 0.00003, 0.00009, 0.00022, 0.00057, 0.00137, 0.00347 & + , 0.00878, 0.02217, 0.05631, 0.14820, 0.40742, 0.69958 & + , 0.83254, 0.89107, 0.91917, 0.93386, 0.94063/ DATA(gasym(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% - /0.00002, 0.00005, 0.00012, 0.00031, 0.00075, 0.00190 & - ,0.00480, 0.01210, 0.03042, 0.07679, 0.20228, 0.53053 & - ,0.73314, 0.83485, 0.87016, 0.92292, 0.93625/ + / 0.00003, 0.00009, 0.00023, 0.00059, 0.00143, 0.00362 & + , 0.00916, 0.02315, 0.05887, 0.15552, 0.42493, 0.70859 & + , 0.83717, 0.89348, 0.92057, 0.93454, 0.94109/ DATA(gasym(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% - /0.00002, 0.00005, 0.00012, 0.00032, 0.00077, 0.00194 & - ,0.00489, 0.01233, 0.03100, 0.07834, 0.20692, 0.53783 & - ,0.73883, 0.83924, 0.87590, 0.92420, 0.93700/ + / 0.00003, 0.00009, 0.00024, 0.00062, 0.00150, 0.00380 & + , 0.00962, 0.02433, 0.06197, 0.16444, 0.44527, 0.71860 & + , 0.84221, 0.89606, 0.92201, 0.93524, 0.94156/ DATA(gasym(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% - /0.00002, 0.00005, 0.00013, 0.00032, 0.00078, 0.00198 & - ,0.00500, 0.01261, 0.03172, 0.08026, 0.21271, 0.54652 & - ,0.74533, 0.84404, 0.88183, 0.92555, 0.93779/ + / 0.00004, 0.00010, 0.00025, 0.00065, 0.00158, 0.00402 & + , 0.01019, 0.02579, 0.06583, 0.17557, 0.46908, 0.72983 & + , 0.84773, 0.89885, 0.92353, 0.93599, 0.94205/ DATA(gasym(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% - /0.00002, 0.00005, 0.00013, 0.00033, 0.00080, 0.00203 & - ,0.00514, 0.01296, 0.03263, 0.08271, 0.22012, 0.55702 & - ,0.75283, 0.84933, 0.88794, 0.92697, 0.93863/ + / 0.00004, 0.00010, 0.00027, 0.00070, 0.00169, 0.00430 & + , 0.01091, 0.02765, 0.07075, 0.18989, 0.49717, 0.74259 & + , 0.85380, 0.90186, 0.92513, 0.93678, 0.94255/ DATA(gasym(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% - /0.00002, 0.00005, 0.00013, 0.00034, 0.00083, 0.00210 & - ,0.00532, 0.01343, 0.03385, 0.08597, 0.22994, 0.56997 & - ,0.76162, 0.85521, 0.89421, 0.92851, 0.93955/ + / 0.00004, 0.00011, 0.00029, 0.00075, 0.00183, 0.00467 & + , 0.01186, 0.03008, 0.07726, 0.20894, 0.53037, 0.75726 & + , 0.86051, 0.90514, 0.92683, 0.93762, 0.94306/ DATA(gasym(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% - /0.00002, 0.00005, 0.00014, 0.00035, 0.00086, 0.00220 & - ,0.00557, 0.01408, 0.03552, 0.09049, 0.24358, 0.58634 & - ,0.77216, 0.86187, 0.90057, 0.93019, 0.94054/ + / 0.00004, 0.00012, 0.00031, 0.00083, 0.00202, 0.00516 & + , 0.01315, 0.03343, 0.08628, 0.23541, 0.56936, 0.77429 & + , 0.86804, 0.90876, 0.92868, 0.93854, 0.94359/ DATA(gasym(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% - /0.00002, 0.00005, 0.00014, 0.00037, 0.00091, 0.00233 & - ,0.00593, 0.01502, 0.03798, 0.09721, 0.26377, 0.60767 & - ,0.78515, 0.86958, 0.90698, 0.93206, 0.94162/ + / 0.00005, 0.00013, 0.00035, 0.00093, 0.00229, 0.00588 & + , 0.01501, 0.03830, 0.09958, 0.27418, 0.61420, 0.79409 & + , 0.87665, 0.91286, 0.93070, 0.93954, 0.94414/ DATA(gasym(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% - /0.00002, 0.00006, 0.00015, 0.00040, 0.00099, 0.00255 & - ,0.00651, 0.01654, 0.04197, 0.10825, 0.29657, 0.63655 & - ,0.80174, 0.87873, 0.91350, 0.93414, 0.94276/ + / 0.00005, 0.00015, 0.00041, 0.00110, 0.00271, 0.00701 & + , 0.01798, 0.04609, 0.12129, 0.33555, 0.66459, 0.81720 & + , 0.88663, 0.91761, 0.93300, 0.94068, 0.94473/ DATA(gasym(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% - /0.00002, 0.00006, 0.00017, 0.00045, 0.00112, 0.00294 & - ,0.00759, 0.01942, 0.04962, 0.12986, 0.35812, 0.67803 & - ,0.82399, 0.88994, 0.92023, 0.93648, 0.94390/ + / 0.00006, 0.00018, 0.00051, 0.00139, 0.00347, 0.00907 & + , 0.02342, 0.06059, 0.16280, 0.43979, 0.72114, 0.84414 & + , 0.89835, 0.92328, 0.93573, 0.94204, 0.94541/ DATA(gasym(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% - /0.00002, 0.00007, 0.00019, 0.00055, 0.00145, 0.00392 & - ,0.01037, 0.02704, 0.07051, 0.19134, 0.50142, 0.74725 & - ,0.85771, 0.90532, 0.92795, 0.93927, 0.94494/ + / 0.00007, 0.00024, 0.00071, 0.00205, 0.00531, 0.01417 & + , 0.03724, 0.09892, 0.27594, 0.61726, 0.79653, 0.87787 & + , 0.91348, 0.93070, 0.93934, 0.94387, 0.94630/ DATA(gasym(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% - /0.00004, 0.00011, 0.00029, 0.00072, 0.00173, 0.00436 & - ,0.01099, 0.02767, 0.07017, 0.18631, 0.51579, 0.74556 & - ,0.86027, 0.91201, 0.93629, 0.95085, 0.95889/ + / 0.00006, 0.00017, 0.00043, 0.00110, 0.00260, 0.00658 & + , 0.01670, 0.04278, 0.11378, 0.32215, 0.67624, 0.82827 & + , 0.90221, 0.93561, 0.94966, 0.95759, 0.96206/ DATA(gasym(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% - /0.00004, 0.00011, 0.00029, 0.00073, 0.00174, 0.00439 & - ,0.01105, 0.02784, 0.07062, 0.18757, 0.51852, 0.74668 & - ,0.86088, 0.91227, 0.93639, 0.95103, 0.95908/ + / 0.00007, 0.00017, 0.00044, 0.00113, 0.00266, 0.00675 & + , 0.01713, 0.04389, 0.11673, 0.32994, 0.68261, 0.83173 & + , 0.90423, 0.93696, 0.95067, 0.95865, 0.96307/ DATA(gasym(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% - /0.00005, 0.00011, 0.00029, 0.00073, 0.00175, 0.00442 & - ,0.01113, 0.02803, 0.07111, 0.18896, 0.52153, 0.74791 & - ,0.86155, 0.91255, 0.93650, 0.95122, 0.95928/ + / 0.00007, 0.00018, 0.00045, 0.00116, 0.00274, 0.00694 & + , 0.01761, 0.04511, 0.11993, 0.33842, 0.68908, 0.83529 & + , 0.90628, 0.93830, 0.95167, 0.95971, 0.96408/ DATA(gasym(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% - /0.00005, 0.00012, 0.00029, 0.00074, 0.00176, 0.00445 & - ,0.01121, 0.02825, 0.07167, 0.19051, 0.52485, 0.74928 & - ,0.86229, 0.91286, 0.93660, 0.95144, 0.95950/ + / 0.00007, 0.00018, 0.00047, 0.00119, 0.00282, 0.00714 & + , 0.01813, 0.04643, 0.12345, 0.34768, 0.69564, 0.83893 & + , 0.90839, 0.93962, 0.95265, 0.96078, 0.96508/ DATA(gasym(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% - /0.00005, 0.00012, 0.00029, 0.00074, 0.00178, 0.00449 & - ,0.01131, 0.02849, 0.07229, 0.19226, 0.52853, 0.75081 & - ,0.86311, 0.91319, 0.93671, 0.95168, 0.95975/ + / 0.00007, 0.00019, 0.00048, 0.00123, 0.00290, 0.00737 & + , 0.01870, 0.04789, 0.12732, 0.35785, 0.70227, 0.84266 & + , 0.91054, 0.94090, 0.95360, 0.96186, 0.96609/ DATA(gasym(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% - /0.00005, 0.00012, 0.00030, 0.00075, 0.00179, 0.00453 & - ,0.01141, 0.02876, 0.07300, 0.19423, 0.53265, 0.75253 & - ,0.86402, 0.91355, 0.93683, 0.95194, 0.96001/ + / 0.00007, 0.00019, 0.00049, 0.00127, 0.00300, 0.00761 & + , 0.01933, 0.04952, 0.13162, 0.36911, 0.70895, 0.84648 & + , 0.91276, 0.94215, 0.95453, 0.96294, 0.96709/ DATA(gasym(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% - /0.00005, 0.00012, 0.00030, 0.00076, 0.00181, 0.00458 & - ,0.01154, 0.02907, 0.07380, 0.19648, 0.53728, 0.75447 & - ,0.86503, 0.91395, 0.93694, 0.95224, 0.96031/ + / 0.00008, 0.00020, 0.00051, 0.00131, 0.00311, 0.00789 & + , 0.02003, 0.05133, 0.13644, 0.38165, 0.71565, 0.85039 & + , 0.91504, 0.94335, 0.95543, 0.96402, 0.96808/ DATA(gasym(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% - /0.00005, 0.00012, 0.00030, 0.00077, 0.00183, 0.00463 & - ,0.01168, 0.02943, 0.07472, 0.19907, 0.54252, 0.75669 & - ,0.86618, 0.91439, 0.93706, 0.95257, 0.96063/ + / 0.00008, 0.00020, 0.00053, 0.00136, 0.00323, 0.00820 & + , 0.02083, 0.05337, 0.14189, 0.39574, 0.72236, 0.85440 & + , 0.91735, 0.94451, 0.95631, 0.96510, 0.96906/ DATA(gasym(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% - /0.00005, 0.00012, 0.00031, 0.00078, 0.00186, 0.00469 & - ,0.01184, 0.02984, 0.07580, 0.20209, 0.54850, 0.75924 & - ,0.86748, 0.91487, 0.93718, 0.95294, 0.96099/ + / 0.00008, 0.00021, 0.00055, 0.00141, 0.00337, 0.00856 & + , 0.02174, 0.05571, 0.14813, 0.41171, 0.72910, 0.85852 & + , 0.91966, 0.94561, 0.95716, 0.96618, 0.97002/ DATA(gasym(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% - /0.00005, 0.00012, 0.00031, 0.00079, 0.00188, 0.00477 & - ,0.01203, 0.03033, 0.07706, 0.20564, 0.55537, 0.76221 & - ,0.86897, 0.91541, 0.93731, 0.95337, 0.96140/ + / 0.00008, 0.00022, 0.00057, 0.00148, 0.00352, 0.00897 & + , 0.02279, 0.05841, 0.15537, 0.43000, 0.73592, 0.86277 & + , 0.92191, 0.94660, 0.95797, 0.96726, 0.97097/ DATA(gasym(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% - /0.00005, 0.00012, 0.00031, 0.00080, 0.00192, 0.00485 & - ,0.01225, 0.03091, 0.07856, 0.20989, 0.56333, 0.76571 & - ,0.87070, 0.91601, 0.93745, 0.95388, 0.96186/ + / 0.00009, 0.00023, 0.00060, 0.00155, 0.00371, 0.00944 & + , 0.02402, 0.06158, 0.16391, 0.45117, 0.74300, 0.86719 & + , 0.92407, 0.94745, 0.95878, 0.96832, 0.97189/ DATA(gasym(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% - /0.00005, 0.00012, 0.00032, 0.00082, 0.00196, 0.00496 & - ,0.01252, 0.03161, 0.08039, 0.21506, 0.57268, 0.76988 & - ,0.87273, 0.91667, 0.93758, 0.95448, 0.96239/ + / 0.00009, 0.00024, 0.00063, 0.00164, 0.00393, 0.01002 & + , 0.02549, 0.06538, 0.17418, 0.47592, 0.75065, 0.87184 & + , 0.92618, 0.94812, 0.95957, 0.96937, 0.97277/ DATA(gasym(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% - /0.00005, 0.00013, 0.00033, 0.00084, 0.00201, 0.00509 & - ,0.01286, 0.03248, 0.08265, 0.22150, 0.58374, 0.77493 & - ,0.87511, 0.91740, 0.93766, 0.95518, 0.96299/ + / 0.00010, 0.00026, 0.00067, 0.00175, 0.00420, 0.01072 & + , 0.02728, 0.07002, 0.18685, 0.50512, 0.75948, 0.87684 & + , 0.92834, 0.94850, 0.96041, 0.97039, 0.97361/ DATA(gasym(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% - /0.00005, 0.00013, 0.00033, 0.00086, 0.00207, 0.00525 & - ,0.01329, 0.03358, 0.08554, 0.22972, 0.59699, 0.78112 & - ,0.87795, 0.91822, 0.93760, 0.95604, 0.96370/ + / 0.00010, 0.00027, 0.00072, 0.00188, 0.00453, 0.01159 & + , 0.02954, 0.07588, 0.20292, 0.53968, 0.77047, 0.88248 & + , 0.93051, 0.94854, 0.96134, 0.97137, 0.97439/ DATA(gasym(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% - /0.00005, 0.00013, 0.00035, 0.00089, 0.00215, 0.00546 & - ,0.01385, 0.03503, 0.08935, 0.24061, 0.61300, 0.78881 & - ,0.88128, 0.91911, 0.93741, 0.95712, 0.96453/ + / 0.00011, 0.00029, 0.00078, 0.00205, 0.00497, 0.01272 & + , 0.03246, 0.08350, 0.22405, 0.58020, 0.78491, 0.88915 & + , 0.93245, 0.94800, 0.96247, 0.97231, 0.97510/ DATA(gasym(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% - /0.00005, 0.00014, 0.00036, 0.00093, 0.00225, 0.00575 & - ,0.01461, 0.03702, 0.09459, 0.25570, 0.63242, 0.79840 & - ,0.88503, 0.91994, 0.93727, 0.95848, 0.96553/ + / 0.00012, 0.00032, 0.00087, 0.00228, 0.00555, 0.01425 & + , 0.03642, 0.09386, 0.25313, 0.62591, 0.80357, 0.89656 & + , 0.93401, 0.94670, 0.96398, 0.97321, 0.97571/ DATA(gasym(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% - /0.00005, 0.00014, 0.00038, 0.00099, 0.00241, 0.00617 & - ,0.01572, 0.03992, 0.10229, 0.27802, 0.65566, 0.81017 & - ,0.88885, 0.92037, 0.93673, 0.96024, 0.96674/ + / 0.00013, 0.00036, 0.00098, 0.00260, 0.00637, 0.01642 & + , 0.04208, 0.10882, 0.29563, 0.67227, 0.82468, 0.90250 & + , 0.93453, 0.94432, 0.96594, 0.97402, 0.97621/ DATA(gasym(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% - /0.00006, 0.00015, 0.00040, 0.00107, 0.00264, 0.00683 & - ,0.01749, 0.04457, 0.11476, 0.31438, 0.68192, 0.82394 & - ,0.89319, 0.92098, 0.93630, 0.96249, 0.96823/ + / 0.00014, 0.00041, 0.00115, 0.00309, 0.00764, 0.01981 & + , 0.05097, 0.13264, 0.36369, 0.70969, 0.84410, 0.90976 & + , 0.93341, 0.94151, 0.96817, 0.97458, 0.97659/ DATA(gasym(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% - /0.00006, 0.00016, 0.00045, 0.00122, 0.00306, 0.00802 & - ,0.02075, 0.05329, 0.13856, 0.38365, 0.70776, 0.84055 & - ,0.90334, 0.91878, 0.93739, 0.96510, 0.97000/ + / 0.00017, 0.00050, 0.00144, 0.00395, 0.00991, 0.02592 & + , 0.06713, 0.17699, 0.48390, 0.73971, 0.86477, 0.91643 & + , 0.92767, 0.94373, 0.97011, 0.97499, 0.97682/ DATA(gasym(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% - /0.00006, 0.00018, 0.00053, 0.00152, 0.00402, 0.01095 & - ,0.02908, 0.07617, 0.20364, 0.55160, 0.75796, 0.87080 & - ,0.91192, 0.90909, 0.94921, 0.96868, 0.97261/ + / 0.00021, 0.00067, 0.00206, 0.00592, 0.01532, 0.04092 & + , 0.10808, 0.29582, 0.67548, 0.82072, 0.89362, 0.91938 & + , 0.91039, 0.95937, 0.97268, 0.97574, 0.97700/ DATA(gasym(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% - /0.00004, 0.00011, 0.00028, 0.00071, 0.00171, 0.00431 & - ,0.01083, 0.02720, 0.06855, 0.18178, 0.51389, 0.69553 & - ,0.77061, 0.84653, 0.89565, 0.90847, 0.91468/ + / 0.00007, 0.00018, 0.00045, 0.00114, 0.00274, 0.00693 & + , 0.01746, 0.04414, 0.11510, 0.32844, 0.62906, 0.76296 & + , 0.81231, 0.86433, 0.90421, 0.91371, 0.91848/ DATA(gasym(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% - /0.00004, 0.00011, 0.00028, 0.00071, 0.00172, 0.00433 & - ,0.01088, 0.02732, 0.06886, 0.18266, 0.51574, 0.69711 & - ,0.77197, 0.84659, 0.89649, 0.90914, 0.91533/ + / 0.00007, 0.00018, 0.00046, 0.00116, 0.00279, 0.00705 & + , 0.01777, 0.04494, 0.11724, 0.33453, 0.63375, 0.76682 & + , 0.81585, 0.86606, 0.90653, 0.91583, 0.92055/ DATA(gasym(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% - /0.00004, 0.00011, 0.00028, 0.00071, 0.00172, 0.00435 & - ,0.01093, 0.02745, 0.06921, 0.18364, 0.51778, 0.69884 & - ,0.77346, 0.84667, 0.89741, 0.90988, 0.91604/ + / 0.00007, 0.00018, 0.00046, 0.00118, 0.00284, 0.00718 & + , 0.01811, 0.04581, 0.11958, 0.34116, 0.63864, 0.77088 & + , 0.81957, 0.86793, 0.90892, 0.91803, 0.92268/ DATA(gasym(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% - /0.00004, 0.00011, 0.00028, 0.00072, 0.00173, 0.00437 & - ,0.01099, 0.02760, 0.06959, 0.18473, 0.52005, 0.70073 & - ,0.77511, 0.84675, 0.89841, 0.91069, 0.91682/ + / 0.00007, 0.00019, 0.00047, 0.00121, 0.00290, 0.00733 & + , 0.01848, 0.04677, 0.12214, 0.34840, 0.64376, 0.77514 & + , 0.82350, 0.86996, 0.91137, 0.92031, 0.92489/ DATA(gasym(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% - /0.00004, 0.00011, 0.00028, 0.00072, 0.00174, 0.00439 & - ,0.01106, 0.02777, 0.07003, 0.18597, 0.52256, 0.70282 & - ,0.77693, 0.84685, 0.89951, 0.91157, 0.91767/ + / 0.00007, 0.00019, 0.00048, 0.00123, 0.00296, 0.00749 & + , 0.01890, 0.04782, 0.12497, 0.35637, 0.64914, 0.77964 & + , 0.82765, 0.87218, 0.91389, 0.92267, 0.92718/ DATA(gasym(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% - /0.00004, 0.00011, 0.00029, 0.00072, 0.00175, 0.00442 & - ,0.01113, 0.02796, 0.07052, 0.18737, 0.52539, 0.70514 & - ,0.77895, 0.84696, 0.90072, 0.91254, 0.91861/ + / 0.00007, 0.00019, 0.00049, 0.00126, 0.00303, 0.00767 & + , 0.01935, 0.04899, 0.12812, 0.36518, 0.65483, 0.78441 & + , 0.83207, 0.87459, 0.91649, 0.92513, 0.92955/ DATA(gasym(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% - /0.00004, 0.00011, 0.00029, 0.00073, 0.00177, 0.00446 & - ,0.01122, 0.02818, 0.07108, 0.18897, 0.52857, 0.70772 & - ,0.78121, 0.84711, 0.90206, 0.91362, 0.91965/ + / 0.00008, 0.00020, 0.00051, 0.00129, 0.00311, 0.00787 & + , 0.01986, 0.05029, 0.13166, 0.37501, 0.66087, 0.78949 & + , 0.83678, 0.87717, 0.91916, 0.92770, 0.93203/ DATA(gasym(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% - /0.00004, 0.00011, 0.00029, 0.00074, 0.00178, 0.00450 & - ,0.01132, 0.02843, 0.07173, 0.19083, 0.53219, 0.71061 & - ,0.78376, 0.84729, 0.90355, 0.91483, 0.92082/ + / 0.00008, 0.00020, 0.00052, 0.00133, 0.00320, 0.00810 & + , 0.02044, 0.05178, 0.13568, 0.38605, 0.66734, 0.79493 & + , 0.84180, 0.87991, 0.92193, 0.93037, 0.93461/ DATA(gasym(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% - /0.00005, 0.00012, 0.00029, 0.00074, 0.00180, 0.00454 & - ,0.01143, 0.02873, 0.07249, 0.19300, 0.53633, 0.71388 & - ,0.78664, 0.84752, 0.90521, 0.91618, 0.92212/ + / 0.00008, 0.00021, 0.00053, 0.00137, 0.00330, 0.00835 & + , 0.02110, 0.05347, 0.14029, 0.39859, 0.67434, 0.80077 & + , 0.84714, 0.88277, 0.92482, 0.93318, 0.93732/ DATA(gasym(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% - /0.00005, 0.00012, 0.00030, 0.00075, 0.00182, 0.00459 & - ,0.01157, 0.02907, 0.07338, 0.19558, 0.54113, 0.71759 & - ,0.78993, 0.84783, 0.90707, 0.91770, 0.92359/ + / 0.00008, 0.00021, 0.00055, 0.00141, 0.00342, 0.00865 & + , 0.02186, 0.05544, 0.14567, 0.41297, 0.68201, 0.80709 & + , 0.85281, 0.88582, 0.92785, 0.93612, 0.94015/ DATA(gasym(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% - /0.00005, 0.00012, 0.00030, 0.00076, 0.00184, 0.00466 & - ,0.01173, 0.02949, 0.07446, 0.19867, 0.54674, 0.72185 & - ,0.79372, 0.84825, 0.90916, 0.91944, 0.92527/ + / 0.00008, 0.00022, 0.00057, 0.00147, 0.00355, 0.00900 & + , 0.02276, 0.05777, 0.15205, 0.42967, 0.69056, 0.81398 & + , 0.85875, 0.88922, 0.93100, 0.93922, 0.94313/ DATA(gasym(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% - /0.00005, 0.00012, 0.00030, 0.00077, 0.00187, 0.00473 & - ,0.01193, 0.02999, 0.07577, 0.20247, 0.55337, 0.72679 & - ,0.79811, 0.84885, 0.91152, 0.92143, 0.92720/ + / 0.00009, 0.00023, 0.00060, 0.00153, 0.00371, 0.00943 & + , 0.02385, 0.06057, 0.15976, 0.44931, 0.70028, 0.82151 & + , 0.86491, 0.89322, 0.93428, 0.94250, 0.94628/ DATA(gasym(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% - /0.00005, 0.00012, 0.00031, 0.00079, 0.00191, 0.00483 & - ,0.01217, 0.03062, 0.07741, 0.20723, 0.56133, 0.73259 & - ,0.80326, 0.84969, 0.91420, 0.92375, 0.92943/ + / 0.00009, 0.00024, 0.00063, 0.00161, 0.00391, 0.00994 & + , 0.02518, 0.06402, 0.16934, 0.47270, 0.71163, 0.82980 & + , 0.87129, 0.89780, 0.93778, 0.94596, 0.94960/ DATA(gasym(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% - /0.00005, 0.00012, 0.00031, 0.00080, 0.00195, 0.00495 & - ,0.01249, 0.03143, 0.07952, 0.21336, 0.57102, 0.73947 & - ,0.80934, 0.85094, 0.91725, 0.92646, 0.93206/ + / 0.00009, 0.00025, 0.00066, 0.00171, 0.00416, 0.01060 & + , 0.02686, 0.06841, 0.18157, 0.50087, 0.72525, 0.83900 & + , 0.87808, 0.90255, 0.94150, 0.94964, 0.95311/ DATA(gasym(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% - /0.00005, 0.00012, 0.00032, 0.00083, 0.00201, 0.00510 & - ,0.01290, 0.03250, 0.08232, 0.22156, 0.58302, 0.74777 & - ,0.81658, 0.85283, 0.92072, 0.92969, 0.93518/ + / 0.00010, 0.00027, 0.00071, 0.00184, 0.00449, 0.01145 & + , 0.02907, 0.07417, 0.19777, 0.53500, 0.74206, 0.84931 & + , 0.88568, 0.90770, 0.94550, 0.95353, 0.95680/ DATA(gasym(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% - /0.00005, 0.00013, 0.00033, 0.00086, 0.00209, 0.00532 & - ,0.01347, 0.03398, 0.08622, 0.23303, 0.59815, 0.75794 & - ,0.82528, 0.85581, 0.92466, 0.93360, 0.93896/ + / 0.00011, 0.00029, 0.00077, 0.00202, 0.00493, 0.01261 & + , 0.03209, 0.08209, 0.22027, 0.57604, 0.76305, 0.86103 & + , 0.89432, 0.91391, 0.94980, 0.95763, 0.96066/ DATA(gasym(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% - /0.00005, 0.00013, 0.00035, 0.00090, 0.00221, 0.00563 & - ,0.01431, 0.03616, 0.09201, 0.25020, 0.61750, 0.77066 & - ,0.83583, 0.86073, 0.92905, 0.93844, 0.94362/ + / 0.00011, 0.00032, 0.00086, 0.00227, 0.00557, 0.01429 & + , 0.03647, 0.09366, 0.25344, 0.62343, 0.78850, 0.87411 & + , 0.90314, 0.92061, 0.95449, 0.96191, 0.96465/ DATA(gasym(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% - /0.00005, 0.00014, 0.00037, 0.00096, 0.00238, 0.00613 & - ,0.01565, 0.03971, 0.10151, 0.27857, 0.64237, 0.78703 & - ,0.84920, 0.86884, 0.93399, 0.94459, 0.94949/ + / 0.00013, 0.00036, 0.00099, 0.00265, 0.00656, 0.01695 & + , 0.04344, 0.11229, 0.30736, 0.67273, 0.81658, 0.88776 & + , 0.91221, 0.92840, 0.95966, 0.96635, 0.96875/ DATA(gasym(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% - /0.00005, 0.00015, 0.00040, 0.00108, 0.00270, 0.00706 & - ,0.01818, 0.04646, 0.11991, 0.33373, 0.67384, 0.80995 & - ,0.86888, 0.88109, 0.93985, 0.95262, 0.95704/ + / 0.00014, 0.00043, 0.00122, 0.00333, 0.00836, 0.02179 & + , 0.05627, 0.14726, 0.40678, 0.71493, 0.84530, 0.90448 & + , 0.92079, 0.93815, 0.96539, 0.97084, 0.97284/ DATA(gasym(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% - /0.00006, 0.00016, 0.00046, 0.00132, 0.00346, 0.00936 & - ,0.02475, 0.06451, 0.17095, 0.47769, 0.72551, 0.85047 & - ,0.89604, 0.90077, 0.94941, 0.96342, 0.96696/ + / 0.00018, 0.00057, 0.00171, 0.00491, 0.01270, 0.03387 & + , 0.08916, 0.24118, 0.61217, 0.78988, 0.88617, 0.92219 & + , 0.92601, 0.95470, 0.97202, 0.97544, 0.97686/ DATA(gasym(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% - /0.00012, 0.00031, 0.00078, 0.00198, 0.00470, 0.01184 & - ,0.02979, 0.07506, 0.19257, 0.49463, 0.73032, 0.84980 & - ,0.89773, 0.89442, 0.90417, 0.94218, 0.96453/ + / 0.00021, 0.00054, 0.00137, 0.00350, 0.00834, 0.02104 & + , 0.05293, 0.13426, 0.35861, 0.65635, 0.79545, 0.84985 & + , 0.82088, 0.84615, 0.90728, 0.93448, 0.95451/ DATA(gasym(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% - /0.00012, 0.00031, 0.00079, 0.00199, 0.00473, 0.01192 & - ,0.02999, 0.07557, 0.19396, 0.49757, 0.73161, 0.85033 & - ,0.89766, 0.89377, 0.90422, 0.94234, 0.96452/ + / 0.00021, 0.00055, 0.00140, 0.00357, 0.00851, 0.02147 & + , 0.05403, 0.13712, 0.36650, 0.65965, 0.79787, 0.85059 & + , 0.82071, 0.84788, 0.90841, 0.93533, 0.95503/ DATA(gasym(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% - /0.00012, 0.00031, 0.00079, 0.00200, 0.00476, 0.01200 & - ,0.03022, 0.07615, 0.19550, 0.50079, 0.73304, 0.85090 & - ,0.89758, 0.89305, 0.90424, 0.94252, 0.96452/ + / 0.00022, 0.00056, 0.00143, 0.00364, 0.00869, 0.02194 & + , 0.05522, 0.14026, 0.37507, 0.66321, 0.80041, 0.85142 & + , 0.82073, 0.84970, 0.90943, 0.93619, 0.95557/ DATA(gasym(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% - /0.00012, 0.00031, 0.00080, 0.00202, 0.00480, 0.01210 & - ,0.03047, 0.07678, 0.19722, 0.50434, 0.73461, 0.85152 & - ,0.89748, 0.89225, 0.90424, 0.94273, 0.96451/ + / 0.00022, 0.00057, 0.00146, 0.00372, 0.00890, 0.02246 & + , 0.05653, 0.14371, 0.38442, 0.66710, 0.80309, 0.85237 & + , 0.82079, 0.85193, 0.91050, 0.93711, 0.95613/ DATA(gasym(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% - /0.00012, 0.00032, 0.00080, 0.00204, 0.00484, 0.01221 & - ,0.03075, 0.07750, 0.19914, 0.50826, 0.73636, 0.85219 & - ,0.89738, 0.89136, 0.90425, 0.94295, 0.96451/ + / 0.00022, 0.00058, 0.00150, 0.00382, 0.00912, 0.02303 & + , 0.05798, 0.14752, 0.39465, 0.67139, 0.80590, 0.85347 & + , 0.82061, 0.85412, 0.91169, 0.93808, 0.95672/ DATA(gasym(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% - /0.00013, 0.00032, 0.00081, 0.00206, 0.00489, 0.01233 & - ,0.03106, 0.07830, 0.20131, 0.51263, 0.73832, 0.85294 & - ,0.89726, 0.89039, 0.90430, 0.94322, 0.96452/ + / 0.00023, 0.00060, 0.00153, 0.00392, 0.00937, 0.02366 & + , 0.05959, 0.15178, 0.40591, 0.67618, 0.80885, 0.85470 & + , 0.81987, 0.85634, 0.91279, 0.93910, 0.95735/ DATA(gasym(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% - /0.00013, 0.00032, 0.00082, 0.00208, 0.00494, 0.01247 & - ,0.03142, 0.07922, 0.20378, 0.51751, 0.74051, 0.85376 & - ,0.89713, 0.88932, 0.90443, 0.94354, 0.96454/ + / 0.00024, 0.00061, 0.00158, 0.00403, 0.00964, 0.02437 & + , 0.06139, 0.15656, 0.41836, 0.68156, 0.81199, 0.85599 & + , 0.81859, 0.85869, 0.91388, 0.94016, 0.95801/ DATA(gasym(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% - /0.00013, 0.00033, 0.00083, 0.00210, 0.00500, 0.01263 & - ,0.03183, 0.08027, 0.20662, 0.52299, 0.74298, 0.85465 & - ,0.89699, 0.88815, 0.90463, 0.94392, 0.96457/ + / 0.00024, 0.00063, 0.00163, 0.00416, 0.00995, 0.02517 & + , 0.06343, 0.16199, 0.43220, 0.68768, 0.81532, 0.85720 & + , 0.81754, 0.86155, 0.91507, 0.94127, 0.95870/ DATA(gasym(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% - /0.00013, 0.00033, 0.00084, 0.00213, 0.00507, 0.01282 & - ,0.03230, 0.08148, 0.20992, 0.52919, 0.74579, 0.85564 & - ,0.89683, 0.88682, 0.90484, 0.94434, 0.96463/ + / 0.00025, 0.00065, 0.00168, 0.00430, 0.01031, 0.02608 & + , 0.06576, 0.16823, 0.44766, 0.69470, 0.81891, 0.85820 & + , 0.81712, 0.86420, 0.91619, 0.94243, 0.95943/ DATA(gasym(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% - /0.00013, 0.00033, 0.00085, 0.00216, 0.00516, 0.01303 & - ,0.03285, 0.08291, 0.21379, 0.53626, 0.74898, 0.85671 & - ,0.89663, 0.88526, 0.90491, 0.94478, 0.96473/ + / 0.00026, 0.00067, 0.00174, 0.00447, 0.01072, 0.02714 & + , 0.06847, 0.17551, 0.46503, 0.70280, 0.82280, 0.85889 & + , 0.81654, 0.86710, 0.91744, 0.94362, 0.96019/ DATA(gasym(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% - /0.00013, 0.00034, 0.00086, 0.00220, 0.00525, 0.01329 & - ,0.03351, 0.08460, 0.21841, 0.54437, 0.75263, 0.85788 & - ,0.89638, 0.88330, 0.90494, 0.94527, 0.96486/ + / 0.00026, 0.00070, 0.00181, 0.00466, 0.01120, 0.02838 & + , 0.07167, 0.18415, 0.48459, 0.71213, 0.82704, 0.85937 & + , 0.81471, 0.87045, 0.91867, 0.94487, 0.96097/ DATA(gasym(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% - /0.00013, 0.00034, 0.00088, 0.00225, 0.00537, 0.01359 & - ,0.03430, 0.08665, 0.22402, 0.55374, 0.75682, 0.85915 & - ,0.89605, 0.88076, 0.90516, 0.94577, 0.96504/ + / 0.00027, 0.00073, 0.00190, 0.00490, 0.01178, 0.02987 & + , 0.07551, 0.19460, 0.50665, 0.72280, 0.83163, 0.86005 & + , 0.81373, 0.87385, 0.92031, 0.94620, 0.96179/ DATA(gasym(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% - /0.00013, 0.00035, 0.00090, 0.00230, 0.00551, 0.01397 & - ,0.03528, 0.08918, 0.23096, 0.56464, 0.76164, 0.86050 & - ,0.89554, 0.87763, 0.90546, 0.94625, 0.96525/ + / 0.00029, 0.00077, 0.00200, 0.00518, 0.01249, 0.03171 & + , 0.08024, 0.20754, 0.53138, 0.73477, 0.83645, 0.86079 & + , 0.81372, 0.87777, 0.92227, 0.94774, 0.96272/ DATA(gasym(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% - /0.00014, 0.00036, 0.00092, 0.00237, 0.00569, 0.01444 & - ,0.03651, 0.09238, 0.23979, 0.57741, 0.76716, 0.86196 & - ,0.89478, 0.87422, 0.90558, 0.94662, 0.96545/ + / 0.00030, 0.00081, 0.00213, 0.00554, 0.01338, 0.03401 & + , 0.08622, 0.22405, 0.55867, 0.74775, 0.84127, 0.86054 & + , 0.81267, 0.88223, 0.92496, 0.94963, 0.96379/ DATA(gasym(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% - /0.00014, 0.00037, 0.00095, 0.00246, 0.00592, 0.01506 & - ,0.03812, 0.09657, 0.25141, 0.59239, 0.77349, 0.86363 & - ,0.89369, 0.87011, 0.90613, 0.94682, 0.96555/ + / 0.00032, 0.00087, 0.00230, 0.00599, 0.01453, 0.03702 & + , 0.09404, 0.24586, 0.58780, 0.76125, 0.84619, 0.85952 & + , 0.81445, 0.88748, 0.92866, 0.95195, 0.96494/ DATA(gasym(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% - /0.00014, 0.00038, 0.00099, 0.00257, 0.00623, 0.01589 & - ,0.04030, 0.10230, 0.26741, 0.60994, 0.78075, 0.86586 & - ,0.89205, 0.86463, 0.90693, 0.94688, 0.96547/ + / 0.00034, 0.00094, 0.00252, 0.00661, 0.01609, 0.04110 & + , 0.10474, 0.27599, 0.61720, 0.77514, 0.85240, 0.85770 & + , 0.81915, 0.89450, 0.93332, 0.95442, 0.96610/ DATA(gasym(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% - /0.00015, 0.00039, 0.00104, 0.00274, 0.00666, 0.01708 & - ,0.04346, 0.11065, 0.29084, 0.63023, 0.78934, 0.86939 & - ,0.88866, 0.85896, 0.90863, 0.94720, 0.96543/ + / 0.00037, 0.00104, 0.00283, 0.00748, 0.01832, 0.04697 & + , 0.12025, 0.31991, 0.64533, 0.79081, 0.85971, 0.85294 & + , 0.82908, 0.90402, 0.93793, 0.95681, 0.96745/ DATA(gasym(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% - /0.00015, 0.00042, 0.00112, 0.00298, 0.00733, 0.01894 & - ,0.04844, 0.12399, 0.32847, 0.65354, 0.80092, 0.87401 & - ,0.88307, 0.85464, 0.91303, 0.94895, 0.96599/ + / 0.00041, 0.00119, 0.00329, 0.00882, 0.02178, 0.05618 & + , 0.14502, 0.38896, 0.67568, 0.81096, 0.86462, 0.84310 & + , 0.84766, 0.91541, 0.94207, 0.96024, 0.96890/ DATA(gasym(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% - /0.00016, 0.00045, 0.00124, 0.00338, 0.00851, 0.02229 & - ,0.05760, 0.14906, 0.39807, 0.68417, 0.81977, 0.87745 & - ,0.87024, 0.85966, 0.92344, 0.95183, 0.96660/ + / 0.00048, 0.00143, 0.00408, 0.01119, 0.02799, 0.07291 & + , 0.19119, 0.50212, 0.72495, 0.83574, 0.86863, 0.82513 & + , 0.87245, 0.92426, 0.94898, 0.96382, 0.97045/ DATA(gasym(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% - /0.00017, 0.00050, 0.00147, 0.00425, 0.01122, 0.03047 & - ,0.08085, 0.21585, 0.54999, 0.75096, 0.84944, 0.87763 & - ,0.83675, 0.88566, 0.93352, 0.95632, 0.96844/ + / 0.00059, 0.00191, 0.00579, 0.01660, 0.04286, 0.11456 & + , 0.31283, 0.64580, 0.79281, 0.86243, 0.85747, 0.82773 & + , 0.90425, 0.93944, 0.95806, 0.96833, 0.97207/ ! gasym for Sea Salt: DATA(gasym(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% @@ -5537,49 +5880,216 @@ Subroutine aerogasym (aerotype,radband,bin,rh,value) ,0.59662, 0.76793, 0.85173, 0.86554, 0.81500, 0.88824 & ,0.93140, 0.95415, 0.96660, 0.97150, 0.97288/ -! gasym for Mineral Dust: - DATA(gasym(3,1,ib,1),ib=1,17) & ! Band 1, All RH's +! gasym for Mineral Dust R(imaginary) = 0.0015 (LOW absorption)(No RH effect) + DATA(gasym_dust(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00107, 0.00268, 0.00676, 0.01699, 0.04263, 0.10735 & + , 0.28213, 0.61701, 0.76023, 0.82950, 0.82749, 0.83301 & + , 0.85459, 0.86072, 0.89047, 0.91127, 0.92998/ + + DATA(gasym_dust(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00490, 0.01231, 0.03085, 0.07714, 0.19799, 0.50394 & + , 0.66481, 0.72768, 0.67004, 0.69465, 0.73482, 0.78342 & + , 0.80902, 0.83487, 0.85836, 0.88236, 0.90635/ + + DATA(gasym_dust(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.02210, 0.05517, 0.13807, 0.34799, 0.58337, 0.69190 & + , 0.70762, 0.60868, 0.70584, 0.75077, 0.78408, 0.81217 & + , 0.83760, 0.86277, 0.88741, 0.91151, 0.93118/ + + DATA(gasym_dust(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00001, 0.00002, 0.00005, 0.00011, 0.00029, 0.00073 & + , 0.00183, 0.00461, 0.01159, 0.02909, 0.07352, 0.19723 & + , 0.49168, 0.66569, 0.75801, 0.84784, 0.87389/ + + DATA(gasym_dust(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00002, 0.00004, 0.00010, 0.00026, 0.00065, 0.00165 & + , 0.00415, 0.01043, 0.02616, 0.06562, 0.16892, 0.46511 & + , 0.67484, 0.78564, 0.77736, 0.89280, 0.91936/ + + DATA(gasym_dust(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00004, 0.00011, 0.00027, 0.00067, 0.00169, 0.00426 & + , 0.01070, 0.02690, 0.06781, 0.17736, 0.50452, 0.71737 & + , 0.82994, 0.88285, 0.92003, 0.94431, 0.95420/ + + DATA(gasym_dust(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00004, 0.00010, 0.00025, 0.00064, 0.00160, 0.00403 & + , 0.01014, 0.02545, 0.06394, 0.16706, 0.49136, 0.67547 & + , 0.75696, 0.82304, 0.89691, 0.91021, 0.91682/ + + DATA(gasym_dust(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00011, 0.00027, 0.00069, 0.00173, 0.00436, 0.01097 & + , 0.02761, 0.06953, 0.17772, 0.45807, 0.71820, 0.84603 & + , 0.90347, 0.91302, 0.90597, 0.94409, 0.96733/ + +! gasym for Mineral Dust R(imaginary) = 0.003 (MID absorption)(No RH effect) + DATA(gasym_dust(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00107, 0.00268, 0.00676, 0.01699, 0.04263, 0.10738 & + , 0.28234, 0.61728, 0.76091, 0.83063, 0.83010, 0.83856 & + , 0.86246, 0.86982, 0.90315, 0.92773, 0.94773/ + + DATA(gasym_dust(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00490, 0.01231, 0.03085, 0.07716, 0.19809, 0.50410 & + , 0.66564, 0.72934, 0.67460, 0.70263, 0.74644, 0.79914 & + , 0.82973, 0.86076, 0.88912, 0.91493, 0.93512/ + + DATA(gasym_dust(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.02210, 0.05517, 0.13810, 0.34806, 0.58381, 0.69307 & + , 0.71020, 0.61538, 0.71611, 0.76483, 0.80281, 0.83625 & + , 0.86712, 0.89610, 0.92049, 0.93780, 0.94630/ + + DATA(gasym_dust(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00001, 0.00002, 0.00005, 0.00011, 0.00029, 0.00073 & + , 0.00183, 0.00461, 0.01159, 0.02909, 0.07352, 0.19723 & + , 0.49168, 0.66569, 0.75801, 0.84784, 0.87389/ + + DATA(gasym_dust(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00002, 0.00004, 0.00010, 0.00026, 0.00065, 0.00165 & + , 0.00415, 0.01043, 0.02616, 0.06562, 0.16892, 0.46511 & + , 0.67484, 0.78564, 0.77736, 0.89280, 0.91936/ + + DATA(gasym_dust(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00004, 0.00011, 0.00027, 0.00067, 0.00169, 0.00426 & + , 0.01070, 0.02690, 0.06781, 0.17736, 0.50452, 0.71737 & + , 0.82994, 0.88285, 0.92003, 0.94431, 0.95420/ + + DATA(gasym_dust(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00004, 0.00010, 0.00025, 0.00064, 0.00160, 0.00403 & + , 0.01014, 0.02545, 0.06394, 0.16706, 0.49136, 0.67547 & + , 0.75696, 0.82304, 0.89691, 0.91021, 0.91682/ + + DATA(gasym_dust(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00011, 0.00027, 0.00069, 0.00173, 0.00436, 0.01097 & + , 0.02761, 0.06953, 0.17772, 0.45807, 0.71820, 0.84603 & + , 0.90347, 0.91302, 0.90597, 0.94409, 0.96733/ + +! gasym for Mineral Dust R(imaginary) = 0.008 (HIGH absorption)(No RH effect) + DATA(gasym_dust(3,1,ib),ib=1,17) & ! Band 1, All RH's /0.00107, 0.00268, 0.00676, 0.01699, 0.04264, 0.10747 & ,0.28301, 0.61817, 0.76309, 0.83417, 0.83819, 0.85421 & ,0.88159, 0.89181, 0.92795, 0.95285, 0.96718/ - DATA(gasym(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + DATA(gasym_dust(3,2,ib),ib=1,17) & ! Band 2, All RH's /0.00490, 0.01231, 0.03085, 0.07719, 0.19842, 0.50460 & ,0.66831, 0.73464, 0.68896, 0.72559, 0.77863, 0.83901 & ,0.87691, 0.91052, 0.93413, 0.94697, 0.95155/ - DATA(gasym(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + DATA(gasym_dust(3,3,ib),ib=1,17) & ! Band 3, All RH's /0.02390, 0.05985, 0.15098, 0.36031, 0.58493, 0.69319 & ,0.71724, 0.63499, 0.74390, 0.80146, 0.84751, 0.88670 & ,0.91730, 0.93703, 0.94596, 0.94845, 0.94879/ - DATA(gasym(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + DATA(gasym_dust(3,4,ib),ib=1,17) & ! Band 4, All RH's /0.00001, 0.00002, 0.00005, 0.00011, 0.00029, 0.00073 & ,0.00183, 0.00461, 0.01159, 0.02909, 0.07352, 0.19723 & ,0.49168, 0.66569, 0.75801, 0.84784, 0.87389/ - DATA(gasym(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + DATA(gasym_dust(3,5,ib),ib=1,17) & ! Band 5, All RH's /0.00002, 0.00004, 0.00010, 0.00026, 0.00065, 0.00165 & ,0.00415, 0.01043, 0.02617, 0.06562, 0.16892, 0.46511 & ,0.67484, 0.78564, 0.77736, 0.89280, 0.91936/ - DATA(gasym(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + DATA(gasym_dust(3,6,ib),ib=1,17) & ! Band 6, All RH's /0.00004, 0.00011, 0.00026, 0.00067, 0.00169, 0.00426 & ,0.01071, 0.02690, 0.06781, 0.17736, 0.50452, 0.71737 & ,0.82994, 0.88285, 0.92003, 0.94431, 0.95420/ - DATA(gasym(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + DATA(gasym_dust(3,7,ib),ib=1,17) & ! Band 7, All RH's /0.00004, 0.00010, 0.00025, 0.00064, 0.00160, 0.00403 & ,0.01014, 0.02545, 0.06394, 0.16706, 0.49135, 0.67547 & ,0.75696, 0.82304, 0.89691, 0.91021, 0.91682/ - DATA(gasym(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + DATA(gasym_dust(3,8,ib),ib=1,17) & ! Band 8, All RH's /0.00011, 0.00027, 0.00069, 0.00173, 0.00436, 0.01087 & ,0.02761, 0.06953, 0.17772, 0.45807, 0.71820, 0.84603 & ,0.90347, 0.91302, 0.90597, 0.94409, 0.96733/ +! gasym for Absorbing Carbon (1% BC, 99% OC)(No RH effect) + DATA(gasym_carb(1,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00107, 0.00270, 0.00679, 0.01705, 0.04269, 0.10730 & + , 0.28527, 0.58816, 0.71748, 0.75661, 0.70471, 0.79154 & + , 0.84682, 0.90083, 0.92901, 0.94486, 0.95114/ + + DATA(gasym_carb(1,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00487, 0.01223, 0.03064, 0.07669, 0.19739, 0.50061 & + , 0.67041, 0.73939, 0.70207, 0.74514, 0.84526, 0.89083 & + , 0.92559, 0.94233, 0.94802, 0.94930, 0.94959/ + + DATA(gasym_carb(1,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.02215, 0.05533, 0.13872, 0.34940, 0.58663, 0.69946 & + , 0.72426, 0.65395, 0.77353, 0.83330, 0.88199, 0.91698 & + , 0.93769, 0.94623, 0.94834, 0.94864, 0.94867/ + + DATA(gasym_carb(1,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00079 & + , 0.00200, 0.00503, 0.01266, 0.03182, 0.08080, 0.22206 & + , 0.48738, 0.64771, 0.74894, 0.84326, 0.87006/ + + DATA(gasym_carb(1,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00002, 0.00004, 0.00011, 0.00027, 0.00069, 0.00173 & + , 0.00436, 0.01095, 0.02747, 0.06899, 0.17976, 0.49530 & + , 0.67468, 0.76643, 0.81133, 0.89678, 0.91569/ + + DATA(gasym_carb(1,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00006, 0.00016, 0.00039, 0.00099, 0.00248, 0.00625 & + , 0.01573, 0.03964, 0.10192, 0.29703, 0.46423, 0.63679 & + , 0.77588, 0.82940, 0.84988, 0.86036, 0.86578/ + + DATA(gasym_carb(1,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00005, 0.00012, 0.00031, 0.00079, 0.00200, 0.00503 & + , 0.01266, 0.03187, 0.08120, 0.22619, 0.48089, 0.62299 & + , 0.68746, 0.81476, 0.85347, 0.87638, 0.88352/ + + DATA(gasym_carb(1,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00012, 0.00030, 0.00074, 0.00187, 0.00471, 0.01185 & + , 0.02972, 0.07450, 0.19173, 0.50983, 0.70185, 0.79465 & + , 0.78166, 0.80473, 0.89598, 0.93090, 0.94976/ + +! gasym for Absorbing Carbon (2% BC, 98% OC)(No RH effect) + DATA(gasym_carb(2,1,ib),ib=1,17) & ! Band 1, All RH's + / 0.00107, 0.00270, 0.00680, 0.01708, 0.04279, 0.10763 & + , 0.28695, 0.58914, 0.72051, 0.76198, 0.72395, 0.81290 & + , 0.87119, 0.91879, 0.93973, 0.94903, 0.95197/ + + DATA(gasym_carb(2,2,ib),ib=1,17) & ! Band 2, All RH's + / 0.00487, 0.01225, 0.03070, 0.07689, 0.19829, 0.50174 & + , 0.67298, 0.74409, 0.71617, 0.76916, 0.86766, 0.90935 & + , 0.93573, 0.94547, 0.94811, 0.94879, 0.94904/ + + DATA(gasym_carb(2,3,ib),ib=1,17) & ! Band 3, All RH's + / 0.02220, 0.05548, 0.13924, 0.35063, 0.58838, 0.70320 & + , 0.73248, 0.67786, 0.80437, 0.86426, 0.90901, 0.93414 & + , 0.94460, 0.94740, 0.94797, 0.94812, 0.94814/ + + DATA(gasym_carb(2,4,ib),ib=1,17) & ! Band 4, All RH's + / 0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00079 & + , 0.00200, 0.00503, 0.01266, 0.03181, 0.08078, 0.22199 & + , 0.48671, 0.64839, 0.75039, 0.84308, 0.86982/ + + DATA(gasym_carb(2,5,ib),ib=1,17) & ! Band 5, All RH's + / 0.00002, 0.00004, 0.00011, 0.00027, 0.00069, 0.00173 & + , 0.00436, 0.01097, 0.02751, 0.06912, 0.18033, 0.49576 & + , 0.67629, 0.76929, 0.81859, 0.89819, 0.91594/ + + DATA(gasym_carb(2,6,ib),ib=1,17) & ! Band 6, All RH's + / 0.00006, 0.00015, 0.00039, 0.00098, 0.00248, 0.00624 & + , 0.01570, 0.03955, 0.10168, 0.29595, 0.46527, 0.63866 & + , 0.77685, 0.82951, 0.84996, 0.86044, 0.86586/ + + DATA(gasym_carb(2,7,ib),ib=1,17) & ! Band 7, All RH's + / 0.00005, 0.00012, 0.00031, 0.00079, 0.00199, 0.00502 & + , 0.01264, 0.03182, 0.08107, 0.22568, 0.48122, 0.62597 & + , 0.69327, 0.81826, 0.85513, 0.87658, 0.88349/ + + DATA(gasym_carb(2,8,ib),ib=1,17) & ! Band 8, All RH's + / 0.00012, 0.00030, 0.00074, 0.00188, 0.00472, 0.01187 & + , 0.02978, 0.07468, 0.19258, 0.51186, 0.70457, 0.79784 & + , 0.78999, 0.82788, 0.90998, 0.93963, 0.95278/ + ! Returning value for gasym: - value = gasym(aerotype,radband,bin,rh) + if (aerotype <= 2) value = gasym(aerotype,radband,bin,rh) + if (aerotype == 3) value = gasym_dust(dust_ref_im,radband,bin) + if (aerotype == 4) value = gasym_carb(1,radband,bin) + if (aerotype == 5) value = gasym_carb(2,radband,bin) return END SUBROUTINE aerogasym diff --git a/src/6.3.01/radiate/rad_ccmp.f90 b/src/6.3.02/radiate/rad_ccmp.f90 similarity index 100% rename from src/6.3.01/radiate/rad_ccmp.f90 rename to src/6.3.02/radiate/rad_ccmp.f90 diff --git a/src/6.3.01/radiate/rad_driv.f90 b/src/6.3.02/radiate/rad_driv.f90 similarity index 98% rename from src/6.3.01/radiate/rad_driv.f90 rename to src/6.3.02/radiate/rad_driv.f90 index 06acda2..c4b95d1 100644 --- a/src/6.3.01/radiate/rad_driv.f90 +++ b/src/6.3.02/radiate/rad_driv.f90 @@ -175,7 +175,11 @@ Subroutine radiate (mzp,mxp,myp,ia,iz,ja,jz) ,micro_g(ngrid)%salt_jet_np (1,1,1) & ,micro_g(ngrid)%salt_jet_mp (1,1,1) & ,micro_g(ngrid)%salt_spum_np (1,1,1) & - ,micro_g(ngrid)%salt_spum_mp (1,1,1) ) + ,micro_g(ngrid)%salt_spum_mp (1,1,1) & + ,micro_g(ngrid)%abc1np (1,1,1) & + ,micro_g(ngrid)%abc1mp (1,1,1) & + ,micro_g(ngrid)%abc2np (1,1,1) & + ,micro_g(ngrid)%abc2mp (1,1,1)) endif endif @@ -461,7 +465,7 @@ Subroutine radcomp3 (m1,m2,m3,ia,iz,ja,jz & ,bext,swup,swdn,lwup,lwdn & ,cccnp,cccmp,gccnp,gccmp,md1np,md1mp,md2np,md2mp & ,salt_film_np,salt_film_mp,salt_jet_np,salt_jet_mp & - ,salt_spum_np,salt_spum_mp) + ,salt_spum_np,salt_spum_mp,abc1np,abc1mp,abc2np,abc2mp) use mem_grid use mem_micro @@ -480,7 +484,8 @@ Subroutine radcomp3 (m1,m2,m3,ia,iz,ja,jz & real, dimension(m1,m2,m3) :: dn0,rv,fthrd,pi0,pp,theta,rcp real, dimension(m1,m2,m3) :: bext,swup,swdn,lwup,lwdn real, dimension(m1,m2,m3) :: cccnp,cccmp,gccnp,gccmp,md1np,md1mp,md2np,md2mp & - ,salt_film_np,salt_film_mp,salt_jet_np,salt_jet_mp,salt_spum_np,salt_spum_mp + ,salt_film_np,salt_film_mp,salt_jet_np,salt_jet_mp,salt_spum_np,salt_spum_mp & + ,abc1np,abc1mp,abc2np,abc2mp real, external :: gammln ! Fill cloud parameters if not running microphysics @@ -538,7 +543,9 @@ Subroutine radcomp3 (m1,m2,m3,ia,iz,ja,jz & ,md2np(1,i,j),md2mp(1,i,j) & ,salt_film_np(1,i,j),salt_film_mp(1,i,j) & ,salt_jet_np(1,i,j) ,salt_jet_mp(1,i,j) & - ,salt_spum_np(1,i,j),salt_spum_mp(1,i,j)) + ,salt_spum_np(1,i,j),salt_spum_mp(1,i,j) & + ,abc1np(1,i,j),abc1mp(1,i,j) & + ,abc2np(1,i,j),abc2mp(1,i,j)) endif CALL radcalc3 (m1,i,j,ngrid,maxnzp,mcat,iswrtyp,ilwrtyp,zm,zt & diff --git a/src/6.3.01/radiate/rad_mclat.f90 b/src/6.3.02/radiate/rad_mclat.f90 similarity index 100% rename from src/6.3.01/radiate/rad_mclat.f90 rename to src/6.3.02/radiate/rad_mclat.f90 diff --git a/src/6.3.01/radiate/rad_stable.f90 b/src/6.3.02/radiate/rad_stable.f90 similarity index 100% rename from src/6.3.01/radiate/rad_stable.f90 rename to src/6.3.02/radiate/rad_stable.f90 diff --git a/src/6.3.01/radiate/rrad2.f90 b/src/6.3.02/radiate/rrad2.f90 similarity index 100% rename from src/6.3.01/radiate/rrad2.f90 rename to src/6.3.02/radiate/rrad2.f90 diff --git a/src/6.3.01/radiate/rrad3.f90 b/src/6.3.02/radiate/rrad3.f90 similarity index 83% rename from src/6.3.01/radiate/rrad3.f90 rename to src/6.3.02/radiate/rrad3.f90 index 915ce64..99dcde7 100644 --- a/src/6.3.01/radiate/rrad3.f90 +++ b/src/6.3.02/radiate/rrad3.f90 @@ -17,6 +17,10 @@ Module rrad3 real, dimension(ncog,mb,npartob) :: ocoef real, dimension(ncb,mb,npartob) :: bcoef real, dimension(ncog,mb,npartg) :: gcoef + +! Dust imaginary index of refraction flag. Larger value mean more +! absorption. 1 = 0.0015 (low), 2 = 0.003 (mid), 3 = 0.008 (high) +integer, parameter :: dust_ref_im = 2 !--------------------------------------------------------------------------- END MODULE rrad3 diff --git a/src/6.3.01/revu/RAMS_hdf5.f90 b/src/6.3.02/revu/RAMS_hdf5.f90 similarity index 99% rename from src/6.3.01/revu/RAMS_hdf5.f90 rename to src/6.3.02/revu/RAMS_hdf5.f90 index 09c59e5..06269b7 100644 --- a/src/6.3.01/revu/RAMS_hdf5.f90 +++ b/src/6.3.02/revu/RAMS_hdf5.f90 @@ -150,7 +150,7 @@ Subroutine rams_hdf5 (rh5_file,a,iztrans,ivtype,nngd,n1,n2,n3 & ! note that compression levels higher than 1 from REVU output ! can produce odd results in some fields such as reflectivity. ! Please use caution with this variable. -deflvl=1 +deflvl=6 CALL rams_hdf5_select_var_data (a,n1,n2,n3,nib,nie,niinc & ,njb,nje,njinc,nnb,nne,nninc,ivtype,sdims,vdata) diff --git a/src/6.3.01/revu/getvar.f90 b/src/6.3.02/revu/getvar.f90 similarity index 100% rename from src/6.3.01/revu/getvar.f90 rename to src/6.3.02/revu/getvar.f90 diff --git a/src/6.3.01/revu/hvlib.f90 b/src/6.3.02/revu/hvlib.f90 similarity index 85% rename from src/6.3.01/revu/hvlib.f90 rename to src/6.3.02/revu/hvlib.f90 index 174a24c..84189e4 100644 --- a/src/6.3.01/revu/hvlib.f90 +++ b/src/6.3.02/revu/hvlib.f90 @@ -52,7 +52,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='none;' !###################################################################### -! AOD DATA FROM OFFLINE CODE - 18 variables +! AOD DATA FROM OFFLINE CODE !###################################################################### elseif(cvar(1:lv).eq.'ccn_dry_AOD_550') then ivar_type=2 @@ -181,7 +181,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='AOD;' !###################################################################### -! EXTINCTION COEFFICIENT DATA FROM OFFLINE CODE - 18 variables +! EXTINCTION COEFFICIENT DATA FROM OFFLINE CODE !###################################################################### elseif(cvar(1:lv).eq.'ccn_dry_ext_550') then ivar_type=3 @@ -310,7 +310,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='1/Mm;' !########################################################################### -! 3D VELOCITY AND VORTICITY VARIABLES - 21 variables +! 3D VELOCITY AND VORTICITY VARIABLES !########################################################################### elseif(cvar(1:lv).eq.'u') then ivar_type=3 @@ -504,7 +504,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='/s;' !##################################################################### -! 3D THERMODYNAMIC PROPERTIES OF AIR - 18 variables +! 3D THERMODYNAMIC PROPERTIES OF AIR !##################################################################### elseif(cvar(1:lv).eq.'pi') then ivar_type=3 @@ -693,7 +693,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='C;' !##################################################################### -!3D HYDROMETEOR GAMMA DISTRIBUTION INFO - 20 variables +!3D HYDROMETEOR GAMMA DISTRIBUTION INFO !##################################################################### elseif(cvar(1:lv).eq.'cloud_gam_dm') then ivar_type=3 @@ -719,6 +719,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mults (n1,n2,n3,a,1.e3) cdname='cloud-gamma-d0;' cdunits='microns;' + elseif(cvar(1:lv).eq.'rain_gam_dm') then ivar_type=3 ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) @@ -764,6 +765,31 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='rain-gamma-sigma;' cdunits='mm;' +elseif(cvar(1:lv).eq.'pris_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CPP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(3),pwmas(3),gnu(3),1) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='pris-gamma-dm;' + cdunits='microns;' +elseif(cvar(1:lv).eq.'pris_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CPP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(3),pwmas(3),gnu(3),2) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='pris-gamma-d0;' + cdunits='microns;' + elseif(cvar(1:lv).eq.'snow_gam_dm') then ivar_type=3 ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) @@ -944,8 +970,34 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='hail-gamma-sigma;' cdunits='mm;' +elseif(cvar(1:lv).eq.'driz_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CDP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(8),pwmas(8),gnu(8),1) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='driz-gamma-dm;' + cdunits='microns;' +elseif(cvar(1:lv).eq.'driz_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CDP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(8),pwmas(8),gnu(8),2) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='driz-gamma-d0;' + cdunits='microns;' + + !##################################################################### -! 3D MOISTURE MASS MIXING RATIOS AND HUMIDITY - 37 variables +! 3D MOISTURE MASS MIXING RATIOS AND HUMIDITY !##################################################################### elseif(cvar(1:lv).eq.'vapr_press') then ivar_type=3 @@ -998,6 +1050,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1010,6 +1063,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='cloud-mixing-ratio;' @@ -1019,6 +1073,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1031,6 +1086,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='rain-mixing-ratio;' @@ -1040,6 +1096,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1052,6 +1109,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='pristine-mixing-ratio;' @@ -1061,6 +1119,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1073,6 +1132,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='snow-mixing-ratio;' @@ -1082,6 +1142,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1094,6 +1155,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='aggregate-mixing-ratio;' @@ -1103,6 +1165,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1115,6 +1178,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='graupel-mixing-ratio;' @@ -1124,6 +1188,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1136,6 +1201,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='hail-mixing-ratio;' @@ -1145,6 +1211,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ivar_type=3 ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif @@ -1157,6 +1224,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='drizzle-mixing-ratio;' @@ -1171,6 +1239,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='snowprisagg-mixing-ratio;' @@ -1183,6 +1252,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='grauphail-mixing-ratio;' @@ -1219,6 +1289,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_accum (n1,n2,n3,a,c) endif + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='liquid-mixing-ratio;' @@ -1255,13 +1326,14 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_accum (n1,n2,n3,a,c) endif + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='ice-mixing-ratio;' cdunits='g/kg;' -elseif(cvar(1:lv).eq.'ctop_tempc_sstbase') then - ivar_type=2 +elseif(cvar(1:lv).eq.'total_cond' .or. cvar(1:lv).eq.'total_cond_m3') then + ivar_type=3 iany=1 CALL rams_comp_zero (n1,n2,n3,a) ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) @@ -1281,21 +1353,42 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) - ierr=rams_getvar('PI',idim_type,ngrd,e,flnm) - CALL rams_comp_tempK (n1,n2,n3,d,e) - CALL rams_comp_tempC (n1,n2,n3,d) + if(cvar(1:lv).eq.'total_cond_m3')then + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + endif - ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,c,flnm) - kp = nzg - CALL rams_fill_sst (n1,n2,nzg*npatch,kp,f,c) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-condensate-mixing-ratio;' - CALL rams_comp_cloudtop_sstbase (n1,n2,n3,a,d,f) + if(cvar(1:lv).eq.'total_cond') cdunits='g/kg;' + if(cvar(1:lv).eq.'total_cond_m3') cdunits='g/m3;' - cdname='cloud-top-temperature-sstsurface;' - cdunits='C;' +elseif(cvar(1:lv).eq.'total_mixr') then + ivar_type=3 + ierr=rams_getvar('RTP',idim_type,ngrd,a,flnm) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-water-mixing-ratio-RTP;' + cdunits='g/kg;' -elseif(cvar(1:lv).eq.'ctop_tempc_nobase') then +elseif(cvar(1:lv).eq.'total_mixr_m3') then + ivar_type=3 + ierr=rams_getvar('RTP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegm (n1,n2,n3,a) !##### "nonegm" minimum + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-water-mixing-ratio-RTP;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'ctop_tempc_sstbase') then ivar_type=2 iany=1 CALL rams_comp_zero (n1,n2,n3,a) @@ -1321,14 +1414,17 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_tempK (n1,n2,n3,d,e) CALL rams_comp_tempC (n1,n2,n3,d) - CALL rams_comp_cloudtop_nobase (n1,n2,n3,a,d) + ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,c,flnm) + kp = nzg + CALL rams_fill_sst (n1,n2,nzg*npatch,kp,f,c) - cdname='cloud-top-temperature-nosurface;' + CALL rams_comp_cloudtop_sstbase (n1,n2,n3,a,d,f) + + cdname='cloud-top-temperature-sstsurface;' cdunits='C;' -elseif(cvar(1:lv).eq.'total_cond' .or. & - cvar(1:lv).eq.'total_cond_m3') then - ivar_type=3 +elseif(cvar(1:lv).eq.'ctop_tempc_nobase') then + ivar_type=2 iany=1 CALL rams_comp_zero (n1,n2,n3,a) ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) @@ -1348,52 +1444,15 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - if(cvar(1:lv).eq.'total_cond_m3')then - ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) - CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) - CALL rams_comp_mult (n1,n2,n3,a,d) - endif - - CALL rams_comp_mults (n1,n2,n3,a,1.e3) - CALL rams_comp_noneg (n1,n2,n3,a) - cdname='total-condensate-mixing-ratio;' - - if(cvar(1:lv).eq.'total_cond') cdunits='g/kg;' - if(cvar(1:lv).eq.'total_cond_m3') cdunits='g/m3;' - -elseif(cvar(1:lv).eq.'r_total') then - ivar_type=3 - iany=1 - ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) - ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) - ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) - if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,e,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,e) + CALL rams_comp_tempC (n1,n2,n3,d) - CALL rams_comp_mults (n1,n2,n3,a,1.e3) - CALL rams_comp_noneg (n1,n2,n3,a) - cdname='total-mixing-ratio;' - cdunits='g/kg;' + CALL rams_comp_cloudtop_nobase (n1,n2,n3,a,d) -elseif(cvar(1:lv).eq.'rtotal_orig') then - ivar_type=3 - ierr=rams_getvar('RTP',idim_type,ngrd,a,flnm) - CALL rams_comp_mults (n1,n2,n3,a,1.e3) - CALL rams_comp_noneg (n1,n2,n3,a) - cdname='total-water-mixing-ratio-RTP;' - cdunits='g/kg;' + cdname='cloud-top-temperature-nosurface;' + cdunits='C;' elseif(cvar(1:lv).eq.'dewptk') then ivar_type=3 @@ -1470,11 +1529,13 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='frac;' !##################################################################### -!3D HYDROMETEOR NUMBER CONCENTRATIONS - 22 variables +!3D HYDROMETEOR NUMBER CONCENTRATIONS !##################################################################### elseif(cvar(1:lv).eq.'cloud_concen_mg') then ivar_type=3 ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='cloud-concen;' @@ -1483,6 +1544,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'cloud_concen_kg') then ivar_type=3 ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='cloud-concen;' cdunits='#/kg;' @@ -1490,6 +1553,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'rain_concen_kg') then ivar_type=3 ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RRP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='rain-concen;' cdunits='#/kg;' @@ -1497,6 +1562,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'pris_concen_mg') then ivar_type=3 ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RPP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='pristine-concen;' @@ -1505,6 +1572,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'pris_concen_kg') then ivar_type=3 ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RPP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='pristine-concen;' cdunits='#/kg;' @@ -1512,6 +1581,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'snow_concen_kg') then ivar_type=3 ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RSP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='snow-concen;' cdunits='#/kg;' @@ -1519,6 +1590,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'agg_concen_kg') then ivar_type=3 ierr=rams_getvar('CAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RAP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='aggregate-concen;' cdunits='#/kg;' @@ -1526,6 +1599,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'graup_concen_kg') then ivar_type=3 ierr=rams_getvar('CGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RGP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='graupel-concen;' cdunits='#/kg;' @@ -1533,6 +1608,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'hail_concen_kg') then ivar_type=3 ierr=rams_getvar('CHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RHP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='hail-concen;' cdunits='#/kg;' @@ -1540,6 +1617,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'drizzle_concen_mg') then ivar_type=3 ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RDP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='drizzle-concen;' @@ -1548,6 +1627,8 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'drizzle_concen_kg') then ivar_type=3 ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RDP',idim_type,ngrd,f,flnm) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='drizzle-concen;' cdunits='#/kg;' @@ -1555,9 +1636,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'cloud_concen_cm3') then ivar_type=3 ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='cloud-concen;' @@ -1566,9 +1649,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'rain_concen_m3') then ivar_type=3 ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RRP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='rain-concen;' cdunits='#/m3;' @@ -1576,9 +1661,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'rain_concen_dm3') then ivar_type=3 ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RRP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-3) CALL rams_comp_noneg (n1,n2,n3,a) cdname='rain-concen;' @@ -1587,9 +1674,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'pris_concen_m3') then ivar_type=3 ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RPP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='pristine-concen;' cdunits='#/m3;' @@ -1597,9 +1686,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'pris_concen_cm3') then ivar_type=3 ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RPP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='pristine-concen;' @@ -1608,9 +1699,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'snow_concen_m3') then ivar_type=3 ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RSP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='snow-concen;' cdunits='#/m3;' @@ -1618,9 +1711,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'snow_concen_cm3') then ivar_type=3 ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RSP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='snow-concen;' @@ -1629,9 +1724,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'agg_concen_m3') then ivar_type=3 ierr=rams_getvar('CAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RAP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='aggregates-concen;' cdunits='#/m3;' @@ -1639,9 +1736,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'graup_concen_m3') then ivar_type=3 ierr=rams_getvar('CGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RGP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='graupel-concen;' cdunits='#/m3;' @@ -1649,9 +1748,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'hail_concen_m3') then ivar_type=3 ierr=rams_getvar('CHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RHP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_noneg (n1,n2,n3,a) cdname='hail-concen;' cdunits='#/m3;' @@ -1659,16 +1760,18 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) elseif(cvar(1:lv).eq.'drizzle_concen_cm3') then ivar_type=3 ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RDP',idim_type,ngrd,f,flnm) ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_nonegn (n1,n2,n3,a,f) !##### "nonegn" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) cdname='drizzle-concen;' cdunits='#/cm3;' !##################################################################### -!HUCM-SBM EXTRA HYDROMETEOR QUANTITIES - 18 variables +!HUCM-SBM EXTRA HYDROMETEOR QUANTITIES !##################################################################### elseif(cvar(1:lv).eq.'ice_plates') then ivar_type=3 @@ -1806,7 +1909,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='kg/m2;' !##################################################################### -!3D AEROSOLS NUMBER, MASS, SIZE, SOLUBILITY - 37 variables +!3D AEROSOLS NUMBER, MASS, SIZE, SOLUBILITY !##################################################################### elseif(cvar(1:lv).eq.'ifn_concen_mg') then ivar_type=3 @@ -1897,6 +2000,32 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='dust2-concentration;' cdunits='#/cm3;' +elseif(cvar(1:lv).eq.'abs_carbon1_concen') then + ivar_type=3 + ierr=rams_getvar('ABC1NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='absorbing-carbon1-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'abs_carbon2_concen') then + ivar_type=3 + ierr=rams_getvar('ABC2NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='absorbing-carbon2-concentration;' + cdunits='#/cm3;' + elseif(cvar(1:lv).eq.'salt_film_concen') then ivar_type=3 ierr=rams_getvar('SALT_FILM_NP',idim_type,ngrd,a,flnm) @@ -1930,10 +2059,11 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) if(ierr.eq.0) then CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='salt-spume-concentration;' - cdunits='#/m3;' + cdunits='#/cm3;' elseif(cvar(1:lv).eq.'regen_aero1_concen') then ivar_type=3 @@ -2039,6 +2169,32 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='dust2-mass;' cdunits='micro-grams/m3/10.0;' +elseif(cvar(1:lv).eq.'abs_carbon1_mass') then + ivar_type=3 + ierr=rams_getvar('ABC1MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='absorbing-carbon1-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'abs_carbon2_mass') then + ivar_type=3 + ierr=rams_getvar('ABC2MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='absorbing-carbon2-mass;' + cdunits='micro-grams/m3;' + elseif(cvar(1:lv).eq.'salt_film_mass') then ivar_type=3 ierr=rams_getvar('SALT_FILM_MP',idim_type,ngrd,a,flnm) @@ -2245,7 +2401,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='microns;' !##################################################################### -!3D AEROSOLS TRACKING VARIABLES - 41 variables +!3D AEROSOLS TRACKING VARIABLES !##################################################################### elseif(cvar(1:lv).eq.'aerosol_cloud_mass') then ivar_type=3 @@ -2876,9 +3032,9 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='IFN-dust-within-rain-DeMott;' cdunits='#/cm3;' -!##################################################################### -!3D VERTICAL VELOCITY AND MICROPHYSICAL BUDGETS - 15 variables -!##################################################################### +!############################################################################### +!3D VERTICAL VELOCITY AND MICROPHYSICAL BUDGETS (INSTANTANEOUS) +!############################################################################### elseif(cvar(1:lv).eq.'wp_advdif') then ! 1 - instant ivar_type=3 ierr=rams_getvar('WP_ADVDIF',idim_type,ngrd,a,flnm) @@ -3007,440 +3163,493 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='Aggregation-of-Pris-Snow-inst;' cdunits='g/kg;' -!##################################################################### -!3D VERTICAL VELOCITY AND MICROPHYSICAL TOTAL BUDGETS - 55 variables -!##################################################################### +!############################################################################### +!3D VERTICAL VELOCITY AND MICROPHYSICAL TOTAL BUDGETS +!These are the accumulated variables between analysis file output times +!############################################################################### + +! Microphysics budget variables for IMBUDGET == 1 + elseif(cvar(1:lv).eq.'nuccldrt') then ivar_type=3 ierr=rams_getvar('NUCCLDRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Cloud-Nucleated-Mixing-Ratio-Total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'cld2raint') then ivar_type=3 ierr=rams_getvar('CLD2RAINT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Cloud-to-rain-water-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'ice2raint') then ivar_type=3 ierr=rams_getvar('ICE2RAINT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Ice-to-rain-water-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'nucicert') then ivar_type=3 ierr=rams_getvar('NUCICERT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Ice-Nucleated-Mixing-Ratio-Total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapliqt') then +elseif(cvar(1:lv).eq.'vapliqt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPLIQT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Liquid-Vapor-diff-evap-Mixing-Ratio-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapicet') then +elseif(cvar(1:lv).eq.'vapicet') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPICET',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Ice-Vapor-diff-evap-Mixing-Ratio-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'melticet') then ivar_type=3 ierr=rams_getvar('MELTICET',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melting-of-ice-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rimecldt') then ivar_type=3 ierr=rams_getvar('RIMECLDT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Rimed-Amount-from-Cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2icet') then ivar_type=3 ierr=rams_getvar('RAIN2ICET',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Rain-Water-Collected-by-Ice-Species-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'aggregatet') then ivar_type=3 ierr=rams_getvar('AGGREGATET',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Aggregation-of-Pris-Snow-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'latheatvapt') then ivar_type=3 ierr=rams_getvar('LATHEATVAPT',idim_type,ngrd,a,flnm) cdname='Lat-Heat-Vap-ThetaChange-total;' - cdunits='dTheta;' + cdunits='dTheta/time;' elseif(cvar(1:lv).eq.'latheatfrzt') then ivar_type=3 ierr=rams_getvar('LATHEATFRZT',idim_type,ngrd,a,flnm) cdname='Lat-Heat-Frz-ThetaChange-total;' - cdunits='dTheta;' + cdunits='dTheta/time;' + +! Extra microphysics budget variables for IMBUDGET == 2 elseif(cvar(1:lv).eq.'inuchomrt') then ivar_type=3 ierr=rams_getvar('INUCHOMRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e6) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Homogeous-ice-nucleation-total;' - cdunits='mg/kg;' + cdunits='mg/kg/time;' elseif(cvar(1:lv).eq.'inuccontrt') then ivar_type=3 ierr=rams_getvar('INUCCONTRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e6) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Contact-ice-nucleation-total;' - cdunits='mg/kg;' + cdunits='mg/kg/time;' elseif(cvar(1:lv).eq.'inucifnrt') then ivar_type=3 ierr=rams_getvar('INUCIFNRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e6) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='IFN-ice-nucleation-total;' - cdunits='mg/kg;' + cdunits='mg/kg/time;' elseif(cvar(1:lv).eq.'inuchazrt') then ivar_type=3 ierr=rams_getvar('INUCHAZRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e6) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Haze-ice-nucleation-total;' - cdunits='mg/kg;' + cdunits='mg/kg/time;' -elseif(cvar(1:lv).eq.'vapcldt') then +elseif(cvar(1:lv).eq.'vapcldt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPCLDT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapraint') then +elseif(cvar(1:lv).eq.'vapraint') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPRAINT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapprist') then +elseif(cvar(1:lv).eq.'vapprist') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPPRIST',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Pristine-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapsnowt') then +elseif(cvar(1:lv).eq.'vapsnowt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPSNOWT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Snow-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapaggrt') then +elseif(cvar(1:lv).eq.'vapaggrt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPAGGRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Aggregate-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapgraut') then +elseif(cvar(1:lv).eq.'vapgraut') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPGRAUT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Graupel-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vaphailt') then +elseif(cvar(1:lv).eq.'vaphailt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPHAILT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Hail-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' -elseif(cvar(1:lv).eq.'vapdrizt') then +elseif(cvar(1:lv).eq.'vapdrizt') then ! can be -/+ for evap vs vapdep ivar_type=3 ierr=rams_getvar('VAPDRIZT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) endif cdname='Vapor-DepEvap-Drizzle-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'meltprist') then ivar_type=3 ierr=rams_getvar('MELTPRIST',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melt-pristine-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'meltsnowt') then ivar_type=3 ierr=rams_getvar('MELTSNOWT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melt-snow-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'meltaggrt') then ivar_type=3 ierr=rams_getvar('MELTAGGRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melt-aggregates-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'meltgraut') then ivar_type=3 ierr=rams_getvar('MELTGRAUT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melt-graupel-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'melthailt') then ivar_type=3 ierr=rams_getvar('MELTHAILT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Melt-hail-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rimecldsnowt') then ivar_type=3 ierr=rams_getvar('RIMECLDSNOWT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Snow-rime-cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rimecldaggrt') then ivar_type=3 ierr=rams_getvar('RIMECLDAGGRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Aggr-rime-cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rimecldgraut') then ivar_type=3 ierr=rams_getvar('RIMECLDGRAUT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Graupel-rime-cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rimecldhailt') then ivar_type=3 ierr=rams_getvar('RIMECLDHAILT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Hail-rime-cloud-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2prt') then ivar_type=3 ierr=rams_getvar('RAIN2PRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Pristine-rime-rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2snt') then ivar_type=3 ierr=rams_getvar('RAIN2SNT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Snow-rime-rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2agt') then ivar_type=3 ierr=rams_getvar('RAIN2AGT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Aggr-rime-rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2grt') then ivar_type=3 ierr=rams_getvar('RAIN2GRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Graupel-rime-rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'rain2hat') then ivar_type=3 ierr=rams_getvar('RAIN2HAT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Hail-rime-rain-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'aggrselfprist') then ivar_type=3 ierr=rams_getvar('AGGRSELFPRIST',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Pristine-Selfcollect-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'aggrselfsnowt') then ivar_type=3 ierr=rams_getvar('AGGRSELFSNOWT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Snow-Selfcollect-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'aggrprissnowt') then ivar_type=3 ierr=rams_getvar('AGGRPRISSNOWT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Pristine-Snow-collect-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' + +! Extra microphysics budget variables for IMBUDGET == 3 elseif(cvar(1:lv).eq.'dust1cldrt') then ivar_type=3 ierr=rams_getvar('DUST1CLDRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Dust1-cloud-nucleation-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'dust2cldrt') then ivar_type=3 ierr=rams_getvar('DUST2CLDRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Dust2-cloud-nucleation-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'dust1drzrt') then ivar_type=3 ierr=rams_getvar('DUST1DRZRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Dust1-drizzle-nucleation-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' elseif(cvar(1:lv).eq.'dust2drzrt') then ivar_type=3 ierr=rams_getvar('DUST2DRZRT',idim_type,ngrd,a,flnm) if(ierr.eq.0) then + CALL rams_comp_nonegp (n1,n2,n3,a) !##### "nonegp" minimum CALL rams_comp_mults (n1,n2,n3,a,1.e3) CALL rams_comp_noneg (n1,n2,n3,a) endif cdname='Dust2-drizzle-nucleation-total;' - cdunits='g/kg;' + cdunits='g/kg/time;' + +! Vertically integrated variables for IMBUDGET == 1 elseif(cvar(1:lv).eq.'vt_nuccldrt') then ivar_type=2 @@ -3452,7 +3661,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-nuccldrt;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_cld2raint') then ivar_type=2 @@ -3464,7 +3673,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-cld2raint;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_ice2raint') then ivar_type=2 @@ -3476,7 +3685,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-ice2raint;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_nucicert') then ivar_type=2 @@ -3488,7 +3697,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-nucicert;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_vapliqt') then ivar_type=2 @@ -3500,7 +3709,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-vapliqt;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_vapicet') then ivar_type=2 @@ -3512,7 +3721,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-vapicet;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_melticet') then ivar_type=2 @@ -3524,7 +3733,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-melticet;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_rimecldt') then ivar_type=2 @@ -3536,7 +3745,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-rimecldt;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_rain2icet') then ivar_type=2 @@ -3548,7 +3757,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-rain2icet;' - cdunits='mm;' + cdunits='kg/m2/time;' elseif(cvar(1:lv).eq.'vt_aggregatet') then ivar_type=2 @@ -3560,21 +3769,421 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) CALL rams_comp_mult (n1,n2,n3,a,d) CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) cdname='vertically-integrated-aggregatet;' - cdunits='mm;' + cdunits='kg/m2/time;' -!###################################################################### -! 3D HYDROMETEOR DIAMETERS - 9 variables -!###################################################################### -elseif(cvar(1:lv).eq.'cloudtop_diam') then +! Extra vertically integrated variables for IMBUDGET == 2 + +elseif(cvar(1:lv).eq.'vt_inuchomrt') then ivar_type=2 - ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) - ierr=rams_getvar('CCP',idim_type,ngrd,c,flnm) - CALL rams_comp_ctopdiam (n1,n2,n3,a,c,cfmas(1),pwmas(1)) - cdname='cloud-top-diam;' - cdunits='microns;' + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('INUCHOMRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-inuchomrt;' + cdunits='kg/m2/time;' -elseif(cvar(1:lv).eq.'cloud_diam') then - ivar_type=3 +elseif(cvar(1:lv).eq.'vt_inuccontrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('INUCCONTRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-inuccontrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_inucifnrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('INUCIFNRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-inucifnrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_inuchazrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('INUCHAZRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-inuchazrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapcldt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPCLDT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapcldt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapraint') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPRAINT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapraint;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapprist') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPPRIST',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapprist;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapsnowt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPSNOWT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapsnowt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapaggrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPAGGRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapaggrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapgraut') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPGRAUT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapgraut;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vaphailt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPHAILT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vaphailt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_vapdrizt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPDRIZT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapdrizt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_meltprist') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTPRIST',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-meltprist;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_meltsnowt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTSNOWT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-meltsnowt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_meltaggrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTAGGRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-meltaggrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_meltgraut') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTGRAUT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-meltgraut;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_melthailt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTHAILT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-melthailt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rimecldsnowt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RIMECLDSNOWT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rimecldsnowt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rimecldaggrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RIMECLDAGGRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rimecldaggrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rimecldgraut') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RIMECLDGRAUT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rimecldgraut;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rimecldhailt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RIMECLDHAILT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rimecldhailt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rain2prt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2PRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2prt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rain2snt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2SNT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2snt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rain2agt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2AGT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2agt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rain2grt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2GRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2grt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_rain2hat') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2HAT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2hat;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_aggrselfprist') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('AGGRSELFPRIST',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-aggrselfprist;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_aggrselfsnowt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('AGGRSELFSNOWT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-aggrselfsnowt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_aggrprissnowt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('AGGRPRISSNOWT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-aggrprissnowt;' + cdunits='kg/m2/time;' + +! Extra vertically integrated variables for IMBUDGET == 3 + +elseif(cvar(1:lv).eq.'vt_dust1cldrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DUST1CLDRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-dust1cldrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_dust2cldrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DUST2CLDRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-dust2cldrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_dust1drzrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DUST1DRZRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-dust1drzrt;' + cdunits='kg/m2/time;' + +elseif(cvar(1:lv).eq.'vt_dust2drzrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DUST2DRZRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-dust2drzrt;' + cdunits='kg/m2/time;' + +!###################################################################### +! 3D HYDROMETEOR DIAMETERS +!###################################################################### +elseif(cvar(1:lv).eq.'cloudtop_diam') then + ivar_type=2 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCP',idim_type,ngrd,c,flnm) + CALL rams_comp_ctopdiam (n1,n2,n3,a,c,cfmas(1),pwmas(1)) + cdname='cloud-top-diam;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'cloud_diam') then + ivar_type=3 ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) ierr=rams_getvar('CCP',idim_type,ngrd,c,flnm) CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(1),pwmas(1)) @@ -3656,7 +4265,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='microns;' !###################################################################### -! 3D HYDROMETEOR TEMP, THERMAL ENERGY, LIQUID FRACTION - 11 variables +! 3D HYDROMETEOR TEMP, THERMAL ENERGY, LIQUID FRACTION !###################################################################### elseif(cvar(1:lv).eq.'q2') then ivar_type=3 @@ -3748,7 +4357,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='fraction;' !###################################################################### -! 3D MISCELLANEOUS FIELDS - 4 variables +! 3D MISCELLANEOUS FIELDS !###################################################################### elseif(cvar(1:lv).eq.'geo') then ivar_type=3 @@ -3853,7 +4462,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) ,tant,reflc,tden) !###################################################################### -! CUMULUS PARAMETERIZATION - RADIATION - TURBULENCE - 15 variables +! CUMULUS PARAMETERIZATION - RADIATION - TURBULENCE !###################################################################### elseif(cvar(1:lv).eq.'cuparm_thetasrc') then ivar_type=3 @@ -3995,7 +4604,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='K/day;' !###################################################################### -! 2D SURFACE PRECIP and VERTICALLY INTEGRATED FIELDS - 55 variables +! 2D SURFACE PRECIP and VERTICALLY INTEGRATED FIELDS !###################################################################### elseif(cvar(1:lv).eq.'accpr') then ivar_type=2 @@ -4267,6 +4876,13 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='accum-convective-pcp;' cdunits='mm;' +elseif(cvar(1:lv).eq.'vertavg_w') then + ivar_type=2 + ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) + CALL rams_comp_vertavg (n1,n2,n3,a,c) + cdname='average-vertical-motion;' + cdunits='m/s;' + elseif(cvar(1:lv).eq.'vertmax_w') then ivar_type=2 ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) @@ -4274,16 +4890,95 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdname='maximum-vertical-motion;' cdunits='m/s;' -elseif(cvar(1:lv).eq.'vertavg_w') then +elseif(cvar(1:lv).eq.'vertmin_w') then ivar_type=2 ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) - CALL rams_comp_vertavg (n1,n2,n3,a,c) - cdname='average-vertical-motion;' + CALL rams_comp_vertmin (n1,n2,n3,a,c) + cdname='minimum-vertical-motion;' cdunits='m/s;' +elseif(cvar(1:lv).eq.'vertmax_cloud') then + ivar_type=2 + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-cloud-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_rain') then + ivar_type=2 + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-rain-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_pris') then + ivar_type=2 + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-pristine-ice-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_snow') then + ivar_type=2 + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-snow-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_aggr') then + ivar_type=2 + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-aggregates-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_grau') then + ivar_type=2 + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-graupel-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_hail') then + ivar_type=2 + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-hail-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vertmax_driz') then + ivar_type=2 + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + CALL rams_comp_vertmax (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='maximum-drizzle-mixing-ratio;' + cdunits='g/kg;' + ! Vertically-integrated atmospheric moisture -elseif(cvar(1:lv).eq.'vertint_rt' .or. & - cvar(1:lv).eq.'vertint_cond') then +elseif(cvar(1:lv).eq.'vertint_rt' .or. cvar(1:lv).eq.'vertint_cond') then ivar_type=2 iany=1 @@ -4522,7 +5217,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='micro-grams/m2;' !###################################################################### -! 2D SEA ICE COVERAGE, DEPTH, ROUGHNESS, TEMP, SNOW COVER - 5 variables +! 2D SEA ICE COVERAGE, DEPTH, ROUGHNESS, TEMP, SNOW COVER !###################################################################### elseif(cvar(1:lv).eq.'snowdepthonice') then ivar_type=2 @@ -4555,7 +5250,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='#;' !###################################################################### -! 2D SURFACE HEAT, MOISTURE, MOMENTUM AND RADIATIVE FLUX - 12 variables +! 2D SURFACE HEAT, MOISTURE, MOMENTUM AND RADIATIVE FLUX !###################################################################### elseif(cvar(1:lv).eq.'sens_flux') then ivar_type=2 @@ -4640,7 +5335,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='fraction;' !###################################################################### -! 2D TOPOGRAPHY AND GEOGRAPHIC VALUES - 3 variables +! 2D TOPOGRAPHY AND GEOGRAPHIC VALUES !###################################################################### elseif(cvar(1:lv).eq.'topt') then ivar_type=2 @@ -4661,7 +5356,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='deg;' !###################################################################### -! 2D MISCELLANEOUS FIELDS - 3 variables +! 2D MISCELLANEOUS FIELDS !###################################################################### elseif(cvar(1:lv).eq.'sea_press') then ivar_type=2 @@ -4690,7 +5385,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='C;' !###################################################################### -! LEAF3/SIB variables section - 34 variables +! LEAF3/SIB variables section !###################################################################### elseif(cvar(1:lv).eq.'patch_area') then ivar_type=6 @@ -5065,7 +5760,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) endif !###################################################################### -! SIB variables section - 40 variables +! SIB variables section !###################################################################### elseif(cvar(1:lv).eq.'co2_concen') then ivar_type=3 @@ -5506,7 +6201,7 @@ Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) cdunits='hPa/deg;' !###################################################################### -! KPP OCEAN MIXED LAYER MODEL FIELDS - 10 variables +! KPP OCEAN MIXED LAYER MODEL FIELDS !###################################################################### elseif(cvar(1:lv).eq.'kpp_hmix') then ivar_type=2 diff --git a/src/6.3.01/revu/iplt.f90 b/src/6.3.02/revu/iplt.f90 similarity index 100% rename from src/6.3.01/revu/iplt.f90 rename to src/6.3.02/revu/iplt.f90 diff --git a/src/6.3.01/revu/rainit.f90 b/src/6.3.02/revu/rainit.f90 similarity index 100% rename from src/6.3.01/revu/rainit.f90 rename to src/6.3.02/revu/rainit.f90 diff --git a/src/6.3.01/revu/rbat.f90 b/src/6.3.02/revu/rbat.f90 similarity index 100% rename from src/6.3.01/revu/rbat.f90 rename to src/6.3.02/revu/rbat.f90 diff --git a/src/6.3.01/revu/rcommons.f90 b/src/6.3.02/revu/rcommons.f90 similarity index 100% rename from src/6.3.01/revu/rcommons.f90 rename to src/6.3.02/revu/rcommons.f90 diff --git a/src/6.3.01/revu/rcomp.f90 b/src/6.3.02/revu/rcomp.f90 similarity index 95% rename from src/6.3.01/revu/rcomp.f90 rename to src/6.3.02/revu/rcomp.f90 index a35adb0..32f266b 100644 --- a/src/6.3.01/revu/rcomp.f90 +++ b/src/6.3.02/revu/rcomp.f90 @@ -524,6 +524,26 @@ Subroutine rams_comp_horizdiv (n1,n2,n3,a,topt,ngrd) return END SUBROUTINE rams_comp_horizdiv +!############################################################################## +Subroutine rams_comp_vertmin (n1,n2,n3,a,c) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c + +do j = 1,n2 + do i = 1,n1 + a(i,j,1) = 0. + do k = 2,n3-5 + a(i,j,1) = min(a(i,j,1),c(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_vertmin + !############################################################################## Subroutine rams_comp_vertmax (n1,n2,n3,a,c) @@ -966,8 +986,8 @@ Subroutine rams_comp_hydrogamma (n1,n2,n3,a,c,ccfmas,ppwmas,gnu,z) !"a" is hydrometeor mass concentration in kg/m3 !"c" is hydrometeor number concentration in #/m3 - !If mixing ratio is large enough, proceed - if(a(i,j,k) .gt. 0.00001)then + !If mixing ratio is large enough (>= .001 g/kg), proceed + if(a(i,j,k) .ge. 0.000001)then !Mean mass diameter (meters) dmean = (a(i,j,k) / (c(i,j,k) * ccfmas))**(1./ppwmas) @@ -1020,7 +1040,7 @@ Subroutine rams_comp_hydrogamma (n1,n2,n3,a,c,ccfmas,ppwmas,gnu,z) !Standard deviation of mass spectrum (mm) Sigma_m = sqrt(Sum2nd/SumMd) - !Compute volumetic mean diameter (mm) + !Compute volumetric mean diameter (mm) !Use (gnu-1) since RAMS' gnu is different than Williams et al. D0 = Dm * (3.67 + (gnu-1.)) / (4.0 + (gnu-1.)) @@ -1029,7 +1049,7 @@ Subroutine rams_comp_hydrogamma (n1,n2,n3,a,c,ccfmas,ppwmas,gnu,z) !*************************************************************************** !Assign values to output variable "a" - if(z==1) a(i,j,k) = Dm !mass weighted mean diamer (mm) + if(z==1) a(i,j,k) = Dm !mass weighted mean diameter (mm) if(z==2) a(i,j,k) = D0 !volumetric mean diameter (mm) if(z==3) a(i,j,k) = Nw !normalized intercept parameter (1/mm * 1/m3) if(z==4) a(i,j,k) = Sigma_m !standard deviation of mass spectrum (mm) @@ -1471,6 +1491,85 @@ Subroutine rams_comp_noneg (n1,n2,n3,a) return END SUBROUTINE rams_comp_noneg +!############################################################################## +Subroutine rams_comp_nonegm (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + !If value is very small make it zero to save output space. + !For native hydrometeor mixing ratio this is 1.e-6 kg/kg or 1.e-3 g/kg. + !Note that 3 rain drops of 1mm diameter ~ 0.0015 grams, so 3 rain + !drops per kg of air would meet the sampling criteria for mixing ratio. + if(a(i,j,k) .lt. 0.000001)then + a(i,j,k)=0. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_nonegm + +!############################################################################## +Subroutine rams_comp_nonegp (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + !Like "nonegm" above, we set a minimum for the microphysical process + !rate to output from revu so we can keep files smaller. No need to + !analyze super small values that are typically thresholded out anyway. + !Applying minimum of 0.0000001 kg/kg/time = 0.0001 g/kg/time + + !Apply threshold to both negative and positive values to account for + !evaporation (negative) and deposition (positive) in the budget + !variables like "vapliqt". + if( a(i,j,k) .gt. -0.0000001 .and. a(i,j,k) .lt. 0.0000001 ) then + a(i,j,k)=0. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_nonegp + +!############################################################################## +Subroutine rams_comp_nonegn (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) !number concentration +real :: b(n1,n2,n3) !mixing ratio + +do k=1,n3 + do j=1,n2 + do i=1,n1 + !If value is very small make it zero to save output space. + !For native hydrometeor mixing ratio this is 1.e-6 kg/kg or 1.e-3 g/kg. + !Note that 3 rain drops of 1mm diameter ~ 0.0015 grams, so 3 rain + !drops per kg of air would meet the sampling criteria for mixing ratio. + if(b(i,j,k) .lt. 0.000001)then !hydrometeor mixing ratio (kg/kg) + a(i,j,k)=0. !hydrometeor number concentration (#/kg) + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_nonegn !############################################################################## Subroutine rams_comp_subt (n1,n2,n3,a,b) diff --git a/src/6.3.01/revu/revu_main.f90 b/src/6.3.02/revu/revu_main.f90 similarity index 100% rename from src/6.3.01/revu/revu_main.f90 rename to src/6.3.02/revu/revu_main.f90 diff --git a/src/6.3.01/revu/revu_utils.f90 b/src/6.3.02/revu/revu_utils.f90 similarity index 100% rename from src/6.3.01/revu/revu_utils.f90 rename to src/6.3.02/revu/revu_utils.f90 diff --git a/src/6.3.01/revu/revugrads.f90 b/src/6.3.02/revu/revugrads.f90 similarity index 100% rename from src/6.3.01/revu/revugrads.f90 rename to src/6.3.02/revu/revugrads.f90 diff --git a/src/6.3.01/revu/rhdf5_f2c.c b/src/6.3.02/revu/rhdf5_f2c.c similarity index 100% rename from src/6.3.01/revu/rhdf5_f2c.c rename to src/6.3.02/revu/rhdf5_f2c.c diff --git a/src/6.3.01/revu/rhdf5_utils.f90 b/src/6.3.02/revu/rhdf5_utils.f90 similarity index 100% rename from src/6.3.01/revu/rhdf5_utils.f90 rename to src/6.3.02/revu/rhdf5_utils.f90 diff --git a/src/6.3.01/revu/textout.f90 b/src/6.3.02/revu/textout.f90 similarity index 92% rename from src/6.3.01/revu/textout.f90 rename to src/6.3.02/revu/textout.f90 index c28adf8..b6ea032 100644 --- a/src/6.3.01/revu/textout.f90 +++ b/src/6.3.02/revu/textout.f90 @@ -323,13 +323,15 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'tempf2m') ngem='TMPF2' if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'tempc2m') ngem='TMPC2' -!3D HYDROMETEOR GAMMA DISTRIBUTION INFO - 22 variables +!3D HYDROMETEOR GAMMA DISTRIBUTION INFO - 26 variables if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'cloud_gam_dm') ngem='CGDM' if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'cloud_gam_d0') ngem='CGD0' if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rain_gam_dm') ngem='RGDM' if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rain_gam_d0') ngem='RGD0' if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_gam_lognw') ngem='RGNW' if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_gam_sigma') ngem='RGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'pris_gam_dm') ngem='PGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'pris_gam_d0') ngem='PGD0' if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'snow_gam_dm') ngem='SGDM' if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'snow_gam_d0') ngem='SGD0' if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snow_gam_lognw') ngem='SGNW' @@ -346,12 +348,15 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'hail_gam_d0') ngem='HGD0' if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_gam_lognw') ngem='HGNW' if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_gam_sigma') ngem='HGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'driz_gam_dm') ngem='DGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'driz_gam_d0') ngem='DGD0' -!3D MOISTURE MASS MIXING RATIOS AND HUMIDITY - 37 variables +!3D MOISTURE MASS MIXING RATIOS AND HUMIDITY - 38 variables if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vapr_press') ngem='VPRS' if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rslf') ngem='RSLF' if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rsif') ngem='RSIF' if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'vapor') ngem='VMIX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapor_m3') ngem='VMXV' if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'cloud') ngem='CMIX' if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'cloud_m3') ngem='CMXV' if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rain') ngem='RMIX' @@ -372,12 +377,12 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'grauphail') ngem='GHMX' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'liquid') ngem='LMIX' if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'ice') ngem='IMIX' -if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'ctop_tempc_sstbase') ngem='CTST' -if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'ctop_tempc_nobase') ngem='CTOP' if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'total_cond') ngem='TMIX' if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'total_cond_m3') ngem='TMXV' -if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'r_total') ngem='MIXS' -if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rtotal_orig') ngem='MIXT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'total_mixr') ngem='MIXS' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'total_mixr_m3') ngem='MIXV' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'ctop_tempc_sstbase') ngem='CTST' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'ctop_tempc_nobase') ngem='CTOP' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptk') ngem='DWPK' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptf') ngem='DWPF' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptc') ngem='DWPC' @@ -529,7 +534,7 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2ice') ngem='R2IC' if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'aggregate') ngem='AGGR' -!3D MICROPHYSICAL TOTAL BUDGETS - 55 variables +!3D MICROPHYSICAL TOTAL BUDGETS - 88 variables if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'nuccldrt') ngem='NUCRT' if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'cld2raint') ngem='CL2RT' if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'ice2raint') ngem='IC2RT' @@ -585,6 +590,39 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rimecldt') ngem='VRIMCT' if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_rain2icet') ngem='VR2ICT' if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_aggregatet') ngem='VAGGRT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_inuchomrt') ngem='VIHMRT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_inuccontrt') ngem='VICORT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_inucifnrt') ngem='VIINRT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_inuchazrt') ngem='VIHZRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vt_vapcldt') ngem='VVAPCT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapraint') ngem='VVAPRT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapprist') ngem='VVAPPT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapsnowt') ngem='VVAPST' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapaggrt') ngem='VVAPAT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapgraut') ngem='VVAPGT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vaphailt') ngem='VVAPHT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_vapdrizt') ngem='VVAPDT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_meltprist') ngem='VMELPT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_meltsnowt') ngem='VMELST' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_meltaggrt') ngem='VMELAT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_meltgraut') ngem='VMELGT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_melthailt') ngem='VMELHT' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'vt_rimecldsnowt') ngem='VRIMST' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'vt_rimecldaggrt') ngem='VRIMAT' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'vt_rimecldgraut') ngem='VRIMGT' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'vt_rimecldhailt') ngem='VRIMHT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rain2prt') ngem='VR2PRT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rain2snt') ngem='VR2SNT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rain2agt') ngem='VR2AGT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rain2grt') ngem='VR2GRT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rain2hat') ngem='VR2HAT' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'vt_aggrselfprist') ngem='VAGPPT' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'vt_aggrselfsnowt') ngem='VAGSST' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'vt_aggrprissnowt') ngem='VAGPST' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_dust1cldrt') ngem='VD1CRT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_dust2cldrt') ngem='VD2CRT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_dust1drzrt') ngem='VD1DRT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_dust2drzrt') ngem='VD2DRT' !3D HYDROMETEOR DIAMETERS - 9 variables if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'cloudtop_diam') ngem='TDIM' @@ -671,8 +709,19 @@ Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'precipr_in') ngem='PRTI' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'conpcp') ngem='CNPR' if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'acccon') ngem='ACON' -if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertmax_w') ngem='VMXW' + if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertavg_w') ngem='VAVW' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertmax_w') ngem='VMXW' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertmin_w') ngem='VMNW' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vertmax_cloud') ngem='VMXC' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_rain') ngem='VMXR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_pris') ngem='VMXP' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_snow') ngem='VMXS' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_aggr') ngem='VMXA' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_grau') ngem='VMXG' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_hail') ngem='VMXH' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertmax_driz') ngem='VMXD' + if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_cond') ngem='COND' if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vertint_rt') ngem='WATR' if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_orig') ngem='VERT' diff --git a/src/6.3.01/revu/vplt.f90 b/src/6.3.02/revu/vplt.f90 similarity index 100% rename from src/6.3.01/revu/vplt.f90 rename to src/6.3.02/revu/vplt.f90 diff --git a/src/6.3.01/sib/sib2_co2.f90 b/src/6.3.02/sib/sib2_co2.f90 similarity index 100% rename from src/6.3.01/sib/sib2_co2.f90 rename to src/6.3.02/sib/sib2_co2.f90 diff --git a/src/6.3.01/sib/sib2_init.f90 b/src/6.3.02/sib/sib2_init.f90 similarity index 100% rename from src/6.3.01/sib/sib2_init.f90 rename to src/6.3.02/sib/sib2_init.f90 diff --git a/src/6.3.01/surface/leaf3_canopy.f90 b/src/6.3.02/surface/leaf3_canopy.f90 similarity index 100% rename from src/6.3.01/surface/leaf3_canopy.f90 rename to src/6.3.02/surface/leaf3_canopy.f90 diff --git a/src/6.3.01/surface/leaf3_init.f90 b/src/6.3.02/surface/leaf3_init.f90 similarity index 100% rename from src/6.3.01/surface/leaf3_init.f90 rename to src/6.3.02/surface/leaf3_init.f90 diff --git a/src/6.3.01/surface/leaf3_prep.f90 b/src/6.3.02/surface/leaf3_prep.f90 similarity index 100% rename from src/6.3.01/surface/leaf3_prep.f90 rename to src/6.3.02/surface/leaf3_prep.f90 diff --git a/src/6.3.01/surface/leaf3_slayer.f90 b/src/6.3.02/surface/leaf3_slayer.f90 similarity index 100% rename from src/6.3.01/surface/leaf3_slayer.f90 rename to src/6.3.02/surface/leaf3_slayer.f90 diff --git a/src/6.3.01/surface/leaf3_soilveg.f90 b/src/6.3.02/surface/leaf3_soilveg.f90 similarity index 100% rename from src/6.3.01/surface/leaf3_soilveg.f90 rename to src/6.3.02/surface/leaf3_soilveg.f90 diff --git a/src/6.3.01/surface/leaf_coms.f90 b/src/6.3.02/surface/leaf_coms.f90 similarity index 100% rename from src/6.3.01/surface/leaf_coms.f90 rename to src/6.3.02/surface/leaf_coms.f90 diff --git a/src/6.3.01/surface/ruser.f90 b/src/6.3.02/surface/ruser.f90 similarity index 100% rename from src/6.3.01/surface/ruser.f90 rename to src/6.3.02/surface/ruser.f90 diff --git a/src/6.3.01/surface/sfc_driver.f90 b/src/6.3.02/surface/sfc_driver.f90 similarity index 100% rename from src/6.3.01/surface/sfc_driver.f90 rename to src/6.3.02/surface/sfc_driver.f90 diff --git a/src/6.3.01/turb/rgrad.f90 b/src/6.3.02/turb/rgrad.f90 similarity index 100% rename from src/6.3.01/turb/rgrad.f90 rename to src/6.3.02/turb/rgrad.f90 diff --git a/src/6.3.01/turb/turb_diff.f90 b/src/6.3.02/turb/turb_diff.f90 similarity index 100% rename from src/6.3.01/turb/turb_diff.f90 rename to src/6.3.02/turb/turb_diff.f90 diff --git a/src/6.3.01/turb/turb_k.f90 b/src/6.3.02/turb/turb_k.f90 similarity index 100% rename from src/6.3.01/turb/turb_k.f90 rename to src/6.3.02/turb/turb_k.f90 diff --git a/src/6.3.01/turb/turb_ke.f90 b/src/6.3.02/turb/turb_ke.f90 similarity index 100% rename from src/6.3.01/turb/turb_ke.f90 rename to src/6.3.02/turb/turb_ke.f90